#!/usr/local/bin/perl -w
###########################################
# logbot - Start a logging bot
# Mike Schilli, 2009 (m@perlmeister.com)
###########################################
use strict;
use Bot::BasicBot::Pluggable;
use Log::Log4perl qw(:easy);

Log::Log4perl->easy_init({ 
  level  => $ERROR, 
  layout => "%F{1}-%L %m%n"
});

my $bot = Bot::BasicBot::Pluggable->new(
    channels => ["#perlsnapshot"],
    server   => "irc.freenode.net",
    nick     => "snapshot-logger",
);

$bot->load("Log");

  # Connect to IRC server
$bot->run();