8 lines
155 B
Perl
8 lines
155 B
Perl
#!perl
|
|
|
|
sub command($self, $cart, $command, @) {
|
|
if ($command =~ m[^https?://]) {
|
|
print "This is not a browser...\n";
|
|
}
|
|
return NEXT;
|
|
}
|