#!/usr/bin/perl my $cgi = new Lemonldap::NG::Handler::CGI ( { localStorage => "Cache::FileCache", localStorageOptions => { 'namespace' => 'MyNamespace', 'default_expires_in' => 600, }, configStorage => { type => 'File', dirName => '__CONFDIR__', }, https => 0, } ); $cgi->authenticate(); print $cgi->header; unless( $cgi->authorize ) { print $cgi->start_html ('Forbidden'); print "You're not authorized to see this page"; print $cgi->end_html; } else { print $cgi->start_html ('Authorized'); print "

Welcome

You're authorized to see this page"; print $cgi->end_html; }