richter 00/10/26 00:33:08
Modified: . Tag: Embperl2c Embperl.pm MANIFEST MANIFEST.2
test.pl
test/cmp Tag: Embperl2c Execute.htm
test/conf Tag: Embperl2c httpd.conf.src
test/html/registry Tag: Embperl2c reggetsess.htm
Added: test/cmp2 Tag: Embperl2c errdoc2.htm
Log:
Embperl 2 - mod_perl tests
Revision Changes Path
No revision
No revision
1.118.4.4 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.3
retrieving revision 1.118.4.4
diff -u -r1.118.4.3 -r1.118.4.4
--- Embperl.pm 2000/10/17 12:55:42 1.118.4.3
+++ Embperl.pm 2000/10/26 07:32:50 1.118.4.4
@@ -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.118.4.3 2000/10/17 12:55:42 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.4 2000/10/26 07:32:50 richter Exp $
#
###################################################################################
@@ -86,7 +86,7 @@
##ep2##
-$VERSION = '2.0a8' ;
+$VERSION = '2.0a9' ;
##/ep2##
##ep1##$VERSION = '1.3b6';
1.50.4.4 +18 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.50.4.3
retrieving revision 1.50.4.4
diff -u -r1.50.4.3 -r1.50.4.4
--- MANIFEST 2000/10/17 12:55:43 1.50.4.3
+++ MANIFEST 2000/10/26 07:32:51 1.50.4.4
@@ -6,6 +6,24 @@
ep2.h
Embperl/Syntax.pm
README.v2
+test/cmp2/errdoc2.htm
+test/cmp2/error.htm
+test/cmp2/errormismatch.htm
+test/cmp2/errormismatchcmd.htm
+test/cmp2/hidden.htm
+test/cmp2/if.htm
+test/cmp2/input.htm
+test/cmp2/lists.htm
+test/cmp2/loop.htm
+test/cmp2/mix.htm
+test/cmp2/rawinput.htm
+test/cmp2/tagscan.htm
+test/cmp2/unclosed.htm
+test/cmp2/varerr.htm
+test/html2/error.htm
+test/html2/errormismatch.htm
+test/html2/errormismatchcmd.htm
+test/html/rawinput/include.htm
Changes.pod
Embperl.pm
Embperl.xs
1.1.2.2 +18 -0 embperl/Attic/MANIFEST.2
Index: MANIFEST.2
===================================================================
RCS file: /home/cvs/embperl/Attic/MANIFEST.2,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- MANIFEST.2 2000/10/17 12:58:11 1.1.2.1
+++ MANIFEST.2 2000/10/26 07:32:51 1.1.2.2
@@ -6,3 +6,21 @@
ep2.h
Embperl/Syntax.pm
README.v2
+test/cmp2/errdoc2.htm
+test/cmp2/error.htm
+test/cmp2/errormismatch.htm
+test/cmp2/errormismatchcmd.htm
+test/cmp2/hidden.htm
+test/cmp2/if.htm
+test/cmp2/input.htm
+test/cmp2/lists.htm
+test/cmp2/loop.htm
+test/cmp2/mix.htm
+test/cmp2/rawinput.htm
+test/cmp2/tagscan.htm
+test/cmp2/unclosed.htm
+test/cmp2/varerr.htm
+test/html2/error.htm
+test/html2/errormismatch.htm
+test/html2/errormismatchcmd.htm
+test/html/rawinput/include.htm
1.70.4.12 +12 -8 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.11
retrieving revision 1.70.4.12
diff -u -r1.70.4.11 -r1.70.4.12
--- test.pl 2000/10/18 13:28:53 1.70.4.11
+++ test.pl 2000/10/26 07:32:52 1.70.4.12
@@ -752,8 +752,8 @@
#### setup path in URL ####
-$embploc = 'embperl/' ;
-$cgiloc = 'cgi-bin/' ;
+$embploc = 'embperl' ;
+$cgiloc = 'cgi-bin' ;
$port = $EPPORT ;
$host = 'localhost' ;
@@ -971,7 +971,7 @@
if (!$upload)
{
- $url = new URI::URL("http://$host:$port/$loc$file?$query");
+ $url = new URI::URL("http://$host:$port/$loc/$file?$query");
$request = new HTTP::Request($content?'POST':'GET', $url);
$request -> header ('Cookie' => $cookie) if ($cookie && !($query =~
/nocookie/)) ;
@@ -982,7 +982,7 @@
{
my @q = split (/\&|=/, $query) ;
- $request = POST ("http://$host:$port/$loc$file",
+ $request = POST ("http://$host:$port/$loc/$file",
Content_Type => 'form-data',
Content => [ upload => [undef,
'12upload-filename',
'Content-type' =>
'test/plain',
@@ -1727,7 +1727,12 @@
$debug = $test -> {debug} || $defaultdebug ;
$page = "$inpath/$file" ;
- $page = "$inpath$testversion/$file" if (-e "$inpath$testversion/$file")
;
+ $locver = '' ;
+ if (-e "$inpath$testversion/$file")
+ {
+ $locver = $testversion ;
+ $page = "$inpath$testversion/$file" ;
+ }
if ($opt_nostart)
{
$notseen = 0 ;
@@ -1766,18 +1771,17 @@
$n_req++ ;
$t1 = HTML::Embperl::Clock () ;
- $page = "$inpath/$file" ;
$file .= '-1' if ($opt_ep1 && -e "$page-1") ;
if (defined ($opt_ab))
{
$opt_ab = 10 if (!$opt_ab) ;
- my $cmd = "ab -n $opt_ab
'http://$host:$port/$loc$file?$test->{query_info}'";
+ my $cmd = "ab -n $opt_ab
'http://$host:$port/$loc$locver/$file?$test->{query_info}'";
print "$cmd\n" ;
system ($cmd) and die "Cannot start ab ($!)" ;
}
else
{
- $m = REQ ($loc, $file, $test -> {query_info}, $outfile, $content,
$upload) ;
+ $m = REQ ("$loc$locver", $file, $test -> {query_info}, $outfile,
$content, $upload) ;
}
$t_req += HTML::Embperl::Clock () - $t1 ;
No revision
No revision
1.3.6.1 +1 -1 embperl/test/cmp/Execute.htm
Index: Execute.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/Execute.htm,v
retrieving revision 1.3
retrieving revision 1.3.6.1
diff -u -r1.3 -r1.3.6.1
--- Execute.htm 1999/10/05 06:02:01 1.3
+++ Execute.htm 2000/10/26 07:32:59 1.3.6.1
@@ -2,7 +2,7 @@
<H1> 1.) Include from memory</H1>
<P>Here is some text</P>
<H1> 2.) Include from memory with some Embperl code</H1>
-<table><tr><td>a1</td><td>b2</td><td>c3</td></tr></table></P>
+^<table> ?<tr> ?<td>a1</td> ?<td>b2</td> ?<td>c3</td> ?</tr> ?</table> ?</P>
<H1> 3.) Include from memory with passing of variables</H1>
<P>Transfer some vars Some Var !</P>
<H1> 4.) Change the variable, but not the code</H1>
No revision
No revision
1.1.2.1 +36 -0 embperl/test/cmp2/Attic/errdoc2.htm
No revision
No revision
1.24.4.1 +8 -0 embperl/test/conf/httpd.conf.src
Index: httpd.conf.src
===================================================================
RCS file: /home/cvs/embperl/test/conf/httpd.conf.src,v
retrieving revision 1.24
retrieving revision 1.24.4.1
diff -u -r1.24 -r1.24.4.1
--- httpd.conf.src 2000/09/12 12:49:55 1.24
+++ httpd.conf.src 2000/10/26 07:33:04 1.24.4.1
@@ -101,6 +101,7 @@
Alias /embperl/sub/ $EPPATH/test/html/
Alias /embperl/ $EPPATH/test/html/
+Alias /embperl2/ $EPPATH/test/html2/
Alias /eg/ $EPPATH/eg/
<Location /embperl/sub>
@@ -111,6 +112,13 @@
</Location>
<Location /embperl>
+SetHandler perl-script
+PerlHandler HTML::Embperl
+Options ExecCGI
+PerlSetEnv LOC embperl
+</Location>
+
+<Location /embperl2>
SetHandler perl-script
PerlHandler HTML::Embperl
Options ExecCGI
No revision
No revision
1.2.4.1 +1 -1 embperl/test/html/registry/reggetsess.htm
Index: reggetsess.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/registry/reggetsess.htm,v
retrieving revision 1.2
retrieving revision 1.2.4.1
diff -u -r1.2 -r1.2.4.1
--- reggetsess.htm 2000/09/11 09:53:38 1.2
+++ reggetsess.htm 2000/10/26 07:33:07 1.2.4.1
@@ -31,7 +31,7 @@
HTML::Embperl::Execute ({input => \$tst1,
mtime => 1,
- inputfile => 'Some text',
+ inputfile => 'Some text session
test',
}) ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
