9 Einträge, 1 Seite |
../../projekte/beta/images/main/bild.gif
http://www.meinedomain.de/projekte/beta/images/main/bild.gif
1
2
3
4
my $localpath = "/homepages/ordner/nochmehr/Ordner/projekte/beta/images/main/bild.gif";
my $scriptpath = $ENV{'SCRIPT_PATH'};
my $localuri = $localpath; $localuri =~ s!^$scriptpath!!;
my $fullurl = "http://".$ENV{'SERVER_NAME'}.$localuri;
http://domain.de/der/komplette/pfad/zur/datei/file.cgi
1
2
3
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
print "Content-Type: text/html\n\n";
print "$_ => $ENV{$_}<br>\n" foreach (sort keys %ENV);
1
2
3
4
5
my $path = "...../htdocs/perlsoft/projekte/gb2/images/main/perlsoft.gif";
my $docroot = $ENV{'DOCUMENT_ROOT'};
$path =~ s!^$docroot!!;
my $url = "http://".$ENV{'SERVER_NAME'}.$path;
print $url;
9 Einträge, 1 Seite |