[新着] Webテンプレートを仮オープンしました
#!/usr/bin/perl
use strict;
package main;
{
my $u = $ENV{DOCUMENT_URI};
$u =~ s/(\d+).s?html?$/$1/i;
my $n = $1;
my $prev = sprintf("%02d",($n - 1)) . ".shtml";
my $next = sprintf("%02d",($n + 1)) . ".shtml";
print <<__________HTML_DATA__________;
<ul>
<li><a href="$prev" rel="prev">前</a></li>
<li><a href="contents.html" rel="contents">目次</a></li>
<li><a href="$next" rel="next">次</a></li>
<ul>
__________HTML_DATA__________
exit 0;
}