Cookies mit PSGI/Plack setzen bzw. auslesen (gelöst) (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]20196[/thread]

Cookies mit PSGI/Plack setzen bzw. auslesen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 8

Articles: hide open all | hide show old branches

+5 replies
Max_Perlbeginner

2016-11-27 08:15
User since
2016-04-04
107 Artikel
BenutzerIn
Hallo,
Ich versuche mich gerade ein wenig mit PSGI/Plack, komme aber gar nicht mit den Cookies zu Recht. Scheinbar werden sie gesetzt, aber ich kann sie einfach nicht auslesen. Oder vlt. werden sie auch einfach nicht gesetzt..

Anbei mal ein kleines Testprogramm:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

# /usr/bin/perl -wT use lib ('.','./extlib2/lib/perl5'); use Plack::Request; use Data::Dumper; my $handler = sub { my $env = shift; my $req = Plack::Request->new($env); my $cookie = $req->cookies; my $res = Plack::Request->new_response(); if ($cookie) { $res->status(200); $res->headers; $res->body(["COOKIE", Dumper $cookie, "ENV", Dumper $env]); $res->finalize } else { $res->cookies->{'session_id'}='1234'; $res->redirect("/"); $res->finalize; } };
Ich hätte mir erwartet, dass Dumper $cookie mir irgendwie die session_id 1234 anzeigt, stattdessen scheint die Variable leer zu sein (Cookies sind im Browser natürlich aktiviert; merkwürdig ist halt, dass im Programm $cookie als wahr interpretiert wird, da ich ja sonst eine Endlos-Weiterleitung hätte...). Auch bei Dumper $env hätte ich mich irgendwo ein HTTP_COOKIES Feld o.ä. erwartet. Kann mich irgendjemand aufklären, was hier schief läuft? Ich steh grad echt auf dem Schlauch...

Im "echten" Programm, wofür ich das Cookie setzten benötige, geht es um folgende Zeilen (statt Plack::Request benutze ich CGI::PSGI)
Code: (dl )

1 2 3

my $cookie = $q->cookie(-name => 'session_id', -value => $self->generate_id() ); my ($status_code, $headers_aref) = $q->psgi_redirect(-cookie => $cookie, -uri => $q->self_url()); return [$status_code, [$headers_aref], [] ];
Im Voraus vielen lieben Dank,
Max

PS.: Anbei noch die Ausgabe von plackup. Komisch ist, dass gar keine Weiterleitung angezeigt wird:

Quote
127.0.0.1 - - [27/Nov/2016:08:06:25 +0100] "GET / HTTP/1.1" 200 1690 "-" "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/53.0.2785.143 Safari/537.36"
127.0.0.1 - - [27/Nov/2016:08:06:26 +0100] "GET /favicon.ico HTTP/1.1" 200 1593 "http://localhost:5000/" "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/53.0.2785.143 Safari/537.36"

Last edited: 2016-11-27 08:17:55 +0100 (CET)
- Linuxer
  
  2016-11-27 20:17
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Hi,
  ich habe jetzt nur mal in die Doku von Plack::Request gesehen; habe selber keine Erfahrungen mit diesem Modul.
  
  Die Methode cookies liefert laut Doku eine Referenz auf einen Hash, der die Cookies enthalten soll.
  Wenn es kein Cookie gibt, dürfte es eine Referenz auf ein leeres Hash sein.
  
  Eine einfache Prüfung reicht da nicht aus, weil eine Referenz auf ein leeres Hash trotzdem wahr ist.
  Du müsstest wohl eher überprüfen, ob der Hash gefüllt ist.
  
  Code: (dl )
  
  1 2 3 4 5
  
  # are there cookies defined? dereference the hash-reference if ( %$cookies ) { } else { }
  
  edit: pod-Tags durch mod-Tags ersetzt
  Last edited: 2016-11-27 20:30:11 +0100 (CET)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +3 replies
- Max_Perlbeginner
  
  2016-11-27 20:19
  
  User since
  2016-04-04
  107 Artikel
  BenutzerIn
  
  Das Problem war, dass offensichtlich $req->cookies immer einen wahren Wert zurückgibt, auch wenn gar kein Cookie existiert. Keine Ahnung, warum das so ist.
  Die Lösung war daher einfach in der if Bedingung statt if ($cookie) das Cookie bereits mit if ($cookie->{'session_id'} zu benennen.
  
  Im echten Programm hab ich den Response wohl falsch gemacht. Die Funtkion psgi_redirect gibt bereits ein Arrayref zurück, sodass in der letzten Zeile return [$status_code, $headers_aref, [] ]; genügt.
  - +2 replies
  - Linuxer
    
    2016-11-27 20:33
    
    User since
    2006-01-27
    3870 Artikel
    HausmeisterIn
    
    Siehe meine vorherige Antwort. cookies() liefert immer eine Hash-Referenz.
    Eine Hash-Referenz ist im Boole'schen Kontext "wahr"; egal, ob der referenzierte Hash Daten enthält oder nicht.
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - Max_Perlbeginner
      
      2016-11-27 22:40
      
      User since
      2016-04-04
      107 Artikel
      BenutzerIn
      
      Lieber Linuxer,
      Danke für Deine Antworten. Ich habe Deine erste Antwort leider erst jetzt gelesen. Das mit der steten Wahrheit bei einer Hash-Referenz wusste ich nicht. Langsam ergibt alles einen Sinn.
      
      Ich bin nichtsdestotrotz mit Plack am Verzweifeln :-( Versuche gerade vergebens, eine Session (zur Authentifizierung) mittels Plack::Middleware::Session einzurichten. Nur bleibt komischerweise $env->{psgix.session} bei mir immer leer (mache gleich einen eigenen Thread dafür auf...). Wahrscheinlich bleibe ich notgedrungen beim guten alten CGI.. Für einen Hobbyprogrammierer reicht das ja auch. Und als solcher kann man dieses Interface noch einigermaßen verstehen. Bei Plack dreht sich alles nur noch :-)
      Last edited: 2016-11-27 22:51:40 +0100 (CET)

View all threads created 2016-11-27 08:15.