Converted addscans

[NDIRC.git] / Misc.pm

diff --git a/Misc.pm b/Misc.pm
index 66ef54562b77ff842781bf4b51e233d8d2c37a77..6f923897b3c748edab1c84bd7246e68a2fbc0edc 100644 (file)
--- 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+)}){
+               unless ($command){
+                       ($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);