nicht angemeldet
Redirect mit CGI ohne Module ?
Hallo,
wie kann ich mit einem in Perl geschriebenen CGI-Script den Surfer zu einer anderen Seite leiten ohne ein Modul, wie z.B. CGI einzusetzen ?
Ich habe mal irgendwo gelesen, dass man da was mit der print "Content-type......." Zeile machen kann, ich weiss aber nicht mehr wo das war oder ob das war ist.
Danke fier Eure Hilfe.
Chris
-
Hallo Chris !
Sende einfach im header den Befehl "Location: http://redirect-url.de" mit, wobei redirect-url.de für die Adresse steht, an die du den User weiterleiten lassen möchtest.
Mfg.
Florian Neumeyer
-
<i>Ich habe mal irgendwo gelesen, dass man da was mit der print "Content-type......." Zeile machen kann, ich weiss aber nicht mehr wo das war oder ob das war ist. </i>
Aus dem Forum von xwolf (Wolfgang Wiese, http://www.xwolf.com) kopiert:
Mit der Subroutine:
(Also Redirect("http://....") aufrufen.)
sub Redirect {
my ($location)=@_;
print "Status: 302 Found\n";
print "Location: $location\n";
print "URI: <$location>\n";
print "Content-type: text/html\r\n\r\n";
}Gruß Frank
-
Hi,
sub Redirect {
my ($location)=@_;
print "Status: 302 Found\n";
print "Location: $location\n";
print "URI: <$location>\n";
print "Content-type: text/html\r\n\r\n";print "<html><body>The page you requested can be found <a href="$location">here</a>.</body></html>";
}
So viel Zeit muß sein :-)
Cheatah
-