File: cdc.pl

package info (click to toggle)
lemonldap-ng 1.3.3-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 13,084 kB
  • ctags: 2,440
  • sloc: perl: 25,708; makefile: 622; sh: 176; php: 6; sql: 5
file content (31 lines) | stat: -rwxr-xr-x 790 bytes parent folder | download | duplicates (3)
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;