Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]190[/thread]

Ich kann einfach den Fehler nicht finden....

Leser: 3


<< |< 1 2 3 4 5 >| >> 50 Einträge, 5 Seiten
piero
 2004-03-04 09:24
#1443 #1443
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
irgendetwas stimmt mit folgenden Code nicht, aber was? Hat jemand evtl. ne Ahnung?

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my ($Feld, $Name, $Wert);
my %Formular;

my $cgi=CGI->new();
print $cgi->header(-type=>'text/html');
%Formular=$cgi->Vars();

#read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
#my @Formularfelder = split(/&/, $Daten);
#my ($Feld, $Name, $Wert);
#my %Formular;
#foreach $Feld (@Formularfelder) {
#  (my $Name, my $Wert) = split(/=/, $Feld);
#  $Wert =~ tr/+/ /;
#  $Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
#  $Wert =~ s/</&lt;/g;
#  $Wert =~ s/>/&gt;/g;
#  $Formular{$Name} = $Wert;
# }
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>CGI-Feedback</title></head>\n";
print "<body><h1>Kundenerfassung <i>comments.pl</i></h1>\n";
print "<p><b>Kurzname:</b> $Formular{KURZNAME}</p>\n";
print "<p><b>Name1:</b> $Formular{NAME1}</p>\n";
print "<p><b>Name2:</b> $Formular{NAME2}</p>\n";
print "<p><b>Name3:</b> $Formular{NAME3}</p>\n";
#print "<p><b>Straße:</b> $Formular{STRASSE}</p>\n";
print "<p><b>Land:</b> $Formular{LAND}</p>\n";
print "<p><b>PLZ:</b> $Formular{PLZ}</p>\n";
print "<p><b>Ort:</b> $Formular{ORT}</p>\n";
print "<p><b>Postfach:</b> $Formular{POSTFACH}</p>\n";
#print "<p><b>Postfach-Plz:</b> $Formular{POSTFACH-PLZ}</p>\n";
print "<p><b>Telefon:</b> $Formular{TELEFON}</p>\n";
print "<p><b>Fax:</b> $Formular{FAX}</p>\n";
print "<p><b>Mobil:</b> $Formular{MOBIL}</p>\n";
print "</body></html>\n";



Vielen Dank.

--
Gruß
Piero


edit renee: abschließenden [code]-Tag eingefügt\n\n

<!--EDIT|renee|1078387246-->
jan
 2004-03-04 09:43
#1444 #1444
User since
2003-08-04
2536 Artikel
ModeratorIn
[Homepage] [default_avatar]
was bedeutet "stimmt irgendwas nicht"?
piero
 2004-03-04 09:48
#1445 #1445
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
der zeigt mir immer auf dem Browser eine 500 Fehlermeldung:
Internal Server Error
jan
 2004-03-04 10:04
#1446 #1446
User since
2003-08-04
2536 Artikel
ModeratorIn
[Homepage] [default_avatar]
was für ein server? welches OS? chmod korrekt gesetzt? als richtiger user hochgeladen? zeilenumbrüche korrekt?
renee
 2004-03-04 10:05
#1447 #1447
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Der Code an sich ist Funktionstüchtig... (habe es eben in der kommandozeile getestet)...

Hast Du sichergestellt, dass es die Felder im Formular gibt??
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
jan
 2004-03-04 10:31
#1448 #1448
User since
2003-08-04
2536 Artikel
ModeratorIn
[Homepage] [default_avatar]
gäbe es sie nicht, sollte das dennoch keinen 500er produzieren, wenn ich mich nicht irre...
piero
 2004-03-04 10:34
#1449 #1449
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
die Rechte hab ich auf 777 gestellt. Die Felder gibt es auch in der html-datei.

Das ist die Seite, wo das script ist:

http://www.franz-kahl.de/deutsch/comment/kommentar.htm

Vielleicht hilft das weiter.

Danke.
renee
 2004-03-04 10:41
#1450 #1450
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Wenn ich mich nicht verguckt habe, dann heißt das Feld, das Du mit $Formular{STRASSE} ausliest, im Formular "STRASSE                     ". Mach mal im Formular die ganzen Leerzeichen in den Feld-Namen weg...

Wenn es an soetwas nicht liegt, dann weiß ich auch nicht. Und wie gesagt, ich habe den Code von oben per Copy & Paste übernommen und bei mir in der Konsole getestet. Bis auf die "uninitialised values" gab es keine Fehler oder Warnungen...

der Pfad zu Perl ist auch korrekt??

Wenn ja, dann versuch mal, was passiert, wenn Du das -w in der Shebang wieder einfügst also: #! /usr/bin/perl -w
Bei meinem Webhoster ist es zum Beispiel so, dass Confixx das -w verlangt (was total bescheuert ist!! )\n\n

<!--EDIT|renee|1078389691-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
piero
 2004-03-04 11:03
#1451 #1451
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
habe das -w eingefügt. alle " " aus der htm-datei entfernt. Rechte und Besitzer richtig eingestellt. Aber es geht trotzdem nicht.
Da muss doch irgendetwas faul sein, oder?
renee
 2004-03-04 11:20
#1452 #1452
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Hast Du überhaupt keine Möglichkeiten, an das error_log des Webservers zu kommen?

Hast Du zu Hause ne Testumgebung, in der Du das testen kannst?
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< |< 1 2 3 4 5 >| >> 50 Einträge, 5 Seiten



View all threads created 2004-03-04 09:24.