Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Piatok, 29. marec 2024

Súbor: [Platon] / iotta / Iotta / Format / In / Daylog.pm (stiahnutie)

Revízia 1.2, Fri Mar 14 14:19:49 2003 UTC (21 years ago) by yenar


Zmeny od 1.1: +1 -1 [lines]

fix small bug (mis-nested tags in output) [Daylog.pm]

package Iotta::Format::In::Daylog;
require Iotta::Elem;
@ISA = ("Iotta::Elem");

sub run {
    my $s = shift;
    my $m = shift;
    my $in = shift;
    my $out;
    print "  parsing daylog format...\n";
    $_ = $in;
    s/&/&/g;
    s/</&lt;/g;
    s/>/&gt;/g;
    #my @sects = split /\n\n/, $in;
    $out = "<iotta-ifmt>\n";
    s/^\n+//s;
    while (s/^T (.*?)\n//s) {
        $out .= "\t<par>\n\t\t<text class=\"log-time\">$1</text>\n";
        my $t = 1;
        while (s/^E (.*?)\n//s) {
            $out .= "\t<par>\n\t\t<text class=\"log-time\">"
                ."&nbsp;&nbsp;&nbsp;&nbsp;</text>\n" unless ($t);
            $t = 0;
            $out .= "\t\t<text class=\"log-entry\">$1\n";
            while (s/^A (.*?)\n//s) {
                $out .= "$1\n";
            }
            $out .= "</text><br />\n";
            s/^\n+//s;
            $out .= "</par>\n";
        }
        s/^\n+//s;
    }
    $out .= "</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;

Platon Group <platon@platon.sk> http://platon.sk/
Copyright © 2002-2006 Platon Group
Stránka používa redakčný systém Metafox
Na začiatok