SYNOPSIS
#!/usr/bin/perl
use Lemonldap::NG::Portal::Error;
my $portal = Lemonldap::NG::Portal::Error->new(
{
configStorage => {
type => 'File',
dirName => '/opt/lemonldap-ng/conf/',
},
});
my $portal_url = $portal->getPortal;
my $logout_url = "$portal_url?logout=1";
print $portal->header('text/html; charset=utf8');
print $portal->star_html('Error');
print "...":
print "<a href=$portal_url>Go to portal</a>";
print "<a href=$logout_url>Logout</a>";
print $portal->end_html;
DESCRIPTION
Create a simple portal to display an error page.METHODS
getPortal
Return the portal URL that was configured.BUG REPORT
Use OW2 system to report bug or ask for features: <http://forge.objectweb.org/tracker/?group_id=274>DOWNLOAD
Lemonldap::NG is available at <http://forge.objectweb.org/project/showfiles.php?group_id=274>COPYRIGHT AND LICENSE
Copyright (C) 2007 by Xavier Guimard <[email protected]>This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.4 or, at your option, any later version of Perl 5 you may have available.