Problem mit CGI::Session (gelöst) (Perl/CGI)

[thread]15754[/thread]

Problem mit CGI::Session [gelöst]

Leser: 27

Articles: hide open all | hide show old branches

+15 replies
Yagyu

2010-12-18 11:40

User since
2010-12-18
15 Artikel
BenutzerIn

Hallo,

ich soll für ein projekt eine Ausleihe für Geräte basteln, das ganze soll ohne SQL laufen und über PERL realisiert werden. Mit html, css sowie c programmierung habe ich schon Erfahrung .. mit PERL bisher noch gar nicht.

Bisher war meine Überlegung folgende:
ich fange mit einer index html an, hier mit 3 links auf versch Perl Scripts.
Login, AdminLogin sowie registrieren.

Als Script wurde mir ebenfalls bereits zur verfügung gestellt, wie ich auf die DB zugreifen soll/kann.

more (20.5kb)

Momentan hänge ich an der registrierung, hier habe ich bereits ein Formular erstellt, die Inhalte dieses Formulars werden auf der nächsten Seite wieder in einer Tabelle ausgegeben, und wollte nun, wenn die Eingaben abgeschickt werden, diese als Session speichern um sie im nächsten Schritt zu überprüfen und bei richtiger Eingabe eine E-Mail zu verschicken um den Account zu aktivieren. (Wenn jmd ne bessere Idee als CGI::Session hat, bin für alles bereit :) )

Mein Code sieht bisher so aus:

registrieren.pl
more (11.6kb)

bestaetigen.pl
more (11.8kb)

pruefen.pl
more (9.1kb)

Wenn ich eine Eingabe beim registrieren mache, und absende, steht diese auch richtig auf der nächsten Seite in der Tabelle, hier gibt es bisher keine Probleme, bei der Übergabe von der Tabelle in die Session übernimmt er mitlerweile aber gar keine Daten mehr - zu Beginn hatte ich auf jeder Seite die gleichen Variablennamen genommen, da standen in der session teilweise die richtigen Eingaben (bei email stand immer nur der Benutzername ohne das @ostfalia.de und beim benutzer stand imemr direkt $Benutzer) hatte bei der zuweisung zur session auch shcon param(-name ... , -value) ausprobiert, leider auch ohn Erfolg. ...

Bin für jeden Tipp oder Ratschlag dankbar.

Gruß
Yagyu

modedit Editiert von pq: more-tags aufgrund der menge hinzugefügt
Last edited: 2011-02-01 19:57:51 +0100 (CET)
- +2 replies
- GwenDragon
  
  2010-12-18 14:10
  
  User since
  2005-01-17
  14542 Artikel
  Admin1
  
  Wozu soll Zeile 5 in bestaetigen.pl sein?
  Zweimal ein CGI-Objekt?
  
  Mir ist ja schon klar, dass CGI::Session auch CGI-Objekte übernimmt, aber warum verwendest du nicht $form?
  
  Und warum packst du alles in mehrere CGI-Skripte anstatt in eins?
  Last edited: 2010-12-18 14:34:02 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - Yagyu
    
    2010-12-18 14:55
    
    User since
    2010-12-18
    15 Artikel
    BenutzerIn
    
    2010-12-18T13:10:43 GwenDragon
    Wozu soll Zeile 5 in bestaetigen.pl sein?
    Zweimal ein CGI-Objekt?
    
    Mir ist ja schon klar, dass CGI::Session auch CGI-Objekte übernimmt, aber warum verwendest du nicht $form?
    
    das hab ich eben mal geändert, war mir so iwie noch gar nicht aufgefallen.
    
    2010-12-18T13:10:43 GwenDragon
    Und warum packst du alles in mehrere CGI-Skripte anstatt in eins?
    
    weiß ich ehrlich egsagt nciht, was du damit meinst -.- wie gesagt, arbeite mit perl nun seit knapp 5 Tagen vorher nie tiefer in Websprachen reinarbeiten müssen.
