X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Misc.pm;h=66ef54562b77ff842781bf4b51e233d8d2c37a77;hb=227e9bfcf736a4a413d68b9f83a25636c13d8e0b;hp=74159ac9e3461b421abf763f745951455141758c;hpb=4f1948e0fe10075464732db5cc2168207c00c7aa;p=NDIRC.git diff --git a/Misc.pm b/Misc.pm index 74159ac..66ef545 100644 --- a/Misc.pm +++ b/Misc.pm @@ -43,6 +43,9 @@ sub valuecolor { sub parseCommand { my ($msg, $server, $nick, $address, $channel, $disp,$model) = @_; + return if $channel !~ /^#/ && $msg =~ /^~/; + $msg = ".$msg" if $channel !~ /^#/ && $msg =~ /^[^.!]/; + my ($p,$command,$args) = ($msg =~ /^([.!~])(\S+)(?: (.+))?/) or return 0; return 0 unless $disp->has_command($command,$channel); @@ -50,13 +53,13 @@ sub parseCommand { my $reply_string; given ($p){ when ('!'){ - $reply_string = "msg $nick "; + $reply_string = "msg $nick"; } when ('~'){ - $reply_string = "msg $channel "; + $reply_string = "msg $channel"; } default { - $reply_string = "notice $nick "; + $reply_string = "notice $nick"; } }