root/lang/perl/blosxom/plugins/hatena

# Blosxom Plugin: hatena
# Author: yoko <clothfairy@gmail.com>
# Version: 2008-02-15
# Blosxom Home/Docs/Licensing: http://www.blosxom.com/

package hatena;

use strict;
use Text::Hatena;

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

my $use_meta = 1;

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

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

sub start { 1; }

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

        return 1 if (!$use_meta or defined($meta::markup) and $meta::markup =~ /^\s*hatena\s*$/i);

        $$body_ref = Text::Hatena->parse($$body_ref);
        1;
}

1;