# Haal de bestaande pagina's op en sorteer ze
# Zorg dat de default de nieuwste is
# Zorg dat we de nieuwste pakken als het een directe link is
# Zet de default pagina

<PERL>
@file = sort <*.htm>;
$query ||= 'newest';
$query = 'newest' unless $ENV{'HTTP_REFERER'};
$file = 'welkom.html';

# Als we de nieuwste moeten hebben
#  Pak de laatste in de lijst
# Anders, als we de oudste moeten hebben
#  Pak de eerste in de lijst

if ($query eq 'newest') {
  $file = $file[$#file];
} elsif ($query eq 'oldest') {
  $file = $file[0];

# Anders (een vorige of volgende)
#  Haal de referrer op
#  Zorg dat we alleen de bestandsnaam hebben
#  Loop voor alle elementen in de lijst van de laastte naar de eerste
#   Outloop als we hem hebben gevonden

} else {
  $current = $ENV{'HTTP_REFERER'};
  $current =~ s#.*/##g;
  for ($i=$#file; $i>=0; $i--) {
    last if $current eq $file[$i];
  }

#  Als we de vorige moeten hebben
#   Pak dan de vorige als het niet de eerste was
#  Anders, als we de volgende moeten hebben
#   Pak dan de volgende als het niet de laatste was

  if( $query eq 'prev' ) {
    $file = @file[$i-1] if $i>0;
  } elsif( $query eq 'next' ) {
    $file = @file[$i+1] if $i<$#file;
  }
}

# Redirect naar de naam die we hadden gevonden

Redirect( "/W2/gastenboek/$file" );
</PERL>