The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Lemonldap::NG::Portal::Error - Simple error page

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.

SEE ALSO

Lemonldap::NG::SharedConf, Lemonldap::NG::Handler, http://wiki.lemonldap.objectweb.org/xwiki/bin/view/NG/Presentation

AUTHOR

Clement OUDOT <clement@oodo.net> <coudot@linagora.com>

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 <x.guimard@free.fr>

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.