Login über CGI::Auth (Perl/CGI)

[thread]14224[/thread]

Leser: 23

Articles: hide open all | hide show old branches

+24 replies
DonKnilch

2009-11-05 16:30
User since
2009-09-04
62 Artikel
BenutzerIn
Hallo zusammen,

ich möchte für ein paar Seiten, die mit CGI/Perl umgesetzt wurden, ein kleines Login erstellen. Dazu verwende ich Perl::Auth. Leider stehe ich gerade vollkommen auf dem Schlauch. Die Login-Seite erscheint, die Datei mit den Userdaten ist auch vorhanden,jedoch weiss ich nun nicht, wie ich die Daten überprüfen kann bzw wie es überhaupt weiter geht. Nach dem Bestätigen des Login bekomme ich immer einen Seiten-Ladefehler.

Der bisherige Code sieht folgendermaßen aus:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

sub main { my $cgi = shift; # CGI.pm object return if !ref $cgi; my $auth = new CGI::Auth({ -cgi => $cgi, -authdir => 'auth', -formaction => "/test", -authfields => [ {id => 'user', display => 'User Name', hidden => 0, required => 1}, {id => 'pw', display => 'Password', hidden => 1, required => 1}, ], }); $auth->check; }
Die Frage, die ich mir stelle, ist folgende: Was muss nun eigentlich in die Formaction rein? Eine Weiterleitung auf eine neue Seite, eine Methode oder ein Perl-Skript, so wie unter CPAN beschrieben? Ich habe dort mal testweise ein Perl-Skript eingesetzt, dieses wird allerdings nicht ausgeführt.

Zudem kann ich die Startseite nur einmal aufrufen, so dass das Login erscheint, danach kommt jedesmal der Ladefehler.

Für hilfreiche Tipps bin ich dankbar.

Viele Grüße
DonKnilch
- renee
  
  2009-11-05 17:41
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  2009-11-05T15:30:50 DonKnilch
  Die Frage, die ich mir stelle, ist folgende: Was muss nun eigentlich in die Formaction rein?
  
  Die URL zu dem Skript, das den check macht.
  
  2009-11-05T15:30:50 DonKnilch
  Zudem kann ich die Startseite nur einmal aufrufen, so dass das Login erscheint, danach kommt jedesmal der Ladefehler.
  Das hängt wahrscheinlich damit zusammen, dass Du vermutlich etwas falsches bei formaction eingetragen hast.
  
  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/
- +22 replies
- renee
  
  2009-11-05 17:50
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Hier ein funktionierendes Beispiel:
  
  test.cgi:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  #!/usr/bin/perl use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); use CGI::Auth; my $auth = new CGI::Auth({ -authdir => 'D:/CGI', -formaction => 'test.cgi', -authfields => [ {id => 'user', display => 'User Name', hidden => 0, required => 1}, {id => 'pw', display => 'Password', hidden => 1, required => 1}, ], }) or die $!; $auth->check; print CGI->header(),CGI->h2( 'Eingeloggt' );
  
  user.dat (abgelegt in D:/CGI):
  
  Code: (dl )
  
  Renee:teCi1U7ES.EJwtexQN4goIMuj6
  
  (User "Renee" mit Passwort "tester" )
  
  Es muss natürlich noch ein Ordner D:/CGI/sess angelegt werden...
  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/
  - +21 replies
  - DonKnilch
    
    2009-11-05 18:49
    User since
    2009-09-04
    62 Artikel
    BenutzerIn
    
    Vielen Dank, dann kann ich das Problem jetzt zumindest schon mal eingrenzen. So ähnlich hatte ich es auch schon probiert. Der Unterschied bei mir ist allerdings: Ich nutze keinen Apache, sondern ich habe mir selber einen WebServer gebastelt. Dabei erstellt ein Skript aus einem Modul den WS. Das Modul wiederum kann ich in der formaction aber nicht aufrufen.
    
    Gibt es da eine andere Möglichkeit?
    
    Der Aufruf sieht so aus:
    
    Code: (dl )
    
    my $pid = MyWebserver->new(10101)->background();
    
    Im WS war dann die oben gepostete Methode enthalten.
    - +20 replies
    - renee
      
      2009-11-05 20:04
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Du hast doch aber eine URL, unter der Du das Login-Formular bekommst. Und die trägst Du dort ein.
      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/
      - +19 replies
      - DonKnilch
        
        2009-11-06 09:31
        
        User since
        2009-09-04
        62 Artikel
        BenutzerIn
        
        Ok, daran hatte ich gar nicht gedacht. Habe das gerade mal probiert, doch leider bekomme ich wieder den Ladefehler.
        
        Wie gesagt, ich kann die Seite immer nur einmal aufrufen, danach kommt der Fehler.
        
        +18 replies
        
        bianca
        
        2009-11-06 09:38
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Und wieso denkst Du, dass das nicht an Deinem selbst gebastelten Webserver liegt?
        10 print "Hallo"
        20 goto 10
        
        +17 replies
        
        DonKnilch
        
        2009-11-06 09:47
        
        User since
        2009-09-04
        62 Artikel
        BenutzerIn
        
        Ohne die Authentifizierung läuft der Webserver einwandfrei, erst seitdem ich die Authentifizierung drin habe, lässt sich die Seite maximal einmal aufrufen. Die Frage ist, woran das liegt.
        
        Könnte es an der Session liegen? Oder an einem Proxy?
        
        +16 replies
        
        renee
        
        2009-11-06 10:31
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Logge in Deinem Webserver doch einfach mal mit, welche Dateien aufgerufen werden.
        
        Ist Dein Webserver geheim, oder kannst Du ihn hier posten?
        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/
        
        +15 replies
        
        DonKnilch
        
        2009-11-06 15:19
        
        User since
        2009-09-04
        62 Artikel
        BenutzerIn
        
        Kann ich leider nicht machen, da es sich nicht um einen privaten Webserver handelt.
        
        Ich habe nun statt CGI::Auth das Modul CGI::Session::Auth benutzt und damit geht es auch schon wesentlich besser, da ich damit direkt Methoden aufrufen kann. Nun habe ich aber das Problem, dass ich ein Objekt ($auth) übergeben muss, um bei jeder Unterseite zu prüfen, ob der User berechtigt (also eingeloggt) ist. Nur irgendwie klappt das mit der Übergabe nicht. Folgendes habe ich probiert:
        
        Code: (dl )
        
        1 2 3
        
        my $auth = new CGI::Session::Auth({ CGI => $cgi, Session => $session }); $cgi->param('_auth',$auth); $auth->authenticate();
        
        Auf der anderen Seite:
        
        Code: (dl )
        
        1 2
        
        my $auth = $cgi->param('_auth'); $auth->authenticate();
        
        Leider bekomme ich immer folgende Meldung:
        
        Quote
        Can't call method "authenticate" on an undefined value at DYDO/Handler/Operations.pm line 20.
        
        sprich er hat es nicht gefunden.
        
        Wie kann ich eine Objekt-Referenz übergeben, so dass ich problemlos die Methoden des Objektes aufrufen kann?
        Last edited: 2009-11-06 15:45:30 +0100 (CET)
        
        pq
        
        2009-11-06 15:52
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2009-11-06T14:19:39 DonKnilch
        Wie kann ich eine Objekt-Referenz übergeben, so dass ich problemlos die Methoden des Objektes aufrufen kann?
        
        ein objekt ist immer eine referenz.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +13 replies
        
        DonKnilch
        
        2009-11-09 13:38
        
        User since
        2009-09-04
        62 Artikel
        BenutzerIn
        
        Jetzt habe ich folgendes Problem: Eine Methode im Modul CGI::Session wird nicht gefunden, obwohl diese vorhanden ist.
        
        Quote
        Undefined subroutine CGI::_reset_status
        at /lib/CGI/Session.pm line 44
        
        Woran könnte dies liegen?
        
        +12 replies
        
        pq
        
        2009-11-09 13:53
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        du schreibst "Eine Methode im Modul CGI::Session wird nicht gefunden". laut fehlermeldung wird aber nicht in CGI::Session gesucht, sondern in CGI.pm: "Undefined subroutine CGI::_reset_status".
        da kann man dir nur helfen, wenn man weiss, wie du das new von CGI::Session aufrufst. ohne code können wir schliesslich nur unsere glaskugeln befragen.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +11 replies
        
        DonKnilch
        
        2009-11-09 15:02
        
        User since
        2009-09-04
        62 Artikel
        BenutzerIn
        
        Sorry, hier der Aufruf:
        
        Code: (dl )
        
        my $session = CGI::Session::new($cgi) || die CGI::Session->errstr()
        
        +5 replies
        
        renee
        
        2009-11-09 15:07
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Es muss
        
        Code (perl): (dl )
        
        CGI::Session->new($cgi)
        
        heißen. Bei Deinem Aufruf ist $cgi der erste Parameter, der im Konstruktor landet. Beim richtigen Aufruf landet der Klassenname als erster Parameter im Konstruktor.
        
        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/
        
        +4 replies
        
        pq
        
        2009-11-09 15:14
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        hm, das geht wirklich mit $cgi als erstes argument? laut doku ist das nicht richtig.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +3 replies
        
        pq
        
        2009-11-09 15:16
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        oh, in CGI::Session::Tutorial steht das tatsächlich so, in der direkten doku zu CGI::Session steht $cgi als zweiter parameter.
        wirklich schlecht dokumentiert.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +2 replies
        
        renee
        
        2009-11-09 15:30
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Auch in der Doku steht es mit mehreren Varianten drin...
        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/
        
        pq
        
        2009-11-09 15:34
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ich hatte nach $cgi gesucht statt nach $query. das wird nicht konsequent in der doku verwendet, einmal $cgi und einmal $query
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +5 replies
        
        pq
        
        2009-11-09 15:13
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        und wo ist der aufruf so dokumentiert? das ist verkehrt. den konstruktor einer klasse ruft man nicht mit Foo::Bar::new auf, sondern mit Foo::Bar->new.
        
        laut dokumentation lese ich ausserdem, dass ein CGI-objekt zwar als parameter übergeben werden kann, aber nicht als erster parameter, sondern als zweiter.
        wo hast du deinen code her? nenn mich jetzt nicht wieder arrogant, wenn ich sage, dass man nicht einfach irgendwelche codeschnipsel zusammenwerfen kann und hoffen kann, dass perl rät, was man machen will.
        
        du kannst mit den 2 absätzen nix anfangen?
        
        Code (perl): (dl )
        
        my $session = CGI::Session->new(undef, $cgi) ...
        
        und jetzt guck dir bitte den unterschied zu deinem code an und versuche meine anmerkungen zu verstehen.
        
        edit: sorry, das mit dem "arrogant" war jemand anderes, habe ich leider verwechselt.
        Last edited: 2009-11-09 15:38:28 +0100 (CET)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        pq
        
        2009-11-09 15:20
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        siehe meine andere antwort, die doku zu CGI::Session ist sich selbst nicht einig, als wievielter parameter $cgi kommen muss. versuch es also mal mit beiden varianten.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +3 replies
        
        DonKnilch
        
        2009-11-09 15:20
        
        User since
        2009-09-04
        62 Artikel
        BenutzerIn
        
        Ich kopiere mir nicht irgendwas zusammen, sondern ich denke mir auch (meistens) etwas dabei. Laut CPAN gibt es den Aufruf mit folgender Syntax:
        
        Code: (dl )
        
        new( $query )
        
        ebenso wie den von dir vorgeschlagenen.
        
        Quote
        new()
        new( $sid )
        new( $query )
        new( $dsn, $query||$sid )
        new( $dsn, $query||$sid, \%dsn_args )
        new( $dsn, $query||$sid, \%dsn_args, \%session_params )
        
        Dies sind die einzelnen Möglichkeiten, ein neues CGI::Session-Objekt zu erzeugen. Daran sollte es also eigentlich nicht liegen. Im Zweifelsfall werde ich deinen Vorschlag aber natürlich mal testen.
        Last edited: 2009-11-09 15:40:34 +0100 (CET)
        
        +2 replies
        
        pq
        
        2009-11-09 15:26
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        naja, das mit dem ::new hast du dir aber ausgedacht. in der doku stehen jede menge aufrufe von CGI::Session->new, aber nirgendwo CGI::Session::new.
        
        edit: bzw. "new CGI::Session" findet sich auch in der doku
        Last edited: 2009-11-09 15:29:20 +0100 (CET)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        DonKnilch
        
        2009-11-09 16:17
        
        User since
        2009-09-04
        62 Artikel
        BenutzerIn
        
        Ja, da ist mir beim Tippen eben ein Fehler unterlaufen, den ich auch nicht mehr bemerkt habe.
        
        Jetzt kommt besagter Fehler jedenfalls nicht mehr und ich kann auch die Session-ID aus dem Cookie auslesen. Wenn ich aber versuche, anhand der Session-ID (oder des Querys) die Session zu laden, dann wird das nichts.
        
        Code: (dl )
        
        my $session = CGI::Session->load($sid) || die CGI::Session->errstr();
        
        Was könnte da das Problem sein? Die ID stimmt, das habe ich kontrolliert, die kommt direkt aus dem Cookie und stimmt mit der im Session-File überein. Habe ich noch was übersehen?
        
        EDIT: Ich ziehe die Frage zurück, da ich die Lösung gefunden habe. Es hat noch der Pfad zu den Session-Files beim Laden gefehlt, anders kann er die natürlich nicht finden.
        
        Danke Euch erstmal bis hierhin für Eure Hilfe, das hat mich echt weiter gebracht.
        Last edited: 2009-11-09 16:30:24 +0100 (CET)

View all threads created 2009-11-05 16:30.