Weiterleitung von Links
Verfasst: Mo 25.Jan, 2010 13:19
hallo,
bekommt man sowas auch ohne cgi zum laufen? auf dem server geht kein cgi
bekommt man sowas auch ohne cgi zum laufen? auf dem server geht kein cgi
Code: Alles auswählen
#!/usr/bin/perl
use strict;
use CGI;
my $q = new CGI;
my $url = $q->param ("url");
print <<EOF;
Content-Type: text/html
<html>
<head>
<meta http-equiv="Refresh" content="5; URL=http://$url">
<title>Automatische Weiterleitung</title>
</head>
<body>
<table width=600>
<tr>
<td valign=top><font size="+1">Sie verlassen die Internetpräsenz der Deutschen Fuchsiengesellschaft e.V.
Die Weiterleitung erfolgt in fünf Sekunden durch Ihren Browser.<p>
Falls Ihr Browser nicht automatisch weiterleitet, benutzen Sie diesen Link: <a href="http://$url">$url</a></font>
<p>
<font size="-1">
Trotz sorgfältiger inhaltlicher Kontrolle übernehmen wir keine Haftung
für die Inhalte externer Links. Für den Inhalt verlinkter Seiten sind
ausschließlich deren Betreiber verantwortlich.
</font>
</td>
</tr>
</table>
</body>
</html>
EOF