Converted the .scanreqs command

[NDIRC.git] / Misc.pm

diff --git a/Misc.pm b/Misc.pm
index 74159ac9e3461b421abf763f745951455141758c..66ef54562b77ff842781bf4b51e233d8d2c37a77 100644 (file)
--- 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";
                }
        }