Changeset 3775 for TI12-security/trunk/perl/ndglogin.pl

Timestamp:

09/04/08 09:45:36 (13 years ago)

Author:

pjkersha

Message:

Working Perl NDG Single Sign On client.

File:

• TI12-security/trunk/perl/ndglogin.pl (modified) (1 diff)

TI12-security/trunk/perl/ndglogin.pl

@@ -4 +4 @@
 use warnings;
 use CGI;
-#use MIME::Base64::URLSafe;
-use ndgsecurity::ssoclient qw (urlSafeB64Encode);
- 
+#use ndgsecurity::ssoclient;
+use NDG::Security::Client;
+
 my $cgi = CGI->new();
 #my $session = ndgsecurity::ssoclient->new($cgi);
-my $session = eval {new ndgsecurity::ssoclient($cgi)};
+my $session = eval {new NDG::Security::Client($cgi)};
 
-$session->sessionHandler();
-my $wayfURI = "https://localhost/sso/wayf";
-
-# Refer back to THIS URL but over https rather than http
-my $returnTo = "https://" . $cgi->virtual_host() . $cgi->url(-absolute=>1);
-my $b64encReturnTo = "";#urlSafeB64Encode($returnTo);
-
-print $cgi->header('text/html');
-print $cgi->start_html('NDG Login'),
-$cgi->h1('NDG Login'),
-$returnTo, $cgi->br,
-$cgi->start_form(-action=>$wayfURI),
-$cgi->hidden('r', $b64encReturnTo), $cgi->br,
-$cgi->submit('NDG Login'),
-$cgi->end_form, $cgi->p,
-$cgi->hr;
-
-print $cgi->end_html;
-
+# Call Single Sign On handler
+my $redirectHdr = $session->ssoHandler();
+if ($redirectHdr)
+{
+    # A redirect header has created indicating the handler has received a response from
+    # a Single Sign Service
+    print $redirectHdr;
+}
+else
+{
+    # Create a form based on the WAYF address and encoded return to address formulated by
+    # ssoHandler
+    print $cgi->header('text/html');
+    print $cgi->start_html('NDG Login'),
+    $cgi->h1('NDG Login'),
+    $cgi->start_form(-action=>$session->{wayfURI}),
+    $cgi->hidden('r', $session->{b64encReturnToURL}), $cgi->br,
+    $cgi->submit('NDG Login'),
+    $cgi->end_form, $cgi->p,
+    $cgi->hr;
     
+    print $cgi->end_html;
+}
+