X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ndawn.pl;h=0de8351ac4e80a5ab9a6dd7293f8657582724142;hb=ae37bc6b64270f8c65298a36fce1f4bad761231f;hp=76fca28c3d6899574ffaeecae66831cee0004f25;hpb=491db8f0abea3c779a1ecdc64f22ed233bc9546b;p=NDIRC.git diff --git a/ndawn.pl b/ndawn.pl index 76fca28..0de8351 100644 --- a/ndawn.pl +++ b/ndawn.pl @@ -1,5 +1,5 @@ #************************************************************************** -# Copyright (C) 2008 by Michael Andreen * +# Copyright (C) 2009 by Michael Andreen * # * # 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,17 +55,30 @@ my $TICK = $DBH->selectrow_array('SELECT tick()'); my $disp = new NDIRC::Dispatcher; -$disp->load('Basic','PA','Channel','Scans'); +$disp->load(qw/Basic SMS Channel Def Intel Members PA Quotes Scans Usermgm/); $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 }