richter 01/05/15 03:41:42
Modified: . epocgi.bat.templ epocgi.pl.templ
epocgi.test.pl.templ test.pl
test/conf httpd.conf.src
Log:
cleanup
Revision Changes Path
1.2 +40 -40 embperl/epocgi.bat.templ
Index: epocgi.bat.templ
===================================================================
RCS file: /home/cvs/embperl/epocgi.bat.templ,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- epocgi.bat.templ 2001/05/15 04:50:07 1.1
+++ epocgi.bat.templ 2001/05/15 10:41:22 1.2
@@ -1,10 +1,10 @@
-@rem = '--*-Perl-*--
-@echo off
-/usr/bin/perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
-goto endofperl
-@rem ';
-#!/usr/bin/perl --
-#line 8
+@rem = '--*-Perl-*--
+@echo off
+/usr/bin/perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
+goto endofperl
+@rem ';
+#!/usr/bin/perl --
+#line 8
###################################################################################
#
# Embperl - Copyright (c) 1997-2001 Gerald Richter / ECOS
@@ -17,38 +17,38 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epocgi.bat.templ,v 1.1 2001/05/15 04:50:07 richter Exp $
+# $Id: epocgi.bat.templ,v 1.2 2001/05/15 10:41:22 richter Exp $
#
###################################################################################
-
-use HTML::Embperl ;
-use HTML::EmbperlObject ;
-
-my $Logfile = $ENV{EMBPERL_LOG} || $HTML::Embperl::DefaultLog ;
-my $rc ;
-my $ioType ;
-my %req ;
-
-HTML::EmbperlObject::ScanEnvironment (\%req) ;
-
-$req{'inputfile'} = $ENV{PATH_TRANSLATED} ;
-$ioType = HTML::Embperl::epIOCGI ;
-
-HTML::Embperl::XS_Init ($ioType, $Logfile, $DebugDefault) ;
-
-tie *LOG, 'HTML::Embperl::Log' ;
-
-$req{'uri'} = $ENV{SCRIPT_NAME} ;
-
-$req{'cleanup'} = 0 ;
-$req{'cleanup'} = -1 if (($req{'options'} & HTML::Embperl::optDisableVarCleanup)) ;
-$req{'options'} |= HTML::Embperl::optSendHttpHeader ;
-
-$rc = HTML::EmbperlObject::Execute (\%req) ;
-
-#close LOG ;
-HTML::Embperl::XS_Term () ;
-
+
+use HTML::Embperl ;
+use HTML::EmbperlObject ;
+
+my $Logfile = $ENV{EMBPERL_LOG} || $HTML::Embperl::DefaultLog ;
+my $rc ;
+my $ioType ;
+my %req ;
+
+HTML::EmbperlObject::ScanEnvironment (\%req) ;
+
+$req{'inputfile'} = $ENV{PATH_TRANSLATED} ;
+$ioType = HTML::Embperl::epIOCGI ;
+
+HTML::Embperl::XS_Init ($ioType, $Logfile, $DebugDefault) ;
+
+tie *LOG, 'HTML::Embperl::Log' ;
+
+$req{'uri'} = $ENV{SCRIPT_NAME} ;
+
+$req{'cleanup'} = 0 ;
+$req{'cleanup'} = -1 if (($req{'options'} & HTML::Embperl::optDisableVarCleanup)) ;
+$req{'options'} |= HTML::Embperl::optSendHttpHeader ;
+
+$rc = HTML::EmbperlObject::Execute (\%req) ;
+
+#close LOG ;
+HTML::Embperl::XS_Term () ;
+
if ($rc)
{
$time = localtime ;
@@ -68,7 +68,7 @@
}
+
-
-__END__
-:endofperl
+__END__
+:endofperl
1.2 +30 -30 embperl/epocgi.pl.templ
Index: epocgi.pl.templ
===================================================================
RCS file: /home/cvs/embperl/epocgi.pl.templ,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- epocgi.pl.templ 2001/05/15 04:50:07 1.1
+++ epocgi.pl.templ 2001/05/15 10:41:23 1.2
@@ -11,38 +11,38 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epocgi.pl.templ,v 1.1 2001/05/15 04:50:07 richter Exp $
+# $Id: epocgi.pl.templ,v 1.2 2001/05/15 10:41:23 richter Exp $
#
###################################################################################
-
-use HTML::Embperl ;
-use HTML::EmbperlObject ;
-
-my $Logfile = $ENV{EMBPERL_LOG} || $HTML::Embperl::DefaultLog ;
-my $rc ;
-my $ioType ;
-my %req ;
-
-HTML::EmbperlObject::ScanEnvironment (\%req) ;
-
-$req{'inputfile'} = $ENV{PATH_TRANSLATED} ;
-$ioType = HTML::Embperl::epIOCGI ;
-
-HTML::Embperl::XS_Init ($ioType, $Logfile, $DebugDefault) ;
-
-tie *LOG, 'HTML::Embperl::Log' ;
-
-$req{'uri'} = $ENV{SCRIPT_NAME} ;
-
-$req{'cleanup'} = 0 ;
-$req{'cleanup'} = -1 if (($req{'options'} & HTML::Embperl::optDisableVarCleanup)) ;
-$req{'options'} |= HTML::Embperl::optSendHttpHeader ;
-
-$rc = HTML::EmbperlObject::Execute (\%req) ;
-
-#close LOG ;
-HTML::Embperl::XS_Term () ;
-
+
+use HTML::Embperl ;
+use HTML::EmbperlObject ;
+
+my $Logfile = $ENV{EMBPERL_LOG} || $HTML::Embperl::DefaultLog ;
+my $rc ;
+my $ioType ;
+my %req ;
+
+HTML::EmbperlObject::ScanEnvironment (\%req) ;
+
+$req{'inputfile'} = $ENV{PATH_TRANSLATED} ;
+$ioType = HTML::Embperl::epIOCGI ;
+
+HTML::Embperl::XS_Init ($ioType, $Logfile, $DebugDefault) ;
+
+tie *LOG, 'HTML::Embperl::Log' ;
+
+$req{'uri'} = $ENV{SCRIPT_NAME} ;
+
+$req{'cleanup'} = 0 ;
+$req{'cleanup'} = -1 if (($req{'options'} & HTML::Embperl::optDisableVarCleanup)) ;
+$req{'options'} |= HTML::Embperl::optSendHttpHeader ;
+
+$rc = HTML::EmbperlObject::Execute (\%req) ;
+
+#close LOG ;
+HTML::Embperl::XS_Term () ;
+
if ($rc)
{
$time = localtime ;
1.2 +39 -37 embperl/epocgi.test.pl.templ
Index: epocgi.test.pl.templ
===================================================================
RCS file: /home/cvs/embperl/epocgi.test.pl.templ,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- epocgi.test.pl.templ 2001/05/15 04:50:07 1.1
+++ epocgi.test.pl.templ 2001/05/15 10:41:25 1.2
@@ -11,45 +11,47 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epocgi.test.pl.templ,v 1.1 2001/05/15 04:50:07 richter Exp $
+# $Id: epocgi.test.pl.templ,v 1.2 2001/05/15 10:41:25 richter Exp $
#
###################################################################################
-
-BEGIN
- {
- use ExtUtils::testlib ;
- eval { require Apache::Session; } if ($ENV{EMBPERL_SESSION_CLASSES}) ;
- $@ = '' ;
- }
-
-use HTML::Embperl ;
-use HTML::EmbperlObject ;
-
-my $Logfile = $ENV{EMBPERL_LOG} || $HTML::Embperl::DefaultLog ;
-my $rc ;
-my $ioType ;
-my %req ;
-
-HTML::EmbperlObject::ScanEnvironment (\%req) ;
-
-$req{'inputfile'} = $ENV{PATH_TRANSLATED} ;
-$ioType = HTML::Embperl::epIOCGI ;
-
-HTML::Embperl::XS_Init ($ioType, $Logfile, $DebugDefault) ;
-
-tie *LOG, 'HTML::Embperl::Log' ;
-
-$req{'uri'} = $ENV{SCRIPT_NAME} ;
-
-$req{'cleanup'} = 0 ;
-$req{'cleanup'} = -1 if (($req{'options'} & HTML::Embperl::optDisableVarCleanup)) ;
-$req{'options'} |= HTML::Embperl::optSendHttpHeader ;
-
-$rc = HTML::EmbperlObject::Execute (\%req) ;
-
-#close LOG ;
-HTML::Embperl::XS_Term () ;
-
+
+BEGIN
+ {
+ use ExtUtils::testlib ;
+ eval { require Apache::Session; } if ($ENV{EMBPERL_SESSION_CLASSES}) ;
+ $@ = '' ;
+ $ENV{EMBPERL_OBJECT_BASE} = $ENV{CGIEMBPERL_OBJECT_BASE} ;
+ $ENV{EMBPERL_OBJECT_FALLBACK} = $ENV{CGIEMBPERL_OBJECT_FALLBACK} ;
+ }
+
+use HTML::Embperl ;
+use HTML::EmbperlObject ;
+
+my $Logfile = $ENV{EMBPERL_LOG} || $HTML::Embperl::DefaultLog ;
+my $rc ;
+my $ioType ;
+my %req ;
+
+HTML::EmbperlObject::ScanEnvironment (\%req) ;
+
+$req{'inputfile'} = $ENV{PATH_TRANSLATED} ;
+$ioType = HTML::Embperl::epIOCGI ;
+
+HTML::Embperl::XS_Init ($ioType, $Logfile, $DebugDefault) ;
+
+tie *LOG, 'HTML::Embperl::Log' ;
+
+$req{'uri'} = $ENV{SCRIPT_NAME} ;
+
+$req{'cleanup'} = 0 ;
+$req{'cleanup'} = -1 if (($req{'options'} & HTML::Embperl::optDisableVarCleanup)) ;
+$req{'options'} |= HTML::Embperl::optSendHttpHeader ;
+
+$rc = HTML::EmbperlObject::Execute (\%req) ;
+
+#close LOG ;
+HTML::Embperl::XS_Term () ;
+
if ($rc)
{
$time = localtime ;
1.107 +2 -1 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -r1.106 -r1.107
--- test.pl 2001/05/15 08:56:16 1.106
+++ test.pl 2001/05/15 10:41:27 1.107
@@ -11,7 +11,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: test.pl,v 1.106 2001/05/15 08:56:16 richter Exp $
+# $Id: test.pl,v 1.107 2001/05/15 10:41:27 richter Exp $
#
###################################################################################
@@ -525,6 +525,7 @@
},
'EmbperlObject/sub/eponotfound.htm' => {
'offline' => 0,
+ 'cgi' => 0,
},
'EmbperlObject/sub/epobless.htm' => {
'offline' => 0,
1.38 +3 -2 embperl/test/conf/httpd.conf.src
Index: httpd.conf.src
===================================================================
RCS file: /home/cvs/embperl/test/conf/httpd.conf.src,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -r1.37 -r1.38
--- httpd.conf.src 2001/05/15 04:50:07 1.37
+++ httpd.conf.src 2001/05/15 10:41:39 1.38
@@ -295,9 +295,10 @@
Options ExecCGI
</Location>
-SetEnv EMBPERL_OBJECT_BASE epobase.htm
-SetEnv EMBPERL_OBJECT_FALLBACK epofallback.htm
+SetEnv CGIEMBPERL_OBJECT_BASE epobase.htm
+SetEnv CGIEMBPERL_OBJECT_FALLBACK epofallback.htm
+
<Location /cgi-bin/EmbperlObject>
Action text/html /cgi/epocgi.test.pl
Options ExecCGI
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
