redirect über ID script

[xwolf]

#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $query = new CGI;
my $ID = $query->param("ID");
open (REDIRURL, "<redirconf.dat") || die "datei nicht gefunden ";
@redir = split /::/, <REDIRURL>;
close(REDIRURL);

Das erscheint mir falsch:

if ("$ID" eq "$redir[0]") {
print "Location: $redir[1]\n\n";
}

IMHO sollte dies besser sein:

if ($ID <= $#redir) {
  print "Location: $redir[$ID]\n\n";
} else {
  print "Location: $redir[$#redir]\n\n";
}

exit;

Nämlich dann, wenn in der Datei redirconf.dat nur URLs stehen
und ID die Zeile definiert.

Ciao,
 Wolfgang

P.S.: Das Location ist etwas mangelhaft, da muesste noch etwas mehr stehen, aber dazu schau mal in die Dokus im Web dazu.