diff options
author | mharmsen <mharmsen@c9f7a03b-bd48-0410-a16d-cbbf54688b0b> | 2009-02-24 00:22:59 +0000 |
---|---|---|
committer | mharmsen <mharmsen@c9f7a03b-bd48-0410-a16d-cbbf54688b0b> | 2009-02-24 00:22:59 +0000 |
commit | 204c0d68151a7008ff579605623b7a5bf280fdb2 (patch) | |
tree | 2fc8bf7f7d8cdc094ea955d6417387421bdb05af /pki/base/tps/lib/perl/PKI/TPS/Login.pm | |
parent | 613d642b0eed318d2bbc4b2ad33ff909ad7ea222 (diff) | |
download | pki-204c0d68151a7008ff579605623b7a5bf280fdb2.tar.gz pki-204c0d68151a7008ff579605623b7a5bf280fdb2.tar.xz pki-204c0d68151a7008ff579605623b7a5bf280fdb2.zip |
Bugzilla Bug #486435 - clicking on configuration URL results in error.
git-svn-id: svn+ssh://svn.fedorahosted.org/svn/pki/trunk@239 c9f7a03b-bd48-0410-a16d-cbbf54688b0b
Diffstat (limited to 'pki/base/tps/lib/perl/PKI/TPS/Login.pm')
-rwxr-xr-x | pki/base/tps/lib/perl/PKI/TPS/Login.pm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/pki/base/tps/lib/perl/PKI/TPS/Login.pm b/pki/base/tps/lib/perl/PKI/TPS/Login.pm index 7a8fd817a..b4a4954a1 100755 --- a/pki/base/tps/lib/perl/PKI/TPS/Login.pm +++ b/pki/base/tps/lib/perl/PKI/TPS/Login.pm @@ -106,8 +106,9 @@ if( -e "$pkiroot/conf/pwcache.conf" ) { } # create cfg debug log -open(DEBUG, ">>" . $config->get("service.instanceDir") . - "/logs/debug"); +my $logfile = $config->get("service.instanceDir") . "/logs/debug"; +open( DEBUG, ">>" . $logfile ) || +warn( "Could not open '" . $logfile . "': $!" ); # apache server @@ -141,7 +142,9 @@ sub debug_log my ($msg) = @_; my $date = `date`; chomp($date); - print DEBUG "$date - $msg\n"; + if( -w $logfile ) { + print DEBUG "$date - $msg\n"; + } } # initializes entries in parser's global symbol table for panels @@ -295,10 +298,10 @@ sub handler { my $q = new CGI; # check cookie - my $pin = $q->param('__pin'); + my $pin = $q->param('pin'); if (defined($pin)) { my $cookie = $q->cookie( - -name=>'__pin', + -name=>'pin', -value=> $pin, -expires=>'+1y', -path=>'/'); |