ndawn.pl

   1 #**************************************************************************
   2 #   Copyright (C) 2009 by Michael Andreen <harvATruinDOTnu>               *
   3 #                                                                         *
   4 #   This program is free software; you can redistribute it and/or modify  *
   5 #   it under the terms of the GNU General Public License as published by  *
   6 #   the Free Software Foundation; either version 2 of the License, or     *
   7 #   (at your option) any later version.                                   *
   8 #                                                                         *
   9 #   This program is distributed in the hope that it will be useful,       *
  10 #   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
  11 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
  12 #   GNU General Public License for more details.                          *
  13 #                                                                         *
  14 #   You should have received a copy of the GNU General Public License     *
  15 #   along with this program; if not, write to the                         *
  16 #   Free Software Foundation, Inc.,                                       *
  17 #   51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.         *
  18 #**************************************************************************/
  19
  20 use strict;
  21 use warnings;
  22 use vars qw($VERSION %IRSSI);
  23
  24 use Irssi;
  25 use Irssi::Irc;
  26
  27 $VERSION = "0.1";
  28 %IRSSI = (
  29     authors => "harv",
  30     contact => "harv\@ruin.nu",
  31     name    => "NewDawn testbot script",
  32     description => "Testbot used for implementing commands for nd bots",
  33     license => "GPL-2 or (at your option) any later version",
  34     url     => "",
  35     changed => "",
  36 );
  37
  38 $ND::refresh = 0;
  39
  40 $SIG{USR1} = sub{
  41         print "USR1";
  42         $ND::refresh = 1;
  43 };
  44
  45
  46 use again 'ND::DB';
  47 use again 'ND::Include';
  48 use again 'NDIRC::Dispatcher';
  49 use again 'NDIRC::Context';
  50 use again 'NDIRC::Command';
  51 use again 'NDIRC::Misc';
  52
  53 my $DBH = DB();
  54 my $TICK = $DBH->selectrow_array('SELECT tick()');
  55
  56 my $disp = new NDIRC::Dispatcher;
  57
  58 $disp->load(qw/Basic SMS Channel Def Intel Members PA Quotes Scans Usermgm/);
  59
  60 $ND::scanchan = '#testarmer';
  61 $ND::defchan = '#testarlite';
  62 $ND::memchan = '#testarmer';
  63 $disp->add_channel($ND::defchan, ['pub','help','channel','def']);
  64 $disp->add_channel($ND::scanchan, ['pub','help','channel','scan','member']);
  65 $disp->add_channel('pm', ['pub','help','pm']);
  66
  67 sub event_pubmsg {
  68         my ($server, $msg, $nick, $address, $channel) = @_;
  69
  70         eval {
  71                 if ($msg =~ /^(\S+): (.+)$/ && $disp->has_command('anon',$channel)){
  72                         my $_ = $1;
  73                         my $text = $2;
  74                         my $channel = $server->channel_find($channel);
  75                         my $nick = $channel->nick_find($1);
  76                         unless ($nick || /(Constructing|Researching)/){
  77                                 print ".anon $_ $text";
  78                                 $msg = ".anon $_ $text";
  79                         }
  80
  81                 }
  82                 if (parseCommand($msg,$server,$nick,$address,$channel,$disp,DB())){
  83                         #Command parsed and run successfully
  84                 }
  85         };
  86         print $@ if $@;
  87 }
  88
  89 sub event_privmsg {
  90         my ($server, $msg, $nick, $address) = @_;
  91
  92         eval {
  93                 if (parseCommand($msg,$server,$nick,$address,'pm',$disp,DB())){
  94                         #Command parsed and run successfully
  95                 }
  96         };
  97         print $@ if $@;
  98 }
  99
 100 sub refresh {
 101         print "SiG" if $ND::refresh;
 102         $ND::refresh = 0;
 103 }
 104
 105 Irssi::timeout_add(60*1000, 'refresh', undef);
 106 Irssi::timeout_add(1000, sub{refresh if $ND::refresh}, undef);
 107 Irssi::signal_add('message public','event_pubmsg');
 108 Irssi::signal_add('message private','event_privmsg');
 109
 110