[perl/cgi] request methode = post probleem

[Daniel304]

Ik gebruik in mijn script deze code

Perl:

if    ($ENV{'REQUEST_METHOD'} eq "GET")
{
   $request = $ENV{'QUERY_STRING'};
}
elsif ($ENV{'REQUEST_METHOD'} eq "POST")
{
    read(STDIN, $request,$ENV{'CONTENT_LENGTH'}) || die "Could not get query\n";
} 

Wanneer ik iets via de GET methode verstuurd werkt hij maar via POST gaat hij naar de || enig idee waarom ?!?

[ Voor 12% gewijzigd door Daniel304 op 10-09-2003 14:49 ]

[Creepy]

Ik heb enig idee waarom

De read functie geeft een 0 terug bij een fout, maar ook als alles goed is ingelezen en het einde van de input is bereikt.

[Juup]

Daniel mag ik je een tip geven?
Gebruik CGI.pm om forminput te verwerken.
Het is heel simpel en zeer veilig

Perl:

use CGI;
my $cgi = new CGI;
print $cgi->param('naamVanMijnInputVeldje');

[ Voor 10% gewijzigd door Juup op 10-09-2003 21:26 ]

[Daniel304]

Jaaap helaas.. Ik kan dit niet doen.. dit omdat er een array uitkomt zetten er zijn namelijk meerdere input velden met dezelfde naam. Maar bedankt voor de tip.

Creepy helaas werkt het nog steeds niet als ik de || .... weg haal.. er komt dan nog steeds niks bruikbaars in $request te staan terwijl dat wel werkt wanneer ik de get gebruik !!! (de strings van get en post zullen er toch wel hetzelfde uitzien of ook dat niet ?!?)

[ Voor 47% gewijzigd door Daniel304 op 11-09-2003 10:27 ]

[Creepy]

Wat bedoel je met niks bruikbaars? Wat komt er wel uit? Misschien kan je laten zien wat er dan in $request komt te staan, plus het stukje code waarmee je $request uit elkaar haalt en in (een) variabele stopt?

[RvdH]

Met CGI.pm kun je ook meerdere inputs met dezelfde naam hebben hoor:

HTML:

<input type="checkbox" name="foo" value="bar1">
<input type="checkbox" name="foo" value="bar2">
<input type="checkbox" name="foo" value="bar3">

Perl:

use CGI;
my $cgi = new CGI;
@bar = $query->param('foo');
foreach (@bar) {
    print "$_\n"
}

output:
bar1
bar2
bar3

Zie ook: http://perldoc.com/perl5....A-SINGLE-NAMED-PARAMETER-

[ Voor 30% gewijzigd door RvdH op 11-09-2003 19:20 ]

[Juup]

Dank strlen voor de steun

Creepy als je jouw implementatie afhebt wil ik er graag op prijsschieten.
Laten we afspreken dat ik 2 tot de macht het aantal security holes euro van je krijg ok?

m.a.w.: je krijgt dit bijna niet waterdicht. Tenzij je HEEL goed bent.

[Creepy]

Juup schreef op 11 september 2003 @ 23:48:
Dank strlen voor de steun

Creepy als je jouw implementatie afhebt wil ik er graag op prijsschieten.
Laten we afspreken dat ik 2 tot de macht het aantal security holes euro van je krijg ok?

m.a.w.: je krijgt dit bijna niet waterdicht. Tenzij je HEEL goed bent.

Dus zelf de $qeurystring uit elkaar plukken en in vars stoppen is minder waterdicht dan @bar = $query->param('foo' m.b.v. per CGI? Please explain want naar mijn weten zit het nog altijd in het GEBRUIK van de variabelen daarna.

En er zijn zat voorbeelden te vinden die geen gebruik maken van de CGI module en toch echt net zo veilig zijn hoor
bijv. http://stsdas.stsci.edu/bps/perltalk14.html

Niet dat de perl::cgi module makkelijk is maar daar vroeg de T.S. niet naar. En zeggen dat het zonder stikt van de security holes is wel erg makkelijk