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

#!/usr/bin/perl -I ./Modules
# Copyright (C) 2005, 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/>.

# I hard coded this script to run out of the cwd.  This is for testing
# purposes and since Landon is replacing this, no worries.

unshift(@INC, "./Modules");

use strict;
use warnings;

use Bot::BasicBot::Time;

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

my $PID_FILE = "time-bot.pid";

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

my @CHANNELS = ( { channel => "#antimatter"
                   });
#                   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, TIME\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 = "irc.freenode.net";
  $channel = "#antimatter";
}
if ($channel ne "#antimatter") {
  $channel = [ { channel => "#mainchannel" }];
#                                                password => 'PASS'
#                                                invite_nick => 'ChanServ'}];
} else {
  $channel = [ { channel => "$channel" } ];
}
open(PASSWORD, "<./oldtimbot")
  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;

my $dmv = DateManipVersion;
die "Bad DateManip Version is $dmv" unless $dmv =~ /^bkuhn/;

$nick = 'oldtimbot' if not defined $nick;
         my $bot = Bot::BasicBot::Time->new(channels => $channel,
                                   nick_password => $passwords{nick_password},
                                           server => $server,
                                           port   => "6667",
                                           nick     => $nick,
#                                      password => $passwords{server_password},
                                            ignore_list => [qw/LazyLuke/],
                                           ssl   => 1,
                                           username => "TimeTrack",
                                           name     => "SFLC Time Tracking Bot",
                                            dbPath => '.'
                       );

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

###############################################################################
#
# Local variables:
# compile-command: "perl -I../Modules -I ../Bot-BasicBot/lib -c time-bot.plx"
# End: