#**************************************************************************
-# 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 *
my $disp = new NDIRC::Dispatcher;
-$disp->load('Basic','PA','Channel','Scans');
+$disp->load('Basic','SMS');
$ND::scanchan = '#testarmer';
-$disp->add_channel('#testarlite', ['pub','help','channel']);
-$disp->add_channel('#testarmer', ['pub','help','channel','scan']);
+$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) = @_;
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
}