Tadashi Okoshi
slash****@users*****
2005年 7月 3日 (日) 22:20:06 JST
Index: affelio/admin.cgi
diff -u affelio/admin.cgi:1.26 affelio/admin.cgi:1.27
--- affelio/admin.cgi:1.26 Fri Jul 1 17:19:41 2005
+++ affelio/admin.cgi Sun Jul 3 22:20:06 2005
@@ -16,7 +16,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: admin.cgi,v 1.26 2005/07/01 08:19:41 slash5234 Exp $
+# $Id: admin.cgi,v 1.27 2005/07/03 13:20:06 slash5234 Exp $
use strict;
@@ -63,11 +63,14 @@
my $TMPL_FILE="";
my $q = new CGI;
my $sid = $q->cookie("affelio-$af->{user__nickname}");
-my $session = new CGI::Session(undef,
- $sid,
- {Directory=> $af->{site__session_dir}});
-
-debug_print("admin:cgi Existing session: [" . $session->id . "]");
+debug_print("admin.cgi: sid from cookie = $sid");
+my $session="";
+if($sid){
+ $session = new CGI::Session(undef,
+ $sid,
+ {Directory=> $af->{site__session_dir}});
+ debug_print("admin:cgi Existing session: [" . $session->id . "]");
+}
if( (!$session) || ($session->param("type") ne "self") ){
# Is the session alive?
Index: affelio/index.cgi
diff -u affelio/index.cgi:1.12 affelio/index.cgi:1.13
--- affelio/index.cgi:1.12 Fri Jul 1 17:19:41 2005
+++ affelio/index.cgi Sun Jul 3 22:20:06 2005
@@ -16,7 +16,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: index.cgi,v 1.12 2005/07/01 08:19:41 slash5234 Exp $
+# $Id: index.cgi,v 1.13 2005/07/03 13:20:06 slash5234 Exp $
use strict;
@@ -57,9 +57,13 @@
#Check session w/ cookie
############################################################################
my $sid = $q->cookie("affelio-$af->{user__nickname}");
-my $session = new CGI::Session(undef,
- $sid,
- {Directory=> $af->{site__session_dir}});
+debug_print("index.cgi: sid from cookie = $sid");
+my $session;
+if($sid){
+ $session = new CGI::Session(undef,
+ $sid,
+ {Directory=> $af->{site__session_dir}});
+}
my $visitor_type="pb";
my $visitor_nickname="anonymous";