richter 00/08/18 02:20:37
Modified: . Changes.pod Embperl.pm embpcgi.bat embpcgi.pl
embpcgi.test.bat embpcgi.test.pl embpexec.bat
embpexec.pl
Embperl Session.pm
test/cmp escape.htm input.htm
Log:
- $req_rec -> pnotes ('EMBPERL_ERRORS') could be used to retrieve
error message inside a error document
- session handling updates
Revision Changes Path
1.122 +2 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.121
retrieving revision 1.122
diff -u -r1.121 -r1.122
--- Changes.pod 2000/08/17 07:31:54 1.121
+++ Changes.pod 2000/08/18 09:20:25 1.122
@@ -28,6 +28,8 @@
<a href="foo.html?a=1&b=>2">.
- EMBPERL_COOKIE_EXPIRES now also supports relativ times like:
+30s +10m +1h -1d +3M +10y
+ - $req_rec -> pnotes ('EMBPERL_ERRORS') could be used to retrieve
+ error message inside a error document
=head1 1.3b4 (BETA) 17.07.2000
1.111 +8 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.110
retrieving revision 1.111
diff -u -r1.110 -r1.111
--- Embperl.pm 2000/08/17 07:31:54 1.110
+++ Embperl.pm 2000/08/18 09:20:25 1.111
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.pm,v 1.110 2000/08/17 07:31:54 richter Exp $
+# $Id: Embperl.pm,v 1.111 2000/08/18 09:20:25 richter Exp $
#
###################################################################################
@@ -67,6 +67,7 @@
$escmode
$SessionMgnt
+ $DefaultIDLength
$req_rec
@@ -384,6 +385,7 @@
$sargs{object_store} = $os ;
$sargs{lock_manager} = $lm ;
$ver = '1.0x' ;
+ $DefaultIDLength = 16 ;
}
else
{ # Apache::Session >= 1.50
@@ -392,6 +394,7 @@
$sargs{Generate} = $gen ;
$sargs{Serialize} = $ser ;
$ver = '>= 1.50' ;
+ $DefaultIDLength = 32 ;
}
my $session_handler = $ENV{EMBPERL_SESSION_HANDLER_CLASS} ||
'HTML::Embperl::Session' ;
@@ -928,7 +931,7 @@
else
{
$udat -> setid ($sessid) ;
- $mdat -> setid (substr(MD5 -> hexhash ($Inputfile), 0, $mdat -> {args}
-> {IDLength} || 16));
+ $mdat -> setid (substr(MD5 -> hexhash ($Inputfile), 0, $mdat -> {args}
-> {IDLength} || $DefaultIDLength));
}
}
@@ -1234,9 +1237,12 @@
#warn "ok inputfile = $req{'inputfile'}\n" ;
- $req{'cleanup'} = -1 if (($req{'options'} & optDisableVarCleanup)) ;
+ $req{'cleanup'} = -1 if (($req{'options'} & optDisableVarCleanup));
$req{'options'} |= optSendHttpHeader ;
$req{'req_rec'} = $req_rec ;
+ my @errors ;
+ $req{'errors'} = \@errors ;
+ $req_rec -> pnotes ('EMBPERL_ERRORS', \@errors) if (defined (&Apache::pnotes))
;
my $rc = Execute (\%req) ;
1.8 +2 -2 embperl/embpcgi.bat
Index: embpcgi.bat
===================================================================
RCS file: /home/cvs/embperl/embpcgi.bat,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- embpcgi.bat 2000/04/13 21:36:53 1.7
+++ embpcgi.bat 2000/08/18 09:20:25 1.8
@@ -1,9 +1,9 @@
@rem = '--*-Perl-*--
@echo off
-/usr/bin/perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
+/usr/bin/perl5.00404 -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
-#!/usr/bin/perl --
+#!/usr/bin/perl5.00404 --
#line 8
###################################################################################
#
1.8 +1 -1 embperl/embpcgi.pl
Index: embpcgi.pl
===================================================================
RCS file: /home/cvs/embperl/embpcgi.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- embpcgi.pl 2000/04/13 21:36:53 1.7
+++ embpcgi.pl 2000/08/18 09:20:25 1.8
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl5.00404
###################################################################################
#
# Embperl - Copyright (c) 1997-1999 Gerald Richter / ECOS
1.6 +2 -2 embperl/embpcgi.test.bat
Index: embpcgi.test.bat
===================================================================
RCS file: /home/cvs/embperl/embpcgi.test.bat,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- embpcgi.test.bat 2000/04/13 21:36:53 1.5
+++ embpcgi.test.bat 2000/08/18 09:20:26 1.6
@@ -1,9 +1,9 @@
@rem = '--*-Perl-*--
@echo off
-/usr/bin/perl -x -T %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
+/usr/bin/perl5.00404 -x -T %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
-#!/usr/bin/perl --
+#!/usr/bin/perl5.00404 --
#line 8
###################################################################################
#
1.8 +1 -1 embperl/embpcgi.test.pl
Index: embpcgi.test.pl
===================================================================
RCS file: /home/cvs/embperl/embpcgi.test.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- embpcgi.test.pl 2000/04/13 21:36:53 1.7
+++ embpcgi.test.pl 2000/08/18 09:20:26 1.8
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl5.00404
###################################################################################
#
# Embperl - Copyright (c) 1997-1999 Gerald Richter / ECOS
1.19 +2 -2 embperl/embpexec.bat
Index: embpexec.bat
===================================================================
RCS file: /home/cvs/embperl/embpexec.bat,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- embpexec.bat 2000/04/13 21:36:54 1.18
+++ embpexec.bat 2000/08/18 09:20:26 1.19
@@ -1,9 +1,9 @@
@rem = '--*-Perl-*--
@echo off
-/usr/bin/perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
+/usr/bin/perl5.00404 -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
-#!/usr/bin/perl --
+#!/usr/bin/perl5.00404 --
#line 8
###################################################################################
#
1.19 +1 -1 embperl/embpexec.pl
Index: embpexec.pl
===================================================================
RCS file: /home/cvs/embperl/embpexec.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- embpexec.pl 2000/04/13 21:36:54 1.18
+++ embpexec.pl 2000/08/18 09:20:26 1.19
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl5.00404
###################################################################################
#
# Embperl - Copyright (c) 1997-1999 Gerald Richter / ECOS
1.4 +5 -1 embperl/Embperl/Session.pm
Index: Session.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Session.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- Session.pm 2000/08/17 07:32:09 1.3
+++ Session.pm 2000/08/18 09:20:35 1.4
@@ -144,7 +144,7 @@
#of our class
- $args -> {IDLength} ||= 32 ;
+ #$args -> {IDLength} ||= 32 ;
my $self =
{
args => $args,
@@ -246,6 +246,8 @@
if ($self -> {'args'}{'create_unknown'})
{
eval { $self -> restore } ;
+ #warn "Try to load session: $@" if ($@) ;
+ $@ = "" ;
$session_id = $self->{data}->{_session_id} ;
}
else
@@ -365,6 +367,8 @@
}
$self->save;
+ eval { $self -> {object_store} -> close } ; # Try to close file storage
+ $@ = "" ;
$self->release_all_locks;
$self->{'status'} = 0 ;
1.19 +1 -1 embperl/test/cmp/escape.htm
Index: escape.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/escape.htm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- escape.htm 2000/08/17 07:32:09 1.18
+++ escape.htm 2000/08/18 09:20:36 1.19
@@ -217,4 +217,4 @@
</body>
</html>
-
+
1.12 +1 -1 embperl/test/cmp/input.htm
Index: input.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/input.htm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- input.htm 2000/08/17 07:32:10 1.11
+++ input.htm 2000/08/18 09:20:36 1.12
@@ -599,4 +599,4 @@
</body>
</html>
-
+
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
