#!/usr/bin/perl
if ($0=~/voriger/){$dir=-1}
else {$dir=1};
open(LIST,"ls [0-9]*.html|");
while(<LIST>){
chop;
$name=$_;
s/$\([0-9]+).*/$1/;
$num=$_+0;
$name{$num}=$name;
$num{$name}=$num;
};
close (LIST);
@_=split /\//, $ENV{HTTP_REFERER};
$base=pop @_;
$thisnum=$num{$base};
$next=$name{$thisnum+$dir};
#print "Content-type: text/plain\n\n$base\n";
if ($next ne ""){print "Location: $next\n";}
else {print "Location: 00inhalt.html\n";};
#00inhalt.html
#01editorial.html
#02Dichtung.html
#03Wahrheit.html
#04Intersol.html
#05cocacola-tortilla.html
#06guerilla.html
#07el_sauce.repression.html
#08termine.kontakt.html
#09impressum.html
#infoheader.html
#sample.html