nicht angemeldet
Ein großes Danke an Klaus und Bernhard. Es funktioniert jetzt !
Hier noch einge Antworten zu den Anmerkungen:
require "cgi-lib.pl";
-> War noch aus der Fehlersuche, war über den Gebrauch nicht ganz sicher.
$Server = $ENV{REMOTE_HOST};
-> In meinem Fall ist diese Variable bei dem bestimmten Besucher immer gesetzt, ansonsten hat Klaus natürlich recht, dass man prinzipiell mit der IP ($REMOTE_ADDR) besser fährt.
if ($Server != $BadServer) [richtig: ne]
&
PS: If-Blöcke sind keine Schleifen sondern Statements
-> Ich hoff, dass mein Professor diese Gruppe nicht liest, ist natürlich als angehender Informatiker ein "peinlicher" Flüchtigkeitsfehler :-) gewesen.
#!/usr/bin/perl
##############################################
Dieses Script soll den Zugriff eines
bestimmten Besuchers mit einer eigenen
Standleitung und permanter URL
(z.B. eigener Proxy) anders behandeln,
als den Zugriff der anderen Besucher.
# #
Anmerkung: Die Umgebungsvariable
$REMOTE_HOST muß nicht immer gesetzt sein.
Für eine allgemeingültige Lösung wäre die
Abfrage von $REMOTE_ADDR (->IP) zu nehmen.
##############################################
use CGI qw|:standard|;
$Server = $ENV{REMOTE_HOST};
$BadServer = "proxy.zdf.de";
if ( $Server ne $BadServer ) {
$url = "http://www.heise.de";
}
else {
$url = "http://www.linux.de";
}
print redirect $url;