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)
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";