Vyššie na [Platon] / iotta / Iotta / Format / In

initial import of iotta into platon cvs

package Iotta::Format::In::IrcTranscript;
use strict;
require Iotta::Elem;
our @ISA = ("Iotta::Elem");

sub run {
    my $s = shift;
    my $m = shift;
    my $in = shift;
    my $out;
    print "  parsing irc transcript format...\n";
    $in =~ s/&/&/g;
    $in =~ s/</&lt;/g;
    $in =~ s/>/&gt;/g;
    $in =~ s/^([^ \t\n]*)/<text class="irc-nick">$1<\/text>/gsm;
    $in =~ s/\n/<\/par><par>/gsm;
    #$in =~ s/\n/<br\/>/gsm;
    $out = "<iotta-ifmt><div><par>$in</par></div></iotta-ifmt>\n";
    $s->next->run ($m, $out) if ($s->next);
}

sub setup {
    my $self = shift;
    my $o = shift;
}

sub initialize {
    my $self = shift;
    $self->SUPER::initialize (@_);
}
1;