- +8 replies
- topeg
  
  2010-12-18 18:32
  
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  
  Also hier mal etwas das funktioniert:
  
  mydb.pm:
  more (33.5kb)
  
  registration.pl:
  more (31.5kb)
  
  login.pl:
  more (19.0kb)
  
  test.pl:
  more (12.3kb)
  
  EDIT: Fehler im Code gefunden.
  EDIT: Fehler im Code (mydb.pm) bei "load" das chomp vergessen.
  EDIT: Fehler im Code (mydb.pm) bei "check" der Vergleich des Passwortes muss "eq" sein nicht "ne" durch das fehlende "chomp" ist es nicht aufgefallen. :-/
  
  modedit Editiert von pq: more-tags aufgrund der menge hinzugefügt
  Last edited: 2011-02-01 20:00:05 +0100 (CET)
  - +2 replies
  - Yagyu
    
    2010-12-18 18:58
    
    User since
    2010-12-18
    15 Artikel
    BenutzerIn
    
    Wow .. hab ja echt mit viel gerechnet aber nicht damit ... Danke topeg .. werd mich direkt mal dran setzen und alles durcharbeiten um den code dann auch nachvollziehen zu können. Danke!!
    - topeg
      
      2010-12-18 19:29
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Ich hatte nach dem kaufen/aufstellen des Weihnachtsbaums, dem kaufen/aufbauen eines Schranks, dem Schneeschieben und Putzen noch etwas Zeit. ;-)
  - +5 replies
  - Yagyu
    
    2011-02-08 09:30
    User since
    2010-12-18
    15 Artikel
    BenutzerIn
    
    morgen,
    
    nochmal eine andere Frage:
    wenn ich den code von topeg richtig verstehe, sollte hier der Login auch schon klappen - mit der MSG:
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    $form->start_html("LOGIN OK!"), $form->h1("Login erfolgreich!"), $form->p("Willkommen $name"), $form->h4( $form->a({href=>"$sname?logout=1"},"LOGOUT"),
    
    dieser klappt bei mir momentan leider nicht wenn ich den code 1:1 übernehme, registrieren funktioniert daten sind in der DB, beim login bleibt er bei mir aber jedesmal auf der "login-seite" sprich ich sehe weiterhin die eingabe maske. Jemand ne idee wo hier das problem liegt?
    - GwenDragon
      
      2011-02-08 13:37
      
      User since
      2005-01-17
      14542 Artikel
      Admin1
      
      Mit den fünf Zeilen erzeugst du nur das HTML für die Begrüßungsseite samt Logoutlink.
      
      //EDIT:
      Ich habe topegs Code getestet, da werde ich eingeloggt.
      Last edited: 2011-02-08 13:49:32 +0100 (CET)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +3 replies
    - topeg
      
      2011-02-08 14:10
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Nach dem Login musst du von Hand auf "test.pl" wechseln. Den Link dahin habe nicht in die Login-Seite eingefügt.
      - +2 replies
      - Yagyu
        
        2011-02-08 14:24
        
        User since
        2010-12-18
        15 Artikel
        BenutzerIn
        
        habs gerade nochmal getestet: nun kam nachm login direkt die meldung:
        Login erfolgreich!
        
        Willkommen Yagyu
        
        komisch die letzten male blieb ich jedesmal auf der Seite zum einloggen mit nur einer Meldung zum PW speichern ^^
        
        danke :)
        
        @gwen: dass die zeilen nur den begrüßungstext erzeugen war mir bewusst, aber im code vorher wird ja überprüft ob man eingeloggt ist, dies geschiehte bei mir, komsicherweise nie, sondern ich blieb auch nach login drücken immer auf der Seite, wo ich mich einloggen soll. - hab den kompletten code nun noch einmal neu kopiert und eingefügt - nun klappt es, wie es klappen soll :)
        Last edited: 2011-02-08 14:29:38 +0100 (CET)
        
        GwenDragon
        
        2011-02-08 16:38
        
        User since
        2005-01-17
        14542 Artikel
        Admin1
        
        Ich habe mich ja auch gewundert, warum du nur diese Zeilen gepostet hattest, aber ich glaubte, dass einem Perl-Anfänger wie dir sowas schon mal passiert, anders zu denken.
        
        Ist damit dein Problem mit CGI::Session gelöst? Wenn ja, den Thread bitte als gelöst markieren.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +4 replies
- Yagyu
  
  2011-02-01 19:45
  
  User since
  2010-12-18
  15 Artikel
  BenutzerIn
  
  Servus,
  
  ich häng gerade leider iwie total in der Luft, habe bisher andere Sachen fertig gemacht (Geräte können hinzugefügt werden etc) ... Will nun die Anmeldung mal fertig stellen, hier soll eine externe Mailadresse von Gmail (mmsz.org@gmail.com) als absender dienen, ich will einrichten, dass an die angegebene Email adresse, (Benutzername + @....de) eine Mail zum Aktivieren des Accounts gesendet wird .... steht aber total aufm Schlauch und hab überhaupt keien idee wie ich da nun vorgehen muss... kann mir jemand vlt nen denkanstoss geben, was dafür benötigt wird oder eine ähnliche Aufgabe/Code zeigen an der ich mich orientieren könnte?
  
  Gruß
  Last edited: 2011-02-01 23:14:56 +0100 (CET)
  - pq
    
    2011-02-01 20:07
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    das ist ja nun kein problem mit CGI::Session mehr. du möchtest also wissen, wie man emails versendet? wenn du per SMTP versenden kannst, empfehle ich MIME-Lite, das kann SMTP.
    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
  - bianca
    
    2011-02-01 22:30
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    2011-02-01T18:45:37 Yagyu
    (Benutzername + @[zitat entfernt])
    
    Das würde ich hier mal etwas anonymisierter schreiben. Wenn das später einer der Nutzer zufällig googelt könnte das evtl. zu ungewollten Diskussionen führen.
    
    Zum Problem an sich hat pq schon was geschrieben, das dürfte für Perl die einfachste Möglichkeit sein, per SMTP eine Mail zu verschicken.
    Oder hast Du einen anderen/besseren Zugang zum Mailserver als via SMTP?
    Zusatzfrage: Warum hostet Ihr keinen eigenen Mailserver? Ist es heutzutage hipp, sich der Dienste eines Massendatensammlers zu bedienen?
    
    Editiert von bianca: Typo und Zusatzfrage
    Last edited: 2011-02-01 22:34:55 +0100 (CET)
    10 print "Hallo"
    20 goto 10
    - Yagyu
      
      2011-02-01 23:17
      
      User since
      2010-12-18
      15 Artikel
      BenutzerIn
      
      hallo :)
      danke für den hinweis, editiere ich mal direkt raus.
      
      ich "darf" keinen eigenen mailserver auf dem unixrechner nutzen, da laut dozent, die gefahr besteht, dass das teil als spamserver missbraucht werden könne ... SQL datenbanken wurden ja ebenfalls verboten, da der dozent im nachhinein gerne auch mal selber was dran ändern möchte - selbiges gilt für die einschränkung auf perl als Scriptsprache.

View all threads created 2010-12-18 11:40.