package alternate;

use strict;
use vars qw($path);

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

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

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

use CGI qw(:standard);

sub start {
	return 1;
}



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

	$path = $blosxom::path_info;
	if ($path =~ /.+?\..+$/) {
		$path =~ s/\..+?$//;
	} elsif ($path eq "") {
		$path .= "index";
	} else {
		$path .= "/index";
	}

	return 1;
}

1;