nicht angemeldet
Hallo,
bekomme ein Perl-Script nicht zum laufen, hab den "ganzen" Tag rumgemacht! Ein anderes läuft aber, also liegts wohl am Script selbst?
Dieses läuft: http://www.ablage.com/cgi-bin/test/um9.0.pl
Hier, welches nicht will (Internal Server Error 500): http://www.ablage.com/cgi-bin/test/danke4.pl
Aber local auf meinem Sambar läufts wunderbar, (ähhm, win95)!
Der Quelltext, sieht nicht so aufgeräumt aus... (print <<'ENDEE';), die einfachen Anführungszeichen hab ich genommen, weil er mal über @ gemeckert hat. Die "foreach" ist eigentlich sinnlos, aber halt nun mal drinne und ich hab keine Zeit mehr, das ganze ist für eine Aufgabe für einen Fernlehrgang. Es kommt dabei auf das Design an nicht auf den Code! Funken soll' ed! Dat Dingens! :-) Ei, jetzt werd ich müde...
Winke winke Thomas N == Neu-User print <<'DANKE'; EOF # wenn das mal gut geht! ;-)
#!/usr/bin/perl -w
use strict; use CGI; my $cgi = new CGI; use CGI::Carp qw(fatalsToBrowser);
my @Feldnamen = $cgi->param();
########################################################################################## print <<'ANFANG'; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>mediamerge: Agentur für Webdesign [Kontakt] Fehler!</title> <meta http-equiv="content-type" content="text/html; charset=ISO-8859-1"> <link rel="stylesheet" type="text/css" href="../../test/cgi-to/agentm/formate.css"> </head> <body bgcolor="#A1B3D3" text="#FFFFFF">
<div align="center"> <!-- bg ANFANG --> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td><img src="../../test/cgi-to/agentm/pics/formen/627bac_3/627BAC_3_O_L.gif" width="25" height="25" border="0" alt=""></td> <td bgcolor="#627BAC"> </td> <td><img src="../../test/cgi-to/agentm/pics/formen/627bac_3/627BAC_3_O_R.gif" width="25" height="25" border="0" alt=""></td> </tr> <tr> <td bgcolor="#627BAC"> </td> <td bgcolor="#627BAC"> <!-- inne Gerüst ANFANG --> <table border="0" cellspacing="0" cellpadding="7"> <tr> <!-- 1. Zelle links ANFANG --> <td width="170" valign="top">
<table border="0" cellspacing="0" cellpadding="1"> <!-- 1. Zelle links ===Rahmen===ANFANG --> <tr> <td> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_O_L.gif" width="25" height="25" border="0" alt=""></td> <td bgcolor="#8DA0C5"> </td> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_O_R.gif" width="25" height="25" border="0" alt=""></td> </tr> <tr> <td bgcolor="#8DA0C5" height="100%"> </td> <td bgcolor="#8DA0C5" height="100%"> <font size="+2">[Kontakt]</font><br><br>
<font size="-1">Telefon:<br> +49 40 000000<br> Telefax:<br> +49 40 000000<br><br> E-Mail: lb15@ablage.com<br></font>
</td> <td bgcolor="#8DA0C5" height="100%"> </td> </tr> <tr> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_U_L.gif" width="25" height="25" border="0" alt=""></td> <td bgcolor="#8DA0C5"> </td> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_U_R.gif" width="25" height="25" border="0" alt=""></td> </tr> </table>
</td> </tr> <tr> <td> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_O_L.gif" width="25" height="25" border="0" alt=""></td> <td bgcolor="#8DA0C5"> </td> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_O_R.gif" width="25" height="25" border="0" alt=""></td> </tr> <tr> <td bgcolor="#8DA0C5"> </td> <td bgcolor="#8DA0C5"> <font size="+1">Adressen:</font><br><br>
<b>•</b> Postanschrift:<br><font size="-1"> mediamerge<br> Postbox 750283<br> 70602 Stuttgart</font><br><br> <b>•</b> Hausanschrift:<br> <font size="-1"> mediamerge<br> Musterstraße 1<br> 70609 Stuttgart<br><br></font></td> <td bgcolor="#8DA0C5"> </td> </tr> <tr> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_U_L.gif" width="25" height="25" border="0" alt=""></td> <td bgcolor="#8DA0C5" width="720"> </td> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_U_R.gif" width="25" height="25" border="0" alt=""></td> </tr> </table>
</td> </tr> </table><!-- 1. Zelle links ===Rahmen===ENDE -->
</td> <!-- 1. Zelle links ENDE -->
<td width="410" valign="top"> <!-- bg Kontakt ANFANG --> <table border="0" cellspacing="0" cellpadding="0" width="470"> <tr> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_O_L.gif" width="25" height="25" border="0" alt=""></td> <td bgcolor="#8DA0C5"> </td> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_O_R.gif" width="25" height="25" border="0" alt=""></td> </tr> <tr> <td bgcolor="#8DA0C5"> </td> <td bgcolor="#8DA0C5"> ANFANG
##########################################################################################
print <<'DANKE'; <table border="0" cellspacing="0" cellpadding="2"> <tr> <th><font size="+1">Vielen Dank!</font></th> <th><font size="+1">Ihre Daten:</font></th> </tr> <tr> <td colspan="2"> <hr noshade size="2" color="FFFFFF"></td> </tr> <tr> <td colspan="2"> </td> </tr> DANKE
########################################################################################## my $rc = 1; my ($color, $Feld, $Value); #my $Value; #my $Feld;
foreach $Feld (@Feldnamen) { # Für diese Zeile passende Farbe aussuchen
if ($rc != 0) { $color = '#8DA0C5'; # 0 = dunkelgrau $rc = 0; } else { $color = '#8DA0C5'; # 1 = hellgrau $rc = 1; } $Value = $cgi->param($Feld);
########################################################################################## print <<"EOF";
<tr> <th bgcolor="$color"><font size="-1">$Feld</font></th> <td bgcolor="$color"><font size="-1">$Value</font></td> </tr> <tr> <td colspan="2" height="5"> <hr noshade size="-1" color="FFFFFF"></td> </tr> EOF }
print "</table>\n";
########################################################################################## print <<'ENDEE';
</td> <td bgcolor="#8DA0C5"> </td> </tr> <tr> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_U_L.gif" width="25" height="25" border="0" alt=""></td> <td bgcolor="#8DA0C5" width="470"> </td> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_U_R.gif" width="25" height="25" border="0" alt=""></td> </tr> </table> <!-- bg Kontakt ENDE -->
</td> </tr> </table> <!-- inne Gerüst ENDE -->
</td><!-- bg ENDE >===========> Fuss --> <td bgcolor="#627BAC"> </td> </tr> <tr><td colspan="3" bgcolor="#627BAC"> </td></tr> <tr> <td><img src="../../test/cgi-to/agentm/pics/formen/627bac_3/627BAC_3_U_L.gif" width="25" height="25" border="0" alt=""></td> <td bgcolor="#627BAC" width="700" align="center"><font size="-1">[<a href="../../test/cgi-to/agentm/docs/startseite.htm">Startseite</a>] [<a href="../../test/cgi-to/agentm/docs/html-dummy.htm">Arbeitsfelder</a>] [<a href="../../test/cgi-to/agentm/docs/html-dummy.htm">Referenzen</a>] [<a href="../../test/cgi-to/agentm/docs/preise.htm">Preise</a>] [<a href="../../test/cgi-to/agentm/docs/kontakt.htm">Kontakt</a>] [<a href="../../test/cgi-to/agentm/docs/impressum.htm">Impressum</a>] [<a href="../../test/cgi-to/agentm/docs/html-dummy.htm">Site-Info</a>]</font></td> <td><img src="../../test/cgi-to/agentm/pics/formen/627bac_3/627BAC_3_U_R.gif" width="25" height="25" border="0" alt=""></td> </tr> </table><!-- ENDE Fuss -->
</div> </body> </html>
ENDEE #ende