Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv21160
Modified Files:
sandweb.cgi
Log Message:
* took care of some testing of uninitialized vars
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.156
retrieving revision 1.157
diff -U2 -r1.156 -r1.157
--- sandweb.cgi 10 Feb 2002 09:46:47 -0000 1.156
+++ sandweb.cgi 11 Feb 2002 00:27:32 -0000 1.157
@@ -64,5 +64,5 @@
###############################################################################
sub main {
- my $action = CGI::param('action');
+ my $action = CGI::param('action') || '';
# catch file-specific actions
@@ -82,5 +82,5 @@
else {
# if auth cookie exists, this will return it's data
- my $ck_auth = CGI::cookie('sandweb_auth');
+ my $ck_auth = CGI::cookie('sandweb_auth') || '';
if ($ck_auth) {
|
