File Coverage

lib/Kwiki/IRCMode.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Kwiki::IRCMode;
our $VERSION = '0.302';

=head1 NAME

Kwiki::IRCMode - colorized IRC conversations in your Kwiki

=head1 VERSION

version 0.302

=head1 SYNOPSIS

 $ cpan Kwiki::IRCMode
 $ cd /path/to/kwiki
 $ kwiki -add Kwiki::IRCMode

=head1 DESCRIPTION

This module registers a ".irc" block, which will format IRC conversations like
the following:

 .irc
  Hey, is there an IRC block for Kwiki?
  No.  Why don't you shut up and write one?
  Maybe I will!
  Maybe you should!
  FINE!
 .irc

=cut

use strict;
use warnings;
use Kwiki::Plugin '-Base';
use Kwiki::Installer '-Base';

const class_id => 'irc';
const css_file => 'irc.css';
const class_title => 'Kwiki IRC Log Waffle';

sub register {
  my $registry = shift;
  $registry->add(wafl => irc => 'Kwiki::IRCMode::Wafl' );
}

package Kwiki::IRCMode::Wafl;
use base qw(Spoon::Formatter::WaflBlock);

use Parse::IRCLog;
my $p = Parse::IRCLog->new;

=head2 C<< $self->to_html() >>

This converts IRC log messages to HTML.

=cut

sub to_html {
  my (@msgs, %nicks);

  my $html = "\n";

  for (split("\n", $self->block_text)) {
    my $event = $p->parse_line($_); $event->{nick_prefix} ||= '';
    defined $nicks{$event->{nick}} or $nicks{$event->{nick}} = scalar keys %nicks;
    $html .= "";
    if (defined $event->{timestamp}) { $html .= "[$event->{timestamp}]"; }
    if ($event->{type} eq 'msg') {
      $html .=
        "<$event->{nick_prefix}$event->{nick}> $event->{text}";
    } elsif ($event->{type} eq 'action') {
      $html .=
        " * $event->{nick} $event->{text}";
    } else {
      $html .= "$event->{text}";
    }
    $html .= "\n";
  }

  $html .= "\n";

  return $html;
}

=head1 TODO

=head1 AUTHOR

Ricardo SIGNES, >

=head1 COPYRIGHT

This code is Copyright 2004, Ricardo SIGNES.  It is licensed under the same
terms as Perl itself.

=cut

package Kwiki::IRCMode;

__DATA__