root/lang/perl/blosxom/plugins/redir

# Blosxom Plugin: redir
# Author(s): cho45 <cho45@lowreal.net>
# Version: 128 + $Revision$
# Documentation: Set the bottom of this file or type: perldoc redir
# vim:set ft=perl:


package redir;

use strict;
use warnings;


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

# no configure

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

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

use CGI qw/:standard :netscape/; 

sub start {
        if ($blosxom::path_info) {
                return 0;
        };
        1;
}

sub skip {
        my $path_info = path_info();

        if ($path_info =~ m{^/\d{4}(/\d\d(/\d\d)?)?$}) {
                $blosxom::header->{'Status'} = "303 See Other add slash";
                $blosxom::header->{'Location'} = $blosxom::url . "$path_info/";
                return 1;
        }

        return 0;
}

1;

__END__

=head1 NAME

Blosxom Plugin: redir

=head1 SYNOPSIS

Date base URI integration.

=head1 AUTHOR

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

=head1 DESCRIPTION

This plugins redirect the URLs like /2006, /2006/09 or /2006/09/01
to /2006/, /2006/09/, /2006/09/01/ each.

=head1 SEE ALSO

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

=head1 LICENSE

section 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/