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