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

Timestamp:

11/04/08 16:26:31 (13 years ago)

Author:

pjkersha

Message:

Working version of NDG Security Perl client - acts as a client to Single
Sign On and Gatekeeper.

File:

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

TI12-security/trunk/perl/ndglogin.pl

@@ -8 +8 @@
 
 my $cgi = CGI->new();
-#my $session = ndgsecurity::ssoclient->new($cgi);
-my $session = eval {new NDG::Security::Client($cgi)};
+my $cfgFilePath = "/var/www/cgi-bin/NDG/Security/conf/ndg-security-client.cfg";
+my $session = eval {new NDG::Security::Client($cfgFilePath, $cgi)};
 
 # Call Single Sign On handler