---

Er der nogen der ved et sted hvor der står noget om hvordan cookies laves og
kaldes/checkes. Gerne meget uddybende.
Det eneste jeg skal bruge er en cookie som udløber på et tidspunkt fx. 3
dage efter den er lavet og så skal jeg kunne checke om den findes på
brugerens computer. Der skal ikke stå noget specielt i den andet at den
udløber og så skal den kunne åbnes fra alle sider på domainet.

På forhånd tak
Martin

---

"Martin Persson" <dis-mp@get2net.dk> writes:

> Er der nogen der ved et sted hvor der står noget om hvordan cookies laves og
> kaldes/checkes. Gerne meget uddybende.

Hvis jeg nu skriver hvad der står i manualsiden til CGI.pm, kan du så
nærmere pege på hvor du ikke forstår hvad der foregår. Det vil gøre
det lettere at hjælp, hvis vi ved præcis hvad du har problemer med.

#!/usr/bin/perl
use CGI;

my $query = new CGI;

my $cookie = $query->cookie(-name=>'CookieNavn');
if (defined $cookie) {
# Brugeren havde cookien
print $query->header;
} else {
# Vi laver en cookie og giver brugeren:
$cookie = $query->cookie(-name=>'CookieNavn',
-value=>'CookieIndhold',
-path=>'/',
-domain=>'youhost.example.com',
-expires='+3d',
);
print $query->header(-cookie=>$cookie);
}

[...Resten af scriptet...]

--
Skrev du til Jubii? Så skriv også til mig.
(hvornår, hvilke sider og hvordan de svarede)

---

> Hvis jeg nu skriver hvad der står i manualsiden til CGI.pm, kan du så
> nærmere pege på hvor du ikke forstår hvad der foregår. Det vil gøre
> det lettere at hjælp, hvis vi ved præcis hvad du har problemer med.
>
> #!/usr/bin/perl
> use CGI;
>
> my $query = new CGI;
>
> my $cookie = $query->cookie(-name=>'CookieNavn');
> if (defined $cookie) {
> # Brugeren havde cookien
> print $query->header;
> } else {
> # Vi laver en cookie og giver brugeren:
> $cookie = $query->cookie(-name=>'CookieNavn',
> -value=>'CookieIndhold',
> -path=>'/',
> -domain=>'youhost.example.com',
> -expires='+3d',
> );
> print $query->header(-cookie=>$cookie);
> }
>
> [...Resten af scriptet...]

Tak for svaret, men jeg er bange for at jeg ikke kan få det til at virke.
Jeg forstår godt opbygningen men alle de -> => og -cookie kan jeg ikke lige
se en mening med. Er det perl kode?
Hvordan er det nu med "use" og "my", hvad bruges de til?

Hilsen Martin

---

"Martin Persson" <dis-mp@get2net.dk> writes:

> se en mening med. Er det perl kode?

Ja. Du forventer vel ikke at jeg skriver VB-kode i en perlgruppe?

> Hvordan er det nu med "use" og "my", hvad bruges de til?

Sådan ser perl-kode nu engang ud.

--
Skrev du til Jubii? Så skriv også til mig.
(hvornår, hvilke sider og hvordan de svarede)

---

On Mon, 23 Jul 2001 12:22:54 +0200, Martin Persson wrote:

> Tak for svaret, men jeg er bange for at jeg ikke kan få det til at
> virke.

Det er en lidt informationsfattig beskrivelse du kommer med. Hvad
prøver du, hvad forventer du og hvad sker der?

> Jeg forstår godt opbygningen men alle de -> => og -cookie kan jeg
> ikke lige se en mening med. Er det perl kode?

Jada - hvad skulle det ellers være i dk.edb.programmering.perl?

> Hvordan er det nu med "use" og "my", hvad bruges de til?

Kommandoer der kan hjælpe dig:

$ perldoc -f use
$ perldoc -f my

Det lyder som om det nok ville være fornuftigt for dig at læse en bog
om Perl.


Mvh.

--
"And counterfeiting is just one of it's many uses Adam Sjøgren
around the home!" - Calvin explaining the asjo@koldfront.dk
modified transmogrifier.

---

> Det er en lidt informationsfattig beskrivelse du kommer med. Hvad
> prøver du, hvad forventer du og hvad sker der?

Jeg prøver at lave en cookie og som sagt skal der ikke stå noget i den, den
skal bare være der. Jeg forventer at jeg kunne tjekke om den er der og hvis
der er der så gøre en ting og hvis den ikke er der så lave den og gøre en
anden ting.
Der sker ikke andet end at jeg får en fejl der siger at scriptet ikke kunne
køres og da havde jeg ikke ændret noget i den kode Peter skrev. Jeg ved ikke
om det er fordi jeg kører scriptet lokalt?

