richter 00/09/13 21:57:38
Modified: . Embperl.xs Faq.pod INSTALL.pod Makefile.PL ep.h
epdat.h epmain.c test.pl
test/cmp errdoc2.htm escape.htm escraw.htm if.htm loop.htm
object.htm table.htm tagscan.htm tagscandisable.htm
test/html escape.htm escraw.htm if.htm inc.htm loop.htm
object.htm table.htm tagscan.htm tagscandisable.htm
Log:
- Embperl 1 & 2 Source Integration
Revision Changes Path
1.31 +15 -15 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /home/cvs/embperl/Embperl.xs,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -r1.30 -r1.31
--- Embperl.xs 2000/09/13 20:01:06 1.30
+++ Embperl.xs 2000/09/14 04:57:31 1.31
@@ -647,18 +647,18 @@
tReq * r
CODE:
FreeRequest(r) ;
-
-
-#ifdef EP2
-
-INCLUDE: Cmd.xs
-
-INCLUDE: DOM.xs
-
-#endif
-
-# Reste Module, so we get the correct boot function
-
-MODULE = HTML::Embperl PACKAGE = HTML::Embperl PREFIX = embperl_
-
-
+
+
+#ifdef EP2
+
+INCLUDE: Cmd.xs
+
+INCLUDE: DOM.xs
+
+#endif
+
+# Reste Module, so we get the correct boot function
+
+MODULE = HTML::Embperl PACKAGE = HTML::Embperl PREFIX = embperl_
+
+
1.17 +12 -0 embperl/Faq.pod
Index: Faq.pod
===================================================================
RCS file: /home/cvs/embperl/Faq.pod,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- Faq.pod 2000/09/06 06:24:36 1.16
+++ Faq.pod 2000/09/14 04:57:31 1.17
@@ -86,6 +86,18 @@
Try recompiling Perl and all modules -- this can sometimes make those
annoying error messages disappear!
+=head2 How can I prevent 'make test' from running some of the tests?
+
+For
+example, I don't allow CGI scripts, so 'make test' fails at CGI. How
+do I run just the other tests?
+
+Try:
+
+ $ make test TESTARGS="--help"
+ # and for just offline and mod_perl:
+ $ make test TESTARGS="-hoe"
+
=head2 Running 'make test' fails with an error message at loading of Embperl
1.13 +7 -0 embperl/INSTALL.pod
Index: INSTALL.pod
===================================================================
RCS file: /home/cvs/embperl/INSTALL.pod,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- INSTALL.pod 2000/08/17 07:31:57 1.12
+++ INSTALL.pod 2000/09/14 04:57:31 1.13
@@ -58,8 +58,15 @@
If you have already successfully build and tested C<mod_perl> all modules
will already be there.
+=head2 Options for make test
+C<make test> can take several options, with can be given with the C<TESTARGS>
+parameter:
+ make test TESTARGS="--help"
+
+will show you a list of available option. Most of them you will never need,
+they are mainly nesseccary for debugging I<Embperl> itself.
=head2 WIN 32
1.33 +4 -4 embperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/embperl/Makefile.PL,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -r1.32 -r1.33
--- Makefile.PL 2000/09/13 20:01:06 1.32
+++ Makefile.PL 2000/09/14 04:57:32 1.33
@@ -885,17 +885,17 @@
}
-$d .= ' -DEP2' if ($EP2) ;
-
+$d .= ' -DEP2' if ($EP2) ;
+
$dynlib->{'OTHERLDFLAGS'} .= " $lddebug" ;
WriteMakefile(
'NAME' => 'HTML::Embperl',
'VERSION_FROM' => 'Embperl.pm', # finds $VERSION
- 'OBJECT' => 'Embperl$(OBJ_EXT) epmain$(OBJ_EXT) epio$(OBJ_EXT)
epchar$(OBJ_EXT) epcmd$(OBJ_EXT) eputil$(OBJ_EXT) epeval$(OBJ_EXT) epdbg$(OBJ_EXT) ' .
+ 'OBJECT' => 'Embperl$(OBJ_EXT) epmain$(OBJ_EXT) epio$(OBJ_EXT)
epchar$(OBJ_EXT) epcmd$(OBJ_EXT) eputil$(OBJ_EXT) epeval$(OBJ_EXT) epdbg$(OBJ_EXT) ' .
($EP2?'epcmd2$(OBJ_EXT) epparse$(OBJ_EXT) epdom$(OBJ_EXT)
epcomp$(OBJ_EXT)':'') . $o,
-# 'XS' => { 'Embperl.xs' => 'Embperl.c', ($EP2?('Cmd.xs' => 'Cmd.c',
'DOM.xs' => 'DOM.c'):())},
+# 'XS' => { 'Embperl.xs' => 'Embperl.c', ($EP2?('Cmd.xs' => 'Cmd.c',
'DOM.xs' => 'DOM.c'):())},
'LIBS' => [''],
'DEFINE' => "$d \$(DEFS)",
'INC' => $i,
1.29 +10 -10 embperl/ep.h
Index: ep.h
===================================================================
RCS file: /home/cvs/embperl/ep.h,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -r1.28 -r1.29
--- ep.h 2000/09/13 20:01:07 1.28
+++ ep.h 2000/09/14 04:57:32 1.29
@@ -144,11 +144,11 @@
#endif
#endif
-struct tReq ;
-
-typedef struct tReq req ;
-typedef struct tReq tReq ;
+struct tReq ;
+typedef struct tReq req ;
+typedef struct tReq tReq ;
+
#include "epnames.h"
#ifdef EP2
@@ -529,10 +529,10 @@
/* ---- from epdbg.c ----- */
int SetupDebugger (/*i/o*/ register req * r) ;
+
+
+
+#ifdef EP2
+#include "ep2.h"
+#endif
-
-
-#ifdef EP2
-#include "ep2.h"
-#endif
-
1.22 +14 -14 embperl/epdat.h
Index: epdat.h
===================================================================
RCS file: /home/cvs/embperl/epdat.h,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- epdat.h 2000/09/13 20:01:07 1.21
+++ epdat.h 2000/09/14 04:57:32 1.22
@@ -284,18 +284,18 @@
int nSessionMgnt ; /* how to retrieve the session id */
int nInsideSub ; /* Are we inside of a sub? */
int bExit ; /* We should exit the page */
-#ifdef EP2
- bool bEP1Compat ; /* run in Embperl 1.x compatible mode */
-
- /* --- DomTree ---*/
-
- tNode xDocument ;
- tNode xCurrNode ;
- tIndex xCurrDomTree ;
- struct tTokenTable * pTokenTable ;
-
-#endif
+#ifdef EP2
+ bool bEP1Compat ; /* run in Embperl 1.x compatible mode */
+ /* --- DomTree ---*/
+
+ tNode xDocument ;
+ tNode xCurrNode ;
+ tIndex xCurrDomTree ;
+ struct tTokenTable * pTokenTable ;
+
+#endif
+
/* --- Source in memory --- */
tSrcBuf Buf ; /* Buffer */
@@ -400,9 +400,9 @@
HV * pUserHash ; /* User data */
HV * pModHash ; /* Module data */
HV * pHeaderHash ;/* http headers */
-#ifdef EP2
- AV * pDomTreeAV ; /* holds all DomTrees alocated during the request */
-#endif
+#ifdef EP2
+ AV * pDomTreeAV ; /* holds all DomTrees alocated during the request */
+#endif
/* --- for statistics --- */
1.77 +1 -1 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -r1.76 -r1.77
--- epmain.c 2000/09/13 20:01:08 1.76
+++ epmain.c 2000/09/14 04:57:32 1.77
@@ -3148,7 +3148,7 @@
if (rc == ok)
rc = ReadInputFile (r) ;
- if (rc == ok && r -> Buf.pBuf == NULL && r -> Buf.pFile -> nFilesize == 0)
+ if (rc == ok && r -> Buf.pBuf == NULL && r -> Buf.pFile -> nFilesize == 0)
rc = rcMissingInput ;
/* --- ok so far? if not exit ---- */
1.72 +469 -439 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -r1.71 -r1.72
--- test.pl 2000/09/13 20:01:08 1.71
+++ test.pl 2000/09/14 04:57:32 1.72
@@ -1,389 +1,419 @@
#!/usr/bin/perl --
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
-
-
-@testdata = (
- 'ascii' => { },
- 'pure.htm' => { },
- 'plain.htm' => {
- repeat => 3,
- },
- 'plainblock.htm' => {
- repeat => 2,
- },
- 'error.htm' => {
- 'repeat' => 3,
- 'errors' => 8,
- 'version' => 1,
- },
- 'error.htm' => {
- 'repeat' => 3,
- 'errors' => 7,
- 'version' => 2,
- },
- 'errormismatch.htm' => {
- 'errors' => '1',
- 'version' => 2,
- },
- 'errormismatchcmd.htm' => {
- 'errors' => '1',
- 'version' => 2,
- },
- 'unclosed.htm' => {
- 'errors' => '1',
- },
- 'notfound.htm' => {
- 'errors' => '1',
- },
- 'notallow.xhtm' => {
- 'errors' => '1',
- },
- 'noerr/noerrpage.htm' => {
- 'option' => 2,
- 'errors' => 8,
- 'version' => 1,
- },
- 'errdoc/errdoc.htm' => {
- 'option' => '262144',
- 'errors' => 6,
- 'version' => 1,
- },
- 'errdoc/errdoc.htm' => {
- 'option' => '262144',
- 'errors' => 7,
- 'version' => 2,
- },
- 'errdoc/epl/errdoc2.htm' => {
- 'option' => '262144',
- 'errors' => 6,
- 'version' => 1,
- },
- 'errdoc/epl/errdoc2.htm' => {
- 'option' => '262144',
- 'errors' => 7,
- 'version' => 2,
- },
- 'rawinput/rawinput.htm' => {
- 'option' => '16',
- },
- 'var.htm' => { },
- 'varerr.htm' => {
- 'errors' => '-1',
- },
- 'varerr.htm' => {
- 'errors' => '2',
- 'version' => 1,
- },
- 'escape.htm' => {
- repeat => 2,
- },
- 'escraw.htm' => {
- 'version' => 1,
- },
- 'spaces.htm' => {
- 'version' => 1,
- },
- 'tagscan.htm' => { },
- 'tagscan.htm' => {
- 'debug' => '1',
- },
- 'tagscandisable.htm' => {
- 'version' => 1,
- },
- 'if.htm' => { },
- 'ifperl.htm' => { },
- 'loop.htm' => {
- 'query_info' =>
'erstes=Hallo&zweites=Leer+zeichen&drittes=%21%22%23%2a%2B&erstes=Wert2',
- },
- 'loopperl.htm' => {
- 'query_info' =>
'erstes=Hallo&zweites=Leer+zeichen&drittes=%21%22%23&erstes=Wert2',
- },
- 'table.htm' => { },
- 'table.htm' => {
- 'debug' => '1',
- },
- 'tabmode.htm' => {
- 'version' => 1,
- },
- 'lists.htm' => {
- 'query_info' => 'sel=2&SEL1=B&SEL3=D&SEL4=cc',
- },
- 'mix.htm' => { },
- 'nesting.htm' => {
- 'version' => 1,
- },
- 'object.htm' => {
- 'version' => 1,
- 'errors' => '2',
- },
- 'object.htm' => {
- 'version' => 2,
- },
- 'discard.htm' => {
- 'errors' => '12',
- 'version' => 1,
- },
- 'input.htm' => {
- 'query_info' =>
'feld5=Wert5&feld6=Wert6&feld7=Wert7&feld8=Wert8&cb5=cbv5&cb6=cbv6&cb7=cbv7&cb8=cbv8&cb9=ncbv9&cb10=ncbv10&cb11=ncbv11&mult=Wert3&mult=Wert6&esc=a<b&escmult=a>b&escmult=Wert3',
- },
- 'hidden.htm' => {
- 'query_info' => 'feld1=Wert1&feld2=Wert2&feld3=Wert3&feld4=Wert4',
- },
- 'java.htm' => { },
- 'inputjava.htm' => { },
- 'post.htm' => {
- 'offline' => 0,
- },
- 'upload.htm' => {
- 'query_info' => 'multval=A&multval=B&multval=C&single=S',
- 'offline' => 0,
- },
- 'reqrec.htm' => {
- 'offline' => 0,
- },
- 'reqrec.htm' => {
- 'offline' => 0,
- },
- 'include.htm' => {
- 'version' => 1,
- },
- 'rawinput/include.htm' => {
- 'option' => '16',
- 'version' => 2,
- },
- 'includeerr1.htm' => {
- 'errors' => '1',
- },
- 'includeerr2.htm' => {
- 'errors' => 4,
- 'version' => 1,
- },
- 'includeerr2.htm' => {
- 'errors' => 1,
- 'version' => 2,
- },
- 'registry/Execute.htm' => {
- 'modperl' => 1,
- },
- 'registry/errpage.htm' => {
- 'modperl' => 1,
- 'errors' => '16',
- 'version' => 1,
- },
- 'registry/tied.htm' => {
- 'modperl' => 1,
- 'errors' => '3',
- },
- 'registry/tied.htm' => {
- 'modperl' => 1,
- 'errors' => '3',
- },
- 'callsub.htm' => {
- 'version' => 1,
- },
- 'callsub.htm' => {
- 'version' => 1,
- },
- 'importsub.htm' => {
- 'version' => 1,
- },
- 'importsub.htm' => {
- 'version' => 1,
- },
- 'importsub2.htm' => {
- 'version' => 1,
- },
- 'importmodule.htm' => {
- 'version' => 1,
- },
- 'recursexec.htm' => {
- 'version' => 1,
- },
- 'nph/div.htm' => {
- 'option' => '64',
- },
- 'nph/npherr.htm' => {
- 'option' => '64',
- 'errors' => '8',
- 'version' => 1,
- },
- 'nph/nphinc.htm' => {
- 'option' => '64',
- },
- 'sub.htm' => { },
- 'sub.htm' => { },
- 'exit.htm' => {
- 'version' => 1,
- 'offline' => 0,
- },
- 'exit2.htm' => {
- 'version' => 1,
- 'offline' => 0,
- },
- 'exit3.htm' => {
- 'version' => 1,
- 'offline' => 0,
- },
- 'chdir.htm' => {
- 'query_info' => 'a=1&b=2&c=&d=&f=5&g&h=7&=8&=',
- },
- 'chdir.htm' => {
- 'query_info' => 'a=1&b=2&c=&d=&f=5&g&h=7&=8&=',
- },
- 'allform/allform.htm' => {
- 'query_info' => 'a=1&b=2&c=&d=&f=5&g&h=7&=8&=',
- 'option' => '8192',
- },
- 'stdout/stdout.htm' => {
- 'option' => '16384',
- 'version' => 1,
- },
- 'nochdir/nochdir.htm' => {
- 'query_info' => 'a=1&b=2',
- 'option' => '384',
- },
- 'match/div.htm' => {
- 'offline' => 0,
- },
- 'match/div.asc' => {
- 'offline' => 0,
- },
- 'http.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'div.htm' => { },
- 'taint.htm' => {
- 'offline' => 0,
- 'errors' => '1',
- },
- 'ofunc/div.htm' => { },
- 'safe/safe.htm' => {
- 'option' => '4',
- 'errors' => '-1',
- 'version' => 1,
- },
- 'safe/safe.htm' => {
- 'option' => '4',
- 'errors' => '-1',
- 'version' => 1,
- },
- 'safe/safe.htm' => {
- 'option' => '4',
- 'errors' => '-1',
- 'version' => 1,
- },
- 'opmask/opmask.htm' => {
- 'option' => '12',
- 'errors' => '-1',
- 'compartment'=> 'TEST',
- 'version' => 1,
- },
- 'opmask/opmasktrap.htm' => {
- 'option' => '12',
- 'errors' => '2',
- 'compartment'=> 'TEST',
- 'version' => 1,
- },
- 'mdatsess.htm' => {
- 'offline' => 0,
- 'query_info' => 'cnt=0',
- },
- 'setsess.htm' => {
- 'offline' => 0,
- 'query_info' => 'a=1',
- },
- 'mdatsess.htm' => {
- 'offline' => 0,
- 'query_info' => 'cnt=1',
- },
- 'getnosess.htm' => {
- 'offline' => 0,
- 'query_info' => 'nocookie=2',
- },
- 'mdatsess.htm' => {
- 'offline' => 0,
- 'query_info' => 'cnt=2',
- },
- 'getsess.htm' => {
- 'offline' => 0,
- },
- 'mdatsess.htm' => {
- 'offline' => 0,
- 'query_info' => 'cnt=3',
- },
- 'execgetsess.htm' => {
- 'offline' => 0,
- },
- 'registry/reggetsess.htm' => {
- 'modperl' => 1,
- },
- 'getsess.htm' => {
- 'offline' => 0,
- },
- 'delsess.htm' => {
- 'offline' => 0,
- },
- 'getdelsess.htm' => {
- 'offline' => 0,
- },
- 'clearsess.htm' => {
- 'offline' => 0,
- },
- 'EmbperlObject/epopage1.htm' => {
- 'offline' => 0,
- },
- 'EmbperlObject/epodiv.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/sub/epopage2.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/sub/epopage2.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/sub/eponotfound.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/obj/epoobj1.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/obj/epoobj2.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/obj/epoobj3.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/obj/epoobj4.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/base2/epostopdir.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/base3/epobaselib.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
-) ;
-
-for ($i = 0 ; $i < @testdata; $i += 2)
- {
- for ($j = 0; $j < ($testdata[$i+1]->{repeat} || 1); $j++)
- { push @tests, $i ; }
- }
-
-=pod
+
+@testdata = (
+ 'ascii' => { },
+ 'pure.htm' => { },
+ 'plain.htm' => {
+ repeat => 3,
+ },
+ 'plainblock.htm' => {
+ repeat => 2,
+ },
+ 'error.htm' => {
+ 'repeat' => 3,
+ 'errors' => 8,
+ 'version' => 1,
+ },
+ 'error.htm' => {
+ 'repeat' => 3,
+ 'errors' => 7,
+ 'version' => 2,
+ },
+ 'errormismatch.htm' => {
+ 'errors' => '1',
+ 'version' => 2,
+ },
+ 'errormismatchcmd.htm' => {
+ 'errors' => '1',
+ 'version' => 2,
+ },
+ 'unclosed.htm' => {
+ 'errors' => '1',
+ },
+ 'notfound.htm' => {
+ 'errors' => '1',
+ },
+ 'notallow.xhtm' => {
+ 'errors' => '1',
+ },
+ 'noerr/noerrpage.htm' => {
+ 'option' => 2,
+ 'errors' => 8,
+ 'version' => 1,
+ 'cgi' => 0,
+ },
+ 'errdoc/errdoc.htm' => {
+ 'option' => '262144',
+ 'errors' => 6,
+ 'version' => 1,
+ 'cgi' => 0,
+ },
+ 'errdoc/errdoc.htm' => {
+ 'option' => '262144',
+ 'errors' => 7,
+ 'version' => 2,
+ 'cgi' => 0,
+ },
+ 'errdoc/epl/errdoc2.htm' => {
+ 'option' => '262144',
+ 'errors' => 6,
+ 'version' => 1,
+ 'cgi' => 0,
+ },
+ 'errdoc/epl/errdoc2.htm' => {
+ 'option' => '262144',
+ 'errors' => 7,
+ 'version' => 2,
+ 'cgi' => 0,
+ },
+ 'rawinput/rawinput.htm' => {
+ 'option' => '16',
+ 'cgi' => 0,
+ },
+ 'var.htm' => { },
+ 'varerr.htm' => {
+ 'errors' => '-1',
+ },
+ 'varerr.htm' => {
+ 'errors' => '2',
+ 'version' => 1,
+ 'cgi' => 0,
+ },
+ 'escape.htm' => {
+ repeat => 2,
+ },
+ 'escraw.htm' => {
+ 'version' => 1,
+ },
+ 'spaces.htm' => {
+ 'version' => 1,
+ },
+ 'tagscan.htm' => { },
+ 'tagscan.htm' => {
+ 'debug' => '1',
+ },
+ 'tagscandisable.htm' => {
+ 'version' => 1,
+ },
+ 'if.htm' => { },
+ 'ifperl.htm' => { },
+ 'loop.htm' => {
+ 'query_info' =>
'erstes=Hallo&zweites=Leer+zeichen&drittes=%21%22%23%2a%2B&erstes=Wert2',
+ },
+ 'loopperl.htm' => {
+ 'query_info' =>
'erstes=Hallo&zweites=Leer+zeichen&drittes=%21%22%23&erstes=Wert2',
+ },
+ 'table.htm' => { },
+ 'table.htm' => {
+ 'debug' => '1',
+ },
+ 'tabmode.htm' => {
+ 'version' => 1,
+ },
+ 'lists.htm' => {
+ 'query_info' => 'sel=2&SEL1=B&SEL3=D&SEL4=cc',
+ },
+ 'mix.htm' => { },
+ 'nesting.htm' => {
+ 'version' => 1,
+ },
+ 'object.htm' => {
+ 'version' => 1,
+ 'errors' => '2',
+ },
+ 'object.htm' => {
+ 'version' => 2,
+ },
+ 'discard.htm' => {
+ 'errors' => '12',
+ 'version' => 1,
+ },
+ 'input.htm' => {
+ 'query_info' =>
'feld5=Wert5&feld6=Wert6&feld7=Wert7&feld8=Wert8&cb5=cbv5&cb6=cbv6&cb7=cbv7&cb8=cbv8&cb9=ncbv9&cb10=ncbv10&cb11=ncbv11&mult=Wert3&mult=Wert6&esc=a<b&escmult=a>b&escmult=Wert3',
+ },
+ 'hidden.htm' => {
+ 'query_info' => 'feld1=Wert1&feld2=Wert2&feld3=Wert3&feld4=Wert4',
+ },
+ 'java.htm' => { },
+ 'inputjava.htm' => { },
+ 'post.htm' => {
+ 'offline' => 0,
+ },
+ 'upload.htm' => {
+ 'query_info' => 'multval=A&multval=B&multval=C&single=S',
+ 'offline' => 0,
+ },
+ 'reqrec.htm' => {
+ 'offline' => 0,
+ 'cgi' => 0,
+ 'repeat' => 2,
+ },
+ 'include.htm' => {
+ 'version' => 1,
+ },
+ 'rawinput/include.htm' => {
+ 'option' => '16',
+ 'version' => 2,
+ },
+ 'includeerr1.htm' => {
+ 'errors' => '1',
+ },
+ 'includeerr2.htm' => {
+ 'errors' => 4,
+ 'version' => 1,
+ },
+ 'includeerr2.htm' => {
+ 'errors' => 1,
+ 'version' => 2,
+ },
+ 'registry/Execute.htm' => {
+ 'modperl' => 1,
+ },
+ 'registry/errpage.htm' => {
+ 'modperl' => 1,
+ 'errors' => '16',
+ 'version' => 1,
+ },
+ 'registry/tied.htm' => {
+ 'modperl' => 1,
+ 'errors' => '3',
+ },
+ 'registry/tied.htm' => {
+ 'modperl' => 1,
+ 'errors' => '3',
+ },
+ 'callsub.htm' => {
+ 'version' => 1,
+ },
+ 'callsub.htm' => {
+ 'version' => 1,
+ },
+ 'importsub.htm' => {
+ 'version' => 1,
+ },
+ 'importsub.htm' => {
+ 'version' => 1,
+ },
+ 'importsub2.htm' => {
+ 'version' => 1,
+ },
+ 'importmodule.htm' => {
+ 'version' => 1,
+ },
+ 'recursexec.htm' => {
+ 'version' => 1,
+ },
+ 'nph/div.htm' => {
+ 'option' => '64',
+ },
+ 'nph/npherr.htm' => {
+ 'option' => '64',
+ 'errors' => '8',
+ 'version' => 1,
+ 'cgi' => 0,
+ },
+ 'nph/nphinc.htm' => {
+ 'option' => '64',
+ 'cgi' => 0,
+ },
+ 'sub.htm' => { },
+ 'sub.htm' => { },
+ 'exit.htm' => {
+ 'version' => 1,
+ 'offline' => 0,
+ 'cgi' => 0,
+ },
+ 'exit2.htm' => {
+ 'version' => 1,
+ 'offline' => 0,
+ },
+ 'exit3.htm' => {
+ 'version' => 1,
+ 'offline' => 0,
+ },
+ 'chdir.htm' => {
+ 'query_info' => 'a=1&b=2&c=&d=&f=5&g&h=7&=8&=',
+ },
+ 'chdir.htm' => {
+ 'query_info' => 'a=1&b=2&c=&d=&f=5&g&h=7&=8&=',
+ },
+ 'allform/allform.htm' => {
+ 'query_info' => 'a=1&b=2&c=&d=&f=5&g&h=7&=8&=',
+ 'option' => '8192',
+ 'cgi' => 0,
+ },
+ 'stdout/stdout.htm' => {
+ 'option' => '16384',
+ 'version' => 1,
+ 'cgi' => 0,
+ },
+ 'nochdir/nochdir.htm' => {
+ 'query_info' => 'a=1&b=2',
+ 'option' => '384',
+ 'cgi' => 0,
+ },
+ 'match/div.htm' => {
+ 'offline' => 0,
+ },
+ 'match/div.asc' => {
+ 'offline' => 0,
+ },
+ 'http.htm' => {
+ 'offline' => 0,
+ 'version' => 1,
+ },
+ 'div.htm' => { },
+ 'taint.htm' => {
+ 'offline' => 0,
+ 'cgi' => 0,
+ 'errors' => '1',
+ },
+ 'ofunc/div.htm' => { },
+ 'safe/safe.htm' => {
+ 'option' => '4',
+ 'errors' => '-1',
+ 'version' => 1,
+ 'cgi' => 0,
+ },
+ 'safe/safe.htm' => {
+ 'option' => '4',
+ 'errors' => '-1',
+ 'version' => 1,
+ 'cgi' => 0,
+ },
+ 'safe/safe.htm' => {
+ 'option' => '4',
+ 'errors' => '-1',
+ 'version' => 1,
+ 'cgi' => 0,
+ },
+ 'opmask/opmask.htm' => {
+ 'option' => '12',
+ 'errors' => '-1',
+ 'compartment'=> 'TEST',
+ 'version' => 1,
+ 'cgi' => 0,
+ },
+ 'opmask/opmasktrap.htm' => {
+ 'option' => '12',
+ 'errors' => '2',
+ 'compartment'=> 'TEST',
+ 'version' => 1,
+ 'cgi' => 0,
+ },
+ 'mdatsess.htm' => {
+ 'offline' => 0,
+ 'query_info' => 'cnt=0',
+ },
+ 'setsess.htm' => {
+ 'offline' => 0,
+ 'query_info' => 'a=1',
+ },
+ 'mdatsess.htm' => {
+ 'offline' => 0,
+ 'query_info' => 'cnt=1',
+ },
+ 'getnosess.htm' => {
+ 'offline' => 0,
+ 'query_info' => 'nocookie=2',
+ },
+ 'mdatsess.htm' => {
+ 'offline' => 0,
+ 'query_info' => 'cnt=2',
+ },
+ 'getsess.htm' => {
+ 'offline' => 0,
+ },
+ 'mdatsess.htm' => {
+ 'offline' => 0,
+ 'query_info' => 'cnt=3',
+ },
+ 'execgetsess.htm' => {
+ 'offline' => 0,
+ },
+ 'registry/reggetsess.htm' => {
+ 'modperl' => 1,
+ 'cgi' => 0,
+ },
+ 'getsess.htm' => {
+ 'offline' => 0,
+ },
+ 'delsess.htm' => {
+ 'offline' => 0,
+ },
+ 'getdelsess.htm' => {
+ 'offline' => 0,
+ },
+ 'clearsess.htm' => {
+ 'offline' => 0,
+ },
+ 'EmbperlObject/epopage1.htm' => {
+ 'offline' => 0,
+ 'cgi' => 0,
+ },
+ 'EmbperlObject/epodiv.htm' => {
+ 'offline' => 0,
+ 'cgi' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/sub/epopage2.htm' => {
+ 'offline' => 0,
+ 'cgi' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/sub/epopage2.htm' => {
+ 'offline' => 0,
+ 'cgi' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/sub/eponotfound.htm' => {
+ 'offline' => 0,
+ 'cgi' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/obj/epoobj1.htm' => {
+ 'offline' => 0,
+ 'cgi' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/obj/epoobj2.htm' => {
+ 'offline' => 0,
+ 'cgi' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/obj/epoobj3.htm' => {
+ 'offline' => 0,
+ 'cgi' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/obj/epoobj4.htm' => {
+ 'offline' => 0,
+ 'cgi' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/base2/epostopdir.htm' => {
+ 'offline' => 0,
+ 'cgi' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/base3/epobaselib.htm' => {
+ 'offline' => 0,
+ 'cgi' => 0,
+ 'version' => 1,
+ },
+) ;
+
+for ($i = 0 ; $i < @testdata; $i += 2)
+ {
+ for ($j = 0; $j < ($testdata[$i+1]->{repeat} || 1); $j++)
+ { push @tests, $i ; }
+ }
+
+
+=pod
@tests = (
'ascii',
'pure.htm',
@@ -803,8 +833,8 @@
{
$_[0] = $1
}
- $_[0] =~ s/\s+/ /g ;
- $_[0] =~ s/\s+>/>/g ;
+ $_[0] =~ s/\s+/ /g ;
+ $_[0] =~ s/\s+>/>/g ;
}
#####################################################
@@ -824,19 +854,19 @@
while (defined ($l1 = <F1>))
{
chompcr ($l1) ;
- while (($l1 =~ /^\s*$/) && defined ($l1 = <F1>))
- { chompcr ($l1) ; }
-
-
+ while (($l1 =~ /^\s*$/) && defined ($l1 = <F1>))
+ { chompcr ($l1) ; }
+
+
if (!$errin)
{
$l2 = <F2> ;
chompcr ($l2) ;
- while (($l2 =~ /^\s*$/) && defined ($l2 = <F2>))
- { chompcr ($l2) ; }
+ while (($l2 =~ /^\s*$/) && defined ($l2 = <F2>))
+ { chompcr ($l2) ; }
}
- last if (!defined ($l2) && !defined ($l1)) ;
-
+ last if (!defined ($l2) && !defined ($l1)) ;
+
if (!defined ($l2))
{
print "\nError in Line $line\nIs:\t$l1\nShould:\t<EOF>\n" ;
@@ -1186,7 +1216,7 @@
$loopcnt = 0 ;
$notseen = 1 ;
%seen = () ;
-$max_sv = 0 ;
+$max_sv = 0 ;
$version = $EP2?2:1 ;
$cp = HTML::Embperl::AddCompartment ('TEST') ;
@@ -1225,26 +1255,26 @@
$ENV{EMBPERL_EP1COMPAT} = $ep1compat ;
print "\nTesting Embperl 1.x compatibility mode...\n\n" if ($ep1compat) ;
- foreach $testno (@tests)
+ foreach $testno (@tests)
{
- $file = $testdata[$testno] ;
- $test = $testdata[$testno+1] ;
- $org = '' ;
- $testversion = $version == 2 && !$ep1compat?2:1 ;
-
+ $file = $testdata[$testno] ;
+ $test = $testdata[$testno+1] ;
+ $org = '' ;
+ $testversion = $version == 2 && !$ep1compat?2:1 ;
+
$testnum++ ;
- next if ($test->{version} && $testversion != $test->{version}) ;
- next if ((defined ($test -> {offline}) && $test -> {offline} == 0)
||
- (!$test -> {offline} && ($test -> {modperl} || $test
-> {cgi} || $test -> {http}))) ;
-
+ next if ($test->{version} && $testversion != $test->{version}) ;
+ next if ((defined ($test -> {offline}) && $test -> {offline} == 0)
||
+ (!$test -> {offline} && ($test -> {modperl} || $test
-> {cgi} || $test -> {http}))) ;
+
next if ($DProf && ($file =~ /safe/)) ;
next if ($DProf && ($file =~ /opmask/)) ;
-
- $errcnt = $test -> {errors} || 0 ;
+
+ $errcnt = $test -> {errors} || 0 ;
$errcnt = 7 if ($file eq 'varerr.htm' && $^V && $^V ge v5.6.0) ;
$debug = $test -> {debug} || $defaultdebug ;
- $page = "$inpath/$file" ;
+ $page = "$inpath/$file" ;
$page = "$inpath$testversion/$file" if (-e
"$inpath$testversion/$file") ;
#$page .= '-1' if ($ep1compat && -e "$page-1") ;
@@ -1289,7 +1319,7 @@
if ($err == 0 && $errin != 500 && $file ne 'notfound.htm' && $file ne
'notallow.xhtm')
{
$page =~ /.*\/(.*)$/ ;
- $org = "$cmppath/$1" ;
+ $org = "$cmppath/$1" ;
$org = "$cmppath$testversion/$1" if (-e "$cmppath$testversion/$1")
;
$org .= '56' if ($file eq 'varerr.htm' && $^V && $^V ge v5.6.0)
;
#$org .= '-1' if ($ep1compat && -e "$org-1") ;
@@ -1631,26 +1661,26 @@
$n_req = 0 ;
$n = 0 ;
$testnum = -1 + $startnumber;
- foreach $testno (@tests)
- {
- $file = $testdata[$testno] ;
- $test = $testdata[$testno+1] ;
- $org = '' ;
- $testnum++ ;
- $testversion = $version == 2 && !$ep1compat?2:1 ;
-
- next if ($test->{version} && $testversion != $test->{version}) ;
- next if ($loc eq $embploc &&
- ((defined ($test -> {modperl}) && $test -> {modperl} == 0) ||
- (!$test -> {modperl} && ($test -> {offline} || $test ->
{cgi})))) ;
-
- next if ($loc eq $cgiloc &&
- ((defined ($test -> {cgi}) && $test -> {cgi} == 0) ||
- (!$test -> {cgi} && ($test -> {offline} || $test ->
{modperl})))) ;
-
-
+ foreach $testno (@tests)
+ {
+ $file = $testdata[$testno] ;
+ $test = $testdata[$testno+1] ;
+ $org = '' ;
+ $testnum++ ;
+ $testversion = $version == 2 && !$ep1compat?2:1 ;
+
+ next if ($test->{version} && $testversion != $test->{version}) ;
+ next if ($loc eq $embploc &&
+ ((defined ($test -> {modperl}) && $test -> {modperl} == 0) ||
+ (!$test -> {modperl} && ($test -> {offline} || $test ->
{cgi})))) ;
+
+ next if ($loc eq $cgiloc &&
+ ((defined ($test -> {cgi}) && $test -> {cgi} == 0) ||
+ (!$test -> {cgi} && ($test -> {offline} || $test ->
{modperl})))) ;
+
+
-=pod
+=pod
next if ($file =~ /\// && $loc eq $cgiloc) ;
next if ($file eq 'taint.htm' && $loc eq $cgiloc) ;
next if ($file eq 'reqrec.htm' && $loc eq $cgiloc) ;
@@ -1664,10 +1694,10 @@
#next if ($file eq 'notallow.xhtm' && $loc eq $cgiloc && $EPWIN32) ;
next if ($file eq 'clearsess.htm' && !$looptest) ;
next if (($file =~ /EmbperlObject/) && $loc eq $cgiloc) ;
-=cut
- next if ($file eq 'chdir.htm' && $EPWIN32) ;
- next if ($file eq 'notfound.htm' && $loc eq $cgiloc && $EPWIN32) ;
- next if ($file =~ /opmask/ && $EPSTARTUP =~ /_dso/) ;
+=cut
+ next if ($file eq 'chdir.htm' && $EPWIN32) ;
+ next if ($file eq 'notfound.htm' && $loc eq $cgiloc && $EPWIN32) ;
+ next if ($file =~ /opmask/ && $EPSTARTUP =~ /_dso/) ;
if ($file =~ /sess\.htm/)
{
next if ($loc eq $cgiloc && $EPSESSIONCLASS ne 'Embperl') ;
@@ -1680,13 +1710,13 @@
}
}
- $errcnt = $test -> {errors} || 0 ;
- $errcnt = 7 if ($file eq 'varerr.htm' && $^V && $^V ge v5.6.0) ;
- $errcnt = -1 if ($EPWIN32 && $loc eq $cgiloc) ;
-
- $debug = $test -> {debug} || $defaultdebug ;
+ $errcnt = $test -> {errors} || 0 ;
+ $errcnt = 7 if ($file eq 'varerr.htm' && $^V && $^V ge v5.6.0) ;
+ $errcnt = -1 if ($EPWIN32 && $loc eq $cgiloc) ;
+
+ $debug = $test -> {debug} || $defaultdebug ;
$page = "$inpath/$file" ;
- $page = "$inpath$testversion/$file" if (-e "$inpath$testversion/$file")
;
+ $page = "$inpath$testversion/$file" if (-e "$inpath$testversion/$file")
;
if ($opt_nostart)
{
$notseen = 0 ;
@@ -1764,7 +1794,7 @@
{
$page =~ /.*\/(.*)$/ ;
$org = "$cmppath/$1" ;
- $org = "$cmppath$testversion/$1" if (-e "$cmppath$testversion/$1") ;
+ $org = "$cmppath$testversion/$1" if (-e "$cmppath$testversion/$1") ;
$org .= '56' if ($file eq 'varerr.htm' && $^V && $^V ge v5.6.0) ;
#$org .= '-1' if ($opt_ep1 && -e "$org-1") ;
@@ -1819,8 +1849,8 @@
print "Output:\t\t$outfile\n" ;
print "Compared to:\t$org\n" if ($org) ;
print "Log:\t\t$logfile\n" ;
- @p = map { " $_ = $test->{$_}\n" } keys %$test if (ref ($test) eq 'HASH') ;
- print "Testparameter:\n @p" if (@p) ;
+ @p = map { " $_ = $test->{$_}\n" } keys %$test if (ref ($test) eq 'HASH') ;
+ print "Testparameter:\n @p" if (@p) ;
print "\n ERRORS detected! NOT all test have been passed successfully\n\n" ;
}
else
1.4 +1 -1 embperl/test/cmp/errdoc2.htm
Index: errdoc2.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/errdoc2.htm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- errdoc2.htm 2000/09/13 20:01:15 1.3
+++ errdoc2.htm 2000/09/14 04:57:34 1.4
@@ -12,7 +12,7 @@
^prev: Apache=SCALAR
next:
^last: Apache=SCALAR
-^There are 1(2|5) errormessages:
+^There are 1(2|3|5) errormessages:
<table border=1>
^ <tr><td>\[\d+\]ERR: 32: Line 13: Warning in Perl code: Use of uninitialized
value
1.21 +6 -6 embperl/test/cmp/escape.htm
Index: escape.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/escape.htm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- escape.htm 2000/09/13 20:01:16 1.20
+++ escape.htm 2000/09/14 04:57:34 1.21
@@ -30,7 +30,7 @@
A Tag 10: <A TARGET="10" HREF="10" TARGET="10">x</A>
A Tag 11: <A HREF="11" >x</A>
^A Tag 12\: <A HREF=(12|\"12\")>x<\/A>
-^A Tag 12b\: <A HREF=(12b|\"12b\") >x<\/A>
+^A Tag 12b\: <A HREF=(12b|\"12b\") >x<\/A>
A Tag 13: <A HREF="abcd%20%3E">x</A>
A Tag 14: <A HREF="abcd%20%3E">x</A>
FRAME: <FRAME
SRC="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This%20is%20a%20text%20%3F%20%26%20%2B%20-%20%2521"
name="%20foo">
@@ -40,11 +40,11 @@
IMG: <IMG
SRC="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This%20is%20a%20text%20%3F%20%26%20%2B%20-%20%2521"
name="%20foo">
FORM: <FORM
action="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This%20is%20a%20text%20%3F%20%26%20%2B%20-%20%2521"
name="%20foo">
-Hash in A <a href="http://localhost/tests?A=1&B=2">
-Array in A <a href="http://localhost/tests?X=9&Y=8&Z=7">
-
-Hash in H <a href="http://localhost/tests?A=1&B=2">
-Array in H <a href="http://localhost/tests?X=9&Y=8&Z=7">
+Hash in A <a href="http://localhost/tests?A=1&B=2">
+Array in A <a href="http://localhost/tests?X=9&Y=8&Z=7">
+
+Hash in H <a href="http://localhost/tests?A=1&B=2">
+Array in H <a href="http://localhost/tests?X=9&Y=8&Z=7">
1
1.3 +69 -69 embperl/test/cmp/escraw.htm
Index: escraw.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/escraw.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- escraw.htm 2000/09/13 20:01:17 1.2
+++ escraw.htm 2000/09/14 04:57:34 1.3
@@ -1,69 +1,69 @@
-
-<html>
-<head>
-<title>Some tests for Embperl escaping</title>
-</head>
-
-<body>
-
-
-$optRawInput 0
-$escmode 0
-'here is a \ ' -> here is a \
-'here is a \\ ' -> here is a \
-'here is a \\\ ' -> here is a \\
-'here is a \\\\ ' -> here is a \\
-'here is a <tag> ' -> here is a
-'here is a \<tag> ' -> here is a <tag>
-'here is a \\<tag> ' -> here is a \<tag>
-'here is a \\\<tag> ' -> here is a \<tag>
-'here is a \\\\<tag> ' -> here is a \\<tag>
-'here is a \<tag\> ' -> here is a <tag\>
-'here is a \\<tag\\> ' -> here is a \<tag\>
-'here is a \\\<tag\\\> ' -> here is a \<tag\\>
-'here is a \\\\<tag\\\\> ' -> here is a \\<tag\\>
-$optRawInput 1
-$escmode 0
-'here is a \ ' -> here is a \
-'here is a \\ ' -> here is a \
-'here is a \\\ ' -> here is a \\
-'here is a \\\\ ' -> here is a \\
-'here is a <tag> ' -> here is a <tag>
-'here is a \<tag> ' -> here is a \<tag>
-'here is a \\<tag> ' -> here is a \<tag>
-'here is a \\\<tag> ' -> here is a \\<tag>
-'here is a \\\\<tag> ' -> here is a \\<tag>
-'here is a \<tag\> ' -> here is a \<tag\>
-'here is a \\<tag\\> ' -> here is a \<tag\>
-'here is a \\\<tag\\\> ' -> here is a \\<tag\\>
-'here is a \\\\<tag\\\\> ' -> here is a \\<tag\\>
-$optRawInput 0
-$escmode 1
-'here is a \ ' -> here is a
-'here is a \\ ' -> here is a
-'here is a \\\ ' -> here is a \
-'here is a \\\\ ' -> here is a \
-'here is a <tag> ' -> here is a
-'here is a \<tag> ' -> here is a <tag>
-'here is a \\<tag> ' -> here is a <tag>
-'here is a \\\<tag> ' -> here is a <tag>
-'here is a \\\\<tag> ' -> here is a \<tag>
-'here is a \<tag\> ' -> here is a <tag>
-'here is a \\<tag\\> ' -> here is a <tag>
-'here is a \\\<tag\\\> ' -> here is a <tag\>
-'here is a \\\\<tag\\\\> ' -> here is a \<tag\>
-$optRawInput 1
-$escmode 1
-'here is a \ ' -> here is a
-'here is a \\ ' -> here is a
-'here is a \\\ ' -> here is a \
-'here is a \\\\ ' -> here is a \
-'here is a <tag> ' -> here is a <tag>
-'here is a \<tag> ' -> here is a <tag>
-'here is a \\<tag> ' -> here is a <tag>
-'here is a \\\<tag> ' -> here is a \<tag>
-'here is a \\\\<tag> ' -> here is a \<tag>
-'here is a \<tag\> ' -> here is a <tag>
-'here is a \\<tag\\> ' -> here is a <tag>
-'here is a \\\<tag\\\> ' -> here is a \<tag\>
-'here is a \\\\<tag\\\\> ' -> here is a \<tag\>
+
+<html>
+<head>
+<title>Some tests for Embperl escaping</title>
+</head>
+
+<body>
+
+
+$optRawInput 0
+$escmode 0
+'here is a \ ' -> here is a \
+'here is a \\ ' -> here is a \
+'here is a \\\ ' -> here is a \\
+'here is a \\\\ ' -> here is a \\
+'here is a <tag> ' -> here is a
+'here is a \<tag> ' -> here is a <tag>
+'here is a \\<tag> ' -> here is a \<tag>
+'here is a \\\<tag> ' -> here is a \<tag>
+'here is a \\\\<tag> ' -> here is a \\<tag>
+'here is a \<tag\> ' -> here is a <tag\>
+'here is a \\<tag\\> ' -> here is a \<tag\>
+'here is a \\\<tag\\\> ' -> here is a \<tag\\>
+'here is a \\\\<tag\\\\> ' -> here is a \\<tag\\>
+$optRawInput 1
+$escmode 0
+'here is a \ ' -> here is a \
+'here is a \\ ' -> here is a \
+'here is a \\\ ' -> here is a \\
+'here is a \\\\ ' -> here is a \\
+'here is a <tag> ' -> here is a <tag>
+'here is a \<tag> ' -> here is a \<tag>
+'here is a \\<tag> ' -> here is a \<tag>
+'here is a \\\<tag> ' -> here is a \\<tag>
+'here is a \\\\<tag> ' -> here is a \\<tag>
+'here is a \<tag\> ' -> here is a \<tag\>
+'here is a \\<tag\\> ' -> here is a \<tag\>
+'here is a \\\<tag\\\> ' -> here is a \\<tag\\>
+'here is a \\\\<tag\\\\> ' -> here is a \\<tag\\>
+$optRawInput 0
+$escmode 1
+'here is a \ ' -> here is a
+'here is a \\ ' -> here is a
+'here is a \\\ ' -> here is a \
+'here is a \\\\ ' -> here is a \
+'here is a <tag> ' -> here is a
+'here is a \<tag> ' -> here is a <tag>
+'here is a \\<tag> ' -> here is a <tag>
+'here is a \\\<tag> ' -> here is a <tag>
+'here is a \\\\<tag> ' -> here is a \<tag>
+'here is a \<tag\> ' -> here is a <tag>
+'here is a \\<tag\\> ' -> here is a <tag>
+'here is a \\\<tag\\\> ' -> here is a <tag\>
+'here is a \\\\<tag\\\\> ' -> here is a \<tag\>
+$optRawInput 1
+$escmode 1
+'here is a \ ' -> here is a
+'here is a \\ ' -> here is a
+'here is a \\\ ' -> here is a \
+'here is a \\\\ ' -> here is a \
+'here is a <tag> ' -> here is a <tag>
+'here is a \<tag> ' -> here is a <tag>
+'here is a \\<tag> ' -> here is a <tag>
+'here is a \\\<tag> ' -> here is a \<tag>
+'here is a \\\\<tag> ' -> here is a \<tag>
+'here is a \<tag\> ' -> here is a <tag>
+'here is a \\<tag\\> ' -> here is a <tag>
+'here is a \\\<tag\\\> ' -> here is a \<tag\>
+'here is a \\\\<tag\\\\> ' -> here is a \<tag\>
1.5 +45 -1 embperl/test/cmp/if.htm
Index: if.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/if.htm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- if.htm 1999/10/05 06:02:08 1.4
+++ if.htm 2000/09/14 04:57:34 1.5
@@ -13,7 +13,6 @@
a3
a <br>
a4
-a <br>
a5
a <br>
b is null <br>
@@ -50,6 +49,51 @@
Not ignored, ERROR!
<endif>
+
+
+
+<TABLE WIDTH="530" BORDER="0">
+ <TR>
+ <TD ALIGN="LEFT">
+ <A HREF="/">
+ <IMG SRC="/icons/iiilogo_narrow.gif"
+ WIDTH="" HEIGHT="" BORDER="0"
+ ALT="iii logo"
+ qqq >
+
+ </TD>
+</TR>
+</TABLE>
+
+<TABLE WIDTH="530" BORDER="0">
+ <TR>
+ <TD ALIGN="LEFT">
+ <A HREF="/">
+ <IMG SRC="/i/www.iii.co.uk/iiilogo_narrow.gif"
+ WIDTH="1" HEIGHT="2" BORDER="0"
+ ALT="iii logo"
+
onload="window.open('/iit/leavingiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=370,height=320,screenX=100,screenY=100,top=100,left=100');
return false"
+ >
+
+ </TD>
+</TR>
+</TABLE>
+
+
+<IMG
+SRC=".gifSRC="/icons/iiilogo_narrow_else.gif" WIDTH="5" HEIGHT="10" BORDER="0"
+ALT="iii logo"
+>
+
+<IMG
+SRC="/i/www.iii/iit.gif" WIDTH="6" HEIGHT="11" BORDER="0"
+ALT="iit logo"
+>
+
+<IMG
+SRC="/i/www.iii/iit.gif" WIDTH="6" HEIGHT="11" BORDER="0"
+ALT="iit logo"
+qqq>
1.10 +6 -11 embperl/test/cmp/loop.htm
Index: loop.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/loop.htm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- loop.htm 2000/08/21 04:22:49 1.9
+++ loop.htm 2000/09/14 04:57:34 1.10
@@ -6,6 +6,11 @@
<body>
+0
+
+ 1
+
+ 2
erstes = Hallo Wert2 0 <BR>
zweites = Leer zeichen 0
@@ -14,12 +19,7 @@
drittes = !"#*+ 0
1
2 <BR>
- 0
-
- 1
-
- 2
-A = 1<br>
+ A = 1<br>
B = 2<br>
@@ -82,11 +82,6 @@
2:4 <br>
2:5 <br>
-3:a <br>
-
- 3:b <br>
-
- 3:c <br>
@a[0] = a<br>
A = 1<br>
1 <br>
1.6 +0 -1 embperl/test/cmp/object.htm
Index: object.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/object.htm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- object.htm 2000/07/17 05:16:23 1.5
+++ object.htm 2000/09/14 04:57:34 1.6
@@ -7,7 +7,6 @@
<body>
<TABLE BORDER=0 WIDTH=90%>
- <TR><TH COLSPAN=2><H2>Objects</H2></TH></TR>
<TR>
<TD>
<A HREF="index.html?id=id%200">name 0</A>
1.6 +86 -158 embperl/test/cmp/table.htm
Index: table.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/table.htm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- table.htm 1999/11/17 07:29:36 1.5
+++ table.htm 2000/09/14 04:57:34 1.6
@@ -5,8 +5,6 @@
<body>
-<table></table>
-
<p> $tabmode = default <p>
@@ -21,70 +19,117 @@
$a[2][2] = '3/3' ;<BR>
<P>$tabmode = default <P>
+
-<table border="2" width="100%">
+<table>
<tr>
- <td>a1/1 </td>
+ <td>a1/1</td>
</tr>
<tr>
- <td>a2/1 </td>
-
- <td>a2/2 </td>
+ <td>a2/1</td>
</tr>
<tr>
- <td>a3/1 </td>
+ <td>a3/1</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>a3/1</td>
- <td>a3/2 </td>
+ <td>a3/2</td>
- <td>a3/3 </td>
+ <td>a3/3</td>
</tr>
</table>
+
+
+<table>
+ <tr>
+ <td>beforea1/1</td>
+ </tr>
-<table border="2" width="100%">
<tr>
- <th>1</th>
- <th>2</th>
- <th>3</th>
+ <td>beforea2/1</td>
</tr>
+
<tr>
- <td>a1/1 </td>
+ <td>beforea3/1</td>
</tr>
-
+</table>
+<table>
<tr>
- <td>a2/1 </td>
+ <td>beforea3/1</td>
- <td>a2/2 </td>
+ <td>beforea3/2</td>
+
+ <td>beforea3/3</td>
</tr>
-
+</table>
+
+<table>
<tr>
- <td>a3/1 </td>
+ <td>a1/1after</td>
+ </tr>
+
+ <tr>
+ <td>a2/1after</td>
+ </tr>
+
+ <tr>
+ <td>a3/1after</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>a3/1after</td>
- <td>a3/2 </td>
+ <td>a3/2after</td>
- <td>a3/3 </td>
+ <td>a3/3after</td>
</tr>
</table>
+<table>
+ <tr>
+ <td>beforea1/1after</td>
+ </tr>
+
+ <tr>
+ <td>beforea2/1after</td>
+ </tr>
-<table border="2" width="100%">
+ <tr>
+ <td>beforea3/1after</td>
+ </tr>
+</table>
+<table>
<tr>
- <th>b3/1</th>
+ <td>beforea3/1after</td>
- <th>b3/2</th>
+ <td>beforea3/2after</td>
- <th>b3/3</th>
+ <td>beforea3/3after</td>
</tr>
+</table>
+
+<table></table>
+^<table>
+^- <tr></tr>
+^-</table>
+^-
+^-
+<table border="1" width="100%">
<tr>
<td>a1/1 </td>
</tr>
-
+
<tr>
<td>a2/1 </td>
<td>a2/2 </td>
</tr>
-
+
<tr>
<td>a3/1 </td>
@@ -94,7 +139,9 @@
</tr>
</table>
-<table>
+
+
+<table border="4">
<tr>
<td>
<table>
@@ -240,7 +287,7 @@
</tr>
</table>
-<table border="3" width="100%">
+<table border="5" width="100%">
<tr>
<td>b3/1</td>
@@ -257,7 +304,7 @@
</tr>
</table>
-<table border="4" width="100%">
+<table border="6" width="100%">
<tr>
<td>a2/1</td>
</tr>
@@ -273,7 +320,7 @@
</tr>
</table>
-<table>
+<table border="7">
<tr>
<TD BGCOLOR="#F4A460">a1/1 </td>
</tr>
@@ -294,7 +341,7 @@
</table>
-<table>
+<table border="8">
<tr>
<TD BGCOLOR="#F4A460">a1/1 </td>
<TD BGCOLOR="#FFFF00">a1/2 </td>
@@ -305,9 +352,9 @@
</tr>
</table>
-<table border="0" width="100%">
+<table border="9" width="100%">
<tr>
- <td><table border="0">
+ <td><table border="10">
<tr>
<td valign="top">
<a href="inhalt.htm?Region=Pfalz">Pfalz</a></td>
@@ -319,7 +366,7 @@
</tr>
</table>
</td>
- <td><table border="0">
+ <td><table border="11">
<tr>
<td valign="top"><p align="left">
<a href="inhalt.htm?Kategorie=Kultur">Kultur</a></p>
@@ -335,11 +382,10 @@
</td>
</tr>
</table>
-
-<table border="0" width="100%">
+<table border="12" width="100%">
<tr>
- <td><table border="0">
+ <td><table border="13">
<tr>
<td valign="top">
<a href="inhalt.htm?Region=Pfalz">Pfalz</a></td>
@@ -351,7 +397,7 @@
</tr>
</table>
</td>
- <td><table border="0">
+ <td><table border="14">
<tr>
<td valign="top"><p align="left">
<a href="inhalt.htm?Kategorie=Kultur">Kultur</a></p>
@@ -379,124 +425,6 @@
</tr>
</table>
-
-<hr><P>$tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4 <P>
-<table>
- <tr>
- <td>a1/1 </td>
-
- <td> </td>
-
- <td> </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a2/1 </td>
-
- <td>a2/2 </td>
-
- <td> </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a3/1 </td>
-
- <td>a3/2 </td>
-
- <td>a3/3 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td> </td>
-
- <td> </td>
-
- <td> </td>
-
- <td> </td>
- </tr>
-</table>
-
-<hr><p> $tabmode=1 + 32 ; <p>
-<table>
- <tr>
- <td>a1/1 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a2/1 </td>
-
- <td>a2/2 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a3/1 </td>
-
- <td>a3/2 </td>
-
- <td>a3/3 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td> </td>
- </tr>
-</table>
-
-optDisableTableScan is now: 0 <BR>
-optDisableTableScan is set now to: 1 <BR>
-optDisableTableScan is now: 1 <BR>
-
-<table border="2" width="100%">
- <tr>
- <td>a1/1 </td>
- </tr>
-</table>
-
-optDisableTableScan is now: 1 <BR>
-optDisableTableScan is set now to: 0 <BR>
-optDisableTableScan is now: 0 <BR>
-
-<table border="2" width="100%">
- <tr>
- <td>a1/1 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a2/1 </td>
-
- <td>a2/2 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a3/1 </td>
-
- <td>a3/2 </td>
-
- <td>a3/3 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td> </td>
- </tr>
-</table>
</body>
</html>
1.5 +3 -44 embperl/test/cmp/tagscan.htm
Index: tagscan.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/tagscan.htm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- tagscan.htm 1999/10/05 06:02:21 1.4
+++ tagscan.htm 2000/09/14 04:57:34 1.5
@@ -43,6 +43,8 @@
<body bgcolor="blue" >
<body >
+<body bgcolor="blue">
+<body >
<IMG SRC="img.gif" WIDTH=35 >
@@ -53,50 +55,7 @@
<A HREF="" >
-optDisableHtmlScan is now: 0 <BR>
-optDisableHtmlScan is set now to: 1 <BR>
-optDisableHtmlScan is now: 1 <BR>
-
-
-blabla2
-blabla6 <input type="text" name="feld1" value="Wert1">
- <input type="text" name="feld2">
- <input type="text" size=10 name="feld3">
- <input type="text" name="feld4" size=10>
-
- <input type="text" name="feld5" value="Wert5">
- <input type="text" name="feld6">
- <input type="text" size=10 name="feld7">
- <input type="text" name="feld8" size=10>
- <table>
- <tr>
- <td></td><td></td>
- </tr>
- </table>
-
- <table>
- <tr>
- <td>VERSION</td><td>3</td>
- </tr>
- </table>
-
-optDisableHtmlScan is now: 1 <BR>
-optDisableHtmlScan is set now to: 0 <BR>
-optDisableHtmlScan is now: 0 <BR>
-
-<table>
- <tr>
- <td>VERSION</td><td>3</td>
- </tr>
-
- <tr>
- <td>feld2</td><td>blabla2</td>
- </tr>
-
- <tr>
- <td>feld6</td><td>blabla6</td>
- </tr>
-</table>
+<table></table>
Testing ... length of STUFF=2080<p>
<input type="hidden" name="STUFF"
value="XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
1.3 +81 -81 embperl/test/cmp/tagscandisable.htm
Index: tagscandisable.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/tagscandisable.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- tagscandisable.htm 2000/09/13 20:01:17 1.2
+++ tagscandisable.htm 2000/09/14 04:57:35 1.3
@@ -1,82 +1,82 @@
-
-
-optDisableHtmlScan is now: 0 <BR>
-optDisableHtmlScan is set now to: 1 <BR>
-optDisableHtmlScan is now: 1 <BR>
-
-
+
+
+optDisableHtmlScan is now: 0 <BR>
+optDisableHtmlScan is set now to: 1 <BR>
+optDisableHtmlScan is now: 1 <BR>
+
+
blabla2
-blabla6 <input type="text" name="feld1" value="Wert1">
- <input type="text" name="feld2">
- <input type="text" size=10 name="feld3">
- <input type="text" name="feld4" size=10>
-
- <input type="text" name="feld5" value="Wert5">
- <input type="text" name="feld6">
- <input type="text" size=10 name="feld7">
- <input type="text" name="feld8" size=10>
- <table>
- <tr>
- <td></td><td></td>
- </tr>
- </table>
-
- <table>
- <tr>
- <td>feld2</td><td>blabla2</td>
- </tr>
-</table>
-
-optDisableHtmlScan is now: 1 <BR>
-optDisableHtmlScan is set now to: 0 <BR>
-optDisableHtmlScan is now: 0 <BR>
-
- <table>
- <tr>
- <td>feld2</td><td>blabla2</td>
- </tr>
-
- <tr>
- <td>feld6</td><td>blabla6</td>
- </tr>
-</table>
-
- <input type="text" name="feld1" value="Wert1">
- <input type="text" name="feld2" value="blabla2">
- <input type="text" size=10 name="feld3">
- <input type="text" name="feld4" size=10>
-
- <input type="text" name="feld5" value="Wert5">
- <input type="text" name="feld6" value="blabla6">
- <input type="text" size=10 name="feld7">
- <input type="text" name="feld8" size=10>
-
- <table>
- <tr>
- <td>feld1</td><td>Wert1</td>
- </tr>
-
- <tr>
- <td>feld2</td><td>blabla2</td>
- </tr>
-
- <tr>
- <td>feld5</td><td>Wert5</td>
- </tr>
-
- <tr>
- <td>feld6</td><td>blabla6</td>
- </tr>
- </table>
-
- <table>
- <tr>
- <td>feld2</td><td>blabla2</td>
- </tr>
-
- <tr>
- <td>feld6</td><td>blabla6</td>
- </tr>
- </table>
-
-
+blabla6 <input type="text" name="feld1" value="Wert1">
+ <input type="text" name="feld2">
+ <input type="text" size=10 name="feld3">
+ <input type="text" name="feld4" size=10>
+
+ <input type="text" name="feld5" value="Wert5">
+ <input type="text" name="feld6">
+ <input type="text" size=10 name="feld7">
+ <input type="text" name="feld8" size=10>
+ <table>
+ <tr>
+ <td></td><td></td>
+ </tr>
+ </table>
+
+ <table>
+ <tr>
+ <td>feld2</td><td>blabla2</td>
+ </tr>
+</table>
+
+optDisableHtmlScan is now: 1 <BR>
+optDisableHtmlScan is set now to: 0 <BR>
+optDisableHtmlScan is now: 0 <BR>
+
+ <table>
+ <tr>
+ <td>feld2</td><td>blabla2</td>
+ </tr>
+
+ <tr>
+ <td>feld6</td><td>blabla6</td>
+ </tr>
+</table>
+
+ <input type="text" name="feld1" value="Wert1">
+ <input type="text" name="feld2" value="blabla2">
+ <input type="text" size=10 name="feld3">
+ <input type="text" name="feld4" size=10>
+
+ <input type="text" name="feld5" value="Wert5">
+ <input type="text" name="feld6" value="blabla6">
+ <input type="text" size=10 name="feld7">
+ <input type="text" name="feld8" size=10>
+
+ <table>
+ <tr>
+ <td>feld1</td><td>Wert1</td>
+ </tr>
+
+ <tr>
+ <td>feld2</td><td>blabla2</td>
+ </tr>
+
+ <tr>
+ <td>feld5</td><td>Wert5</td>
+ </tr>
+
+ <tr>
+ <td>feld6</td><td>blabla6</td>
+ </tr>
+ </table>
+
+ <table>
+ <tr>
+ <td>feld2</td><td>blabla2</td>
+ </tr>
+
+ <tr>
+ <td>feld6</td><td>blabla6</td>
+ </tr>
+ </table>
+
+
1.15 +9 -9 embperl/test/html/escape.htm
Index: escape.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/escape.htm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- escape.htm 2000/09/13 20:01:20 1.14
+++ escape.htm 2000/09/14 04:57:36 1.15
@@ -34,7 +34,7 @@
A Tag 10: <A TARGET="10" HREF="10" TARGET="10">x</A>
A Tag 11: <A HREF="11" >x</A>
A Tag 12: <A HREF=12>x</A>
-A Tag 12b: <A HREF=12b >x</A>
+A Tag 12b: <A HREF=12b >x</A>
A Tag 13: <A HREF="[+ "abcd"+]%20[+ "%3e" +]">x</A>
A Tag 14: <A HREF="[+ "abcd"+]%20[+ ">" +]">x</A>
FRAME: <FRAME SRC="http://localhost/tests?id=[+%20$id +]&text=[+$text+]"
name="%20foo">
@@ -44,14 +44,14 @@
IMG: <IMG SRC="http://localhost/tests?id=[+%20$id +]&text=[+$text+]"
name="%20foo">
FORM: <FORM action="http://localhost/tests?id=[+%20$id +]&text=[+$text+]"
name="%20foo">
-[- %A = (A => 1, B => 2) ; @A = (X, 9, Y, 8, Z, 7) -]
-Hash in A <A HREF="http://localhost/tests?[+ [ %A ] +]">
-Array in A <A HREF="http://localhost/tests?[+ \@A +]">
-
-[- %H = (A => 1, B => 2) ; @H = (X, 9, Y, 8, Z, 7) -]
-Hash in H <A HREF="http://localhost/tests?[+ \\%H +]">
-Array in H <A HREF="http://localhost/tests?[+ scalar { @H } +]">
-
+[- %A = (A => 1, B => 2) ; @A = (X, 9, Y, 8, Z, 7) -]
+Hash in A <A HREF="http://localhost/tests?[+ [ %A ] +]">
+Array in A <A HREF="http://localhost/tests?[+ \@A +]">
+
+[- %H = (A => 1, B => 2) ; @H = (X, 9, Y, 8, Z, 7) -]
+Hash in H <A HREF="http://localhost/tests?[+ \\%H +]">
+Array in H <A HREF="http://localhost/tests?[+ scalar { @H } +]">
+
[+ $escmode = 1 +]
1.3 +82 -82 embperl/test/html/escraw.htm
Index: escraw.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/escraw.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- escraw.htm 2000/09/13 20:01:21 1.2
+++ escraw.htm 2000/09/14 04:57:36 1.3
@@ -1,82 +1,82 @@
-
-<html>
-<head>
-<title>Some tests for Embperl escaping</title>
-</head>
-
-<body>
-
-
-[- $optRawInput = 0 -]
-[- $escmode = 0 -]
-$optRawInput [+ $optRawInput +]
-$escmode [+ $escmode +]
-'here is a \ ' -> [+ 'here is a \ ' +]
-'here is a \\ ' -> [+ 'here is a \\ ' +]
-'here is a \\\ ' -> [+ 'here is a \\\ ' +]
-'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
-'here is a <tag> ' -> [+ 'here is a <tag>' +]
-'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
-'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
-'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
-'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
-'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
-'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
-'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
-'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]
-
-
-[- $optRawInput = 1 -]
-[- $escmode = 0 -]
-$optRawInput [+ $optRawInput +]
-$escmode [+ $escmode +]
-'here is a \ ' -> [+ 'here is a \ ' +]
-'here is a \\ ' -> [+ 'here is a \\ ' +]
-'here is a \\\ ' -> [+ 'here is a \\\ ' +]
-'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
-'here is a <tag> ' -> [+ 'here is a <tag>' +]
-'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
-'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
-'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
-'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
-'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
-'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
-'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
-'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]
-
-[- $optRawInput = 0 -]
-[- $escmode = 1 -]
-$optRawInput [+ $optRawInput +]
-$escmode [+ $escmode +]
-'here is a \ ' -> [+ 'here is a \ ' +]
-'here is a \\ ' -> [+ 'here is a \\ ' +]
-'here is a \\\ ' -> [+ 'here is a \\\ ' +]
-'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
-'here is a <tag> ' -> [+ 'here is a <tag>' +]
-'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
-'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
-'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
-'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
-'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
-'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
-'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
-'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]
-
-[- $optRawInput = 1 -]
-[- $escmode = 1 -]
-$optRawInput [+ $optRawInput +]
-$escmode [+ $escmode +]
-'here is a \ ' -> [+ 'here is a \ ' +]
-'here is a \\ ' -> [+ 'here is a \\ ' +]
-'here is a \\\ ' -> [+ 'here is a \\\ ' +]
-'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
-'here is a <tag> ' -> [+ 'here is a <tag>' +]
-'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
-'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
-'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
-'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
-'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
-'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
-'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
-'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]
-
+
+<html>
+<head>
+<title>Some tests for Embperl escaping</title>
+</head>
+
+<body>
+
+
+[- $optRawInput = 0 -]
+[- $escmode = 0 -]
+$optRawInput [+ $optRawInput +]
+$escmode [+ $escmode +]
+'here is a \ ' -> [+ 'here is a \ ' +]
+'here is a \\ ' -> [+ 'here is a \\ ' +]
+'here is a \\\ ' -> [+ 'here is a \\\ ' +]
+'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
+'here is a <tag> ' -> [+ 'here is a <tag>' +]
+'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
+'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
+'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
+'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
+'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
+'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
+'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
+'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]
+
+
+[- $optRawInput = 1 -]
+[- $escmode = 0 -]
+$optRawInput [+ $optRawInput +]
+$escmode [+ $escmode +]
+'here is a \ ' -> [+ 'here is a \ ' +]
+'here is a \\ ' -> [+ 'here is a \\ ' +]
+'here is a \\\ ' -> [+ 'here is a \\\ ' +]
+'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
+'here is a <tag> ' -> [+ 'here is a <tag>' +]
+'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
+'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
+'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
+'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
+'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
+'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
+'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
+'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]
+
+[- $optRawInput = 0 -]
+[- $escmode = 1 -]
+$optRawInput [+ $optRawInput +]
+$escmode [+ $escmode +]
+'here is a \ ' -> [+ 'here is a \ ' +]
+'here is a \\ ' -> [+ 'here is a \\ ' +]
+'here is a \\\ ' -> [+ 'here is a \\\ ' +]
+'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
+'here is a <tag> ' -> [+ 'here is a <tag>' +]
+'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
+'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
+'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
+'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
+'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
+'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
+'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
+'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]
+
+[- $optRawInput = 1 -]
+[- $escmode = 1 -]
+$optRawInput [+ $optRawInput +]
+$escmode [+ $escmode +]
+'here is a \ ' -> [+ 'here is a \ ' +]
+'here is a \\ ' -> [+ 'here is a \\ ' +]
+'here is a \\\ ' -> [+ 'here is a \\\ ' +]
+'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
+'here is a <tag> ' -> [+ 'here is a <tag>' +]
+'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
+'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
+'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
+'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
+'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
+'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
+'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
+'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]
+
1.4 +100 -1 embperl/test/html/if.htm
Index: if.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/if.htm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- if.htm 1999/10/05 06:03:43 1.3
+++ if.htm 2000/09/14 04:57:36 1.4
@@ -28,12 +28,13 @@
[$ endif <br>$]
a4
+[#
[$<br>if $a $]
a <br>
[$ <br> else<br>$]
not a<br>
[$ <br>endif $]
-
+#]
a5
[$ if $a$]
a <br>
@@ -311,6 +312,104 @@
Not ignored, ERROR!
<endif>
+
+
+
+<TABLE WIDTH="530" BORDER="0">
+ <TR>
+ <TD ALIGN="LEFT">
+ [$ if ($badge eq "iit") $]
+ <A HREF="/iit/">
+ [$ else $]
+ <A HREF="/">
+ [$ endif $]
+ <IMG SRC="[$ if (($server_type eq "iii.co.uk")) $]/i/www.[+ $server_type +]/[+
$badge || "iiilogo_narrow" +].gif[$ else $]/icons/[+ $badge || "iiilogo_narrow"
+].gif[$ endif $]"
+ WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
+ [$ if ($badge eq "iit") $]
+ ALT="iit logo"
+ [$ else $]
+ ALT="iii logo"
+ [$ endif $]
+ [$ if (($badge eq "iit") && ($badge ne $cookie_badge) && !$cookie_to) $]
+
onload="window.open('/iit/welcometoiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=390,height=410,screenX=50,screenY=50,top=50,left=50');
return false"
+ [$ elsif (($badge eq "") && ($cookie_badge eq "iit") && !$cookie_from) $]
+
onload="window.open('/iit/leavingiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=370,height=320,screenX=100,screenY=100,top=100,left=100');
return false"
+ [$ endif $] qqq >
+
+ </TD>
+</TR>
+</TABLE>
+
+[- $cookie_badge = "iit" ;
+ $server_type = "iii.co.uk" ;
+ $icon_width = 1 ;
+ $icon_height=2; -]
+<TABLE WIDTH="530" BORDER="0">
+ <TR>
+ <TD ALIGN="LEFT">
+ [$ if ($badge eq "iit") $]
+ <A HREF="/iit/">
+ [$ else $]
+ <A HREF="/">
+ [$ endif $]
+ <IMG SRC="[$ if (($server_type eq "iii.co.uk")) $]/i/www.[+ $server_type +]/[+
$badge || "iiilogo_narrow" +].gif[$ else $]/icons/[+ $badge || "iiilogo_narrow"
+].gif[$ endif $]"
+ WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
+ [$ if ($badge eq "iit") $]
+ ALT="iit logo"
+ [$ else $]
+ ALT="iii logo"
+ [$ endif $]
+ [$ if (($badge eq "iit") && ($badge ne $cookie_badge) && !$cookie_to) $]
+
onload="window.open('/iit/welcometoiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=390,height=410,screenX=50,screenY=50,top=50,left=50');
return false"
+ [$ elsif (($badge eq "") && ($cookie_badge eq "iit") && !$cookie_from) $]
+
onload="window.open('/iit/leavingiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=370,height=320,screenX=100,screenY=100,top=100,left=100');
return false"
+ [$ endif $]>
+
+ </TD>
+</TR>
+</TABLE>
+
+
+[- $icon_width = 5 ; $icon_height=10; -]
+
+<IMG
+[$ if (($server_type eq "iii")) $]
+SRC="/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow_if" +].gif" WIDTH="[+
$icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
+[$ else $]
+SRC="/icons/[+ $badge || "iiilogo_narrow_else" +].gif" WIDTH="[+ $icon_width +]"
HEIGHT="[+ $icon_height +]" BORDER="0"
+[$ endif $]
+[$ if ($badge eq "iit") $]
+ ALT="iit logo"
+[$ else $]
+ ALT="iii logo"
+[$ endif $]>
+
+[- $icon_width = 6 ; $icon_height=11; $server_type="iii" ; $badge = "iit" -]
+
+<IMG
+[$ if (($server_type eq "iii")) $]
+SRC="/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow_if" +].gif" WIDTH="[+
$icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
+[$ else $]
+SRC="/icons/[+ $badge || "iiilogo_narrow_else" +].gif" WIDTH="[+ $icon_width +]"
HEIGHT="[+ $icon_height +]" BORDER="0"
+[$ endif $]
+[$ if ($badge eq "iit") $]
+ ALT="iit logo"
+[$ else $]
+ ALT="iii logo"
+[$ endif $]>
+
+<IMG
+[$ if (($server_type eq "iii")) $]
+SRC="/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow_if" +].gif" WIDTH="[+
$icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
+[$ else $]
+SRC="/icons/[+ $badge || "iiilogo_narrow_else" +].gif" WIDTH="[+ $icon_width +]"
HEIGHT="[+ $icon_height +]" BORDER="0"
+[$ endif $]
+[$ if ($badge eq "iit") $]
+ ALT="iit logo"
+[$ else $]
+ ALT="iii logo"
+[$ endif $]
+qqq>
1.2 +2 -2 embperl/test/html/inc.htm
Index: inc.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/inc.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- inc.htm 1998/07/14 20:11:20 1.1
+++ inc.htm 2000/09/14 04:57:36 1.2
@@ -27,7 +27,7 @@
Here we have some HTML tags within the perl code, Embperl will delete them!<BR>
-[+ $c = <BR> 6 + 17 <font size="3"> * 3 +]
+[+ $c = 6 + 17 * 3 +]
[+ "SELECT * <br> FROM a ORDER BY b USING <; Hi There>" +]
Here we have something which looks like a HTML tag, but does not start with<br>
@@ -38,7 +38,7 @@
Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6
will get the perl expression $a < 6: <BR>
[- $e = 2 -]
-[+ $d = $e < 6 +]
+[+ $d = $e < 6 +]
Now they should have a value
1.6 +7 -12 embperl/test/html/loop.htm
Index: loop.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/loop.htm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- loop.htm 2000/08/20 18:56:54 1.5
+++ loop.htm 2000/09/14 04:57:36 1.6
@@ -7,6 +7,11 @@
<body>
[- $i = 0 -]
+[$ while($i <= 2)$]
+ [+ $i++ +]
+[$ endwhile $]
+
+[- $i = 0 -]
[$ while $i <= $#ffld $]
[+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +]
[- $j = 0 -]
@@ -17,11 +22,6 @@
[- $i++ -]
[$ endwhile $]
-[- $i = 0 -]
-[$ while($i <= 2)$]
- [+ $i++ +]
-[$ endwhile $]
-
[- %h = ('A' => 1, 'B' => 2, 'C' => 3) ; -]
[- @a = ('a', 'b', 'c', 'd') ; -]
@@ -42,7 +42,7 @@
[- $i++ -]
[$ until $i > $#a $]
-[$ foreach $v @a $]
+[$ foreach $v (@a) $]
[+ $v +] <br>
[$ endforeach $]
@@ -58,11 +58,6 @@
2:[+ $v +] <br>
[$ endforeach $]
-[- %hash = ( a=>1, b=>2, c=>3) -]
-[$ foreach $v(keys %hash) $]
- 3:[+ $v +] <br>
-[$ endforeach $]
-
[- $i = 0 -]
[$ do $]
[+ "\@a[$i] = $a[$i]" +]<br>
@@ -71,7 +66,7 @@
[$ foreach $fv (1, 3, 5, 7, 9) $]
[+ $fv +] <br>
[$ endforeach $]
- [$ foreach $fv () $]
+ [$ foreach $fv (()) $]
[+ $fv +] <br>
[$ while ($wv, $wk) = each (%h) $]
[+ "$wv = $wk" +]<br>
1.5 +0 -1 embperl/test/html/object.htm
Index: object.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/object.htm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- object.htm 1999/10/05 06:03:46 1.4
+++ object.htm 2000/09/14 04:57:36 1.5
@@ -55,7 +55,6 @@
-]
<TABLE BORDER=0 WIDTH=90%>
- <TR><TH COLSPAN=2><H2>Objects</H2></TH></TR>
<TR>
[- $o = $obj[$row] -]
<TD>
1.5 +66 -70 embperl/test/html/table.htm
Index: table.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/table.htm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- table.htm 1999/11/17 07:29:37 1.4
+++ table.htm 2000/09/14 04:57:36 1.5
@@ -5,12 +5,6 @@
<body>
-<table>
- <tr>
- <td>[+ $c[$row][$col] +] </td>
- </tr>
-</table>
-
<p> $tabmode = default <p>
@@ -46,34 +40,73 @@
<P>$tabmode = default <P>
-<table border="2" width="100%">
+
+<table>
<tr>
- <td>[+ $a[$row][$col] +] </td>
+ <td>[+ $a[$row][0] +]</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>[+ $a[2][$col] +]</td>
</tr>
</table>
+
-<table border="2" width="100%">
+<table>
<tr>
- <th>1</th>
- <th>2</th>
- <th>3</th>
+ <td>before[+ $a[$row][0] +]</td>
</tr>
+</table>
+<table>
<tr>
- <td>[+ $a[$row][$col] +] </td>
+ <td>before[+ $a[2][$col] +]</td>
</tr>
</table>
-<table border="2" width="100%">
+<table>
+ <tr>
+ <td>[+ $a[$row][0] +]after</td>
+ </tr>
+</table>
+<table>
<tr>
- <th>[+ $b[2][$col] +]</th>
+ <td>[+ $a[2][$col] +]after</td>
</tr>
+</table>
+<table>
<tr>
- <td>[+ $a[$row][$col] +] </td>
+ <td>before[+ $a[$row][0] +]after</td>
</tr>
</table>
+<table>
+ <tr>
+ <td>before[+ $a[2][$col] +]after</td>
+ </tr>
+</table>
<table>
<tr>
+ <td>[+ $c[$row] +]</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>[+ $c[$col] +]</td>
+ </tr>
+</table>
+
+
+<table border="1" width="100%">
+ <tr>
+ <td>[+ $a[$row][$col] +] </td>
+ </tr>
+</table>
+
+
+
+<table border="4">
+ <tr>
<td>
<table>
<tr>
@@ -85,7 +118,7 @@
</tr>
</table>
-<table border="3" width="100%">
+<table border="5" width="100%">
<tr>
<td>[+ $b[2][$col] +]</td>
</tr>
@@ -94,7 +127,7 @@
</tr>
</table>
-<table border="4" width="100%">
+<table border="6" width="100%">
<tr>
<td>[+ $a[$row+1][0] +]</td>
</tr>
@@ -103,7 +136,7 @@
</tr>
</table>
-<table>
+<table border="7">
<tr>
<TD BGCOLOR="[+ ($row &
1)?(($col&1)?'#7CFC00':'#A4A4B4'):(($col&1)?'#FFFF00':'#F4A460') +]">[+ $a[$row][$col]
+] </td>
</tr>
@@ -112,7 +145,7 @@
[- $a[0][1] = 'a1/2' ; -]
-<table>
+<table border="8">
<tr>
<TD BGCOLOR="#F4A460">[+ $a[$row*2][$col*2] +] </td>
<TD BGCOLOR="#FFFF00">[+ $a[$row*2][$col*2+1] +] </td>
@@ -125,6 +158,7 @@
[- $a[0][1] = undef ; -]
+
[-
undef @regs ;
@@ -137,17 +171,16 @@
$kats[1]{Id} = 'Sport' ;
-]
-
- <table border="0" width="100%">
+ <table border="9" width="100%">
<tr>
- <td><table border="0">
+ <td><table border="10">
<tr>
<td valign="top">
<a
href="inhalt.htm?Region=[+$regs[$row]{Id}+]">[+$regs[$row]{Id}+]</a></td>
</tr>
</table>
</td>
- <td><table border="0">
+ <td><table border="11">
<tr>
<td valign="top"><p align="left">
<a
href="inhalt.htm?Kategorie=[+$kats[$row]{Id}+]">[+$kats[$row]{Id}+]</a></p>
@@ -158,29 +191,30 @@
</tr>
</table>
-
[-
$kats[2]{Id} = 'Veranstaltungen' ;
$kats[3]{Id} = '' ;
-]
-
- <table border="0" width="100%">
+ <table border="12" width="100%">
<tr>
- <td><table border="0">
+ <td><table border="13">
<tr>
<td valign="top">
- [- $cmp = $regs[$row]{Id} -]
- [$if ($cmp || '') ne '' $]
- <a
href="inhalt.htm?Region=[+$regs[$row]{Id}+]">[+$regs[$row]{Id}+]</a></td>
+ [- print LOG "row= $row regs=$regs[0]{Id}\n" ; 1 ; -]
+ [- print LOG "1row= $row regs=$regs[0]{Id}\n"
; $cmp = $regs[0]->{Id} ; print LOG "2row= $row regs=$regs[0]{Id}\n" ; 1 ; -]
+ [- while (($k, $v) = each (%{$regs[0]})) { print LOG "$v=$k;\n"
; } -]
+ [$if ($cmp || '') ne '' $]
+ <a href="inhalt.htm?Region=[+print LOG "row= $row
regs=$regs[0]{Id}\n" ; $regs[$row]{Id}+]">[+$regs[$row]{Id}+]</a></td>
[$endif$]
</tr>
</table>
</td>
- <td><table border="0">
+ <td><table border="14">
<tr>
<td valign="top"><p align="left">
+ [- print LOG "row= $row regs=$kats[0]{Id}\n" ; 1 ; -]
[- $cmp = $kats[$row]{Id} -]
[$if ($cmp || '') ne '' $]
<a
href="inhalt.htm?Kategorie=[+$kats[$row]{Id}+]">[+$kats[$row]{Id}+]</a></p>
@@ -192,44 +226,6 @@
</tr>
</table>
-
-<hr><P>$tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4 <P>
-[- $tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4 -]
-
-<table>
- <tr>
- <td>[+ $a[$row][$col] +] </td>
- </tr>
-</table>
-
-<hr><p> $tabmode=1 + 32 ; <p>
-[- $tabmode=1 + 32 ; -]
-
-<table>
- <tr>
- <td>[+ $a[$row][$col] +] </td>
- </tr>
-</table>
-
-optDisableTableScan is now: [+ $optDisableTableScan +] <BR>
-optDisableTableScan is set now to: [+ $optDisableTableScan = 1 +] <BR>
-optDisableTableScan is now: [+ $optDisableTableScan +] <BR>
-
-<table border="2" width="100%">
- <tr>
- <td>[+ $a[$row][$col] +] </td>
- </tr>
-</table>
-
-optDisableTableScan is now: [+ $optDisableTableScan +] <BR>
-optDisableTableScan is set now to: [+ $optDisableTableScan = 0 +] <BR>
-optDisableTableScan is now: [+ $optDisableTableScan +] <BR>
-
-<table border="2" width="100%">
- <tr>
- <td>[+ $a[$row][$col] +] </td>
- </tr>
-</table>
</body>
</html>
1.4 +3 -36 embperl/test/html/tagscan.htm
Index: tagscan.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/tagscan.htm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- tagscan.htm 1999/10/05 06:03:47 1.3
+++ tagscan.htm 2000/09/14 04:57:36 1.4
@@ -46,6 +46,8 @@
<body [$if $aaa $] bgcolor="[+ 'blue' +]" [$endif$]>
<body [$if !$aaa $] bgcolor="[+ 'blue' +]" [$endif$]>
+<body [$if $aaa $]bgcolor="[+ 'blue' +]"[$endif$]>
+<body [$if !$aaa $]bgcolor="[+ 'blue' +]"[$endif$]>
[- $fdat{ VERSION } = 3 -]
@@ -61,42 +63,7 @@
<A HREF="" [$ if $fdat{ VERSION } >= 4 $]
foo="" [$ endif $]>
-optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
-optDisableHtmlScan is set now to: [+ $optDisableHtmlScan = 1 +] <BR>
-optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
-
-
-[+ $fdat{feld2} = 'blabla2' ; +]
-[+ $fdat{feld6} = 'blabla6' ; +]
-
- <input type="text" name="feld1" value="Wert1">
- <input type="text" name="feld2">
- <input type="text" size=10 name="feld3">
- <input type="text" name="feld4" size=10>
-
- <input type="text" name="feld5" value="Wert5">
- <input type="text" name="feld6">
- <input type="text" size=10 name="feld7">
- <input type="text" name="feld8" size=10>
- [- @ks = sort keys %idat -]
-
- <table>
- <tr>
- <td>[+ $ks[$row] +]</td><td>[+ $idat{$ks[$row] || ''} +]</td>
- </tr>
- </table>
-
- [- @ks = sort keys %fdat -]
-
- <table>
- <tr>
- <td>[+ $ks[$row] +]</td><td>[+ $fdat{$ks[$row] || ''} +]</td>
- </tr>
- </table>
-
-optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
-optDisableHtmlScan is set now to: [+ $optDisableHtmlScan = 0 +] <BR>
-optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
+[- @ks = sort keys %idat -]
<table>
<tr>
1.3 +73 -73 embperl/test/html/tagscandisable.htm
Index: tagscandisable.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/tagscandisable.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- tagscandisable.htm 2000/09/13 20:01:21 1.2
+++ tagscandisable.htm 2000/09/14 04:57:37 1.3
@@ -1,73 +1,73 @@
-
-
-optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
-optDisableHtmlScan is set now to: [+ $optDisableHtmlScan = 1 +] <BR>
-optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
-
-
-[+ $fdat{feld2} = 'blabla2' ; +]
-[+ $fdat{feld6} = 'blabla6' ; +]
-
- <input type="text" name="feld1" value="Wert1">
- <input type="text" name="feld2">
- <input type="text" size=10 name="feld3">
- <input type="text" name="feld4" size=10>
-
- <input type="text" name="feld5" value="Wert5">
- <input type="text" name="feld6">
- <input type="text" size=10 name="feld7">
- <input type="text" name="feld8" size=10>
- [- @ks = sort keys %idat -]
-
- <table>
- <tr>
- <td>[+ $ks[$i=$row] +]</td><td>[+ $idat{$ks[$i]} || '<undef>'
+]</td>
- </tr>
- </table>
-
- [- @ks = sort keys %fdat -]
-
-<table>
- <tr>
- <td>[+ $ks[$i=$row] +]</td><td>[+ $fdat{$ks[$i]} || '<undef>' +]</td>
- </tr>
-</table>
-
-optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
-optDisableHtmlScan is set now to: [+ $optDisableHtmlScan = 0 +] <BR>
-optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
-
- [- @ks = sort keys %fdat -]
-
-<table>
- <tr>
- <td>[+ $ks[$i=$row] +]</td><td>[+ $fdat{$ks[$i]} || '<undef>' +]</td>
- </tr>
-</table>
-
- <input type="text" name="feld1" value="Wert1">
- <input type="text" name="feld2">
- <input type="text" size=10 name="feld3">
- <input type="text" name="feld4" size=10>
-
- <input type="text" name="feld5" value="Wert5">
- <input type="text" name="feld6">
- <input type="text" size=10 name="feld7">
- <input type="text" name="feld8" size=10>
-
- [- @ks = sort keys %idat -]
-
- <table>
- <tr>
- <td>[+ $ks[$i=$row] +]</td><td>[+ $idat{$ks[$i]} || '<undef>'
+]</td>
- </tr>
- </table>
-
- [- @ks = sort keys %fdat -]
-
- <table>
- <tr>
- <td>[+ $ks[$i=$row] +]</td><td>[+ $fdat{$ks[$i]} || '<undef>'
+]</td>
- </tr>
- </table>
-
+
+
+optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
+optDisableHtmlScan is set now to: [+ $optDisableHtmlScan = 1 +] <BR>
+optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
+
+
+[+ $fdat{feld2} = 'blabla2' ; +]
+[+ $fdat{feld6} = 'blabla6' ; +]
+
+ <input type="text" name="feld1" value="Wert1">
+ <input type="text" name="feld2">
+ <input type="text" size=10 name="feld3">
+ <input type="text" name="feld4" size=10>
+
+ <input type="text" name="feld5" value="Wert5">
+ <input type="text" name="feld6">
+ <input type="text" size=10 name="feld7">
+ <input type="text" name="feld8" size=10>
+ [- @ks = sort keys %idat -]
+
+ <table>
+ <tr>
+ <td>[+ $ks[$i=$row] +]</td><td>[+ $idat{$ks[$i]} || '<undef>'
+]</td>
+ </tr>
+ </table>
+
+ [- @ks = sort keys %fdat -]
+
+<table>
+ <tr>
+ <td>[+ $ks[$i=$row] +]</td><td>[+ $fdat{$ks[$i]} || '<undef>' +]</td>
+ </tr>
+</table>
+
+optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
+optDisableHtmlScan is set now to: [+ $optDisableHtmlScan = 0 +] <BR>
+optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
+
+ [- @ks = sort keys %fdat -]
+
+<table>
+ <tr>
+ <td>[+ $ks[$i=$row] +]</td><td>[+ $fdat{$ks[$i]} || '<undef>' +]</td>
+ </tr>
+</table>
+
+ <input type="text" name="feld1" value="Wert1">
+ <input type="text" name="feld2">
+ <input type="text" size=10 name="feld3">
+ <input type="text" name="feld4" size=10>
+
+ <input type="text" name="feld5" value="Wert5">
+ <input type="text" name="feld6">
+ <input type="text" size=10 name="feld7">
+ <input type="text" name="feld8" size=10>
+
+ [- @ks = sort keys %idat -]
+
+ <table>
+ <tr>
+ <td>[+ $ks[$i=$row] +]</td><td>[+ $idat{$ks[$i]} || '<undef>'
+]</td>
+ </tr>
+ </table>
+
+ [- @ks = sort keys %fdat -]
+
+ <table>
+ <tr>
+ <td>[+ $ks[$i=$row] +]</td><td>[+ $fdat{$ks[$i]} || '<undef>'
+]</td>
+ </tr>
+ </table>
+
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
