You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@locus.apache.org on 2000/11/10 09:36:40 UTC
cvs commit: embperl/test/cmp setbadsess.htm setunknownsess.htm
richter 00/11/10 00:36:40
Modified: . MANIFEST Makefile.PL epmain.c test.pl
test/cmp setbadsess.htm setunknownsess.htm
Log:
Add missing files to MANIFEST
Revision Changes Path
1.55 +6 -2 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -r1.54 -r1.55
--- MANIFEST 2000/11/09 20:18:16 1.54
+++ MANIFEST 2000/11/10 08:36:37 1.55
@@ -139,9 +139,11 @@
test/html/clearsess.htm
test/html/delsess.htm
test/html/getdelsess.htm
-test/html/getemptysess.htm
test/html/getbsess.htm
test/html/delrdsess.htm
+test/html/delwrsess.htm
+test/html/setbadsess.htm
+test/html/setunknownsess.htm
test/html/registry/reggetsess.htm
test/html/EmbperlObject/epobase.htm
test/html/EmbperlObject/epohead.htm
@@ -253,9 +255,11 @@
test/cmp/eponotfound.htm
test/cmp/epostopdir.htm
test/cmp/epobaselib.htm
-test/cmp/getemptysess.htm
test/cmp/getbsess.htm
test/cmp/delrdsess.htm
+test/cmp/delwrsess.htm
+test/cmp/setbadsess.htm
+test/cmp/setunknownsess.htm
test/conf/httpd.conf.src
test/conf/startup.pl
test/conf/startup_dso.pl
1.36 +3 -1 embperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/embperl/Makefile.PL,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- Makefile.PL 2000/11/08 07:49:08 1.35
+++ Makefile.PL 2000/11/10 08:36:37 1.36
@@ -909,7 +909,7 @@
'EmbperlD.pod' => 'blib/man3/HTML::EmbperlD.3',
'EmbperlObject.pm' => 'blib/man3/HTML::EmbperlObject.3',
},
- 'clean' => { FILES => 'dirent.h test/conf/httpd.conf test/tmp/*' },
+ 'clean' => { FILES => 'dirent.h test/conf/httpd.conf test/tmp/* Embperl.c' },
'realclean' => { FILES => 'embpexec.pl embpexec.bat embpcgi.pl embpcgi.test.pl embpcgi.bat test/conf/config.pl' },
'dist' => { COMPRESS => 'gzip', SUFFIX => 'gz'},
'dynamic_lib' => $dynlib,
@@ -957,4 +957,6 @@
close OUT ;
chmod 0755, $f or die "Cannot set executable $f" ;
}
+
+unlink ('Embperl.c') ;
1.87 +6 -6 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -r1.86 -r1.87
--- epmain.c 2000/11/10 08:07:06 1.86
+++ epmain.c 2000/11/10 08:36:37 1.87
@@ -2560,7 +2560,7 @@
char * pInitialUID = NULL ;
STRLEN ulen = 0 ;
STRLEN ilen = 0 ;
- IV bModified ;
+ IV bModified ;
if (r -> nSessionMgnt)
{
@@ -2578,10 +2578,10 @@
SPAGAIN;
if (n > 2)
{
- bModified = POPi ;
- pSVID = POPs;
- pUID = SvPV (pSVID, ulen) ;
+ bModified = POPi ;
pSVID = POPs;
+ pUID = SvPV (pSVID, ulen) ;
+ pSVID = POPs;
pInitialUID = SvPV (pSVID, ilen) ;
}
PUTBACK;
@@ -2599,8 +2599,8 @@
if (r -> bDebug & dbgSession)
lprintf (r, "[%d]SES: Delete Cookie -> %s\n", r -> nPid, SvPV(pCookie, ldummy)) ;
}
- else if (ulen > 0 &&
- ((bModified && (ilen == 0 || strcmp (pInitialUID, pUID) !=0)) ||
+ else if (ulen > 0 &&
+ ((bModified && (ilen == 0 || strcmp (pInitialUID, pUID) !=0)) ||
(r -> nSessionMgnt & 4)))
{
pCookie = newSVpvf ("%s=%s%s%s%s%s%s%s", r -> pConf -> sCookieName, pUID,
1.84 +7 -5 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.83
retrieving revision 1.84
diff -u -r1.83 -r1.84
--- test.pl 2000/11/10 08:23:16 1.83
+++ test.pl 2000/11/10 08:36:37 1.84
@@ -837,16 +837,18 @@
$sendcookie ||= '' ;
print "\nSent: $sendcookie, Got: " , ($c||''), "\n" if ($opt_showcookie) ;
- print "\nExpected new cookie: Sent: $sendcookie, Got: " , ($c||''), "\n" if (($cookieaction =~ /expectnew/) && ($sendcookie eq $c || !$c)) ;
- print "\nExpected same cookie: Sent: $sendcookie, Got: " , ($c||''), "\n" if (($cookieaction =~ /expectsame/) && ($sendcookie ne $c || !$c)) ;
- print "\nExpected no cookie: Sent: $sendcookie, Got: " , ($c||''), "\n" if (($cookieaction =~ /expectno/) && $c) ;
- print "\nExpected expire cookie: Sent: $sendcookie, Got: " , ($c||''), "\n" if (($cookieaction =~ /expectexpire/) && !($c =~ /^EMBPERL_UID=; expires=/)) ;
#print $response -> headers -> as_string () ;
return $response -> message if (!$response->is_success) ;
+
+ my $m = 'ok' ;
+ print "\nExpected new cookie: Sent: $sendcookie, Got: " , ($c||''), "\n", $m = '' if (($cookieaction =~ /expectnew/) && ($sendcookie eq $c || !$c)) ;
+ print "\nExpected same cookie: Sent: $sendcookie, Got: " , ($c||''), "\n", $m = '' if (($cookieaction =~ /expectsame/) && ($sendcookie ne $c || !$c)) ;
+ print "\nExpected no cookie: Sent: $sendcookie, Got: " , ($c||''), "\n", $m = '' if (($cookieaction =~ /expectno/) && $c) ;
+ print "\nExpected expire cookie: Sent: $sendcookie, Got: " , ($c||''), "\n", $m = '' if (($cookieaction =~ /expectexpire/) && !($c =~ /^EMBPERL_UID=; expires=/)) ;
- return "ok" ;
+ return $m ;
}
###########################################################################
1.2 +1 -1 embperl/test/cmp/setbadsess.htm
Index: setbadsess.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/setbadsess.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- setbadsess.htm 2000/11/10 08:07:07 1.1
+++ setbadsess.htm 2000/11/10 08:36:40 1.2
@@ -7,4 +7,4 @@
^\s+[a-fA-F0-9]+$
</body>
</html>
-
+
1.2 +1 -1 embperl/test/cmp/setunknownsess.htm
Index: setunknownsess.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/setunknownsess.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- setunknownsess.htm 2000/11/10 08:07:07 1.1
+++ setunknownsess.htm 2000/11/10 08:36:40 1.2
@@ -7,4 +7,4 @@
^\s+[a-fA-F0-9]+$
</body>
</html>
-
+