richter 01/06/04 21:56:23
Modified: . Changes.pod Embperl.pm epmain.c
test/conf httpd.conf.src startup.pl
Log:
cleanup
Revision Changes Path
1.172 +2 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.171
retrieving revision 1.172
diff -u -r1.171 -r1.172
--- Changes.pod 2001/06/04 18:57:45 1.171
+++ Changes.pod 2001/06/05 04:56:20 1.172
@@ -24,6 +24,8 @@
when running in CGI mode, with escmode = 0. Spotted by
Edwin Ramirez.
- fixed problem with nested dynamic tables and Execute.
+ - added correct errror message for rcNotCompiledForModPerl.
+ Spotted by Scott Chapman.
=head1 1.3.2 (RELEASE) 16 May. 2001
1.160 +2 -1 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.159
retrieving revision 1.160
diff -u -r1.159 -r1.160
--- Embperl.pm 2001/06/05 03:22:08 1.159
+++ Embperl.pm 2001/06/05 04:56:20 1.160
@@ -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.159 2001/06/05 03:22:08 richter Exp $
+# $Id: Embperl.pm,v 1.160 2001/06/05 04:56:20 richter Exp $
#
###################################################################################
@@ -664,6 +664,7 @@
my %cgienv = $req_rec->cgi_env ;
while (($k, $v) = each %cgienv)
{
+ #warn "env $k = ->$v<->env=$ENV{$k}<-" ;
$ENV{$k} = $v if (!exists $ENV{$k}) ;
}
}
1.106 +2 -1 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.105
retrieving revision 1.106
diff -u -r1.105 -r1.106
--- epmain.c 2001/06/04 18:57:45 1.105
+++ epmain.c 2001/06/05 04:56:20 1.106
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epmain.c,v 1.105 2001/06/04 18:57:45 richter Exp $
+# $Id: epmain.c,v 1.106 2001/06/05 04:56:20 richter Exp $
#
###################################################################################*/
@@ -116,6 +116,7 @@
case rcEndtableWithoutTablerow: msg ="[%d]ERR: %d: Line %d: </tr> without
<tr>%s%s" ; break ;
case rcEndtextareaWithoutTextarea: msg ="[%d]ERR: %d: Line %d: </textarea>
without <textarea>%s%s" ; break ;
case rcEvalErr: msg ="[%d]ERR: %d: Line %d: Error in Perl
code: %s%s" ; break ;
+ case rcNotCompiledForModPerl: msg ="[%d]ERR: %d: Line %d: Embperl is not
compiled for mod_perl. Rerun Makefile.PL and give the correct Apache source tree
location %s%s" ; break ;
case rcExecCGIMissing: msg ="[%d]ERR: %d: Line %d: Forbidden %s:
Options ExecCGI not set in your Apache configs%s" ; break ;
case rcIsDir: msg ="[%d]ERR: %d: Line %d: Forbidden %s
is a directory%s" ; break ;
case rcXNotSet: msg ="[%d]ERR: %d: Line %d: Forbidden %s X
Bit not set%s" ; break ;
1.40 +4 -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.39
retrieving revision 1.40
diff -u -r1.39 -r1.40
--- httpd.conf.src 2001/05/16 03:56:55 1.39
+++ httpd.conf.src 2001/06/05 04:56:22 1.40
@@ -21,6 +21,10 @@
StartServers 2
MaxClients 2
MaxRequestsPerChild 0
+
+#PerlFixupHandler test::handler
+#PerlInitHandler Apache::Reload
+#PerlInitHandler Apache::StatINC
EOD
}
1.15 +10 -0 embperl/test/conf/startup.pl
Index: startup.pl
===================================================================
RCS file: /home/cvs/embperl/test/conf/startup.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- startup.pl 2001/05/16 03:56:55 1.14
+++ startup.pl 2001/06/05 04:56:22 1.15
@@ -32,4 +32,14 @@
$testshare = "Shared Data" ;
$cp -> share ('$testshare') ;
+#sub test::handler
+#
+# {
+# while (($k, $v) = each %ENV)
+# {
+# warn "init env $k = ->$v<-" ;
+# }
+# return 0 ;
+# }
+
1 ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
