nicht angemeldet
Morgen Leut,
Ich weiss nicht was wieder los ist,da ich mir immer bemühe alles perfekt zu machen,gelingt es gewissen benutzern immer wieder,doch noch etwas falsch zu machen.So nun zum problem:Ich habe ein einfaches perl script geschrieben um urls per submit button weiter zuleiten in html siehts so aus:
<form action="../cgi-bin/jump.cgi" method="GET" target="page1"><select name="url" onchange="if (this.options[this.selectedIndex].value){window.open(this.options[this.selectedIndex].value,'page1')}">
<option selected value="">Mainpages</option>
<option value="http://www.domain.com/y22.htm">Mainpage Nr.22</option>
</form>
Das kleine script dafür war:
#!/usr/bin/perl -w
use CGI;
use strict;
my $url = CGI::param('url')||'';
if ($url)
{
Redirect();
}
else
{
print "Content-type: text/html\r\n\r\n";
print "<HTML><HEAD><TITLE>error</TITLE></HEAD>\n";
print "<BODY>";
print "<H3>Error - select a page first...and then click on "go"</h3>";
print "Please use your browser's back button to return to the main site and try again.\n";
print "<P>";
print "</BODY>";
print "</HTML>";
}
exit(1);
sub Redirect {
print "Status: 302 Found\n";
print "Location: $url\n";
print "URI: <$url>\n";
print "Content-type: text/html\r\n\r\n";
}end
Kann mir jemand sagen,was daran nun noch falsch ist?
Könnte es eventuell das exit(1) sein?
Im error log stand nur Premature end of script headers.
In all meinen Browser typen Moz,NS7,IE5,Firefox... läuft es wunderbar im übrigen.
Grüsse
Alain