Remove old Handler CGI example

environments/ppa-mbqj77/deployments/1
Clément Oudot 8 years ago
parent 14bdcdff94
commit 51dca7b04b
  1. 48
      lemonldap-ng-handler/example/menu.pl

@ -1,48 +0,0 @@
#!/usr/bin/perl -w
# Example of menu
# This program is an auto-protected CGI that reads a HTML file and replace
# tagged links :
# * by links if the connected user is authorized to access to this site
# * by italic text else
#
# The tagged links have to be written so :
# [[http://my-protected-site/welcome Comment to display in the link]]
# Set here the path to the HTML file to read
my $html_file = '/path/to/html/template';
# DEBIAN Users : uncomment this
# require "/usr/share/lemonldap-ng/configStorage.pm";
use Lemonldap::NG::Handler::CGI;
use strict;
# Initialization
our $cgi;
$cgi = Lemonldap::NG::Handler::CGI->new( { https => 0, } ) or die;
# Authentication
$cgi->authenticate();
open F, $html_file or die "Template \"$html_file\" not found !";
# HTTP Headers
print $cgi->header(
-type => 'text/html',
-charset => 'UTF-8',
);
while (<F>) {
#print "TOTO" if(m#[[(https?://\S+)\s+(.*?)]]#);
s#\[\[(https?://\S+)\s+(.*?)\]\]#&link($1,$2)#eg;
print;
}
close F;
sub link {
my ( $l, $t ) = @_;
return ( $cgi->testUri($l) ? "<a href=\"$l\">$t</a>" : "<i>$t</i>" );
}
Loading…
Cancel
Save