richter at apache
Aug 8, 2005, 6:42 AM
Post #1 of 1
(796 views)
Permalink
|
|
cvs commit: embperl/test/html/EmbperlObject/app epoapp2.htm
|
|
richter 2005/08/08 06:42:44
Modified: . MANIFEST test.pl
Embperl Object.pm
eg/web/db epwebapp.pl
Added: test/cmp epoapp2.htm
test/html/EmbperlObject/app epoapp2.htm
Log:
more tests
Revision Changes Path
1.107 +2 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -r1.106 -r1.107
--- MANIFEST 7 Aug 2005 14:40:39 -0000 1.106
+++ MANIFEST 8 Aug 2005 13:42:44 -0000 1.107
@@ -219,6 +219,7 @@
test/cmp/epform.htm
test/cmp/epglobals.htm
test/cmp/epoapp.htm
+test/cmp/epoapp2.htm
test/cmp/epobase.htm
test/cmp/epobaselib.htm
test/cmp/epobless.htm
@@ -381,6 +382,7 @@
test/conf/startup.pl
test/conf/startup_dso.pl
test/html/EmbperlObject/app/epoapp.htm
+test/html/EmbperlObject/app/epoapp2.htm
test/html/EmbperlObject/app/epoapp.pl
test/html/EmbperlObject/base2/epobase2.htm
test/html/EmbperlObject/base2/epostopdir.htm
1.162 +2 -1 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.161
retrieving revision 1.162
diff -u -r1.161 -r1.162
--- test.pl 7 Aug 2005 14:40:39 -0000 1.161
+++ test.pl 8 Aug 2005 13:42:44 -0000 1.162
@@ -2277,6 +2277,7 @@
'EmbperlObject/sub/epobless2.htm', 'EmbperlObject/sub/epobless2.htm',
'EmbperlObject/sub/epobless3.htm', 'EmbperlObject/sub/epobless3.htm',
['EmbperlObject/app/epoapp.htm', 'epoapp.pl'],
+ ['EmbperlObject/app/epoapp2.htm', 'epoapp.pl'],
['EmbperlObject/app/epoapp.htm', 'epoapp.pl'],
['EmbperlObject/app/epoapp.htm', 'epoapp.pl'],
)
1.17 +2 -2 embperl/Embperl/Object.pm
Index: Object.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Object.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- Object.pm 7 Aug 2005 14:40:39 -0000 1.16
+++ Object.pm 8 Aug 2005 13:42:44 -0000 1.17
@@ -291,7 +291,7 @@
print Embperl::LOG "[$$]Embperl::Object import new Application: $appfn\n" if ($debug);
- my $cparam = {object => $appfn, syntax => 'Perl'} ;
+ my $cparam = {object => $appfn, syntax => 'Perl', debug => $req -> {debug}} ;
my $c = $r -> setup_component ($cparam) ;
my $app = run($c) ;
my $package = $c -> curr_package if (!$r -> error) ;
1.14 +3 -1 embperl/eg/web/db/epwebapp.pl
Index: epwebapp.pl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/epwebapp.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- epwebapp.pl 7 Aug 2005 15:59:09 -0000 1.13
+++ epwebapp.pl 8 Aug 2005 13:42:44 -0000 1.14
@@ -759,9 +759,11 @@
#$http_headers_out{'location'} = "show.epl?$dest";
my ($uri) = split (/\?/, $r -> param -> unparsed_uri, 1) ;
- Apache -> request -> err_header_out('location', $r -> param -> server_addr . dirname ($uri) ."/show.epl?$dest") ;
+ #Apache -> request -> err_header_out('location', $r -> param -> server_addr . dirname ($uri) ."/show.epl?$dest") ;
#Apache -> request -> err_header_out('location', 'http://www.ecos.de:8766' . dirname ($r -> param -> uri) ."/show.epl?$dest") ;
+ $http_headers_out{'location'} = $r -> param -> server_addr . dirname ($uri) ."/show.epl?$dest" ;
+
return 302 ;
}
1.1 embperl/test/cmp/epoapp2.htm
Index: epoapp2.htm
===================================================================
<html>
<head>
<title>Example</title>
</head>
<body>
<h1>head from foo</h1>
APP 2
-> epapp
initdonea = 1 initdoneb = 2 <-
-> epreq
initdoner = 1 <-
END APP 2
<hr> Footer <hr>
</body>
</html>
1.1 embperl/test/html/EmbperlObject/app/epoapp2.htm
Index: epoapp2.htm
===================================================================
APP 2
-> epapp
[$ foreach $key (sort keys %$epapp) $]
[+ $key +] = [+ $epapp -> {$key} +]
[$endforeach$]
<-
-> epreq
[$ foreach $key (sort keys %$epreq) $]
[+ $key +] = [+ $epreq -> {$key} +]
[$endforeach$]
<-
END APP 2
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe [at] perl
For additional commands, e-mail: embperl-cvs-help [at] perl
|
