You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
366 B
12 lines
366 B
#!/usr/bin/perl --
|
|
use strict;
|
|
use warnings;
|
|
use CGI;
|
|
|
|
my $q = CGI->new;
|
|
my %headers = map { $_ => $q->http($_) } $q->http();
|
|
|
|
print $q->header('text/html; charset=UTF-8');
|
|
print "<html><head><title>SiteMinder Hello World</title></head><body><h1>\n";
|
|
print "Welcome " . ($headers{'HTTP_SM_USER_COMMON_NAME'} || "unknown user") . " !";
|
|
print "</h1></body></html>\n";
|
|
|