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