Brian Folte
Angesehenes Mitglied
Hallo habe heute das erste mal mit CGI zu tun gehabt und bekomme bei dem folgenden Script nur eine weiße Seite angezeigt kann mir jemand sagen woran dies liegt?
CODE #!/usr/bin/perl
$hostname = $ENV{'HTTP_HOST'};
open(datei, "subdomains.txt");
@subs = <datei>;
close(datei);
for(@subs) {
if ($_ =~ /\#(.*?)/) {} else {push(@subs2, $_)}
}
@subs = @subs2;@subs2 = "";pop(@subs2);
for(@subs) {
$tt = $_;
$tt =~ s/^\s+//ig;
$tt =~ s/\n$//ig;
$tt =~ s/ //ig;
if ($tt ne "") {push(@subs2, $_)}
}
@subs = @subs2;@subs2 = "";pop(@subs2);
for(@subs) {
($title1, $subdomain, $url) = split(/\;/, $_);
if ($hostname =~ /$subdomain/i) { $nextp=$url; $title = $title1;}
}
######################################################
## Open real location in 100% Frame - Hide real URL ##
######################################################
print "Content-type:text/html\n\n";
print <<"(ENDE)";
<HTML>
<HEAD>
<TITLE> $title </TITLE>
<frameset frameborder=0 framespacing=0 border=0 rows="100%,*" noresize>
<frame name="frame" src="$nextp" noresize>
</frameset>
<meta http-equiv=refresh content="0; url=$nextp">
</HEAD>
<BODY BGCOLOR="#FFFFFF" text="#000000">
<a href="$nextp">$nextp</a>
</BODY>
</HTML>
(ENDE)
LG Brian
CODE #!/usr/bin/perl
$hostname = $ENV{'HTTP_HOST'};
open(datei, "subdomains.txt");
@subs = <datei>;
close(datei);
for(@subs) {
if ($_ =~ /\#(.*?)/) {} else {push(@subs2, $_)}
}
@subs = @subs2;@subs2 = "";pop(@subs2);
for(@subs) {
$tt = $_;
$tt =~ s/^\s+//ig;
$tt =~ s/\n$//ig;
$tt =~ s/ //ig;
if ($tt ne "") {push(@subs2, $_)}
}
@subs = @subs2;@subs2 = "";pop(@subs2);
for(@subs) {
($title1, $subdomain, $url) = split(/\;/, $_);
if ($hostname =~ /$subdomain/i) { $nextp=$url; $title = $title1;}
}
######################################################
## Open real location in 100% Frame - Hide real URL ##
######################################################
print "Content-type:text/html\n\n";
print <<"(ENDE)";
<HTML>
<HEAD>
<TITLE> $title </TITLE>
<frameset frameborder=0 framespacing=0 border=0 rows="100%,*" noresize>
<frame name="frame" src="$nextp" noresize>
</frameset>
<meta http-equiv=refresh content="0; url=$nextp">
</HEAD>
<BODY BGCOLOR="#FFFFFF" text="#000000">
<a href="$nextp">$nextp</a>
</BODY>
</HTML>
(ENDE)
LG Brian