/usr/share/lemonldap-ng/portal/cdc.pl is in liblemonldap-ng-portal-perl 1.9.16-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | #!/usr/bin/perl
#==============================================================================
# Script to manage SAML Cross Domain Cookie
#
# Part of LemonLDAP::NG project
#==============================================================================
use strict;
use Lemonldap::NG::Portal::CDC;
# Create portal
my $portal = Lemonldap::NG::Portal::CDC->new();
# Process
my $result = $portal->process();
my $values = $portal->{cdc_values};
# Very simple page displaying cookie content
print $portal->header('text/html; charset=utf-8');
print $portal->start_html('Cross Domain Cookie');
print $portal->h1("Cross Domain Cookie");
if ( defined $values ) {
print $portal->p($_) foreach (@$values);
}
else {
print $portal->p("No cookie found");
}
print $portal->end_html();
exit;
|