root/lang/perl/blosxom/plugins/rwtt2

# Blosxom Plugin: rwtt2
# Author(s): cho45 <cho45@lowreal.net>
# Version: 2006-09-10
# Documentation: See the bottom of this file or type: perldoc rwtt2
# vim:set ft=perl:

package rwtt2;

use strict;

# --- Configurable variables -----------

our $timezone = "Asia/Tokyo";

our $config = {
        EVAL_PERL  => 1,
        POST_CHOMP => 1,
};

# --- Plug-in package variables --------

# --------------------------------------

use Template;
use Template::Parser;
use Template::Context;
use Template::Document;
use DateTime;
use IO::File;

use Data::Dumper;

our ($vars, $story, $date, $debug) = ({}, {}, {}, 0);

our ($template, $params, $doc, $content_type);

sub start {
        print "content-type: text/plain\n\n" if $debug;

        $vars->{entries} = [];

        $template     = load_template("$blosxom::datadir/template.tt.$blosxom::flavour");
        $content_type = load_template("$blosxom::datadir/content-type.$blosxom::flavour");

        # doc は後で使う
        ($params, $doc) = parse($template);

        return 1;
}


sub template {
        return sub {
                return '';
        };
}

sub filter {
        my ($pkg, $files_ref, $others_ref) = @_;

        return 1;
}

sub skip {
        return 0;
}

sub interpolate {
        return sub {
                return '';
        };
}

sub head {
        my ($pkg, $path, $head_ref) = @_;

        return 1;
}

sub date {
        my ($pkg, $path, $date_ref, $mtime, $dw, $mo, $mo_num, $da, $ti, $yr) = @_;

        $date = DateTime->from_epoch(epoch => $mtime);
        $date->set_time_zone( $timezone );
        return 1;
}

sub story {
        my ($pkg, $path, $fn, $story_ref, $title_ref, $body_ref) = @_;

        print Dumper ["story", $path, $fn] if $debug;
        push @{ $vars->{entries} }, {
                path   => $path,
                fn     => $fn,
                title  => $$title_ref,
                body   => $$body_ref,
                date   => $date,
                plugin => get_current_variables(),
        };

        return 1;
}

sub foot {
        my ($pkg, $path, $foot_ref) = @_;

        return 1;
}

sub last {
        $vars->{b} = get_current_variables();
        print Dumper $vars if $debug;

        my $output = '';

        $config->{VARIABLES} = $vars,
        my $c = Template::Context->new($config) || die $Template::Context::ERROR;;
        
        $doc = Template::Document->new($doc) || die $Template::Document::ERROR;
        eval {
                $output = $doc->process($c);
        }; if ($@) {
                $output =  join "\n", "Content-Type: text/plain\n", $@, $template;
        }
        


        $blosxom::header->{-type} = $content_type;
        $blosxom::output = $output;

        return 1;
}

sub load_template {
        my $fn = shift;
        my $ret;
        my $fh = IO::File->new($fn, "r");
        if (defined $fh) {
                $ret = join "", $fh->getlines;
                $fh->close;
        } else {
                die "template not found: $fn";
        }
        return $ret;
}

sub parse {
        my ($text, $config) = @_;
        my $parser = Template::Parser->new($config);

        my $doc    = $parser->parse($text);
        my $code   = $doc->{BLOCK};
        my @params;

        while ($code =~ /\$stash->get\( ( \[ [^)]+ \] ) \)/gx) {
                print Dumper $1 if $debug;
                my $a = eval($1);
                my $i = 0;
                for (@{ $a }) {
                        push @params, $_ unless $i % 2;
                        $i++;
                }
        }

        my %seen;
        my @params = grep !$seen{$_}++, @params;

        print Dumper \@params if $debug;

        return (\@params, $doc);
}


sub get_current_variables {
        my $data = {};
        for my $plugin (@blosxom::plugins) {
                next if ($blosxom::plugins{$plugin} < 0);
                next if ($plugin eq __PACKAGE__);

                foreach my $var (@{ $params }){
                        my $v = eval "\$${plugin}::${var}";
                        $data->{$plugin}->{$var} = $v if $v;
                        my $v = eval "\$blosxom::${var}";
                        $data->{blosxom}->{$var}  = $v if $v;
                }
        }
        return $data;
}

1;

__END__

=head1 NAME

Blosxom Plug-in: rwtt2

=head1 SYNOPSIS

atodekaku

=head1 VERSION

2006-09-10

=head1 AUTHOR

cho45 <cho45>, http://lowreal.net/

=head1 DESCRIPTION


=head1 INSTALLATION

Drop rwtt2 into your plugins directory.

=head1 CONFIGURATION


=head1 REQUIREMENTS

C<Template>

=head1 SEE ALSO

Blosxom Home/Docs/Licensing: http://www.blosxom.com/
all about blosxom (lang=ja): http://blosxom.info/

=head1 LICENSE


rwtt2 Blosxom plugin Copyright 2006 cho45

This plugin is licensed under Creative-Commons by 2.1 jp.

See the below URL:
http://creativecommons.org/licenses/by/2.1/jp/