Tadashi Okoshi
slash****@users*****
2005年 12月 18日 (日) 12:32:51 JST
Index: affelio/admin.cgi
diff -u affelio/admin.cgi:1.32 affelio/admin.cgi:1.33
--- affelio/admin.cgi:1.32 Wed Nov 23 13:00:19 2005
+++ affelio/admin.cgi Sun Dec 18 12:32:51 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.32 2005/11/23 04:00:19 slash5234 Exp $
+# $Id: admin.cgi,v 1.33 2005/12/18 03:32:51 slash5234 Exp $
use strict;
use lib("./extlib");
@@ -32,5 +32,7 @@
my $e = shift;
print "Content-type: text/html; charset=UTF-8\n";
print "Pragma: no-cache", "\n\n";
- print "$e<BR><BR><PRE>" . $e->stacktrace;
+ print "<HTML>";
+ print "<HEAD><TITLE>Error</TITLE></HEAD>";
+ print "$e<BR><BR><HR><PRE>" . $e->stacktrace;
};
Index: affelio/incoming.cgi
diff -u affelio/incoming.cgi:1.13 affelio/incoming.cgi:1.14
--- affelio/incoming.cgi:1.13 Sat Dec 17 12:02:06 2005
+++ affelio/incoming.cgi Sun Dec 18 12:32:51 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: incoming.cgi,v 1.13 2005/12/17 03:02:06 slash5234 Exp $
+# $Id: incoming.cgi,v 1.14 2005/12/18 03:32:51 slash5234 Exp $
use strict;
@@ -195,7 +195,7 @@
if($tmp1 ne ""){ $FID_visitor_type="f1"; }
#Start up a sesion
- my $ss = new CGI::Session("driver:File",
+ my $ss = new CGI::Session(undef,
undef,
{Directory=> $af->{site__session_dir}});
#Set values into session