ispman/ispman-web/htdocs/admin index.cgi,1.21,1.22

Update of /cvsroot/ispman/ispman/ispman-web/htdocs/admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20079/ispman-web/htdocs/admin

Modified Files:
	index.cgi 
Log Message:
fixed sporadic lib runtime errors
added support for CGISESSID in URL (for easier debugging)

Index: index.cgi
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/htdocs/admin/index.cgi,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- index.cgi	8 Jul 2004 20:14:11 -0000	1.21
+++ index.cgi	18 Jul 2004 09:33:32 -0000	1.22
@@ -1,5 +1,4 @@
 #!/usr/bin/perl -w
-use strict;
 
 # FIXME: this shouldn't be a package
 package ISPMan;
@@ -11,6 +10,9 @@
 use CGI::Session qw(-ip-match);
 use CGI::Carp qw(fatalsToBrowser);
 
+
+use strict;
+
 # global vars
 our $ispman;
 our $r;
@@ -20,7 +22,7 @@
 $r = new CGI;
 
 # check for session cookie
-my $sid = $r->cookie("CGISESSID") || undef;
+my $sid = $r->cookie("CGISESSID") || $r->param("CGISESSID") || undef;
 
 # get/create session
 my $session = new CGI::Session("driver:File", $sid, {Directory=>'/tmp'});
@@ -164,8 +166,7 @@
 #print "<p>Session Language is ", $session->param("language");
 #print "<p>Request Language is ", $r->param("language");
 
-require ISPMan;
-import ISPMan;
+use ISPMan;
 
 $ENV{'LANGUAGE'} = $r->param("language") || $session->param("language");
 



-------------------------------------------------------
This SF.Net email is sponsored by BEA Weblogic Workshop
FREE Java Enterprise J2EE developer tools!
Get your free copy of BEA WebLogic Workshop 8.1 today.
http://ads.osdn.com/?ad_id=4721&alloc_id=10040&op=click