richter 01/05/14 21:50:08
Modified: . Changes.pod Embperl.pm EmbperlObject.pm MANIFEST
Makefile.PL test.pl
test/conf httpd.conf.src
Added: . epocgi.bat.templ epocgi.pl.templ
epocgi.test.pl.templ
Log:
- Added epocgi.pl which allow use of EmbperlObject as CGI script.
Revision Changes Path
1.164 +1 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.163
retrieving revision 1.164
diff -u -r1.163 -r1.164
--- Changes.pod 2001/05/11 10:19:42 1.163
+++ Changes.pod 2001/05/15 04:50:06 1.164
@@ -39,6 +39,7 @@
- Makefile.PL enhancements for Apache/ActiveState binary distribution
- quote pathnames in Makefile to allow directories like "Program Files".
Spotted by Lukas Zapletal.
+ - Added epocgi.pl which allow use of EmbperlObject as CGI script.
=head1 1.3.1 (RELEASE) 13 Feb. 2001
1.150 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.149
retrieving revision 1.150
diff -u -r1.149 -r1.150
--- Embperl.pm 2001/05/10 19:08:04 1.149
+++ Embperl.pm 2001/05/15 04:50:06 1.150
@@ -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.149 2001/05/10 19:08:04 richter Exp $
+# $Id: Embperl.pm,v 1.150 2001/05/15 04:50:06 richter Exp $
#
###################################################################################
@@ -1318,7 +1318,7 @@
next if ($key =~ /^::/) ;
$val = ${*{"$package\::"}}{$key} ;
local(*ENTRY) = $val;
- print LOG "$key = " . GVFile (*ENTRY) . "\n" ;
+ #print LOG "$key = " . GVFile (*ENTRY) . "\n" ;
$varfile = GVFile (*ENTRY) ;
$glob = $package.'::'.$key ;
if (defined (*ENTRY{SCALAR}) && defined (${$glob}) && ref (${$glob})
eq 'DBIx::Recordset')
1.44 +8 -2 embperl/EmbperlObject.pm
Index: EmbperlObject.pm
===================================================================
RCS file: /home/cvs/embperl/EmbperlObject.pm,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -r1.43 -r1.44
--- EmbperlObject.pm 2001/03/27 04:26:42 1.43
+++ EmbperlObject.pm 2001/05/15 04:50:06 1.44
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: EmbperlObject.pm,v 1.43 2001/03/27 04:26:42 richter Exp $
+# $Id: EmbperlObject.pm,v 1.44 2001/05/15 04:50:06 richter Exp $
#
###################################################################################
@@ -390,7 +390,13 @@
The runtime configuration is done by setting environment variables,
in your web
-server's configuration file.
+server's configuration file. Basicly the configuration is the same as
+for normal Embperl. All Embperl configuration directives also applies
+to EmbperlObject. There are a few addtional configuration directives
+listed below. Addtionaly you have to set the C<PerlHandler> to
+C<HTML::EmbperlObject> when running under mod_perl or use C<epocgi.pl>
+instead of C<embpcgi.pl> when running as CGI Script.
+
=head2 EMBPERL_DECLINE
1.67 +3 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -r1.66 -r1.67
--- MANIFEST 2001/04/27 07:42:25 1.66
+++ MANIFEST 2001/05/15 04:50:06 1.67
@@ -42,6 +42,9 @@
embpcgi.pl.templ
embpcgi.bat.templ
embpcgi.test.pl.templ
+epocgi.pl.templ
+epocgi.bat.templ
+epocgi.test.pl.templ
ep.h
epdat.h
epio.c
1.46 +2 -1 embperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/embperl/Makefile.PL,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -r1.45 -r1.46
--- Makefile.PL 2001/05/11 10:19:43 1.45
+++ Makefile.PL 2001/05/15 04:50:06 1.46
@@ -971,7 +971,8 @@
#
@bins = ('embpexec.pl','embpexec.bat',
- 'embpcgi.pl', 'embpcgi.test.pl', 'embpcgi.bat') ;
+ 'embpcgi.pl', 'embpcgi.test.pl', 'embpcgi.bat',
+ 'epocgi.pl', 'epocgi.test.pl', 'epocgi.bat') ;
die "Missing path to perl binary" if (!$perlbinpath) ;
1.105 +1 -17 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.104
retrieving revision 1.105
diff -u -r1.104 -r1.105
--- test.pl 2001/05/11 06:45:46 1.104
+++ test.pl 2001/05/15 04:50:07 1.105
@@ -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.104 2001/05/11 06:45:46 richter Exp $
+# $Id: test.pl,v 1.105 2001/05/15 04:50:07 richter Exp $
#
###################################################################################
@@ -498,72 +498,56 @@
},
'EmbperlObject/epopage1.htm' => {
'offline' => 0,
- 'cgi' => 0,
'repeat' => 2,
},
'EmbperlObject/epoincdiv.htm' => {
'offline' => 0,
- 'cgi' => 0,
},
'EmbperlObject/epodiv.htm' => {
'offline' => 0,
- 'cgi' => 0,
},
'EmbperlObject/sub/epopage2.htm' => {
'offline' => 0,
- 'cgi' => 0,
},
'EmbperlObject/sub/epopage2.htm' => {
'offline' => 0,
- 'cgi' => 0,
},
'EmbperlObject/sub/subsub/eposubsub.htm' => {
'offline' => 0,
- 'cgi' => 0,
},
'EmbperlObject/sub/subsub/subsubsub/eposubsub.htm' => {
'offline' => 0,
- 'cgi' => 0,
'cmpext' => '3',
},
'EmbperlObject/sub/subsub/subsubsub/eposubsub2.htm' => {
'offline' => 0,
- 'cgi' => 0,
},
'EmbperlObject/sub/eponotfound.htm' => {
'offline' => 0,
- 'cgi' => 0,
},
'EmbperlObject/sub/epobless.htm' => {
'offline' => 0,
- 'cgi' => 0,
'repeat' => 2,
},
'EmbperlObject/sub/epobless2.htm' => {
'offline' => 0,
- 'cgi' => 0,
'repeat' => 2,
},
'EmbperlObject/sub/epobless3.htm' => {
'offline' => 0,
- 'cgi' => 0,
'repeat' => 2,
},
'EmbperlObject/obj/epoobj1.htm' => {
'offline' => 0,
- 'cgi' => 0,
},
'EmbperlObject/obj/epoobj2.htm' => {
'offline' => 0,
- 'cgi' => 0,
},
'EmbperlObject/obj/epoobj3.htm' => {
'offline' => 0,
- 'cgi' => 0,
},
'EmbperlObject/obj/epoobj4.htm' => {
'offline' => 0,
- 'cgi' => 0,
'version' => 1,
},
'EmbperlObject/base2/epostopdir.htm' => {
1.1 embperl/epocgi.bat.templ
Index: epocgi.bat.templ
===================================================================
@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
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the Perl README file.
# For use with Apache httpd and mod_perl, see also Apache copyright.
#
# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
# 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 $
#
###################################################################################
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 ;
print <<EOT;
Status: $rc
Content-Type: text/html
<HTML><HEAD><TITLE>Embperl Error</TITLE></HEAD>
<BODY bgcolor=\"#FFFFFF\">
<H1>epocgi Server Error: $rc</H1>
Please contact the server administrator, $ENV{SERVER_ADMIN} and inform them of the
time the error occurred, and anything you might have done that may have caused the
error.<P><P>
$ENV{SERVER_SOFTWARE} HTML::Embperl $HTML::Embperl::VERSION [$time]<P>
</BODY></HTML>
EOT
}
__END__
:endofperl
1.1 embperl/epocgi.pl.templ
Index: epocgi.pl.templ
===================================================================
#!/usr/bin/perl
###################################################################################
#
# Embperl - Copyright (c) 1997-2001 Gerald Richter / ECOS
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the Perl README file.
# For use with Apache httpd and mod_perl, see also Apache copyright.
#
# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
# 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 $
#
###################################################################################
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 ;
print <<EOT;
Status: $rc
Content-Type: text/html
<HTML><HEAD><TITLE>Embperl Error</TITLE></HEAD>
<BODY bgcolor=\"#FFFFFF\">
<H1>epocgi Server Error: $rc</H1>
Please contact the server administrator, $ENV{SERVER_ADMIN} and inform them of the
time the error occurred, and anything you might have done that may have caused the
error.<P><P>
$ENV{SERVER_SOFTWARE} HTML::Embperl $HTML::Embperl::VERSION [$time]<P>
</BODY></HTML>
EOT
}
1.1 embperl/epocgi.test.pl.templ
Index: epocgi.test.pl.templ
===================================================================
#!/usr/bin/perl
###################################################################################
#
# Embperl - Copyright (c) 1997-2001 Gerald Richter / ECOS
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the Perl README file.
# For use with Apache httpd and mod_perl, see also Apache copyright.
#
# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
# 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 $
#
###################################################################################
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 () ;
if ($rc)
{
$time = localtime ;
print <<EOT;
Status: $rc
Content-Type: text/html
<HTML><HEAD><TITLE>Embperl Error</TITLE></HEAD>
<BODY bgcolor=\"#FFFFFF\">
<H1>epocgi Server Error: $rc</H1>
Please contact the server administrator, $ENV{SERVER_ADMIN} and inform them of the
time the error occurred, and anything you might have done that may have caused the
error.<P><P>
$ENV{SERVER_SOFTWARE} HTML::Embperl $HTML::Embperl::VERSION [$time]<P>
</BODY></HTML>
EOT
}
1.37 +9 -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.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- httpd.conf.src 2001/03/27 14:22:10 1.36
+++ httpd.conf.src 2001/05/15 04:50:07 1.37
@@ -294,6 +294,15 @@
Action text/html /cgi/embpcgi.test.pl
Options ExecCGI
</Location>
+
+SetEnv EMBPERL_OBJECT_BASE epobase.htm
+SetEnv EMBPERL_OBJECT_FALLBACK epofallback.htm
+
+<Location /cgi-bin/EmbperlObject>
+Action text/html /cgi/epocgi.test.pl
+Options ExecCGI
+</Location>
+
<Location /cgi-bin-32>
Action text/html /cgi/embpcgi.test.bat
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