> Det lyder som om det nok ville være fornuftigt for dig at læse en bog
> om Perl.

Det er jeg helt sikker på at det ville, men jeg har ikke rigtig kunnet finde
nogen. Har du nogen forslag?
Jeg har læst en del tutorials og kan også lave scripts der kan bruges til
noget men jeg kan ikke så mange avancerede ting (tror jeg)!

Hilsen Martin

---

On Mon, 23 Jul 2001 19:25:10 +0200, Martin Persson wrote:

> Jeg prøver at lave en cookie og som sagt skal der ikke stå noget i
> den, den skal bare være der.

Kan man det?

Det ser ikke ud til at CGI.pm synes det:

virgil$ perl -MCGI -e '$q=new CGI; $c=$q->cookie(-name=>"choc"); print $q->header(-cookie=>$c);'
Content-Type: text/html; charset=ISO-8859-1

virgil$ perl -MCGI -e '$q=new CGI; $c=$q->cookie(-name=>"choc", -value=>"munch"); print $q->header(-cookie=>$c);'
Set-Cookie: choc=munch; path=/
Date: Mon, 23 Jul 2001 17:48:31 GMT
Content-Type: text/html; charset=ISO-8859-1

virgil$

Hvad siger cookie-"standarden" mon?

> Der sker ikke andet end at jeg får en fejl der siger at scriptet
> ikke kunne køres og da havde jeg ikke ændret noget i den kode Peter
> skrev.

Har du rettet slåfejlen "-expires='+3d'," til "-expires=>'+3d',"?

Havde du skrevet noget fornuftig dér hvor Peter Makholm skrev
"[...Resten af scriptet...]"?

Det kan godt betale sig at skrive "use strict; use warnings;" i
starten af sine scripts...

> Jeg ved ikke om det er fordi jeg kører scriptet lokalt?

Det véd jeg heller ikke. Hvad sker der hvis du kører det fra
kommandolinien?

>> Det lyder som om det nok ville være fornuftigt for dig at læse en
>> bog om Perl.

> Det er jeg helt sikker på at det ville, men jeg har ikke rigtig
> kunnet finde nogen. Har du nogen forslag?

Hvis du kan programmere i forvejen er "Programming Perl" efter min
mening ikke helt tosset.

Hvis programmering er nyt for dig anbefales "Learning Perl" ofte, men
den har jeg aldrig kigget i.


Mvh.

--
"Ja, det lyder jo som radioen vender på hovedet!" Adam Sjøgren
asjo@koldfront.dk

---

On Mon, 23 Jul 2001 19:25:10 +0200, Martin Persson wrote:

> Jeg prøver at lave en cookie og som sagt skal der ikke stå noget i
> den, den skal bare være der.

Kan man det?

> Der sker ikke andet end at jeg får en fejl der siger at scriptet
> ikke kunne køres og da havde jeg ikke ændret noget i den kode Peter
> skrev.

Har du rettet slåfejlen "-expires='+3d'," til "-expires=>'+3d',"?

Havde du skrevet noget fornuftig dér hvor Peter Makholm skrev
"[...Resten af scriptet...]"?

Det kan godt betale sig at skrive "use strict; use warnings;" i
starten af sine scripts...

> Jeg ved ikke om det er fordi jeg kører scriptet lokalt?

Det véd jeg heller ikke. Hvad sker der hvis du kører det fra
kommandolinien?

>> Det lyder som om det nok ville være fornuftigt for dig at læse en
>> bog om Perl.

> Det er jeg helt sikker på at det ville, men jeg har ikke rigtig
> kunnet finde nogen. Har du nogen forslag?

Hvis du kan programmere i forvejen er "Programming Perl" efter min
mening ikke helt tosset.

Hvis programmering er nyt for dig anbefales "Learning Perl" ofte, men
den har jeg aldrig kigget i.


Mvh.

--
"Ja, det lyder jo som radioen vender på hovedet!" Adam Sjøgren
asjo@koldfront.dk

---

Mange tak for svarene.

Jeg prøver at køre på

Hilsen Martin

---

Martin Persson wrote:
> Er der nogen der ved et sted hvor der står noget om hvordan cookies laves
> og kaldes/checkes. Gerne meget uddybende.

Søg efter RFC og cookie, cookies er defineret i en RFC dokument, der
ganske uddybende fortæller hvordan de (burde) virke.

--
Mvh. Carsten Svaneborg