<?$msg:>

=head1 DESCRIPTION See L for most of the functions that formerly were defined here. =head2 EXPORTED FUNCTIONS =over 4 =cut use PApp::UserObs (); my $surl_login_cb = create_callback { my ($user, $pass) = ($P{papp_resu}, $P{papp_ssap}); $PApp::arguments{papp_login_failed} = !PApp::UserObs::verify_login $user, $pass if $user; } name => "papp_login"; ]]> #if $PApp::arguments{papp_login_failed} #endif

__"You may log-in now!"
__"Username:" 12, maxlength => 32 }, "papp_resu":>
__"Password:" 12, maxlength => 32 }, "papp_ssap":>
__"Log In":>

]]>

Admin-Info
__"You are currently known to me as user #"
#if PApp::UserObs::authen_p __"Current access rights include" <: use bytes; for (1 .. 8*length $state{papp_access}) { if (vec $state{papp_access}, $_, 1) { no bytes; echo "$_ (", (sql_fetch $PApp::Config::DBH, "select name from grp where id = ?", $_), "), "; } } :>
#else __"(You are not currently logged in)"
#endif %d times.", PApp::reload_p:>
__"Possible(!) URI (for referencing) of this page:"
__"Never, EVER publish a url with the hex-hash key in it(!)"
<:@_ and &{$_[0]}:>

]]> #if PApp::UserObs::authen_p <:adminbox:> #else <:loginbox:> #endif ]]> <?$msg:><: :><: :>

<: loginbox; :><: } :>]]> =head1 AUTHOR Marc Lehmann http://www.goof.com/pcg/marc/ =cut ]]>

	__"You may log-in now!"
__"Username:"	12, maxlength => 32 }, "papp_resu":>
__"Password:"	12, maxlength => 32 }, "papp_ssap":>
	__"Log In":>