Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 23
+24 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
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;
}![[Homepage]](/battie/theme/default/homepage.gif)
2009-11-05T15:30:50 DonKnilchDie Frage, die ich mir stelle, ist folgende: Was muss nun eigentlich in die Formaction rein?
2009-11-05T15:30:50 DonKnilchDas hängt wahrscheinlich damit zusammen, dass Du vermutlich etwas falsches bei formaction eingetragen hast.Zudem kann ich die Startseite nur einmal aufrufen, so dass das Login erscheint, danach kommt jedesmal der Ladefehler.
+22 replies
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' );
Renee:teCi1U7ES.EJwtexQN4goIMuj6
+21 replies
my $pid = MyWebserver->new(10101)->background();
+20 replies
+19 replies
+18 replies
+17 replies
+16 replies
+15 replies
1
2
3
my $auth = new CGI::Session::Auth({ CGI => $cgi, Session => $session });
$cgi->param('_auth',$auth);
$auth->authenticate();QuoteCan't call method "authenticate" on an undefined value at DYDO/Handler/Operations.pm line 20.
2009-11-06T14:19:39 DonKnilchWie kann ich eine Objekt-Referenz übergeben, so dass ich problemlos die Methoden des Objektes aufrufen kann?
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+13 replies
QuoteUndefined subroutine CGI::_reset_status
at /lib/CGI/Session.pm line 44
+12 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+11 replies
my $session = CGI::Session::new($cgi) || die CGI::Session->errstr()
+5 replies
CGI::Session->new($cgi)
+4 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+3 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+2 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+5 replies
my $session = CGI::Session->new(undef, $cgi) ...
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+3 replies
new( $query )
Quotenew()
new( $sid )
new( $query )
new( $dsn, $query||$sid )
new( $dsn, $query||$sid, \%dsn_args )
new( $dsn, $query||$sid, \%dsn_args, \%session_params )
+2 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
my $session = CGI::Session->load($sid) || die CGI::Session->errstr();
![[Powered by Battie]](/battie/img/powered.png)
