NAME

IRC::Bot::Log::Extended - extends IRC::Bot::Log for IRC::Bot

SYNOPSIS

#!/usr/bin/perl -w

package IRC::Bot2;

use Moose;
extends 'IRC::Bot';
use IRC::Bot::Log::Extended;

after 'bot_start' => sub {
    my $self = shift;

    no warnings;
    $IRC::Bot::log =  IRC::Bot::Log::Extended->new(
        Path          => $self->{'LogPath'},
        split_channel => 1,
        split_day     => 1,
    );
};

package main;

# Initialize new object
my $bot = IRC::Bot2->new( # check IRC::Bot for more details
    Debug    => 0,
    Nick     => 'Fayland',
    Server   => 'irc.perl.org',
    Channels => [ '#moose', '#catalyst', '#dbix-class' ],
    LogPath  => '/home/fayland/irclog/',
);

# Daemonize process
$bot->daemon();

# Run the bot
$bot->run();

1;

DESCRIPTION

The SYNOPSIS above does two tasks.

1. it creates a custom IRC::Bot2 based on IRC::Bot. The only differece is override $IRC::Bot::log with

   $IRC::Bot::log =  IRC::Bot::Log::Extended->new(
       Path          => $self->{'LogPath'},
       split_channel => 1,
       split_day     => 1,
   );

2. the usage of IRC::Bot2 is the same as IRC::Bot. no difference. read IRC::Bot for configuration and usage.

ATTRIBUTES

IRC::Bot::Log stores all channels all days into one file channel.log. it is not so good to read. IRC::Bot::Log::Extended splits the log into several files by channel AND|OR day.

Path

the place moose_20081009.log stores.

split_channel

default is 1. Instead store all log into channel.log, we split them into moose.log, catalyst.log and dbix-class.log

split_day

default is 1. Instead store all log into channel.log or moose.log, we split them into channel_20081009.log, channel_20081010.log (moose_20081010.log) and etc. daily.

AUGMENTABLE METHODS

The method pre_insert can be augmented in a subclass to add extra functionality to your control script. here is two examples:

http://fayland.googlecode.com/svn/trunk/CPAN/IRC-Bot-Log-Extended/examples/02b_with_filter.pl

http://fayland.googlecode.com/svn/trunk/CPAN/IRC-Bot-Log-Extended/examples/03advanced.pl

augment pre_insert => sub {
  my ($self, $file_ref, $message_ref) = @_;
  
  # change filename
  $$file_ref .= '.html';
  
  # HTML-lize
  $$message_ref =~ s/\</\&lt\;/isg;
  
  # find URIs
  my $finder = URI::Find->new(
      sub {
          my ( $uri, $orig_uri ) = @_;
          return qq|<a href="$uri">$orig_uri</a>|;
      }
  );
  $finder->find( $message_ref );
  
  $$message_ref .= "</br>";
};

the example above is to make a HTML IRC log by youself.

SEE ALSO

IRC::Bot, IRC::Bot::Log, Moose

AUTHOR

Fayland Lam, <fayland at gmail.com>

COPYRIGHT & LICENSE

Copyright 2008 Fayland Lam, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.