X-Git-Url: https://ruin.nu/git/?p=NDIRC.git;a=blobdiff_plain;f=Misc.pm;h=bada45151b3df42dc46c3c60f289a7937021727d;hp=6f923897b3c748edab1c84bd7246e68a2fbc0edc;hb=e8c94cdebefdc428ea92fde6db63f18d3e8399b2;hpb=b87b6e87c3959096739e54bdf95c23d9e8212145 diff --git a/Misc.pm b/Misc.pm index 6f92389..bada451 100644 --- a/Misc.pm +++ b/Misc.pm @@ -49,7 +49,7 @@ sub parseCommand { my ($p,$command,$args) = ($msg =~ /^([.!~])(\S+)(?: (.+))?/); if ($msg =~ m{http://[\w.]+/.+?scan(_id|_grp)?=(\w+)}){ - unless ($command){ + if (!$command || $command =~ m{^http://}){ ($p,$command,$args) = ('.','addscan',$msg); }elsif($command ne 'addscan'){ parseCommand (".addscan $msg", $server, $nick, $address, $channel, $disp,$model) @@ -61,10 +61,10 @@ sub parseCommand { my $reply_string; given ($p){ when ('!'){ - $reply_string = "msg $nick"; + $reply_string = "privmsg $nick"; } when ('~'){ - $reply_string = "msg $channel"; + $reply_string = "privmsg $channel"; } default { $reply_string = "notice $nick";