CGI::Session und HTML-Seiten (Perl/CGI)

[thread]18527[/thread]

CGI::Session und HTML-Seiten

Tags: perl5 CGI HTML session CGI::Session Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+11 replies
eyekona

2013-08-19 11:51

User since
2013-08-15
13 Artikel
BenutzerIn

Hi,

und wieder mal eine Noob-Frage von mir.

Ich habe ein Tutorial gefunden, wie ich CGI::Session benutze um auf einer Website ein Login zuu bauen und mich einzuloggen. Das funktioniert auch super. Nur die html Seiten, die ich dem user nach dem login anzeigen lassen will sind, wenn man weiß wie sie heißen, auch einfach so aufrufbar...

Gibt es irgendeine Möglichkeit in einer .html Datei zu prüfen, ob man eingeloggt ist? Weil ich derzeit eine Index.html habe mit 2 Frames drin (Menu.html und Navi.html), die man aber nur sehen darf, wenn man eingeloggt ist. Wie macht ich das, dass wenn ich adresse.de/index.html eingebe die Aufforderung kommt sich einzuloggen, statt die Website zu sehen?

Muss ich die html pages löschen und die mit perl schreiben, nur um die session zu prüfen? kann ich wenn ich auf ein login bestehe garkeine .html seiten mehr benutzen?

Für mich sieht das bisher so aus. Könnt Ihr mich da kurz aufklären?
LG eye
- +4 replies
- GwenDragon
  
  2013-08-19 12:54
  User since
  2005-01-17
  14607 Artikel
  Admin1
  Quote
  Gibt es irgendeine Möglichkeit in einer .html Datei zu prüfen, ob man eingeloggt ist?
  Nein.
  
  Frameseiten sind unpraktisch zu handeln.
  
  Ich empfehle eher ein Template-System. Da kannst du die HTML-Seiten weiter benutzen, mit Variableninhalten versehen und in Abhängigkeit andere Inhalte ausgeben.
  Das Perl-Programm nimmt die Anfragen entgegen (es kann auch je nach Server als CGI-Handler dienen), prüft per CGI::Session ob eingeloggt ist und gibt dann das HTML per Template aus.
  
  Hast du schon mal Templatesysteme angesehen?
  HTML::Template::Compiled
  HTML::Template
  
  Ein paar Beispielschnippsel.
  
  index.html
  
  Code (html): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  <html> <body> <%IF .loggedin %>  <h1>Willkommen!</h1> <p>Schön, dass du da bist, <%= .username %></p> <%ELSE%> <form action="#" method="post"> <input mame="username" value="<%= .username %>"> <input mame="password" value="<%= .password %>"> <input type="submit"> </form> </%IF%> </body> </html>
  
  index.pl
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
  
  use CGI::Session; use HTML::Template::Compiled; sub check_login { my $user = shift; my $pw = shift; # Teste ob login gültig und gib true zurück return 1 if ($user eq 'test' and $pw eq 'gehweg123geheim'); # oder sonstige Methode zum Test der Logindaten # sonst kein gültiges Login return; } my $htc; my $session = new CGI::Session; my $loggedin = $session->param('LOGGEDIN') == 1; if (not $loggedin) { $loggedin = check_login($session->param('username'), $session->param('password')); $session->param('LOGGEDIN' => $loggedin); # Login in Session sichern } $htc = HTML::Template::Compiled->new( filename => '/var/www/vhosts/example.org/httpdocs/index.html' ); $htc->param( username => $session->param('username'), password => $session->param('password'), loggedin => $loggedin ); print $session->header, $htc->output; 1;
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - eyekona
    
    2013-08-19 13:26
    
    User since
    2013-08-15
    13 Artikel
    BenutzerIn
    
    Nein, ich hab noch nie angesehen. Sollte ich wohl mal? Bei den millionen Bibliotheken kommt man als Neuling ja auch nicht mehr mit. Man weiß nicht wie gut oder schlecht sie sind und auch nicht wie professionell oder auch nicht sie sind und was es gibt und was nicht...
    
    Also werde ich mal ansehen... Dann muss man wenigstens keine ganzen Seiten mit "print" schreiben.
    
    Was kann ich statt Frames nehmen? Perl versteh ich ja noch in den Grundsätzen aber HTML stückele ich mir mühselig mit Selfhtml zusammen - das ist eigentlich so absolut nicht mein Gebiet... Gehen Tabellen?
    - +2 replies
    - GwenDragon
      
      2013-08-19 13:35
      
      User since
      2005-01-17
      14607 Artikel
      Admin1
      
      Quote
      Nein, ich hab noch nie angesehen. Sollte ich wohl mal? Bei den millionen Bibliotheken kommt man als Neuling ja auch nicht mehr mit.
      Von sollte ist keine Rede. ;)
      Frage doch einfach mal uns Perl-Praktizierende wasd du nehmen kannst.
      
      Ich kann nicht wissen, was du schon so gelesen und gesehen hast. Oder hätte ich nachhaken sollen? Entschuldige.
      
      Quote
      Was kann ich statt Frames nehmen?
      Welchen Grund hat es für dich Frames nehmen zu müssen? Mittels Templatesystem lassen sich auch Navigation, Banner etc. auch einbinden.
      Last edited: 2013-08-19 13:36:53 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - eyekona
        
        2013-08-21 09:54
        
        User since
        2013-08-15
        13 Artikel
        BenutzerIn
        
        Das war nicht gegen dich gerichtet. Schuldige, wenn das so angekommen ist - ist eher so, dass ich mich von der Vielfalt der Möglichkeiten ein bisschen erschlagen fühle...
- +6 replies
- Muffi
  
  2013-08-19 13:00
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  2013-08-19T09:51:34 eyekona
  Gibt es irgendeine Möglichkeit in einer .html Datei zu prüfen, ob man eingeloggt ist?
  
  Das Einzige was mir da einfällt ist htaccess
  1 + 1 = 10
  - eyekona
    
    2013-08-19 13:27
    
    User since
    2013-08-15
    13 Artikel
    BenutzerIn
    
    Danke, aber nein danke, besser nicht... Dann lieber HTML neu schreiben...
  - +4 replies
  - GwenDragon
    
    2013-08-19 13:33
    
    User since
    2005-01-17
    14607 Artikel
    Admin1
    
    Bei .htaccess bleibt dann aber das Login dauernd während der Browsersitzung bestehen, ein Logout/Timeout ist unmöglich.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - murphy
      
      2013-08-19 15:43
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      Naja, das kommt darauf an, was für ein Zugangskontrollsystem man konfiguriert. ".htaccess" bezeichnet ja eigentlich lediglich eine Webserverkonfigurationsdatei und kein spezifisches Zugriffskontrollschema.
      
      Wenn man ".htaccess" als Synonym zu "mit .htacess konfigurierte HTTP Basic Authentication oder HTTP Digest Authentication" liest, dann stimmt die Aussage. Aber es hindert einen ja niemand daran, zum Beispiel einen Apache per ".htaccess" mit Authentifizierung auf Basis von SSL-Zertifikaten oder mit Hilfe von FastCGI-Authorizers zu konfigurieren. Mit letzterer Technik kann man dann so ziemlich jede verrückte Zugriffskontrolle implementieren, die man irgendwie in Maschinensprache fassen kann ;-)
      When C++ is your hammer, every problem looks like your thumb.
      - +2 replies
      - GwenDragon
        
        2013-08-19 16:56
        
        User since
        2005-01-17
        14607 Artikel
        Admin1
        
        Für unseren fragenden Noob ist das vorerst eher zu komplex, denk ich.
        Lesenswert:
        FastCGI-Authorizer http://www.fastcgi.com/drupal/node/22#S6.3
        http://httpd.apache.org/mod_fcgid/mod/mod_fcgid.ht...
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        eyekona
        
        2013-08-21 09:52
        
        User since
        2013-08-15
        13 Artikel
        BenutzerIn
        
        Für meinen aber nicht so noobigen Chef, der mir - obwohl er weiß wie mein Wissenstand ist - so eine Aufgabe gibt aber nicht. Und der hat gerade entschieden, dass ich zur Authentifizierung .htaccess nehmen soll... aber alles andere mit Perl - ich muss den Mal fragen wie er sich das ganz genau vorstellt. Da hab ich wohl in die falsche Richtung gedacht.
        
        Erstmal danke für eure Hilfe :-) Damit hat sich das erstmal erledigt und ich muss mich nun in dieses Thema einlesen...

View all threads created 2013-08-19 11:51.