richter 2004/03/08 07:41:43
Modified: . MANIFEST test.pl
test/html/registry Execute.htm
Added: test/cmp epofdat.htm
test/html/EmbperlObject epofdat.htm
Log:
EmbperlObject fdat parameter test
Revision Changes Path
1.91 +2 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -r1.90 -r1.91
--- MANIFEST 13 Feb 2004 20:39:38 -0000 1.90
+++ MANIFEST 8 Mar 2004 15:41:42 -0000 1.91
@@ -225,6 +225,7 @@
test/cmp/epobless2.htm
test/cmp/epobless3.htm
test/cmp/epodiv.htm
+test/cmp/epofdat.htm
test/cmp/epoincdiv.htm
test/cmp/eponotfound.htm
test/cmp/epoobj1.htm
@@ -375,6 +376,7 @@
test/html/EmbperlObject/base3/epobaselib.htm
test/html/EmbperlObject/epobase.htm
test/html/EmbperlObject/epodiv.htm
+test/html/EmbperlObject/epofdat.htm
test/html/EmbperlObject/epofallback.htm
test/html/EmbperlObject/epofoot.htm
test/html/EmbperlObject/epohead.htm
1.137 +10 -4 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.136
retrieving revision 1.137
diff -u -r1.136 -r1.137
--- test.pl 13 Feb 2004 20:39:38 -0000 1.136
+++ test.pl 8 Mar 2004 15:41:43 -0000 1.137
@@ -650,6 +650,10 @@
'EmbperlObject/epoincdiv.htm' => {
'offline' => 0,
},
+ 'EmbperlObject/epofdat.htm' => {
+ 'offline' => 0,
+ 'query_info' => 'a=1&b=2',
+ },
'EmbperlObject/epodiv.htm' => {
'offline' => 0,
},
@@ -2138,8 +2142,9 @@
foreach $src ('EmbperlObject/epopage1.htm',
'EmbperlObject/sub/epopage2.htm', 'EmbperlObject/obj/epoobj3.htm',
'EmbperlObject/sub/epobless.htm',
'EmbperlObject/sub/epobless.htm',
- #'EmbperlObject/sub/epobless2.htm',
'EmbperlObject/sub/epobless2.htm',
- #'EmbperlObject/sub/epobless3.htm',
'EmbperlObject/sub/epobless3.htm',
+ 'EmbperlObject/epofdat.htm',
+ 'EmbperlObject/sub/epobless2.htm',
'EmbperlObject/sub/epobless2.htm',
+ 'EmbperlObject/sub/epobless3.htm',
'EmbperlObject/sub/epobless3.htm',
)
{
if ($err == 0 || $opt_ignoreerror) # && $version == 1)
@@ -2163,7 +2168,8 @@
'outputfile' => $outfile,
'errors' => [EMAIL PROTECTED],
'use_env' => 1,
- }) ;
+ 'fdat' => { a => 1, b => 2 },
+ }) ;
print "error $err\n" if ($err) ;
$t_exec += 0 ; # Embperl::Clock () - $t1 ;
1.1 embperl/test/cmp/epofdat.htm
Index: epofdat.htm
===================================================================
<html>
<head>
<title>Example</title>
</head>
<body>
<h1>head from foo</h1>
FDAT
a = 1 b = 2 END FDAT
<hr> Footer <hr>
</body>
</html>
1.1 embperl/test/html/EmbperlObject/epofdat.htm
Index: epofdat.htm
===================================================================
FDAT
[$ foreach $key (sort keys %fdat) $]
[+ $key +] = [+ $fdat{$key} +]
[$endforeach$]
END FDAT
1.6 +2 -0 embperl/test/html/registry/Execute.htm
Index: Execute.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/registry/Execute.htm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Execute.htm 22 Oct 2002 05:29:12 -0000 1.5
+++ Execute.htm 8 Mar 2004 15:41:43 -0000 1.6
@@ -12,6 +12,8 @@
# workaround for broken $r -> chdir_file in Apache::Registry on ActiveState perl
use Cwd ;
use File::Basename ;
+eval { require Apache::compat } ;
+$@ = '' ;
my $fn = $r -> filename ;
chdir(dirname ($fn)) ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
