richter 00/07/16 10:45:55
Modified: . Changes.pod Embperl.pm Embperl.xs EmbperlObject.pm
MANIFEST TODO epdat.h epmain.c test.pl typemap
test/cmp eponotfound.htm epopage1.htm epopage2.htm
importmodule.htm reqrec.htm
test/html/EmbperlObject epofoot.htm
test/html/EmbperlObject/obj epobase.htm epohead.htm
Log:
- Added new debug flag dbgObjectSerach which logs the EmbperlObjects
work when searching the correct file.
- If import parameter is given to Execute, Perl code is compiled, but
only [! !] blocks are executed (to allow sub definitions on import)
- Space is converted to %20 instead of +, because that is more generic.
Suggested by Michael Blakely.
- EmbperlObject now automaticly defines all subs that are declared
inside the base template and inside the requested page, so it isn't
neccessary anymore to call Execute with import => 0 for them.
- Every Embperl Page now get passed a request object (which can be obtained
from $_[0]). The request object is a hash reference which is blessed
into the package HTML::Embperl::Req. Embperl itself don't uses the hash, so
you are free to populate it and pass data between different pages of one
request.
- EmbperlObject now setup the inherence so that
request page -ISA->
base template -ISA->
EMBPERL_OBJECT_HANDLER_CLASS (if defined) -ISA->
HTML::Embperl::Req
and the Embperl request object is blessed into the packages of the
requested page, so you can do methods calls to subs that are defined
inside the requested page.
Revision Changes Path
1.118 +15 -2 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.117
retrieving revision 1.118
diff -u -r1.117 -r1.118
--- Changes.pod 2000/07/08 17:09:39 1.117
+++ Changes.pod 2000/07/16 17:45:52 1.118
@@ -28,10 +28,23 @@
work when searching the correct file.
- If import parameter is given to Execute, Perl code is compiled, but
only [! !] blocks are executed (to allow sub definitions on import)
- - New debug flag dbgObjectSearch can be set to see which files
- EmbperlObject picksup and how it searches them.
- Space is converted to %20 instead of +, because that is more generic.
Suggested by Michael Blakely.
+ - EmbperlObject now automaticly defines all subs that are declared
+ inside the base template and inside the requested page, so it isn't
+ neccessary anymore to call Execute with import => 0 for them.
+ - Every Embperl Page now get passed a request object (which can be obtained
+ from $_[0]). The request object is a hash reference which is blessed
+ into the package HTML::Embperl::Req. Embperl itself don't uses the hash, so
+ you are free to populate it and pass data between different pages of one
request.
+ - EmbperlObject now setup the inherence so that
+ request page -ISA->
+ base template -ISA->
+ EMBPERL_OBJECT_HANDLER_CLASS (if defined) -ISA->
+ HTML::Embperl::Req
+ and the Embperl request object is blessed into the packages of the
+ requested page, so you can do methods calls to subs that are defined
+ inside the requested page.
=head1 1.3b3 (BETA) 25.04.2000
1.107 +4 -6 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -r1.106 -r1.107
--- Embperl.pm 2000/07/08 17:09:39 1.106
+++ Embperl.pm 2000/07/16 17:45:52 1.107
@@ -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.106 2000/07/08 17:09:39 richter Exp $
+# $Id: Embperl.pm,v 1.107 2000/07/16 17:45:52 richter Exp $
#
###################################################################################
@@ -584,9 +584,6 @@
return &FORBIDDEN ;
}
- $path ||= $req_rec -> notes('EMBPERL_searchpath') if ($req_rec) ;
- $path ||= $ENV{EMBPERL_PATH} ;
-
if ($path && !($filename =~ /\//))
{
my @path = split /$pathsplit/o, $path ;
@@ -771,9 +768,11 @@
my $Inputfile = $$req{'inputfile'} || '?' ;
my $Sub = $$req{'sub'} || '' ;
-
- $Inputfile = $req_rec -> notes ('EMBPERL_orgfilename') if ($req_rec &&
$Inputfile eq '*') ;
+ my $lastreq = CurrReq () ;
+ $Inputfile = $lastreq -> ReqFilename if ($lastreq && $Inputfile eq '*') ;
+ $$req{'path'} ||= $lastreq -> Path if ($lastreq) ;
+
if (defined ($In))
{
$filesize = -1 ;
@@ -803,7 +802,6 @@
my $r = SetupRequest ($ar, $Inputfile, $mtime, $filesize, ($$req{firstline} ||
1), $Outputfile, $conf,
&epIOMod_Perl, $In, $Out, $Sub, exists
($$req{import})?scalar(caller ($$req{import} > 0?$$req{import} -
1:0)):'',$SessionMgnt) ;
-
bless $r, $$req{'bless'} if (exists ($$req{'bless'})) ;
my $package = $r -> CurrPackage ;
1.28 +22 -0 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /home/cvs/embperl/Embperl.xs,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- Embperl.xs 2000/07/08 13:06:42 1.27
+++ Embperl.xs 2000/07/16 17:45:52 1.28
@@ -339,6 +339,28 @@
OUTPUT:
RETVAL
+char *
+embperl_Path(r)
+ tReq * r
+CODE:
+ if (r -> pConf && r -> pConf -> sPath)
+ RETVAL = r -> pConf -> sPath ;
+ else
+ RETVAL = NULL;
+OUTPUT:
+ RETVAL
+
+char *
+embperl_ReqFilename(r)
+ tReq * r
+CODE:
+ if (r -> pConf && r -> pConf -> sReqFilename)
+ RETVAL = r -> pConf -> sReqFilename ;
+ else
+ RETVAL = NULL;
+OUTPUT:
+ RETVAL
+
SV *
embperl_ApacheReq(r)
1.32 +3 -1 embperl/EmbperlObject.pm
Index: EmbperlObject.pm
===================================================================
RCS file: /home/cvs/embperl/EmbperlObject.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -r1.31 -r1.32
--- EmbperlObject.pm 2000/07/08 17:09:39 1.31
+++ EmbperlObject.pm 2000/07/16 17:45:52 1.32
@@ -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.31 2000/07/08 17:09:39 richter Exp $
+# $Id: EmbperlObject.pm,v 1.32 2000/07/16 17:45:52 richter Exp $
#
###################################################################################
@@ -212,7 +212,7 @@
{
print HTML::Embperl::LOG "[$$]EmbperlObject new file: $filename,
package = $package\n" if ($debug && !$fallback);
- HTML::Embperl::Execute ({%req, inputfile => $filename, import => 0 }) ;
+ HTML::Embperl::Execute ({%req, inputfile => $filename, import => 0,
'path' => $searchpath }) ;
if ($fallback)
{
@@ -227,6 +227,8 @@
$req{'inputfile'} = $ENV{PATH_TRANSLATED} = $r -> filename ;
$req{'bless'} = $package ;
+ $req{'path'} = $searchpath ;
+ $req{'reqfilename'} = $filename ;
return HTML::Embperl::Execute (\%req) ;
}
1.44 +9 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -r1.43 -r1.44
--- MANIFEST 2000/07/08 17:09:39 1.43
+++ MANIFEST 2000/07/16 17:45:52 1.44
@@ -138,6 +138,12 @@
test/html/EmbperlObject/sub/epohead.htm
test/html/EmbperlObject/sub/epopage2.htm
test/html/EmbperlObject/epofallback.htm
+test/html/EmbperlObject/obj/epobase.htm
+test/html/EmbperlObject/obj/epohead.htm
+test/html/EmbperlObject/obj/epofoot.htm
+test/html/EmbperlObject/obj/epoobj1.htm
+test/html/EmbperlObject/obj/epoobj2.htm
+test/html/EmbperlObject/obj/epoobj3.htm
test/cmp/ascii
test/cmp/pure.htm
test/cmp/plain.htm
@@ -207,6 +213,9 @@
test/cmp/clearsess.htm
test/cmp/epopage1.htm
test/cmp/epopage2.htm
+test/cmp/epoobj1.htm
+test/cmp/epoobj2.htm
+test/cmp/epoobj3.htm
test/cmp/eponotfound.htm
test/conf/httpd.conf.src
test/conf/startup.pl
1.93 +4 -0 embperl/TODO
Index: TODO
===================================================================
RCS file: /home/cvs/embperl/TODO,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -r1.92 -r1.93
--- TODO 2000/07/08 17:09:39 1.92
+++ TODO 2000/07/16 17:45:52 1.93
@@ -66,6 +66,10 @@
- %20 instead of + [Michael Blakely 28.6.00]
+- EMBPERL_MAILHELO [Remco Brink 10.7.00]
+
+- APache::Session 1.5
+
Test
----
- test FORBIDDEN
1.18 +2 -0 embperl/epdat.h
Index: epdat.h
===================================================================
RCS file: /home/cvs/embperl/epdat.h,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- epdat.h 2000/05/02 04:41:37 1.17
+++ epdat.h 2000/07/16 17:45:52 1.18
@@ -42,6 +42,8 @@
char cMultFieldSep ;
char * pOpenBracket ;
char * pCloseBracket ;
+ char * sPath ; /* file search path */
+ char * sReqFilename ; /* filename of original request */
} tConf ;
/*-----------------------------------------------------------------*/
1.68 +24 -2 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -r1.67 -r1.68
--- epmain.c 2000/07/08 17:09:39 1.67
+++ epmain.c 2000/07/16 17:45:52 1.68
@@ -1570,6 +1570,8 @@
pConf -> cMultFieldSep = '\t' ;
pConf -> pOpenBracket = "[*" ;
pConf -> pCloseBracket = "*]" ;
+ pConf -> sPath = sstrdup (GetHashValueStr (pReqInfo, "path", pCurrReq
-> pConf?pCurrReq -> pConf -> sPath:NULL)) ; /* file search path */
+ pConf -> sReqFilename = sstrdup (GetHashValueStr (pReqInfo, "reqfilename",
pCurrReq -> pConf?pCurrReq -> pConf -> sReqFilename:NULL)) ; /* filename of
original request */
return pConf ;
}
@@ -1839,6 +1841,7 @@
tReq * r = pCurrReq ;
char * sMode ;
tFile * pFile ;
+ HV * pReqHV ;
dTHR ;
@@ -1881,6 +1884,18 @@
r -> pApacheReqSV = pApacheReqSV ;
#endif
+
+ if (!r -> pLastReq -> pReqSV)
+ pReqHV = newHV () ;
+ else
+ pReqHV = (HV *)SvRV (r -> pLastReq -> pReqSV) ;
+
+ sv_unmagic (pReqHV, '~') ;
+ sv_magic (pReqHV, NULL, '~', NULL, (STRLEN)r) ;
+ r -> pReqSV = newRV_inc (pReqHV) ;
+ if (!r -> pLastReq -> pReqSV)
+ sv_bless (r -> pReqSV, gv_stashpv ("HTML::Embperl::Req", 0)) ;
+
r -> startclock = clock () ;
r -> stsv_count = sv_count ;
r -> stsv_objcount = sv_objcount ;
@@ -1966,6 +1981,7 @@
strncpy (r -> errdat1, sImport, sizeof (r -> errdat1) - 1);
LogError (r, rcImportStashErr) ;
}
+ r -> bOptions |= optDisableHtmlScan ;
}
else
r -> pImportStash = NULL ;
@@ -2080,8 +2096,15 @@
#endif
}
+ SvREFCNT_dec (r -> pReqSV) ;
pCurrReq = r -> pLastReq ;
+ if (pCurrReq && pCurrReq -> pReqSV)
+ {
+ SV * pReqHV = SvRV (pCurrReq -> pReqSV) ;
+ sv_unmagic (pReqHV, '~') ;
+ sv_magic (pReqHV, NULL, '~', NULL, (STRLEN)pCurrReq) ;
+ }
r -> pNext = pReqFree ;
pReqFree = r ;
@@ -2861,8 +2884,7 @@
EPENTRY (ExecuteReq) ;
-
- r -> pReqSV = pReqSV ;
+
if (!r -> Buf.pFile -> pExportHash)
r -> Buf.pFile -> pExportHash = newHV () ;
1.61 +30 -24 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -r1.60 -r1.61
--- test.pl 2000/07/08 17:09:39 1.60
+++ test.pl 2000/07/16 17:45:52 1.61
@@ -100,6 +100,7 @@
'EmbperlObject/sub/eponotfound.htm',
'EmbperlObject/obj/epoobj1.htm',
'EmbperlObject/obj/epoobj2.htm',
+ 'EmbperlObject/obj/epoobj3.htm',
) ;
@tests2 = (
@@ -215,7 +216,7 @@
$opt_offline $opt_ep1 $opt_cgi $opt_modperl $opt_execute $opt_nokill
$opt_loop
$opt_multchild $opt_memcheck $opt_exitonmem $opt_exitonsv $opt_config
$opt_nostart $opt_uniquefn
$opt_quite $opt_ignoreerror $opt_tests $opt_blib $opt_help
$opt_dbgbreak $opt_finderr
- $opt_ddd $opt_gdb $opt_ab) ;
+ $opt_ddd $opt_gdb $opt_ab $opt_start $opt_kill) ;
{
local $^W = 0 ;
@@ -289,7 +290,7 @@
$ret = GetOptions ("offline|o", "ep1|1", "cgi|c", "modperl|httpd|h", "execute|e",
"nokill|r", "loop|l:i",
"multchild|m", "memcheck|v", "exitonmem|g", "exitonsv", "config|f=s",
"nostart|x", "uniquefn|u",
"quite|q", "ignoreerror|i", "tests|t", "blib|b", "help|?", "dbgbreak",
"finderr",
- "ddd", "gdb", "ab:s") ;
+ "ddd", "gdb", "ab:s", "start", "kill") ;
$opt_help = 1 if ($ret == 0) ;
@@ -335,27 +336,29 @@
print "test.pl [options] [files]\n" ;
print "files: <filename>|<testnumber>|-<testnumber>\n\n" ;
print "options:\n" ;
- print "-o test offline\n" ;
- print "-1 test Embperl 1.x compatibility\n" ;
- print "-c test cgi\n" ;
- print "-h test mod_perl\n" ;
- print "-e test execute\n" ;
- print "-r don't kill httpd at end of test\n" ;
- print "-l loop forever\n" ;
- print "-m start httpd with mulitple childs\n" ;
- print "-v memory check\n" ;
- print "-g exit if httpd grows after 2 loop\n" ;
- print "-f file to use for config.pl\n" ;
- print "-x do not start httpd\n" ;
- print "-u use unique filenames\n" ;
- print "-n do not check httpd errorlog\n" ;
- print "-q set debug to 0\n" ;
- print "-i ignore errors\n" ;
- print "-t list tests\n" ;
-# print "-b use uninstalled version (from blib/..)\n" ;
- print "--ddd start apache under ddd\n" ;
- print "--gdb start apache under gdb\n" ;
+ print "-o test offline\n" ;
+ print "-1 test Embperl 1.x compatibility\n" ;
+ print "-c test cgi\n" ;
+ print "-h test mod_perl\n" ;
+ print "-e test execute\n" ;
+ print "-r don't kill httpd at end of test\n" ;
+ print "-l loop forever\n" ;
+ print "-m start httpd with mulitple childs\n" ;
+ print "-v memory check (needs proc filesystem)\n" ;
+ print "-g exit if httpd grows after 2 loop\n" ;
+ print "-f file to use for config.pl\n" ;
+ print "-x do not start httpd\n" ;
+ print "-u use unique filenames\n" ;
+ print "-n do not check httpd errorlog\n" ;
+ print "-q set debug to 0\n" ;
+ print "-i ignore errors\n" ;
+ print "-t list tests\n" ;
+# print "-b use uninstalled version (from blib/..)\n" ;
+ print "--ddd start apache under ddd\n" ;
+ print "--gdb start apache under gdb\n" ;
print "--ab <numreq> run test thru ApacheBench\n" ;
+ print "--start start apache only\n" ;
+ print "--kill kill apache only\n" ;
print "\n\n" ;
print "path\t$EPPATH\n" ;
print "httpd\t$EPHTTPD\n" ;
@@ -704,7 +707,10 @@
{ $opt_offline = $opt_execute = 1 }
}
-$opt_nokill = 1 if ($opt_nostart) ;
+
+$opt_modperl = $opt_cgi = $opt_offline = $opt_execute = 0 if ($opt_start ||
$opt_kill) ;
+
+$opt_nokill = 1 if ($opt_nostart || $opt_start) ;
$looptest = defined ($opt_loop)?1:0 ; # endless loop tests
$outfile .= ".$$" if ($opt_uniquefn) ;
@@ -1074,7 +1080,7 @@
{ $loc = '' ; }
- if ($loc ne '' && $err == 0 && $loopcnt == 0 && !$opt_nostart)
+ if (($loc ne '' && $err == 0 && $loopcnt == 0 && !$opt_nostart) || $opt_start)
{
#### Configure httpd conf file
$EPDEBUG = $defaultdebug ;
1.2 +18 -1 embperl/typemap
Index: typemap
===================================================================
RCS file: /home/cvs/embperl/typemap,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- typemap 1998/09/25 21:57:52 1.1
+++ typemap 2000/07/16 17:45:52 1.2
@@ -11,11 +11,21 @@
croak (\"$var is not of type HTML::Embperl::Conf\") ;
T_PTROBJ_REQ
+ /*
if (sv_derived_from ($arg, \"HTML::Embperl::Req\"))
$var = (tReq *)(SvIV((SV *)SvRV($arg))) ;
else
croak (\"$var is not of type HTML::Embperl::Req\") ;
+ */
+ {
+ MAGIC * mg ;
+ if (mg = mg_find (SvRV($arg), '~'))
+ $var = (tReq *)(mg -> mg_len) ;
+ else
+ croak (\"$var is not of type HTML::Embperl::Req\") ;
+ }
+
T_PTROBJ_FILE
if (sv_derived_from ($arg, \"HTML::Embperl::File\"))
$var = (tFile *)(SvIV((SV *)SvRV($arg))) ;
@@ -27,7 +37,14 @@
sv_setref_pv ($arg, \"HTML::Embperl::Conf\", (void *)$var) ;
T_PTROBJ_REQ
- sv_setref_pv ($arg, \"HTML::Embperl::Req\", (void *)$var) ;
+ {
+ SV * pSV = $var -> pReqSV ;
+ if (pSV == NULL)
+ $arg = &sv_undef ;
+ else
+ $arg = pSV ;
+ SvREFCNT_inc (pSV) ;
+ }
T_PTROBJ_FILE
sv_setref_pv ($arg, \"HTML::Embperl::File\", (void *)$var) ;
1.2 +2 -0 embperl/test/cmp/eponotfound.htm
Index: eponotfound.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/eponotfound.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- eponotfound.htm 2000/07/08 13:06:48 1.1
+++ eponotfound.htm 2000/07/16 17:45:54 1.2
@@ -8,6 +8,8 @@
Fallback PAGE
<hr> Footer <hr>
+
+
</body>
</html>
1.2 +6 -4 embperl/test/cmp/epopage1.htm
Index: epopage1.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/epopage1.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- epopage1.htm 2000/04/17 21:03:17 1.1
+++ epopage1.htm 2000/07/16 17:45:54 1.2
@@ -4,11 +4,13 @@
</head>
<body>
<h1>head from foo</h1>
-
+
PAGE 1
-
+
<hr> Footer <hr>
-
+
+
+
</body>
</html>
-
+
1.2 +6 -4 embperl/test/cmp/epopage2.htm
Index: epopage2.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/epopage2.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- epopage2.htm 2000/04/17 21:03:17 1.1
+++ epopage2.htm 2000/07/16 17:45:54 1.2
@@ -4,11 +4,13 @@
</head>
<body>
<h1>another head from sub</h1>
-
+
PAGE 2
-
+
<hr> Footer <hr>
-
+
+
+
</body>
</html>
-
+
1.4 +1 -1 embperl/test/cmp/importmodule.htm
Index: importmodule.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/importmodule.htm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- importmodule.htm 1999/10/05 06:02:08 1.3
+++ importmodule.htm 2000/07/16 17:45:54 1.4
@@ -14,7 +14,7 @@
<h2>1.) Here goes some normal html text <h2>
Second sub:
-^params in main = HTML::Embperl::Req=SCALAR
+^params in main = HTML::Embperl::Req=HASH
2.) Here comes some perl:
1.5 +1 -1 embperl/test/cmp/reqrec.htm
Index: reqrec.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/reqrec.htm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- reqrec.htm 1999/10/05 06:02:20 1.4
+++ reqrec.htm 2000/07/16 17:45:54 1.5
@@ -5,7 +5,7 @@
</head>
$conf = <br>
-^\$_\[0\] = HTML::Embperl::Req=SCALAR\(0x.*?\) <br>
+^\$_\[0\] = HTML::Embperl::Req=HASH\(0x.*?\) <br>
$_[1] = <br>
^\$rec_rec = Apache=SCALAR\(0x.*?\)<br>
1.2 +2 -0 embperl/test/html/EmbperlObject/epofoot.htm
Index: epofoot.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/EmbperlObject/epofoot.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- epofoot.htm 2000/04/17 21:03:19 1.1
+++ epofoot.htm 2000/07/16 17:45:54 1.2
@@ -1 +1,3 @@
<hr> Footer <hr>
+
+ [+ $self -> {copyright} +]
1.2 +25 -3 embperl/test/html/EmbperlObject/obj/epobase.htm
Index: epobase.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/EmbperlObject/obj/epobase.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- epobase.htm 2000/07/08 17:09:41 1.1
+++ epobase.htm 2000/07/16 17:45:55 1.2
@@ -1,12 +1,34 @@
- [- $r = shift -]
- [! sub title { 'default'} !]
+[!
+
+ sub new
+ {
+ my $self = shift ;
+
+ $self -> {fontsize} = 1 ;
+ }
+
+ sub title
+ {
+ 'default' ;
+ }
+
+!]
+
+[-
+$self = shift ;
+
+$self -> new ;
+-]
+
+
<html>
<head>
- <title>Example using Objects: [+ $r -> title +]</title>
+ <title>Example using Objects: [+ $self -> title +]</title>
</head>
<body>
[- Execute ('epohead.htm') -]
[- Execute ('*') -]
+ [- Execute ('epofoot.htm') -]
</body>
</html>
1.2 +2 -2 embperl/test/html/EmbperlObject/obj/epohead.htm
Index: epohead.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/EmbperlObject/obj/epohead.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- epohead.htm 2000/07/08 17:09:41 1.1
+++ epohead.htm 2000/07/16 17:45:55 1.2
@@ -1,6 +1,6 @@
-[- $r = shift -]
+[- $self = shift -]
<h1>head from foo</h1>
- title = [+ $r -> title +]<br>
+ <font size=[+ $self -> {fontsize} +]>title = [+ $self -> title +]<br>
-----------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
