Leser: 1
![]() |
![]() |
3 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use URI::Split qw(uri_split uri_join);
use CGI qw(:all);
my $redirto = 'http://www.server.de/script3.cgi' ;
my $gt = param('goto') || url_param('goto');
my ($scheme, $auth, $path, $query, $frag) = uri_split($gt);
if (defined $scheme ) { # externer URI!?
if ($scheme eq 'http') {
# redirect zum nächsten Skript
print redirect($redirto . "?url=" . $gt;
# oder falls später als PATH_INFO auszulesen
#print redirect("$redirto/$gt";
}
}
else { # interner URI
# interne Umleitung
}
![]() |
![]() |
3 Einträge, 1 Seite |