X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ndawn.pl;h=76fca28c3d6899574ffaeecae66831cee0004f25;hb=491db8f0abea3c779a1ecdc64f22ed233bc9546b;hp=ffb7e5851a9ec17c1c396af7722d7887b6290a49;hpb=c6964887c87acd5769ec90ce8734407f74433fc7;p=NDIRC.git

diff --git a/ndawn.pl b/ndawn.pl
index ffb7e58..76fca28 100644
--- a/ndawn.pl
+++ b/ndawn.pl
@@ -55,25 +55,33 @@ my $TICK = $DBH->selectrow_array('SELECT tick()');
 
 my $disp = new NDIRC::Dispatcher;
 
-$disp->load('Basic','PA');
+$disp->load('Basic','PA','Channel','Scans');
 
-$disp->add_channel('#testarlite', ['pub','help']);
-$disp->add_channel('#testarmer', ['pub','help']);
+$ND::scanchan = '#testarmer';
+$disp->add_channel('#testarlite', ['pub','help','channel']);
+$disp->add_channel('#testarmer', ['pub','help','channel','scan']);
+$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 (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 {