Content-type: text/html
p1k3::${title}
# linkbar
my $title = $DISPLAY_CONF{title};
my $output;
my (%description) =
(
new => 'newest entries',
all => 'all entries',
chapbook => 'unrequired poetry',
hack => 'code and such',
2000 => 'entries for 2000',
2001 => 'entries for 2001',
2002 => 'entries for 2001',
2003 => 'entries for 2003',
2004 => 'entries for 2004',
2005 => 'entries for 2005',
2006 => 'entries for 2006',
2007 => 'entries for 2007'
);
my (@linklist) = qw(new all 2007 2006 2005 chapbook hack );
foreach my $link (@linklist) {
if ($title ne $link) {
if ($link eq 'new') {
$output .= "new \n";
} else {
$output .= "$link \n";
}
} else {
if ($link eq "new") {
$output .= "new \n";
} else {
$output .= "$link \n";
}
}
}
return $output;
if ($DISPLAY_CONF{title} eq 'new') {
return "\n\n";
}
return '';
${title}