root/blosxom_plugins/trunk/redirect_permalink

# Blosxom Plugin: redirect_permalink
# Author: Gosuke Miyashita <miya@mizzy.org>
# Version: 2005-05-04
# Blosxom Home/Docs/Licensing: http://www.blosxom.com/

package redirect_permalink;

use strict;

sub start {
    return 1;
}

sub last {
    my ($pkg, $ne) = @_;
    if($ne eq $blosxom::num_entries){
        my @path_info = split m{/}, &blosxom::path_info() || param('path'); 
        my $fn = $path_info[$#path_info];
        $fn  =~ s/\.$blosxom::flavour//g;

        use vars qw(*name);
        *name   = *File::Find::name;
        my $path;
        File::Find::find(sub { /$fn.$blosxom::file_extension/s and $path = $name;}, "$blosxom::datadir");

        if($path){
            $path =~ s/$blosxom::datadir//gi;
            $path =~ s/$blosxom::file_extension//gi;
            $path .= $blosxom::flavour;
            
            $blosxom::header = {
                -status => '301 Moved Permanently',
                -location => "$blosxom::url$path",
            };
        }
    }

    return 1;
}

1;