anoniem Geplaatst: 12 februari 2002 Delen Geplaatst: 12 februari 2002 Hoe schrijf je met een Perl 5 een cookie weg en hoe haal je het weer op? Quote Link naar reactie
anoniem Geplaatst: 12 februari 2002 Auteur Delen Geplaatst: 12 februari 2002 [code:1:b1394a0669] #!/usr/bin/perl -w # ic_cookies - sample CGI script that uses a cookie use CGI qw(:standard); use strict; my $cookname = "favorite ice cream"; my $favorite = param("flavor"); my $tasty = cookie($cookname) || 'mint'; unless ($favorite) { print header(), start_html("Ice Cookies"), h1("Hello Ice Cream"), hr(), start_form(), p("Please select a flavor: ", textfield("flavor",$tasty)), end_form(), hr(); exit; } my $cookie = cookie( -NAME => $cookname, -VALUE => $favorite, -EXPIRES => "+2y", ); print header(-COOKIE => $cookie), start_html("Ice Cookies, #2"), h1("Hello Ice Cream"), p("You chose as your favorite flavor `$favorite'."); [/code:1:b1394a0669] bijvoorbeeld.. Quote Link naar reactie
anoniem Geplaatst: 12 februari 2002 Auteur Delen Geplaatst: 12 februari 2002 Deze code had ik ook in mijn boek staan, maar op een aantal servers werkt dit niet omdat er geen Perl-modules zijn geïnstalleerd op de webserver. Ik moet dus een script hebben dat cookies kan maken zonder de Perl-modules te gebruiken. Quote Link naar reactie
anoniem Geplaatst: 12 februari 2002 Auteur Delen Geplaatst: 12 februari 2002 Probeer eens zelf de cookies in de headers te zetten. Meer info over de layout van de Set-Cookie header: http://www.netscape.com/newsref/std/cookie_spec.html hmm, kant en klaar voorbeeld gevonden: http://www.bewley.net/perl/cookie-test.pl [ Dit Bericht is bewerkt door: Annie op 2002-02-12 22:24 ] Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen