Thread loginscript für Apache und mysql
(16 answers)
Opened by piet at 2013-02-09 12:21
Hi,
ich hatte mal (vor Jahren) ähnliche Anforderungen und war jetzt ein wenig neugierig, also habe ich auch mal ein wenig experimentiert: /cgi-bin/nph-authenticate.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 #! /usr/bin/env perl use strict; use warnings; use CGI qw( -nph ) ; my $cgi = CGI->new; if ( $cgi->param('logout') ) { print $cgi->header( -status => '401 Unauthorized', "WWW-Authenticate" => qq~Basic realm="foobar"~, ), $cgi->start_html, 'Goodbye', $cgi->end_html, ; } else { print $cgi->header( 'text/html' ), $cgi->start_html(), $cgi->h1("Success"), $cgi->a({href=>"?logout=1"}, 'logout'), $cgi->end_html, ; } .htaccess: Code: (dl
)
1 AuthType Basic Beim ersten Aufruf von http://domain/cgi-bin/nph-authenticate.pl folgt die Basic Realm Abfrage über die .htaccess. Ist das erfolgreich, sehe ich das "Success"-Ergebnis mit logout Link. Klicke ich diesen Link, erhalte ich wieder eine Basic Realm Abfrage und ich bin "raus"... 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! |