X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ndawn.pl;h=b8d35bbd3c451094102097a4b0bdfdfd77100c61;hb=0d6e6e233601ba9b1dd9fe874e804424a10fa09c;hp=6ddc8f74d44d134e80c95c03bf194e68166fd0aa;hpb=4f1948e0fe10075464732db5cc2168207c00c7aa;p=NDIRC.git

diff --git a/ndawn.pl b/ndawn.pl
index 6ddc8f7..b8d35bb 100644
--- a/ndawn.pl
+++ b/ndawn.pl
@@ -1,5 +1,5 @@
 #**************************************************************************
-#   Copyright (C) 2008 by Michael Andreen <harvATruinDOTnu>               *
+#   Copyright (C) 2009 by Michael Andreen <harvATruinDOTnu>               *
 #                                                                         *
 #   This program is free software; you can redistribute it and/or modify  *
 #   it under the terms of the GNU General Public License as published by  *
@@ -55,25 +55,46 @@ my $TICK = $DBH->selectrow_array('SELECT tick()');
 
 my $disp = new NDIRC::Dispatcher;
 
-$disp->load('Basic');
+$disp->load('Basic','SMS');
 
-$disp->add_channel('#testarlite', ['pub','help']);
-$disp->add_channel('#testarmer', ['pub','help']);
+$ND::scanchan = '#testarmer';
+$ND::defchan = '#testarlite';
+$ND::memchan = '#testarmer';
+$disp->add_channel($ND::defchan, ['pub','help','channel','def']);
+$disp->add_channel($ND::scanchan, ['pub','help','channel','scan','member']);
+$disp->add_channel('pm', ['pub','help','pm']);
 
 sub event_pubmsg {
 	my ($server, $msg, $nick, $address, $channel) = @_;
 
-	if (parseCommand($msg,$server,$nick,$address,$channel,$disp,DB())){
-		#Command parsed and run successfully
-	}
+	eval {
+		if ($msg =~ /^(\S+): (.+)$/ && $disp->has_command('anon',$channel)){
+			my $_ = $1;
+			my $text = $2;
+			my $channel = $server->channel_find($channel);
+			my $nick = $channel->nick_find($1);
+			unless ($nick || /(Constructing|Researching)/){
+				print ".anon $_ $text";
+				$msg = ".anon $_ $text";
+			}
+
+		}
+		if (parseCommand($msg,$server,$nick,$address,$channel,$disp,DB())){
+			#Command parsed and run successfully
+		}
+	};
+	print $@ if $@;
 }
 
 sub event_privmsg {
 	my ($server, $msg, $nick, $address) = @_;
 
-	if (parseCommand($msg,$server,$nick,$address,'pm',$disp,DB())){
-		#Command parsed and run successfully
-	}
+	eval {
+		if (parseCommand($msg,$server,$nick,$address,'pm',$disp,DB())){
+			#Command parsed and run successfully
+		}
+	};
+	print $@ if $@;
 }
 
 sub refresh {