Die Loesung

[Rolf]

Hallo Achim,

hier isse, die Lösung http://www.i-netlab.de/cgi-bin/flip.cgi
oderhttp://www.i-netlab.de/cgi-bin/flop.cgi

und weil Du es bist der Quelltext:

---zing---
#!/usr/bin/perl

flop.cgi

use File::Basename;
print "content-type:text/html\n\n";

print "<h2>Script heisst: $ENV{SCRIPT_NAME}</h2>";

if( $ENV{HTTP_REFERER} ){
print "<h2>Angaben zum Script was mich aufrief</h2>";
$fullpath = $ENV{HTTP_REFERER};
print "Fullpath: $fullpath<p>";
$script = fileparse($fullpath);
print "Scriptname: $script<p>";
print "<a href=/cgi-bin/$script>Wer hat mich gerufen?</a>";
}else{
print "<a href=/cgi-bin/flip.cgi>Zum anderen Script</a>";
}
---zang---

Viele Grüße, Rolf