richter 2004/01/22 14:44:13
Modified: . Changes.pod Embperl.pod EmbperlD.pod MANIFEST
README epcfg.h epcomp.c epdat2.h
podsrc Config.spod
xsbuilder/maps ep_structure.map
Added: test/cmp topinc.htm
test/html topinc.htm
Log:
added top_include
Revision Changes Path
1.221 +3 -1 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.220
retrieving revision 1.221
diff -u -r1.220 -r1.221
--- Changes.pod 22 Jan 2004 22:08:16 -0000 1.220
+++ Changes.pod 22 Jan 2004 22:44:13 -0000 1.221
@@ -11,6 +11,8 @@
- Default for EMBPERL_DEBUG is now zero, which mean, that Embperl does
not write anymore to /tmp/embperl.log unless requested. Suggested by
Angus Lees and others.
+ - Added Embperl_Top_Include configuratin directive, which allows to add
+ Perl code to the top of every file, for example for doing a use Module.
- fixed various compiler warnings reported by Angus Lees.
- Added missing Form/Validate modules to distribution.
- fixed missing $req_rec in base template call from Embperl::Object.
@@ -19,7 +21,7 @@
- Fixed epchar.c.min and epchar.c.iso-latin-2 to conatin char2xml table
- Fixed problem with mod_perl 1.99_12 which reports wrong return value from
handler when some variable inside them Embperl page get tainted.
- - Fixed tests for Perl 5.8.2
+ - Fixed tests for Perl 5.8.2 & 5.8.3
- Fixed a bug with print OUT at the end of a nested tag inside a loop reported
by Neil Gunton
- Documented exit with argument behaviour.
1.84 +1 -1 embperl/Embperl.pod
Index: Embperl.pod
===================================================================
RCS file: /home/cvs/embperl/Embperl.pod,v
retrieving revision 1.83
retrieving revision 1.84
diff -u -r1.83 -r1.84
--- Embperl.pod 22 Jan 2004 21:55:12 -0000 1.83
+++ Embperl.pod 22 Jan 2004 22:44:13 -0000 1.84
@@ -1266,7 +1266,7 @@
=item perl5.6.1
-=item perl5.8.0
+=item perl5.8.3
=item apache_1.3.0 - apache_1.3.27, apache 2.0.45
1.56 +1 -1 embperl/EmbperlD.pod
Index: EmbperlD.pod
===================================================================
RCS file: /home/cvs/embperl/EmbperlD.pod,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -r1.55 -r1.56
--- EmbperlD.pod 22 Jan 2004 21:55:12 -0000 1.55
+++ EmbperlD.pod 22 Jan 2004 22:44:13 -0000 1.56
@@ -1264,7 +1264,7 @@
=item perl 5.6.1
-=item perl 5.8.0
+=item perl 5.8.3
=item apache_1.3.0 - apache_1.3.27, apache 2.0.45
1.86 +2 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -r1.85 -r1.86
--- MANIFEST 22 Jan 2004 21:55:12 -0000 1.85
+++ MANIFEST 22 Jan 2004 22:44:13 -0000 1.86
@@ -352,6 +352,7 @@
test/cmp/tagscandisable.htm
test/cmp/taint.htm
test/cmp/tied.htm
+test/cmp/topinc.htm
test/cmp/unclosed.htm
test/cmp/upload.htm
test/cmp/var.htm
@@ -539,6 +540,7 @@
test/html/tagscan.htm
test/html/tagscandisable.htm
test/html/taint.htm
+test/html/topinc.htm
test/html/unclosed.htm
test/html/upload.htm
test/html/var.htm
1.34 +2 -2 embperl/README
Index: README
===================================================================
RCS file: /home/cvs/embperl/README,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -r1.33 -r1.34
--- README 10 Jun 2003 03:16:11 -0000 1.33
+++ README 22 Jan 2004 22:44:13 -0000 1.34
@@ -155,7 +155,7 @@
perl5.004_04
perl5.005_01/02/03
perl5.6.1
-perl5.8.0
+perl5.8.3
apache_1.3.0 - apache_1.3.27, - apache 2.0.45
apache + mod_ssl
apache_ssl (Ben SSL)
1.5 +1 -0 embperl/epcfg.h
Index: epcfg.h
===================================================================
RCS file: /home/cvs/embperl/epcfg.h,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- epcfg.h 14 Feb 2003 22:54:03 -0000 1.4
+++ epcfg.h 22 Jan 2004 22:44:13 -0000 1.5
@@ -27,6 +27,7 @@
EPCFG_STR (ComponentConfig, char *, sXsltstylesheet, XSLTSTYLESHEET)
EPCFG_STR (ComponentConfig, char *, sXsltproc, XSLTPROC)
EPCFG_STR (ComponentConfig, char *, sCompartment, COMPARTMENT)
+EPCFG_STR (ComponentConfig, char *, sTopInclude, TOP_INCLUDE)
#endif
#ifdef EPCFG_REQ
1.11 +2 -2 embperl/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/epcomp.c,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- epcomp.c 12 Jun 2003 20:34:21 -0000 1.10
+++ epcomp.c 22 Jan 2004 22:44:13 -0000 1.11
@@ -1664,7 +1664,7 @@
pDomTree -> pSV = NULL ;
StringAdd (r -> pApp, &r -> Component.pProgRun, "", 1) ;
- StringAdd (r -> pApp, &r -> Component.pProgDef, "", 1) ;
+ StringAdd (r -> pApp, &r -> Component.pProgDef, r ->
Component.Config.sTopInclude?r -> Component.Config.sTopInclude:"", 0) ;
cl2 = clock () ;
1.6 +2 -1 embperl/epdat2.h
Index: epdat2.h
===================================================================
RCS file: /home/cvs/embperl/epdat2.h,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- epdat2.h 22 Jan 2004 21:55:12 -0000 1.5
+++ epdat2.h 22 Jan 2004 22:44:13 -0000 1.6
@@ -74,6 +74,7 @@
bool bUseEnv ; /**< Take configuration values out of the
environment */
bool bUseRedirectEnv ; /**< Take configuration values out of the
environment. Remove REDIRECT_ prefix. */
char * sPackage ;
+ char * sTopInclude ; /**< Include this text at the top of the
page */
unsigned bDebug ;
unsigned bOptions ;
int nCleanup ;
1.9 +17 -0 embperl/podsrc/Config.spod
Index: Config.spod
===================================================================
RCS file: /home/cvs/embperl/podsrc/Config.spod,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- Config.spod 22 Jan 2004 22:08:16 -0000 1.8
+++ Config.spod 22 Jan 2004 22:44:13 -0000 1.9
@@ -986,6 +986,23 @@
NOT YET IMPLEMENTED!
+
+
+=head2 *CFG $component / Embperl_Top_Include / top_include / 2.0b10 / no
+
+Give a pieces of code that is include at the very top of every file.
+
+Example:
+
+ Embperl_Top_Include "use MY::Module;"
+
+This will cause MY::Module to be used in every page. Note that
+Embperl_Top_Include must contain valid Perl code and must be
+ended with a semikolon.
+
+B<NOTE:> If you pass top_include as parameter to Execute it is
+only used in case the code is compiled (or recompiled) and not cached.
+
=head2 *CFG $component / Embperl_CACHE_KEY / cache_key / 2.0b1 / no
1.1 embperl/test/cmp/topinc.htm
Index: topinc.htm
===================================================================
**** start
top = 99;**** end
1.1 embperl/test/html/topinc.htm
Index: topinc.htm
===================================================================
**** start
[-
Execute({input => \'top = [+ $top +];', inputfile => 'xxx', top_include => '$top =
99;'}) ;
-]
**** end
1.5 +1 -0 embperl/xsbuilder/maps/ep_structure.map
Index: ep_structure.map
===================================================================
RCS file: /home/cvs/embperl/xsbuilder/maps/ep_structure.map,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- ep_structure.map 2 Jan 2003 07:39:44 -0000 1.4
+++ ep_structure.map 22 Jan 2004 22:44:13 -0000 1.5
@@ -193,6 +193,7 @@
sCompartment | compartment
! pOpcodeMask | opcode_mask
nCleanup | cleanup
+ sTopInclude | top_include
new
! private
</tComponentConfig>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
