root/trunk/antimatter/tim/Scripts/logging-bot.plx

#!/usr/bin/perl -I../Modules -I ../Bot-BasicBot/lib
# Copyright (C) 2006, 2007   Software Freedom Law Center, Inc.
#  Author: Bradley M. Kuhn <bkuhn@softwarefreedom.org>
#
#  This software gives you freedom; it is licensed to you under version
#  3 of the GNU Affero General Public License.
#
#  This software is distributed WITHOUT ANY WARRANTY, without even the
#  implied warranties of MERCHANTABILITY and FITNESS FOR A PARTICULAR
#  PURPOSE.  See the GNU Affero General Public License for further
#  details.
#
# You should have received a copy of the GNU Affero General Public
# License, version 3 along with this software.  If not, see
# <http://www.gnu.org/licenses/>.

use strict;
use warnings;

use Bot::BasicBot::Log;

use Unix::Syslog qw(:subs);
use Unix::Syslog qw(:macros);
use Date::Manip;

my $PID_FILE = "/home/ircbot/pids/log-bot.pid";

my $PAGE_EMAIL = 'page@example.org';

my @CHANNELS = ( { channel => "#mainchannel",
                   password => 'PASS' });

###############################################################################
{
  my %messageHistory;

  sub WarnLog ($$) {
    my($now, $message) = @_;

    syslog LOG_INFO, $message;

    my $lastTime = $messageHistory{$message};

    my $sendIt = 0;
    if (not defined $lastTime) {
      $sendIt = 1;
    } else {
      my $err;
      my $sinceLast = DateCalc($lastTime,"+ 10 minutes",\$err);
      $sendIt = 1 if ($now gt $sinceLast);
    }
    if ($sendIt) {
      open(SENDMAIL, "|/usr/sbin/sendmail -f root\@example.org -t");
      print SENDMAIL "To: $PAGE_EMAIL\nFrom: root\@example.org\n",
      "Subject: IRC, LOG\n\n$message\n.\n";
      close(SENDMAIL);
      if ($? != 0) {
        syslog LOG_INFO, "Unable to perform sendmail: $!";
      } else {
        $messageHistory{$message} = $now;
      }
    }
  }
}
###############################################################################

my($server, $channel, $nick) = ($ARGV[0], $ARGV[1], $ARGV[2]);
unless (defined $server and defined $channel) {
  $server = "localhost";
  $channel = "#mainchannel";
}
if ($channel eq "#mainchannel") {
  $channel = [ { channel => "#mainchannel",
                                                password => 'PASS',
                                                invite_nick => 'ChanServ'}];
} else {
  $channel = [ { channel => "$channel" } ];
}
open(PASSWORD, "</home/ircbot/passwords/log")
  or die "unable to open password file: $!";
my(%passwords);
foreach my $line (<PASSWORD>) {
  chomp $line;
  next unless $line =~/^\s*(\S+)\s*:\s*(\S+)\s*$/;
  $passwords{$1} = $2;
}
close PASSWORD;

die "Unable to find password in password file" 
  unless defined $passwords{nick_password}
  and defined $passwords{server_password};


open(PID, ">$PID_FILE") or WarnLog(ParseDate("today"),
                                   "unable to write to $PID_FILE: $!");
print PID "$$\n";
close PID;

$nick = 'log' if not defined $nick;

         my $bot = Bot::BasicBot::Log->new(channels => $channel,
                                   nick_password => $passwords{nick_password},
                                           server => $server,
                                           port   => "6667",
                                           nick     => $nick,
                                      password => $passwords{server_password},
                                           ssl   => 1,
                                           username => "Logger",
                                           name     => "SFLC Logging Bot",
                              logFileDirectory => "/home/ircbot/channelLogs",
                              logInviteUserList => [ '#*EVERYONE' ],
                              logNeverLeaveChannelList => [ '#mainchannel' ]
                                          );

$bot->run() or WarnLog(ParseDate("today"), "Bot died.");

###############################################################################
#
# Local variables:
# compile-command: "perl -I./modules -c logging-bot.plx"
# End: