X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Misc.pm;h=a08ae7632f87cf096051b170302b4bb7ef5944ed;hb=1ccb344994c1b517c662da9f236cf1c640780177;hp=66ef54562b77ff842781bf4b51e233d8d2c37a77;hpb=bbda5c4f4358094b8599e814484d837dc3ee7d86;p=NDIRC.git diff --git a/Misc.pm b/Misc.pm index 66ef545..a08ae76 100644 --- a/Misc.pm +++ b/Misc.pm @@ -46,7 +46,15 @@ sub parseCommand { return if $channel !~ /^#/ && $msg =~ /^~/; $msg = ".$msg" if $channel !~ /^#/ && $msg =~ /^[^.!]/; - my ($p,$command,$args) = ($msg =~ /^([.!~])(\S+)(?: (.+))?/) or return 0; + my ($p,$command,$args) = ($msg =~ /^([.!~])(\S+)(?: (.+))?/); + + if ($msg =~ m{http://[\w.]+/.+?scan(_id|_grp)?=(\w+)}){ + if (!$command || $command =~ m{^http://}){ + ($p,$command,$args) = ('.','addscan',$msg); + }elsif($command ne 'addscan'){ + parseCommand (".addscan $msg", $server, $nick, $address, $channel, $disp,$model) + } + } return 0 unless $disp->has_command($command,$channel);