=head1 DESCRIPTION This macro package contains some utility functions that make sense in a pure PApp environment only. It's of little use elsewhere. =head1 Functions =over 4 =item plain_header [title] Create a plain and ugly html header (with an optional title). =item plain_footer Create a plain and ugly html footer. =item access_page $access, $title, \&body Create a simple access-protected page. C<$access> is the required access level (L), C<$title> is the page title. The C argument must be a function reference. If the user has the required access right a plain page is created (using the functions above) and the body function is called. Otherwise the user is informed of his missing rights and gets the opportunity to log-in. Use it like this:

Main Page

You are logged in now ;) <:}:> ]]>]]< access_p $head } :> #endif <?$head->{title}:> {head}:> ]]> ]]> #if !access_p $access <:loginbox:> #endif #if access_p $access <: &$body :> #else __"I fear you do not have the necessary... well... access rights to do anything on this page..." # if retlink_p

[returl] # endif # if $request->header_in('Referer')

[referer] header_in('Referer'):> # endif #endif <:plain_footer:> ]]> . =head1 AUTHOR Marc Lehmann http://www.goof.com/pcg/marc/ =cut ]]>