Converted the .gs command

[NDIRC.git] / ndawn.pl

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