k8.:8.:by nameby namerootd kVW( 8.:8.:8.:,( ./lpp_name/4 R I freeware.perl.html.embperl { freeware.perl.html.embperl.rte 01.03.0000.0000 01 N U en_US HTML::Embperl Perl Module [ >0 { *prereq freeware.perl.rte 5.6.0.1 *prereq perl.rte 5.5.3.0 } % /usr 7 /usr/local 5 /usr/local/lib 3 /usr/local/lib/HTML-Embperl-1.3 164 /usr/local/lib/HTML-Embperl-1.3/test 13 /usr/local/lib/HTML-Embperl-1.3/test/html 276 /usr/local/lib/HTML-Embperl-1.3/test/html/nph 15 /usr/local/lib/HTML-Embperl-1.3/test/html/errdoc 5 /usr/local/lib/HTML-Embperl-1.3/test/html/errdoc/epl 3 /usr/local/lib/HTML-Embperl-1.3/test/html/allform 2 /usr/local/lib/HTML-Embperl-1.3/test/html/match 16 /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject 28 /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base2 3 /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/lib 3 /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base3 2 /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj 9 /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub 5 /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/subsub 4 /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/subsub/subsubsub 2 /usr/local/lib/HTML-Embperl-1.3/test/html/rawinput 5 /usr/local/lib/HTML-Embperl-1.3/test/html/opmask 16 /usr/local/lib/HTML-Embperl-1.3/test/html/stdout 2 /usr/local/lib/HTML-Embperl-1.3/test/html/registry 19 /usr/local/lib/HTML-Embperl-1.3/test/html/noerr 4 /usr/local/lib/HTML-Embperl-1.3/test/html/ofunc 8 /usr/local/lib/HTML-Embperl-1.3/test/html/safe 9 /usr/local/lib/HTML-Embperl-1.3/test/html/ifuncsrc 4 /usr/local/lib/HTML-Embperl-1.3/test/html/nochdir 3 /usr/local/lib/HTML-Embperl-1.3/test/conf 25 /usr/local/lib/HTML-Embperl-1.3/test/cmp 453 /usr/local/lib/HTML-Embperl-1.3/eg 10 /usr/local/lib/HTML-Embperl-1.3/eg/images 10 /usr/local/lib/HTML-Embperl-1.3/eg/x 66 /usr/local/man 3 /usr/local/man/man3 453 /usr/lpp 3 /usr/lpp/freeware.perl.html.embperl 1 /usr/opt 3 /usr/opt/perl5 3 /usr/opt/perl5/lib 3 /usr/opt/perl5/lib/site_perl 3 /usr/opt/perl5/lib/site_perl/5.005 3 /usr/opt/perl5/lib/site_perl/5.005/aix 5 /usr/opt/perl5/lib/site_perl/5.005/aix/auto 3 /usr/opt/perl5/lib/site_perl/5.005/aix/auto/HTML 3 /usr/opt/perl5/lib/site_perl/5.005/aix/auto/HTML/Embperl 495 /usr/opt/perl5/lib/site_perl/5.005/aix/HTML 821 /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Embperl 44 INSTWORK 120 120 % % % % ] } kA7.:8.:8.:,p./usr/lpp/freeware.perl.html.embperl/A k@pg8.:8.:8.:,g./usr/lpp/freeware.perl.html.embperl/liblpp.a/ 91614 0 0 128 88446 0 16459 16736 0 976107490 0 0 644 33 freeware.perl.html.embperl.rte.al` ./usr/local/lib/HTML-Embperl-1.3/Changes.pod ./usr/local/lib/HTML-Embperl-1.3/Embperl.pod ./usr/local/lib/HTML-Embperl-1.3/EmbperlD.pod ./usr/local/lib/HTML-Embperl-1.3/Faq.pod ./usr/local/lib/HTML-Embperl-1.3/Features.pod ./usr/local/lib/HTML-Embperl-1.3/FeaturesD.pod ./usr/local/lib/HTML-Embperl-1.3/INSTALL.pod ./usr/local/lib/HTML-Embperl-1.3/Intro.pod ./usr/local/lib/HTML-Embperl-1.3/IntroD.pod ./usr/local/lib/HTML-Embperl-1.3/MANIFEST ./usr/local/lib/HTML-Embperl-1.3/README ./usr/local/lib/HTML-Embperl-1.3/TODO ./usr/local/lib/HTML-Embperl-1.3/test/html/escape.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/importsub2.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/subimp.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/include.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/ifperl.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/getnosess.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/http.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/taint.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/discard.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/tagscandisable.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/tagscan.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/setsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/delsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/chdir.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/inputjava.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/clearsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/errmsg.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/notallow.xhtm ./usr/local/lib/HTML-Embperl-1.3/test/html/var.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/varepvar.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/delrdsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/ascii ./usr/local/lib/HTML-Embperl-1.3/test/html/heredoc.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/recursexec.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/includeerr1.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/table.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/errmsg2.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/spaces.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/exit.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/escraw.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/post.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/importmodule.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/binary.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/varerr.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/nesting.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/input.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/getbsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/hidden.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/reqrec.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/mdatsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/if.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/inc.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/execgetsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/sub.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/unclosed.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/incerr.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/plain.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/nph/incshort.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/nph/nphinc.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/nph/npherr.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/nph/div.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/delwrsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/setunknownsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/loop.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/getsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/exit3.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/object.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/importsub.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/error.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/java.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/getdelsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/includeerr2.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/callsub.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/subimp.pm ./usr/local/lib/HTML-Embperl-1.3/test/html/tabmode.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/mix.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/exit2.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/upload.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/incparam.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/loopperl.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/pure.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/plainblock.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/div.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/incsub.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/lists.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/setbadsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/errdoc/errdoc.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/errdoc/epl/errdoc2.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/allform/allform.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/match/div.asc ./usr/local/lib/HTML-Embperl-1.3/test/html/match/div.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/eposubsub.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epofallback.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epobase.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epohead.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epodiv.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epopage1.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epofoot.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base2/epostopdir.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base2/epobase2.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/lib/epolib.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/lib/epobase3.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base3/epobaselib.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epoobj3.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epoobj1.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epoobj2.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epobase.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epohead.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epofoot.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epoobj4.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/epohead.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/epopage2.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/subsub/eposubsub.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/subsub/subsubsub/eposubsub.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/rawinput/rawinput.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/opmask/opmask.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/opmask/opmasktrap.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/stdout/stdout.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/registry/Execute.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/registry/tied.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/registry/reggetsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/registry/errpage.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/noerr/noerrpage.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/ofunc/div.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/safe/safe.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/ifuncsrc/proxy.htm ./usr/local/lib/HTML-Embperl-1.3/test/html/nochdir/nochdir.htm ./usr/local/lib/HTML-Embperl-1.3/test/conf/null ./usr/local/lib/HTML-Embperl-1.3/test/conf/startup.pl ./usr/local/lib/HTML-Embperl-1.3/test/conf/httpd.conf.src ./usr/local/lib/HTML-Embperl-1.3/test/conf/ssldisable.conf ./usr/local/lib/HTML-Embperl-1.3/test/conf/startup_dso.pl ./usr/local/lib/HTML-Embperl-1.3/test/conf/config.pl ./usr/local/lib/HTML-Embperl-1.3/test/cmp/epoobj3.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/escape.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/Execute.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/eposubsub.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/importsub2.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/div.asc ./usr/local/lib/HTML-Embperl-1.3/test/cmp/opmask.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/include.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/ifperl.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/getnosess.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/http.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/taint.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/discard.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/tagscandisable.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/tagscan.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/setsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/rawinput.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/delsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/stdout.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/chdir.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/tied.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/varerr.htm56 ./usr/local/lib/HTML-Embperl-1.3/test/cmp/inputjava.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/clearsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/var.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/varepvar.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/epostopdir.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/opmasktrap.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/delrdsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/ascii ./usr/local/lib/HTML-Embperl-1.3/test/cmp/recursexec.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/heredoc.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/includeerr1.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/table.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/spaces.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/exit.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/escraw.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/epoobj1.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/reggetsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/post.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/importmodule.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/errpage.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/binary.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/nphinc.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/epoobj2.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/varerr.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/nochdir.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/eponotfound.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/nesting.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/input.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/npherr.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/getbsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/hidden.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/reqrec.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/mdatsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/if.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/execgetsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/errdoc2.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/errdoc.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/sub.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/unclosed.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/epodiv.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/epobaselib.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/plain.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/epopage2.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/delwrsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/setunknownsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/allform.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/loop.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/getsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/exit3.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/object.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/importsub.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/error.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/java.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/getdelsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/safe.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/includeerr2.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/eposubsub.htm3 ./usr/local/lib/HTML-Embperl-1.3/test/cmp/callsub.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/tabmode.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/exit2.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/epopage1.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/upload.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/mix.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/loopperl.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/pure.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/plainblock.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/noerrpage.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/div.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/lists.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/setbadsess.htm ./usr/local/lib/HTML-Embperl-1.3/test/cmp/epoobj4.htm ./usr/local/lib/HTML-Embperl-1.3/eg/README ./usr/local/lib/HTML-Embperl-1.3/eg/images/jazzbkgd.gif ./usr/local/lib/HTML-Embperl-1.3/eg/x/config.htm ./usr/local/lib/HTML-Embperl-1.3/eg/x/dbi2.htm ./usr/local/lib/HTML-Embperl-1.3/eg/x/Execute.pl ./usr/local/lib/HTML-Embperl-1.3/eg/x/table.htm ./usr/local/lib/HTML-Embperl-1.3/eg/x/input.htm ./usr/local/lib/HTML-Embperl-1.3/eg/x/if.htm ./usr/local/lib/HTML-Embperl-1.3/eg/x/loop.htm ./usr/local/lib/HTML-Embperl-1.3/eg/x/neu.htm ./usr/local/lib/HTML-Embperl-1.3/eg/x/dbi1.htm ./usr/local/lib/HTML-Embperl-1.3/eg/x/upload.htm ./usr/local/lib/HTML-Embperl-1.3/eg/x/recordset.htm ./usr/local/lib/HTML-Embperl-1.3/eg/x/lists.htm ./usr/local/lib/HTML-Embperl-1.3/test.pl ./usr/local/lib/HTML-Embperl-1.3/NEWS.pod ./usr/local/lib/HTML-Embperl-1.3/embpcgi.test.pl ./usr/local/man/man3/HTML__Embperl.3 ./usr/local/man/man3/HTML__EmbperlD.3 ./usr/local/man/man3/HTML__EmbperlObject.3 ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/HTML/Embperl/Embperl.so ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/HTML/Embperl/Embperl.bs ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/HTML/Embperl/.packlist ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Features.pod ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/IntroD.pod ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Embperl.pm ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/FeaturesD.pod ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Embperl.pod ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/INSTALL.pod ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/EmbperlObject.pm ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Faq.pod ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Changes.pod ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/EmbperlD.pod ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Embperl/Mail.pm ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Embperl/Session.pm ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Embperl/Module.pm ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Intro.pod ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/NEWS.pod ./usr/local ./usr/local/lib ./usr/local/lib/HTML-Embperl-1.3 ./usr/local/lib/HTML-Embperl-1.3/test ./usr/local/lib/HTML-Embperl-1.3/test/html ./usr/local/lib/HTML-Embperl-1.3/test/html/nph ./usr/local/lib/HTML-Embperl-1.3/test/html/errdoc ./usr/local/lib/HTML-Embperl-1.3/test/html/errdoc/epl ./usr/local/lib/HTML-Embperl-1.3/test/html/allform ./usr/local/lib/HTML-Embperl-1.3/test/html/match ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base2 ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/lib ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base3 ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/subsub ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/subsub/subsubsub ./usr/local/lib/HTML-Embperl-1.3/test/html/rawinput ./usr/local/lib/HTML-Embperl-1.3/test/html/opmask ./usr/local/lib/HTML-Embperl-1.3/test/html/stdout ./usr/local/lib/HTML-Embperl-1.3/test/html/registry ./usr/local/lib/HTML-Embperl-1.3/test/html/noerr ./usr/local/lib/HTML-Embperl-1.3/test/html/ofunc ./usr/local/lib/HTML-Embperl-1.3/test/html/safe ./usr/local/lib/HTML-Embperl-1.3/test/html/ifuncsrc ./usr/local/lib/HTML-Embperl-1.3/test/html/nochdir ./usr/local/lib/HTML-Embperl-1.3/test/conf ./usr/local/lib/HTML-Embperl-1.3/test/cmp ./usr/local/lib/HTML-Embperl-1.3/eg ./usr/local/lib/HTML-Embperl-1.3/eg/images ./usr/local/lib/HTML-Embperl-1.3/eg/x ./usr/local/man ./usr/local/man/man3 1307 18198 128 975518183 0 0 644 40 freeware.perl.html.embperl.rte.copyright` HTML::Embperl - Embed Perl in Your HTML Documents, version 1.3b7 Copyright (c) 1997-2000 Gerald Richter / ECOS All Rights Reserved. Plaese refer to the README file delivered in the directory /usr/local/lib/HTML-Embperl-1.3 for complete details. The other files delivered in the same directory should also be read. Packaging is Copyright (C) 2000 BULL SA. This LPP shall not be redistributed commercially. Software, information and material distributed as freeware or shareware (hereinafter the "Materials") are provided "as is", without warranty of any kind. Bull and its suppliers disclaim all warranties whether expressed or implied, including, but not limited to the implied warranties of merchantability and fitness for a particular purpose. The entire risk as to the quality and performance of the Materials is with you. Neither Bull nor its suppliers warrant that the functions contained in the Materials will meet your requirements or that the Materials will be error free. Bull and its suppliers shall in no event be liable for direct or indirect damage caused to the User or to third parties by use of the Materials, whether in an action of contract, negligence or other tortious action, arising out of or in connection with the use or performance of the Materials. 61278 79630 16736 976107521 0 0 644 40 freeware.perl.html.embperl.rte.inventory` /usr/local/lib/HTML-Embperl-1.3/Changes.pod: owner = root group = system mode = 777 type = SYMLINK target = /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Changes.pod class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/Embperl.pod: owner = root group = system mode = 777 type = SYMLINK target = /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Embperl.pod class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/EmbperlD.pod: owner = root group = system mode = 777 type = SYMLINK target = /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/EmbperlD.pod class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/Faq.pod: owner = root group = system mode = 777 type = SYMLINK target = /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Faq.pod class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/Features.pod: owner = root group = system mode = 777 type = SYMLINK target = /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Features.pod class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/FeaturesD.pod: owner = root group = system mode = 777 type = SYMLINK target = /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/FeaturesD.pod class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/INSTALL.pod: owner = root group = system mode = 777 type = SYMLINK target = /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/INSTALL.pod class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/Intro.pod: owner = root group = system mode = 777 type = SYMLINK target = /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Intro.pod class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/IntroD.pod: owner = root group = system mode = 777 type = SYMLINK target = /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/IntroD.pod class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/MANIFEST: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 5971 checksum = "64614 6 " /usr/local/lib/HTML-Embperl-1.3/README: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 7265 checksum = "49722 8 " /usr/local/lib/HTML-Embperl-1.3/TODO: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 2336 checksum = "45599 3 " /usr/local/lib/HTML-Embperl-1.3/test/html/escape.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 5184 checksum = "63364 6 " /usr/local/lib/HTML-Embperl-1.3/test/html/importsub2.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 444 checksum = "41440 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/subimp.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 700 checksum = "15749 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/include.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3532 checksum = "05257 4 " /usr/local/lib/HTML-Embperl-1.3/test/html/ifperl.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1702 checksum = "17118 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/getnosess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 916 checksum = "51406 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/http.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 346 checksum = "13638 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/taint.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 307 checksum = "34685 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/discard.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1285 checksum = "12728 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/tagscandisable.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1839 checksum = "56856 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/tagscan.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 2626 checksum = "47282 3 " /usr/local/lib/HTML-Embperl-1.3/test/html/setsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 915 checksum = "03710 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/delsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 512 checksum = "62674 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/chdir.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 559 checksum = "30370 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/inputjava.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 816 checksum = "23717 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/clearsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 192 checksum = "51706 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/errmsg.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 155 checksum = "59554 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/notallow.xhtm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 4 checksum = "00115 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/var.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1128 checksum = "28994 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/varepvar.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 668 checksum = "58658 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/delrdsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 778 checksum = "49690 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/ascii: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3161 checksum = "02573 4 " /usr/local/lib/HTML-Embperl-1.3/test/html/heredoc.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 206 checksum = "43917 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/recursexec.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 485 checksum = "38133 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/includeerr1.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 390 checksum = "31054 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/table.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 4791 checksum = "49816 5 " /usr/local/lib/HTML-Embperl-1.3/test/html/errmsg2.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 456 checksum = "11551 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/spaces.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 264 checksum = "26883 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/exit.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 133 checksum = "22587 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/escraw.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3477 checksum = "44901 4 " /usr/local/lib/HTML-Embperl-1.3/test/html/post.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 277 checksum = "20949 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/importmodule.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 494 checksum = "14546 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/binary.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 149 checksum = "13274 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/varerr.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1024 checksum = "07878 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/nesting.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 611 checksum = "51546 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/input.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 6309 checksum = "54015 7 " /usr/local/lib/HTML-Embperl-1.3/test/html/getbsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1012 checksum = "64991 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/hidden.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1668 checksum = "63986 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/reqrec.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 512 checksum = "60953 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/mdatsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 589 checksum = "32897 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/if.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 10510 checksum = "16763 11 " /usr/local/lib/HTML-Embperl-1.3/test/html/inc.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1158 checksum = "24573 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/execgetsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 751 checksum = "57964 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/sub.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 669 checksum = "00251 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/unclosed.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 108 checksum = "00745 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/incerr.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 182 checksum = "62103 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/plain.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1973 checksum = "53295 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/nph/incshort.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 71 checksum = "07556 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/nph/nphinc.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 518 checksum = "20358 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/nph/npherr.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1039 checksum = "16215 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/nph/div.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3511 checksum = "12083 4 " /usr/local/lib/HTML-Embperl-1.3/test/html/delwrsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1070 checksum = "27753 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/setunknownsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 217 checksum = "01391 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/loop.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1476 checksum = "19550 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/getsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1012 checksum = "64991 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/exit3.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 158 checksum = "35415 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/object.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 710 checksum = "35750 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/importsub.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 526 checksum = "63879 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/error.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1039 checksum = "16215 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/java.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 611 checksum = "61654 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/getdelsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1012 checksum = "64991 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/includeerr2.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 523 checksum = "35650 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/callsub.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1111 checksum = "05834 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/subimp.pm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1139 checksum = "36446 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/tabmode.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1846 checksum = "50425 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/mix.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 958 checksum = "30941 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/exit2.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 125 checksum = "14146 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/upload.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 970 checksum = "25516 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/incparam.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 202 checksum = "02620 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/loopperl.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1232 checksum = "51648 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/pure.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 211 checksum = "41918 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/plainblock.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1247 checksum = "39698 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/div.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3511 checksum = "12083 4 " /usr/local/lib/HTML-Embperl-1.3/test/html/incsub.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 296 checksum = "37055 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/lists.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 2353 checksum = "21287 3 " /usr/local/lib/HTML-Embperl-1.3/test/html/setbadsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 218 checksum = "18248 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/errdoc/errdoc.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1008 checksum = "00180 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/errdoc/epl/errdoc2.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1008 checksum = "00180 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/allform/allform.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 274 checksum = "46939 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/match/div.asc: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3637 checksum = "28156 4 " /usr/local/lib/HTML-Embperl-1.3/test/html/match/div.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3511 checksum = "12083 4 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/eposubsub.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 24 checksum = "22650 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epofallback.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 16 checksum = "51932 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epobase.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 158 checksum = "03934 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epohead.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 24 checksum = "05567 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epodiv.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 5086 checksum = "04622 5 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epopage1.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 8 checksum = "06203 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epofoot.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 48 checksum = "11226 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base2/epostopdir.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 48 checksum = "20829 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base2/epobase2.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 223 checksum = "65529 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/lib/epolib.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 15 checksum = "24475 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/lib/epobase3.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 232 checksum = "50469 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base3/epobaselib.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 25 checksum = "64845 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epoobj3.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 185 checksum = "42474 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epoobj1.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 8 checksum = "06203 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epoobj2.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 48 checksum = "38349 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epobase.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 346 checksum = "01845 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epohead.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 148 checksum = "38384 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epofoot.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 48 checksum = "43988 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epoobj4.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 210 checksum = "39839 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/epohead.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 32 checksum = "22593 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/epopage2.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 8 checksum = "38971 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/subsub/eposubsub.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 359 checksum = "50702 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/subsub/subsubsub/eposubsub.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 96 checksum = "44686 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/rawinput/rawinput.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1860 checksum = "63876 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/opmask/opmask.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3462 checksum = "63212 4 " /usr/local/lib/HTML-Embperl-1.3/test/html/opmask/opmasktrap.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3637 checksum = "02145 4 " /usr/local/lib/HTML-Embperl-1.3/test/html/stdout/stdout.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 306 checksum = "31635 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/registry/Execute.htm: owner = root group = system mode = 755 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3288 checksum = "02326 4 " /usr/local/lib/HTML-Embperl-1.3/test/html/registry/tied.htm: owner = root group = system mode = 755 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 2212 checksum = "22410 3 " /usr/local/lib/HTML-Embperl-1.3/test/html/registry/reggetsess.htm: owner = root group = system mode = 755 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 790 checksum = "11677 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/registry/errpage.htm: owner = root group = system mode = 755 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 945 checksum = "53545 1 " /usr/local/lib/HTML-Embperl-1.3/test/html/noerr/noerrpage.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1039 checksum = "16215 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/ofunc/div.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3511 checksum = "12083 4 " /usr/local/lib/HTML-Embperl-1.3/test/html/safe/safe.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3688 checksum = "22717 4 " /usr/local/lib/HTML-Embperl-1.3/test/html/ifuncsrc/proxy.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1333 checksum = "25093 2 " /usr/local/lib/HTML-Embperl-1.3/test/html/nochdir/nochdir.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 525 checksum = "07871 1 " /usr/local/lib/HTML-Embperl-1.3/test/conf/null: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 2 checksum = "32795 1 " /usr/local/lib/HTML-Embperl-1.3/test/conf/startup.pl: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 416 checksum = "12819 1 " /usr/local/lib/HTML-Embperl-1.3/test/conf/httpd.conf.src: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 7771 checksum = "14413 8 " /usr/local/lib/HTML-Embperl-1.3/test/conf/ssldisable.conf: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 12 checksum = "03938 1 " /usr/local/lib/HTML-Embperl-1.3/test/conf/startup_dso.pl: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 281 checksum = "35707 1 " /usr/local/lib/HTML-Embperl-1.3/test/conf/config.pl: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1102 checksum = "53681 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/epoobj3.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 275 checksum = "24840 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/escape.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 6724 checksum = "31116 7 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/Execute.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3305 checksum = "33720 4 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/eposubsub.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 340 checksum = "06949 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/importsub2.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 547 checksum = "02255 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/div.asc: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3637 checksum = "28156 4 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/opmask.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 4733 checksum = "26435 5 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/include.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 6150 checksum = "40299 7 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/ifperl.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 281 checksum = "36861 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/getnosess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 444 checksum = "05684 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/http.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 202 checksum = "05497 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/taint.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 595 checksum = "58917 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/discard.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1846 checksum = "34462 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/tagscandisable.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1557 checksum = "12151 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/tagscan.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 43804 checksum = "02365 43 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/setsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 379 checksum = "39835 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/rawinput.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1898 checksum = "35044 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/delsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 249 checksum = "12014 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/stdout.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 238 checksum = "49566 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/chdir.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 414 checksum = "30639 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/tied.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 764 checksum = "11644 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/varerr.htm56: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1495 checksum = "07622 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/inputjava.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 422 checksum = "19934 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/clearsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 103 checksum = "08786 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/var.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 899 checksum = "33124 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/varepvar.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 504 checksum = "41484 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/epostopdir.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 224 checksum = "17587 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/opmasktrap.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 708 checksum = "63051 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/delrdsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 299 checksum = "31013 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/ascii: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3162 checksum = "34064 4 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/recursexec.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1036 checksum = "33280 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/heredoc.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 91 checksum = "41430 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/includeerr1.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 559 checksum = "49188 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/table.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 7607 checksum = "19603 8 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/spaces.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 163 checksum = "09284 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/exit.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 94 checksum = "35334 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/escraw.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 2702 checksum = "46125 3 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/epoobj1.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 222 checksum = "43835 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/reggetsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 138 checksum = "57128 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/post.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 8490 checksum = "18502 9 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/importmodule.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 577 checksum = "08238 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/errpage.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3477 checksum = "33293 4 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/binary.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 528 checksum = "53729 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/nphinc.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 469 checksum = "46360 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/epoobj2.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 246 checksum = "18900 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/varerr.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 938 checksum = "04858 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/nochdir.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 226 checksum = "48724 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/eponotfound.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 149 checksum = "16498 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/nesting.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 475 checksum = "45185 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/input.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 9260 checksum = "24081 10 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/npherr.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 690 checksum = "43342 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/getbsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 595 checksum = "15103 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/hidden.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 2639 checksum = "45113 3 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/reqrec.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 387 checksum = "26583 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/mdatsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 233 checksum = "19513 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/if.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1778 checksum = "47539 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/execgetsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1497 checksum = "29771 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/errdoc2.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1556 checksum = "56088 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/errdoc.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 155 checksum = "59554 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/sub.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 380 checksum = "09468 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/unclosed.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 480 checksum = "33476 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/epodiv.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 6758 checksum = "42596 7 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/epobaselib.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 210 checksum = "60084 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/plain.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1391 checksum = "38560 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/epopage2.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 141 checksum = "50169 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/delwrsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 399 checksum = "03502 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/setunknownsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 134 checksum = "54272 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/allform.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 387 checksum = "24546 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/loop.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1648 checksum = "23253 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/getsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 595 checksum = "08954 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/exit3.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 95 checksum = "16780 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/object.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 420 checksum = "17518 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/importsub.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 641 checksum = "03677 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/error.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1888 checksum = "06154 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/java.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 568 checksum = "39080 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/getdelsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 681 checksum = "16645 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/safe.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 5309 checksum = "52896 6 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/includeerr2.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1410 checksum = "15909 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/eposubsub.htm3: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 411 checksum = "44669 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/callsub.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1436 checksum = "53156 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/tabmode.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 2638 checksum = "53217 3 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/exit2.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 94 checksum = "35334 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/epopage1.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 133 checksum = "61460 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/upload.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 8673 checksum = "00089 9 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/mix.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 829 checksum = "53576 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/loopperl.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1356 checksum = "21160 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/pure.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 212 checksum = "20969 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/plainblock.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1132 checksum = "01704 2 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/noerrpage.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 692 checksum = "43618 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/div.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 5106 checksum = "55305 5 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/lists.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 4272 checksum = "56743 5 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/setbadsess.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 135 checksum = "58058 1 " /usr/local/lib/HTML-Embperl-1.3/test/cmp/epoobj4.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 304 checksum = "15232 1 " /usr/local/lib/HTML-Embperl-1.3/eg/README: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 2333 checksum = "63215 3 " /usr/local/lib/HTML-Embperl-1.3/eg/images/jazzbkgd.gif: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 4127 checksum = "00939 5 " /usr/local/lib/HTML-Embperl-1.3/eg/x/config.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 253 checksum = "03932 1 " /usr/local/lib/HTML-Embperl-1.3/eg/x/dbi2.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1134 checksum = "11199 2 " /usr/local/lib/HTML-Embperl-1.3/eg/x/Execute.pl: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3287 checksum = "01458 4 " /usr/local/lib/HTML-Embperl-1.3/eg/x/table.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 2152 checksum = "27004 3 " /usr/local/lib/HTML-Embperl-1.3/eg/x/input.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1981 checksum = "28408 2 " /usr/local/lib/HTML-Embperl-1.3/eg/x/if.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 814 checksum = "03293 1 " /usr/local/lib/HTML-Embperl-1.3/eg/x/loop.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1249 checksum = "17916 2 " /usr/local/lib/HTML-Embperl-1.3/eg/x/neu.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 12412 checksum = "41514 13 " /usr/local/lib/HTML-Embperl-1.3/eg/x/dbi1.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1074 checksum = "52838 2 " /usr/local/lib/HTML-Embperl-1.3/eg/x/upload.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 861 checksum = "60889 1 " /usr/local/lib/HTML-Embperl-1.3/eg/x/recordset.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1215 checksum = "47738 2 " /usr/local/lib/HTML-Embperl-1.3/eg/x/lists.htm: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1003 checksum = "29195 1 " /usr/local/lib/HTML-Embperl-1.3/test.pl: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 56509 checksum = "49102 56 " /usr/local/lib/HTML-Embperl-1.3/NEWS.pod: owner = root group = system mode = 777 type = SYMLINK target = /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/NEWS.pod class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/embpcgi.test.pl: owner = root group = system mode = 755 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1367 checksum = "08441 2 " /usr/local/man/man3/HTML__Embperl.3: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 107012 checksum = "51872 105 " /usr/local/man/man3/HTML__EmbperlD.3: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 110196 checksum = "17877 108 " /usr/local/man/man3/HTML__EmbperlObject.3: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 13111 checksum = "41758 13 " /usr/opt/perl5/lib/site_perl/5.005/aix/auto/HTML/Embperl/Embperl.so: owner = root group = system mode = 555 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 250308 checksum = "43264 245 " /usr/opt/perl5/lib/site_perl/5.005/aix/auto/HTML/Embperl/Embperl.bs: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 0 checksum = "00000 0 " /usr/opt/perl5/lib/site_perl/5.005/aix/auto/HTML/Embperl/.packlist: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1106 checksum = "48475 2 " /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Features.pod: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 2407 checksum = "55600 3 " /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/IntroD.pod: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 25281 checksum = "56704 25 " /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Embperl.pm: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 59407 checksum = "47010 59 " /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/FeaturesD.pod: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 2667 checksum = "19897 3 " /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Embperl.pod: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 84568 checksum = "40854 83 " /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/INSTALL.pod: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3977 checksum = "19003 4 " /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/EmbperlObject.pm: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 15710 checksum = "55592 16 " /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Faq.pod: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 42288 checksum = "64529 42 " /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Changes.pod: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 67255 checksum = "32762 66 " /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/EmbperlD.pod: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 86544 checksum = "32376 85 " /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Embperl/Mail.pm: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 6891 checksum = "65158 7 " /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Embperl/Session.pm: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 11712 checksum = "38728 12 " /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Embperl/Module.pm: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 1907 checksum = "24083 2 " /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Intro.pod: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 19988 checksum = "04540 20 " /usr/opt/perl5/lib/site_perl/5.005/aix/HTML/NEWS.pod: owner = root group = system mode = 555 type = FILE class = apply,inventory,freeware.perl.html.embperl.rte size = 3042 checksum = "32581 3 " /usr/local: owner = bin group = bin mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/nph: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/errdoc: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/errdoc/epl: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/allform: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/match: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base2: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/lib: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base3: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/subsub: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/subsub/subsubsub: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/rawinput: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/opmask: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/stdout: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/registry: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/noerr: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/ofunc: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/safe: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/ifuncsrc: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/html/nochdir: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/conf: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/test/cmp: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/eg: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/eg/images: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/lib/HTML-Embperl-1.3/eg/x: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/man: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte /usr/local/man/man3: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.html.embperl.rte 2843 82626 18198 975922128 0 0 755 37 freeware.perl.html.embperl.rte.post_i` #!/usr/bin/ksh LANG=C VERBOSE=${VERBOSE:-"0"} # simple debug system appname="${0##*/}" # $(basename $0) # Pre- and Post install template scripts # Copyright (C) 2000 GROUPE BULL # all rights reserved. # # author: Ciaran Deignan (Ciaran.Deignan@bull.net) # started: July 1997, last modified July 2000 # version: 2.0 #------------------------------------------------------------------ # GLOBAL UTILITIES #------------------------------------------------------------------ # Debug message print function (v1.0 - July 1998) debug() { integer lev=$1 shift [ $VERBOSE -ge $lev ] && print -- "$@" >&2 return 0 } # error handler (v2.1 - July 1998): cmd() { debug 7 "CMD: execute '$@'" eval '"$@"' [ $? -ne 0 ] && debug 0 "$appname: CMD: error detected in '$@'" \ && exit 2 } typeset -xf cmd debug [ $VERBOSE -gt 9 ] && set -x #------------------------------------------------------------------ debug 2 "$appname: starting execution, params <$*>"; # Function to update the file /usr/local/info/dir # This function should be used if the LPP delivers files into # /usr/local/info # NOTE: the file /usr/local/info/dir should *never* be delivered directly... update_info_dir() { if ! [ -d /usr/local/info ] then debug 1 "No info directory found !" debug 1 "stopping" return 0 fi if type gen-dir-node >/dev/null 2>&1 then print "Updating info \"root\" file (/usr/local/info/dir)" cmd cd /usr/local/info [ -f dir ] && cmd mv dir dir.bak cmd gen-dir-node /usr/local/info/ > dir cmd chmod 444 dir fi } # Perl module update function... update_perllocal () { if [ "$PERLLIB" = "" ] || [ ! -d "$PERLLIB" ] then print "update_perllocal: PERLLIB not defined (=$PERLLIB)" return 0 fi archdir=${archdir:-"aix"} # the directory /usr/local/lib/perl5/ ($PERLLIB) should exist, or might # be a symbolic link to /usr/opt/perl5/lib.... if ! cd $PERLLIB/. then print "Perl not installed correctly, can't find directory" print "$PERLLIB" exit 1 fi if ! ls */$archdir/perllocal.pod > /dev/null 2>&1 then filename=$(ls -td 5.*/$archdir | line) if [ "$filename" = "" ] then cmd print "Perl not installed correctly, can't find \c" cmd print "directory $PERLLIB/5.00*/$archdir" exit 3 fi filename="$filename/perllocal.pod" else filename=$(cmd ls -t */$archdir/perllocal.pod | line) fi # use a "hello-script" to add info to perllocal.pod.... cmd cat >>$filename < L =over 4 =item * C =item * C =item * C =item * C =back MODULEINFO } #PERLLIB=/usr/local/lib/perl5/ PERLLIB=/usr/opt/perl5/lib/ #archdir=ia64-aix update_perllocal exit 0 3348 86124 79630 976107483 0 0 755 36 freeware.perl.html.embperl.rte.pre_i` #!/usr/bin/ksh LANG=C VERBOSE=${VERBOSE:-"0"} # simple debug system appname="${0##*/}" # $(basename $0) # Pre- and Post install template scripts # Copyright (C) 2000 GROUPE BULL # all rights reserved. # # author: Ciaran Deignan (Ciaran.Deignan@bull.net) # started: July 1997, last modified July 2000 # version: 2.0 #------------------------------------------------------------------ # GLOBAL UTILITIES #------------------------------------------------------------------ # Debug message print function (v1.0 - July 1998) debug() { integer lev=$1 shift [ $VERBOSE -ge $lev ] && print -- "$@" >&2 return 0 } # error handler (v2.1 - July 1998): cmd() { debug 7 "CMD: execute '$@'" eval '"$@"' [ $? -ne 0 ] && debug 0 "$appname: CMD: error detected in '$@'" \ && exit 2 } typeset -xf cmd debug [ $VERBOSE -gt 9 ] && set -x #------------------------------------------------------------------ debug 2 "$appname: starting execution, params <$*>"; slibclean # Function to allow perl modules compiled for a "freeware" (/usr/local) # perl to be installed on top of an "IBM" (/usr/opt/perl5) perl. make_perl_f2i_links() { # Clean up historic symbolic links if there's any... [ -h /usr/opt/perl5/lib ] && rm /usr/opt/perl5/lib [ -h /usr/opt/perl5/bin/perl ] && rm /usr/opt/perl5/bin/perl # Make /usr/local/lib/perl5 be a symbolic link to IBM perl lib dir. if [ ! -e /usr/local/lib/perl5 ] && [ -d /usr/opt/perl5/lib ] then [ -d /usr/local/lib ] || cmd mkdir -p /usr/local/lib cmd ln -s /usr/opt/perl5/lib /usr/local/lib/perl5 fi if [ ! -e /usr/local/bin/perl ] && [ -e /usr/opt/perl5/bin/perl ] then [ -d /usr/local/bin ] || cmd mkdir /usr/local/bin cmd ln -s /usr/opt/perl5/bin/perl /usr/local/bin/perl fi } # Function to allow perl modules compiled for an "IBM" (/usr/opt/perl5) # perl to be installed on top of a "freeware" (/usr/local) perl. make_perl_i2f_links() { # Clean up historic symbolic links if there's any... [ -h /usr/local/lib/perl5 ] && rm /usr/local/lib/perl5 [ -h /usr/local/bin/perl ] && rm /usr/local/bin/perl # Make /usr/opt/perl5/lib be a symbolic link to standard perl lib dir. if [ ! -e /usr/opt/perl5/lib ] && [ -d /usr/local/lib/perl5 ] then [ -d /usr/opt/perl5 ] || cmd mkdir -p /usr/opt/perl5 cmd ln -s /usr/local/lib/perl5 /usr/opt/perl5/lib fi if [ ! -e /usr/opt/perl5/bin/perl ] && [ -e /usr/local/bin/perl ] then [ -d /usr/opt/perl5/bin ] || cmd mkdir /usr/opt/perl5/bin cmd ln -s /usr/local/bin/perl /usr/opt/perl5/bin/perl fi } mkgrp_usr() { if [ $# -ne 2 ] then debug 0 "Missing module-name parameter in remove_perllocal" debug 0 "can't remove module info from perllocal." return 1 fi user="$1"; group="$2" # First create new group... if ! lsgroup $group >/dev/null then print "making group '$group'" if ! mkgroup $group then print "Can't make group '$group'" print "Stopping" exit 2 fi else print "Group $group exists" fi if ! lsuser $user >/dev/null then echo "making user $user" if ! mkuser account_locked=true gecos="Automatic account" \ pgrp=$group login=false rlogin=false su=false \ sugroups="" $user then echo "Can't create user '$user'" echo "Stopping" exit 2 fi else echo "User $user exists" fi } make_perl_i2f_links exit 0 2172 88446 82626 976107495 0 0 644 35 freeware.perl.html.embperl.rte.size` ./usr 7 ./usr/local 5 ./usr/local/lib 3 ./usr/local/lib/HTML-Embperl-1.3 164 ./usr/local/lib/HTML-Embperl-1.3/test 13 ./usr/local/lib/HTML-Embperl-1.3/test/html 276 ./usr/local/lib/HTML-Embperl-1.3/test/html/nph 15 ./usr/local/lib/HTML-Embperl-1.3/test/html/errdoc 5 ./usr/local/lib/HTML-Embperl-1.3/test/html/errdoc/epl 3 ./usr/local/lib/HTML-Embperl-1.3/test/html/allform 2 ./usr/local/lib/HTML-Embperl-1.3/test/html/match 16 ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject 28 ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base2 3 ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/lib 3 ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base3 2 ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj 9 ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub 5 ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/subsub 4 ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/subsub/subsubsub 2 ./usr/local/lib/HTML-Embperl-1.3/test/html/rawinput 5 ./usr/local/lib/HTML-Embperl-1.3/test/html/opmask 16 ./usr/local/lib/HTML-Embperl-1.3/test/html/stdout 2 ./usr/local/lib/HTML-Embperl-1.3/test/html/registry 19 ./usr/local/lib/HTML-Embperl-1.3/test/html/noerr 4 ./usr/local/lib/HTML-Embperl-1.3/test/html/ofunc 8 ./usr/local/lib/HTML-Embperl-1.3/test/html/safe 9 ./usr/local/lib/HTML-Embperl-1.3/test/html/ifuncsrc 4 ./usr/local/lib/HTML-Embperl-1.3/test/html/nochdir 3 ./usr/local/lib/HTML-Embperl-1.3/test/conf 25 ./usr/local/lib/HTML-Embperl-1.3/test/cmp 453 ./usr/local/lib/HTML-Embperl-1.3/eg 10 ./usr/local/lib/HTML-Embperl-1.3/eg/images 10 ./usr/local/lib/HTML-Embperl-1.3/eg/x 66 ./usr/local/man 3 ./usr/local/man/man3 453 ./usr/lpp 3 ./usr/lpp/freeware.perl.html.embperl 1 ./usr/opt 3 ./usr/opt/perl5 3 ./usr/opt/perl5/lib 3 ./usr/opt/perl5/lib/site_perl 3 ./usr/opt/perl5/lib/site_perl/5.005 3 ./usr/opt/perl5/lib/site_perl/5.005/aix 5 ./usr/opt/perl5/lib/site_perl/5.005/aix/auto 3 ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/HTML 3 ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/HTML/Embperl 495 ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML 821 ./usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Embperl 44 3013 91614 86124 975518640 0 0 755 39 freeware.perl.html.embperl.rte.unpost_i` #!/usr/bin/ksh LANG=C VERBOSE=${VERBOSE:-"0"} # simple debug system appname="${0##*/}" # $(basename $0) # Pre- and Post install template scripts # Copyright (C) 2000 GROUPE BULL # all rights reserved. # # author: Ciaran Deignan (Ciaran.Deignan@bull.net) # started: July 1997, last modified July 2000 # version: 2.0 #------------------------------------------------------------------ # GLOBAL UTILITIES #------------------------------------------------------------------ # Debug message print function (v1.0 - July 1998) debug() { integer lev=$1 shift [ $VERBOSE -ge $lev ] && print -- "$@" >&2 return 0 } # error handler (v2.1 - July 1998): cmd() { debug 7 "CMD: execute '$@'" eval '"$@"' [ $? -ne 0 ] && debug 0 "$appname: CMD: error detected in '$@'" \ && print exit 2 } typeset -xf cmd debug [ $VERBOSE -gt 9 ] && set -x #------------------------------------------------------------------ debug 2 "$appname: starting execution, params <$*>"; # Function to update the file /usr/local/info/dir # This function should be used if the LPP delivers files into # /usr/local/info # NOTE: the file /usr/local/info/dir should *never* be delivered directly... update_info_dir() { if ! [ -d /usr/local/info ] then debug 1 "No info directory found !" debug 1 "stopping" return 0 fi if type gen-dir-node >/dev/null 2>&1 then print "Updating info \"root\" file (/usr/local/info/dir)" cmd cd /usr/local/info [ -f dir ] && cmd mv dir dir.bak cmd gen-dir-node /usr/local/info/ > dir cmd chmod 444 dir fi } # Perl module update function... remove_perllocal () { if [ $# -ne 1 ] then debug 0 "Missing module-name parameter in remove_perllocal" debug 0 "can't remove module info from perllocal." return 0 fi modulename="$1" if [ "$PERLLIB" = "" ] || [ ! -d "$PERLLIB" ] then print "remove_perllocal: PERLLIB not defined (=$PERLLIB)" return 0 fi archdir=${archdir:-"aix"} # the directory /usr/local/lib/perl5/ ($PERLLIB) should exist, or might # be a symbolic link to /usr/opt/perl5/lib.... if ! cd $PERLLIB/. then print "Perl not installed correctly, can't find directory" print "$PERLLIB" exit 1 fi if ! ls */$archdir/perllocal.pod > /dev/null 2>&1 then filename=$(ls -td 5.*/$archdir | line) if [ "$filename" = "" ] then cmd print "Perl not installed correctly, can't find \c" cmd print "directory $PERLLIB/5.00*/$archdir" exit 3 fi filename="$filename/perllocal.pod" else filename=$(cmd ls -t */$archdir/perllocal.pod | line) fi # use a small perl script to remove the module info # (I hope this isn't too "wildcard"...) cmd perl -w -n -i.bak -e ' $line = $_; if (defined ($flag) && ($flag == 2)) { undef $flag ;} $flag=1 if $line =~ /^=head2\s+.*L<'"$modulename"'>/; print $line if !defined($flag); $flag=2 if $line =~ /^=back/;' $filename } #PERLLIB=/usr/local/lib/perl5/ PERLLIB=/usr/opt/perl5/lib/ #archdir=ia64-aix remove_perllocal "HTML::Embperl" exit 0 427 0 88446 0 0 0 0 0 ` 7 128 16736 18198 79630 82626 86124 88446 freeware.perl.html.embperl.rte.alfreeware.perl.html.embperl.rte.copyrightfreeware.perl.html.embperl.rte.inventoryfreeware.perl.html.embperl.rte.post_ifreeware.perl.html.embperl.rte.pre_ifreeware.perl.html.embperl.rte.sizefreeware.perl.html.embperl.rte.unpost_i5/li kY77.:4c+:4c+:,p7./usr/local/lib/HTML-Embperl-1.3/Changes.pod/usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Changes.pod kJ9Z77.:4c+:4c+:,pÂ7./usr/local/lib/HTML-Embperl-1.3/Embperl.pod/usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Embperl.pod k`[87.:4c+:4c+:,p8./usr/local/lib/HTML-Embperl-1.3/EmbperlD.pod/usr/opt/perl5/lib/site_perl/5.005/aix/HTML/EmbperlD.pod kV}\37.:4c+:4c+:,p3./usr/local/lib/HTML-Embperl-1.3/Faq.pod.pod/usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Faq.pod.pod ktC]87.:4c+:4c+:,pn8./usr/local/lib/HTML-Embperl-1.3/Features.pod/usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Features.pod k^97.:4c+:4c+:,p-9./usr/local/lib/HTML-Embperl-1.3/FeaturesD.pod/usr/opt/perl5/lib/site_perl/5.005/aix/HTML/FeaturesD.pod kvJ_77.:4c+:4c+:,p.7./usr/local/lib/HTML-Embperl-1.3/INSTALL.podd/usr/opt/perl5/lib/site_perl/5.005/aix/HTML/INSTALL.pod kR`57.:4c+:4c+:,p5./usr/local/lib/HTML-Embperl-1.3/Intro.poddd/usr/opt/perl5/lib/site_perl/5.005/aix/HTML/Intro.podd kꦎa67.:4c+:4c+:,p6./usr/local/lib/HTML-Embperl-1.3/IntroD.podd/usr/opt/perl5/lib/site_perl/5.005/aix/HTML/IntroD.pod kbS7.:c+:c+:,PS./usr/local/lib/HTML-Embperl-1.3/MANIFESTdd/Changes.pod Embperl.pm Embperl.xs Cmd.xs DOM.xs EmbperlObject.pm MANIFEST Makefile.PL README TODO Faq.pod CVS.pod INSTALL.pod NEWS.pod Intro.pod Embperl.pod Features.pod EmbperlD.pod IntroD.pod FeaturesD.pod typemap eg/README eg/images/jazzbkgd.gif eg/x/neu.htm eg/x/table.htm eg/x/loop.htm eg/x/lists.htm eg/x/config.htm eg/x/if.htm eg/x/dbi1.htm eg/x/dbi2.htm eg/x/input.htm eg/x/recordset.htm eg/x/Execute.pl eg/x/upload.htm embperl.h embpexec.pl.templ embpexec.bat.templ embpcgi.pl.templ embpcgi.bat.templ embpcgi.test.pl.templ ep.h epdat.h epio.c epmain.c epchar.c epchar.c.iso-latin-2 epchar.c.min epeval.c epcmd.c eputil.c epnames.h epmacro.h epdbg.c test.pl test/html/ascii test/html/binary.htm test/html/pure.htm test/html/plain.htm test/html/plainblock.htm test/html/error.htm test/html/unclosed.htm test/html/notallow.xhtm test/html/noerr/noerrpage.htm test/html/errdoc/errdoc.htm test/html/errdoc/epl/errdoc2.htm test/html/errmsg.htm test/html/errmsg2.htm test/html/escape.htm test/html/escraw.htm test/html/spaces.htm test/html/if.htm test/html/ifperl.htm test/html/mix.htm test/html/table.htm test/html/tabmode.htm test/html/lists.htm test/html/nesting.htm test/html/loop.htm test/html/loopperl.htm test/html/taint.htm test/html/input.htm test/html/var.htm test/html/varerr.htm test/html/varepvar.htm test/html/hidden.htm test/html/java.htm test/html/inputjava.htm test/html/heredoc.htm test/html/tagscan.htm test/html/tagscandisable.htm test/html/inc.htm test/html/sub.htm test/html/registry/Execute.htm test/html/registry/errpage.htm test/html/registry/tied.htm test/html/include.htm test/html/incsub.htm test/html/incerr.htm test/html/incparam.htm test/html/includeerr1.htm test/html/includeerr2.htm test/html/callsub.htm test/html/importsub.htm test/html/importsub2.htm test/html/importmodule.htm test/html/recursexec.htm test/html/subimp.htm test/html/subimp.pm test/html/div.htm test/html/object.htm test/html/discard.htm test/html/taint.htm test/html/reqrec.htm test/html/safe/safe.htm test/html/opmask/opmask.htm test/html/opmask/opmasktrap.htm test/html/rawinput/rawinput.htm test/html/chdir.htm test/html/http.htm test/html/exit.htm test/html/exit2.htm test/html/exit3.htm test/html/post.htm test/html/upload.htm test/html/nochdir/nochdir.htm test/html/allform/allform.htm test/html/stdout/stdout.htm test/html/nph/div.htm test/html/nph/npherr.htm test/html/nph/nphinc.htm test/html/nph/incshort.htm test/html/match/div.htm test/html/match/div.asc test/html/ofunc/div.htm test/html/ifuncsrc/proxy.htm test/html/setsess.htm test/html/getsess.htm test/html/getnosess.htm test/html/mdatsess.htm test/html/execgetsess.htm test/html/clearsess.htm test/html/delsess.htm test/html/getdelsess.htm test/html/getbsess.htm test/html/delrdsess.htm test/html/delwrsess.htm test/html/setbadsess.htm test/html/setunknownsess.htm test/html/registry/reggetsess.htm test/html/EmbperlObject/epobase.htm test/html/EmbperlObject/epohead.htm test/html/EmbperlObject/epofoot.htm test/html/EmbperlObject/epopage1.htm test/html/EmbperlObject/epodiv.htm test/html/EmbperlObject/sub/subsub/eposubsub.htm test/html/EmbperlObject/sub/subsub/subsubsub/eposubsub.htm test/html/EmbperlObject/eposubsub.htm 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/html/EmbperlObject/obj/epoobj4.htm test/html/EmbperlObject/base2/epobase2.htm test/html/EmbperlObject/base2/epostopdir.htm test/html/EmbperlObject/base3/epobaselib.htm test/html/EmbperlObject/lib/epobase3.htm test/html/EmbperlObject/lib/epolib.htm test/cmp/ascii test/cmp/binary.htm test/cmp/pure.htm test/cmp/plain.htm test/cmp/plainblock.htm test/cmp/error.htm test/cmp/unclosed.htm test/cmp/noerrpage.htm test/cmp/escape.htm test/cmp/escraw.htm test/cmp/spaces.htm test/cmp/if.htm test/cmp/ifperl.htm test/cmp/table.htm test/cmp/tabmode.htm test/cmp/lists.htm test/cmp/nesting.htm test/cmp/loop.htm test/cmp/loopperl.htm test/cmp/mix.htm test/cmp/taint.htm test/cmp/input.htm test/cmp/var.htm test/cmp/varerr.htm test/cmp/varerr.htm56 test/cmp/varepvar.htm test/cmp/hidden.htm test/cmp/java.htm test/cmp/inputjava.htm test/cmp/tagscan.htm test/cmp/tagscandisable.htm test/cmp/Execute.htm test/cmp/errpage.htm test/cmp/tied.htm test/cmp/include.htm test/cmp/includeerr1.htm test/cmp/includeerr2.htm test/cmp/callsub.htm test/cmp/importsub.htm test/cmp/importsub2.htm test/cmp/importmodule.htm test/cmp/recursexec.htm test/cmp/sub.htm test/cmp/div.htm test/cmp/object.htm test/cmp/discard.htm test/cmp/safe.htm test/cmp/taint.htm test/cmp/reqrec.htm test/cmp/opmask.htm test/cmp/opmasktrap.htm test/cmp/rawinput.htm test/cmp/chdir.htm test/cmp/nochdir.htm test/cmp/allform.htm test/cmp/stdout.htm test/cmp/http.htm test/cmp/exit.htm test/cmp/exit2.htm test/cmp/exit3.htm test/cmp/heredoc.htm test/cmp/post.htm test/cmp/upload.htm test/cmp/npherr.htm test/cmp/nphinc.htm test/cmp/div.asc test/cmp/setsess.htm test/cmp/getsess.htm test/cmp/getnosess.htm test/cmp/mdatsess.htm test/cmp/execgetsess.htm test/cmp/delsess.htm test/cmp/getdelsess.htm test/cmp/reggetsess.htm test/cmp/errdoc.htm test/cmp/errdoc2.htm test/cmp/clearsess.htm test/cmp/epopage1.htm test/cmp/epodiv.htm test/cmp/epopage2.htm test/cmp/eposubsub.htm test/cmp/eposubsub.htm3 test/cmp/epoobj1.htm test/cmp/epoobj2.htm test/cmp/epoobj3.htm test/cmp/epoobj4.htm test/cmp/eponotfound.htm test/cmp/epostopdir.htm test/cmp/epobaselib.htm test/cmp/getbsess.htm test/cmp/delrdsess.htm test/cmp/delwrsess.htm test/cmp/setbadsess.htm test/cmp/setunknownsess.htm test/conf/httpd.conf.src test/conf/startup.pl test/conf/startup_dso.pl test/conf/ssldisable.conf test/conf/null Embperl/Module.pm Embperl/Session.pm Embperl/Mail.pm EmbperlLogo.gif mp.pm k ica7.:c+:c+:,0a./usr/local/lib/HTML-Embperl-1.3/README/HTML::Embperl - Embed Perl in Your HTML Documents Copyright (c) 1997-2000 Gerald Richter / ECOS You may distribute under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. OVERVIEW ======== Embperl gives you the power to embed Perl code in your HTML documents and the ability to build your Web site out of small reusable objects in a OO-style. You can also take advantage all available Perl modules, (including DBI for database access) use their functionality and easily include their output into your web pages. Embperl has several features especially useful for creating HTML, including dynamic tables, formfield-processing, escaping/unescaping, session handling, and more. Embperl is a server-side tool, which means that it's browser-independent. It can run in various ways: under mod_perl, as a CGI script, or offline. For database access, there is a module called DBIx::Recordset, which works well together with Embperl and simplifies creating web pages with database content. DOCUMENTATION ============= The following documentation is available within the distribution Features of Embperl: perldoc Features.pod Introduction to Embperl: perldoc Intro.pod Installation of Embperl: perldoc INSTALL.pod Full documentation: perldoc Embperl.pod perldoc EmbperlObject.pm perldoc Embperl/Mail.pm Frequent Asked Questions: perldoc Faq.pod Changes: perldoc Changes.pod Examples: eg/x/README All the above and further information can be found at the Embperl website http://perl.apache.org/embperl/ The following documentation is available in GERMAM Features of Embperl: perldoc FeaturesD.pod Introduction to Embperl: perldoc IntroD.pod Full documentation: perldoc EmbperlD.pod All the above and further information can be found at the german Embperl website http://www.ecos.de/embperl/ FEATURES ======== * Lets you embed Perl code into HTML documents. Perl code is evaluated at the server side and the result is sent to the browser. * Offers various meta-commands for conditional and loop processing of the HTML documents. * Automatically generates dynamic HTML tables/lists from Perl arrays or function calls (e.g. DBI fetch) * Form data send to your document is placed in a hash * Automatically inserts data from the form hash into HTML input, textarea and select tags * Understands HTML and URL escaping and unescaping * Handles per-user and per-module persistent session data for you. All you need to do is store and retrieve them to and from a special hash. * Allows you to build your web-site out of components. Frequently used elements can be defined once and included in every page. * EmbperlObject allows you to define the standard layout of your site just once and includes the neccessary components based on the uri. Your HTML documents just have to contain the unique stuff and not the common stuff like headers/footers or navigation bars. Also these common element can be overwritten in each subdirectory. * Gives you the possibility to build libraries with a set of frequently used Elements or components, and make them available to the whole web-site in the same way as Perl modules are - well, modularized. * Supports debugging of pages by generating a very detailed log file and making it accessible via the browser with a single click. * Generates verbose error pages in which every error can link to the log file. This is ideal for debugging. * Offers a lot of options for maximum configurability according to your personal tastes and needs. * Fully integrated into Apache and mod_perl to acheive the best performance. Can also run as a CGI-script, offline or called from another Perl program. * The Perl module DBIx::Recordset offers high level, easy to handle database access for Embperl. * If you are concerned about security you can configure Embperl to use Safe.pm. This way, your documents can run in a safe namespace which can allow or disallow certain Perl opcodes. * I gives you the possibility to send the result directly to a email address COMPATIBILITY ============= I have tested Embperl successfully on Linux 2.x with perl5.004_04 perl5.005_01/02/03 perl5.6.0 apache_1.2.5 - apache_1.3.14 apache + mod_ssl apache_ssl (Ben SSL) Stronghold 2.2 Stronghold 2.4.1 on Windows NT 4.0 with perl5.004_04 perl5.005_xx perl5.6.0 apache_1.3.0 - apache_1.3.12 on Windows 95/98 with perl5.004_02 (binary distribution) Offline mode perl5.005_03 + apache_1.3.6 I know from other people that it works on many other UNIX systems FEEDBACK and BUG REPORTS ======================== Please let me know if you use or test this module. Bugs, questions, suggestions for things you would find useful, etc., are discussed on the Embperl mailing list. If you have a site that is using Embperl, I would love to mention it in the list of sites using Embperl (http://perl.apache.org/embperl/Sites.pod.1.html). Please drop me a mail with a short description, if your site uses Embperl. The Embperl mailing list (embperl@perl.apache.org) is available for Embperl users and developers to share ideas, solve problems and discuss things related to Embperl To subscribe to this list, send mail to embperl-subscribe@perl.apache.org. To unsubscribe send email to embperl-unsubscribe@perl.apache.org . There is an archive for the Embperl mailing list at http://www.ecos.de/~mailarc/embperl/ For mod_perl related questions you may search the mod_perl mailing list archive at http://forum.swarthmore.edu/epigone/modperl COMMERICAL SUPPORT ================== You can get free support on the Embperl mailing list (see above). If you need commercial support, ecos can provide it for you. We offer: * Consulting, assitance and training for you and your programmers * Planning of your dynamic website * Creating of parts or a whole website * Fixing bugs in Embperl (also available for mod_perl) * Adding new features You can reach us via http://www.ecos.de or info@ecos.de For more information about our support see http://www.ecos.de/x/index.htm/support/eng_r_support.htm HOW TO SUPPORT THE DEVELOPEMENT OF EMBPERL ========================================== If you use and like Embperl and want to support it's ongoing developement you have two possibilities: 1. Send me patches for things you like to see in Embperl 2. Buy commercial support (see above). Also you _may_ get the same answers to your questions on the mailing list, by buying the commercial support you not only buy support for yourself and can be sure you get an answer, you also give us the possibility to put more power in the further developement of Embperl. LOGO ==== The Embperl distribution contains a "Powered by Embperl" Logo (EmbperlLogo.gif) which you may place at your Web-site if you like. AUTHOR ====== G. Richter (richter@dev.ecos.de) our HTM kd 7.:c+:c+:,@ު ./usr/local/lib/HTML-Embperl-1.3/TODOE/#TODO for Embperl Features -------- - Apache::Symbol::undef (avoid function redefinition warning) - @param -> @_ -> done in 2.0 - make optUndefToEmptyValue default [Steve Willer] -> done in 2.0 - whitespace intention [Todd Eigenshink] - make checkbox and option work without value attribute -> done in 2.0 - used named subroutines for debugging [Ert Dredge] - use ap_r.. instead of ap_b... ? - Remove space at the start and end of the line [Dirk Lutzebaeck] - gzip output [Andreas Koenig] - custom html tags -> done in 2.0 - url rewriting for session id -> planned for 2.x - disableHTMLScan inside $c = k$7.:xc+:xc+:&`./usr/local/lib/HTML-Embperl-1.3/test/html/getdelsess.htmhtm/ Tests for Embperl - Set Session Data fdat:
[- @ks = sort keys %fdat -]
[+ $ks[$row] +][+ $fdat{$ks[$row] || ''} +]
udat:
[- $off = 0 ; $off-- if ($HTML::Embperl::SessionMgnt == 2 && !defined (tied (%udat) -> getid)) ; -] [- @ks = grep (!/^_/, sort (keys %udat)) ; $num = keys (%udat) - $#ks - 1 + $off ; -]
[+ $ks[$row] +][+ $udat{$ks[$row] || ''} +]
[+ $num > 0?"ok (num=$num)":"Not a session hash (num=$num)" +]

[- while (($k, $v) = each (%fdat)) { $udat{$k} = $fdat{$k} ; } -] $mdat{cnt} = -[+ $mdat{cnt} ; +]-
$udat{cnt} = -[+ $udat{cnt} ; +]-
[- $s = $Apache::Session::Win32::sessions || $Apache::Session::MemoryStore::store -] [- @ks = sort keys %$s -] sessions:
[+ $ks[$row] +][+ $s -> {$ks[$row] || ''} +]
P>Ok k 7.:xc+:xc+:&pf ./usr/local/lib/HTML-Embperl-1.3/test/html/includeerr2.htmtm/ Embperl Tests - Errors in Include other Embperl pages via Execute 2

Embperl Tests - Errors in Include other Embperl pages via Execute 2

[- Execute ( {inputfile => 'incsub.htm', req_rec => $req_rec, param => [undef, 'main']}) -] [- Execute ( {inputfile => 'incerr.htm', req_rec => $req_rec, param => ['err', 'main']}) -] [- Execute ( {inputfile => 'inc.htm', req_rec => $req_rec}) -]

HTML::Embperl (c) 1997-1998 G.Richter > [ kxW7.:xc+:xc+:&pa W./usr/local/lib/HTML-Embperl-1.3/test/html/callsub.htmh/ Tests for Embperl - Embperl sub Metacommand [###### first sub #####] [$sub txt$] *txt* *txt*

Here goes some normal html text

*txt* [$endsub$] [###### second sub #####] [$sub perl_code $] *perl_code* *perl_code* Here comes some perl: *perl_code* *perl_code* [- $foo = 'Hello world' -] *perl_code* *perl_code* foo = [+ $foo +]
*perl_code* testdata = [+ $testdata +]
*perl_code* [$endsub$] [###### main page #####]

Tests for Embperl - Embperl sub Metacommand

[- $testdata = 'abcd' -] Now we call the first sub via Execute: [- Execute ('#txt') -] And now the second via Execute: [- Execute ('#perl_code') -] Now we call the first sub via Perl: [- txt -] And now the second via Perl: [- perl_code -] -> Second time, other order: And now the second via Perl: [- perl_code -] Now we call the first sub via Perl: [- txt -] -> And Execute again, but other order And now the second via Execute: [- Execute ('#perl_code') -] Now we call the first sub via Execute: [- Execute ('#txt') -] And done! e k{s7.:xc+:xc+:&` s./usr/local/lib/HTML-Embperl-1.3/test/html/subimp.pmmh/ package subimp ; #require HTML::Embperl::Module ; #@ISA = qw{HTML::Embperl::Module} ; #HTML::Embperl::Module::init (\*DATA) ; #1 ; { local $/ = undef ; my $data = ; # compile page HTML::Embperl::Execute ({inputfile => __FILE__, input => \$data, mtime => -M __FILE__ , import => 0, options => HTML::Embperl::optKeepSrcInMemory, package => __PACKAGE__}) ; } # import subs sub import { HTML::Embperl::Execute ({inputfile => __FILE__, import => 2, package => __PACKAGE__}) ; 1 ; } 1 ; __DATA__ [###### first sub #####] [$sub tfirst$]

1.) Here goes some normal html text

[$endsub$] [###### second sub #####] [$sub tsecond $] 2.) Here comes some perl: [- $foo = 'Hello world' -] foo = [+ $foo +]
testdata = [+ $testdata +]
params in sub.pm = [+ "@_" +] [$endsub$] [###### table cell #####] [$sub tabcell $] [+ $_[0] -> [$row][$col] +] [$endsub$] [###### table header #####] [$sub tabheader $] [$endsub$] [###### table footer #####] [$sub tabfooter $]
12>
[$endsub$] ) $]  k67.:xc+:xc+:&`~6./usr/local/lib/HTML-Embperl-1.3/test/html/tabmode.htmh/ [- undef @a ; undef @b ; $a[0][0] = 'a1/1' ; $a[1][0] = 'a2/1' ; $a[1][1] = 'a2/2' ; $a[2][0] = 'a3/1' ; $a[2][1] = 'a3/2' ; $a[2][2] = 'a3/3' ; $b[0][0] = 'b1/1' ; $b[1][0] = 'b2/1' ; $b[1][1] = 'b2/2' ; $b[2][0] = 'b3/1' ; $b[2][1] = 'b3/2' ; $b[2][2] = 'b3/3' ; $maxcol=99 ; -] $a[0][[0] = '1/1' ;
$a[1][[0] = '2/1' ;
$a[1][[1] = '2/2' ;
$a[2][[0] = '3/1' ;
$a[2][[1] = '3/2' ;
$a[2][[2] = '3/3' ;

$tabmode = default

[+ $a[$row][0] +]
1 2 3
[+ $a[$row][$col] +]
[+ $b[2][$col] +]
[+ $a[$row][$col] +]

$tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4

[- $tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4 -]
[+ $a[$row][$col] +]

$tabmode=1 + 32 ;

[- $tabmode=1 + 32 ; -]
[+ $a[$row][$col] +]
optDisableTableScan is now: [+ $optDisableTableScan +]
optDisableTableScan is set now to: [+ $optDisableTableScan = 1 +]
optDisableTableScan is now: [+ $optDisableTableScan +]
[+ $a[$row][$col] +]
optDisableTableScan is now: [+ $optDisableTableScan +]
optDisableTableScan is set now to: [+ $optDisableTableScan = 0 +]
optDisableTableScan is now: [+ $optDisableTableScan +]
[+ $a[$row][$col] +]
+ kF7.:xc+:xc+:&`./usr/local/lib/HTML-Embperl-1.3/test/html/mix.htmhtmh/ Embperl Tests - Mix top level perl, with subroutines and metacommands Here it starts with some HTML Text

All values should be undefined: [* $a = 'global value' ; *]
global value: $a = [+ $a || '' +]
[* { local $a ; *] $a = [+ $a || '' +]
[* $a = 'lokal value' ; *]
lokal value: $a = [+ $a || '' +]
[* } *] again global value: $a = [+ $a || '' +]
[* @x = (1, 4 ,8, 17) ; *] [- $i = 0 -] [$ while $i <= $#x $] [+ $i +] = [+ $x[$i] +]
[* $j = 0 ; *] [$ while $j <= $i $] [+ $j++ +] [$ endwhile $]
[* $i++ ; *] [$ endwhile $] [- undef @b ; $b[0][0] = 'b1/1' ; $b[1][0] = 'b2/1' ; $b[1][1] = 'b2/2' ; $b[2][0] = 'b3/1' ; $b[2][1] = 'b3/2' ; $b[2][2] = 'b3/3' ; -]
[* $i = $row ; *][+ $i +][+ $b[$row][$col] +]
ax kn}7.:xc+:xc+:&p }./usr/local/lib/HTML-Embperl-1.3/test/html/exit2.htmmh/ Tests for Embperl - Apache::Exit Before Exit [- exit -] After Exit sta k7.:xc+:xc+:&`./usr/local/lib/HTML-Embperl-1.3/test/html/upload.htmh/ Embperl Tests - File-Upload

Embperl Tests - File-Upload

[+ $cgiok = $CGI::VERSION > 2.45 ; @info = sort keys %{$fdat{-upload}} ; $cgiok?"@info":'Content-Disposition Content-Type' +] Filename: [+ $cgiok?$fdat{upload}:'upload-filename' +]
Content-Type: [+ $cgiok?$fdat{-upload} -> {'Content-Type'}:'test/plain' +]
CGI-Version: [+ $CGI::VERSION +] cgiok [+ $cgiok +] [- $buf .= $buffer while read($fdat{upload}, $buffer, 32768); -] Your file has been the content ---------- [+ $buf +] ----------
content: [+ $fdat{content} +]
multval: [+ join (';', split ("\t", $fdat{multval})) +]
single: [+ $fdat{single} +]

[# eval 'use IO::Handle' ; $h = undef ; eval '$h = IO::Handle -> new_from_fd (fileno ($fdat{upload}), "r")' ; -] [+ if ($h) { @s = $h -> stat ; $s[7]} else { '8219' } +] #]

HTML::Embperl (c) 1997-1998 G.Richter maxrow k7.:xc+:xc+:&p./usr/local/lib/HTML-Embperl-1.3/test/html/incparam.htm/Here is param[0] -> [+ $param[0] +]
Here is param[1] -> [+ $param[1] +]
Here is param[2] -> [+ $param[2] +]
Here is param[3] -> [+ $param[3] +]
Here is param[4] -> [+ $param[4] +]
Dispos k7.:xc+:xc+:&`./usr/local/lib/HTML-Embperl-1.3/test/html/loopperl.htm/ Test for Embperl - Loop Metacommand [- $i = 0 -] [* while ($i <= $#ffld) { *] [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +] [- $j = 0 -] [* while ($j <= $i) { *] [+ $j++ +] [* } *]
[- $i++ -] [* } *] [- $i = 0 -] [* while($i <= 2) {*] [+ $i++ +] [* } *] [- %h = ('A' => 1, 'B' => 2, 'C' => 3) ; -] [- @a = ('a', 'b', 'c', 'd') ; -] [* while (($v, $k) = each (%h)) { *] [+ "$v = $k" +]
[* } *] [- $i = 0 -] [* while ($i <= $#a) { *] [+ "\@a[$i] = $a[$i]" +]
[- $i++ -] [* } *] [- $i = 0 -] [* do { *] [+ "\@a[$i] = $a[$i]" +]
[- $i++ -] [* } until ($i > $#a) ; *] [* foreach $v (@a) { *] [+ $v +]
[* } *] [* foreach $v (1, 3, 5, 7, 9) { *] [+ $v +]
[* } *] [* foreach $v (1..10) { *] [+ $v +]
[* } *] [- $i = 0 -] [* do { *] [+ "\@a[$i] = $a[$i]" +]
[* while (($v, $k) = each (%h)) { *] [+ "$v = $k" +]
[* foreach $fv (1, 3, 5, 7, 9) { *] [+ $fv +]
[* } *] [* foreach $fv (1) { *] [+ $fv +]
[* while (($wv, $wk) = each (%hhh)) { *] [+ "$wv = $wk" +]
[* } *] [* } *] [* } *] [- $i++ -] [* } until ($i > $#a) ; *]  k87.:xc+:xc+:&p./usr/local/lib/HTML-Embperl-1.3/test/html/pure.htmhtm/ Some tests for Embperl Here it starts with some HTML Text

This pure HTML Text. Nothing todo for Embperl,
just pass it thru...

Ok.

= $i) k7.:xc+:xc+:&`./usr/local/lib/HTML-Embperl-1.3/test/html/plainblock.htmtm/ Some Plain tests for Embperl Here it starts with some HTML Text

All values should be undefined: $a = [+ $a || '' +]
$b = [+ $b || '' +]
$c = [+ $c || '' +]
$d = [+ $d || '' +]
$e = [+ $e || '' +]
First of all assign a value: [* $a = '(this is the value in $a)' ; *]
Now we have some 'Umlaute': [* $b = "$a äöü" ; *] Now lets look what we are getting from this:
[+ $a +] [+ $b +]
And now a and b together: [+ "$a$b" +]

Here we have some HTML tags within the perl code, Embperl will delete them!
[+ $c =
6 + 17 * 3    + 0 +] [+ "SELECT *
FROM a ORDER BY b USING <; Hi There>" +] Here we have something which looks like a HTML tag, but does not start with
a character, Embperl does not change them!
[+ "SELECT * FROM a ORDER BY b USING <; Hi There>" +] Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
[* $e = 2 ; *] [+ $d = $e < 6 +] Now they should have a value $a = [+ $a +]
$b = [+ $b +]
$c = [+ $c +]
$d = [+ $d +]
$e = [+ $e +]

Ok.

D kt 7.:xc+:xc+:&P ./usr/local/lib/HTML-Embperl-1.3/test/html/div.htmck.ht/ Some Plain tests Embperl Here it starts with some HTML Text

All values should be undefined: $a = [+ $a || '' +]
$b = [+ $b || '' +]
$c = [+ $c || '' +]
$d = [+ $d || '' +]
$e = [+ $e || '' +]
First of all assign a value: [- $a = '(this is the value in $a)' -]
Now we have some 'Umlaute': [- $b = "$a äöü" -] Now lets look what we are getting from this:
[+ $a +] [+ $b +]
And now a and b together: [+ "$a$b" +]

Here we have some HTML tags within the perl code, Embperl will delete them!
[+ $c =
6 + 17 * 3 +] Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
[- $e = 2 -] [+ $d = $e < 6 +] Now they should have a value $a = [+ $a +]
$b = [+ $b +]
$c = [+ $c +]
$d = [+ $d +]
$e = [+ $e +]
[- $a = 1; $b = 0; $c = 5; $d = 'txt' -] [$if $a$] a
[$ endif$] [$if $a $] a
[$else$] not a
[$ endif $] [$ if $a$] a
[$if $b == 0$] b is null
[$else$] b is not null
[$endif$] [$ else$] not a
[$ endif $] [$ if $a$] a
[$if $b == 0$] b is null
[$else$] b is not null
[$endif$] [$ else$] not a
[$if $b == 0$] b is null
[$else$] b is not null
[$endif$] [$ endif $] [$ if !$a$] not a
[$if $b == 0$] b is null
[$else$] b is not null
[$endif$] [$ else$] a
[$if $b == 0$] b is null
[$else$] b is not null
[$endif$] [$ endif $] [- $i = 0 -] [$ while $i <= $#ffld $] [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +] [- $j = 0 -] [$ while $j <= $i $] [+ $j++ +] [$ endwhile $]
[- $i++ -] [$ endwhile $]
[+ $c[$row][$col] +]

$tabmode = default

Display an two dimensional array with one, two and three columns !
Please take a look at the source in your browser to see the difference
[- undef @a ; undef @b ; $a[0][0] = 'a1/1' ; $a[1][0] = 'a2/1' ; $a[1][1] = 'a2/2' ; $a[2][0] = 'a3/1' ; $a[2][1] = 'a3/2' ; $a[2][2] = 'a3/3' ; $b[0][0] = 'b1/1' ; $b[1][0] = 'b2/1' ; $b[1][1] = 'b2/2' ; $b[2][0] = 'b3/1' ; $b[2][1] = 'b3/2' ; $b[2][2] = 'b3/3' ; $maxcol=99 ; -] $a[0][[0] = '1/1' ;
$a[1][[0] = '2/1' ;
$a[1][[1] = '2/2' ;
$a[2][[0] = '3/1' ;
$a[2][[1] = '3/2' ;
$a[2][[2] = '3/3' ;

$tabmode = default

[+ $a[$row][$col] +]
[+ $a[$row][$col] +]
[+ $a[$row][$col] +]
[+ $b[$row][$col] +]
[+ $a[$row][$col] +]

[+ $HTML::Embperl::VERSION +]

[+ $tabmode || 17 +]

[+ local $tabmode = 1 +]

[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
[+ $ii[$row] +]
t k:(7.:xc+:xc+:&p?(./usr/local/lib/HTML-Embperl-1.3/test/html/incsub.htmht/[+ "Start include" +] [- @a = ('s1', 's2', 's3') -]
[+ "$param[0] - " +][+ $a[$col] +]
Parameters:
[+ $param[$col] +]
p0 [+ $param[0] +] p1 [+ $param[1] +] [+ "End include" +]  k1 7.:xc+:xc+:&` 1 ./usr/local/lib/HTML-Embperl-1.3/test/html/lists.htmht/ Lists [- @k = (1, 2, 3, 4, 5, 6) -] [- @v = ('A', 'B', 'C', 'D', 'E', 'F') -]

OL Tag

  1. [+ $k[$row] +] = [+ $v[$row] +]

UL Tag

  • [+ $k[$row] +] = [+ $v[$row] +]

Select Tag

If you request this document with list.htm?sel=n you can specify that the nth element of the dropdownlist is initialy selected

Select Tag

If you request this document with list.htm?sel1=x you can specify that the element of the dropdownlist is initialy selected

Select Tag

If you request this document with list.htm?sel2=x you can specify that the element of the dropdownlist is initialy selected

DL Tag

[+ $k[$row] +]
[+ $v[$row] +]

MENU Tag

  • [+ $k[$row] +] = [+ $v[$row] +]
    •

    DIR Tag

  • [+ $k[$row] +] = [+ $v[$row] +]
    •  3/1' ;  k7.:xc+:xc+:&p./usr/local/lib/HTML-Embperl-1.3/test/html/setbadsess.htmtm/ Tests for Embperl - Set Session Data (with bad cookie) [- while (($k, $v) = each (%fdat)) { $udat{$k} = $fdat{$k} ; } -] [+ $udat{_session_id} +] p> Some Plain tests for Embperl Here it starts with some HTML Text

    All values should be undefined: $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]
    Here we will see an error: [- $a = (qqqqqqqqqqqqqq -] First of all assign a value: [- $a = '(this is the value in $a)' -]
    Now we have some 'Umlaute': [- $b = "$a äöü" -] Second Error:
    [+ $a+ +] [+ qq2$b +]
    And now a and b together: [+ "$a$b" +]

    Here we have some HTML tags within the perl code, Embperl will delete them!
    [+ $c =
    6 + 17 * 3 +] Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
    [- $e = 2 -] [+ $d = $e < 6 +] Now they should have a value [$if {$error is here ) $] $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]
    [$endif$]

    Ok.

     k7.:xc+:xc+:,`./usr/local/lib/HTML-Embperl-1.3/test/html/errdoc/epl/errdoc2.htm/ Some Plain tests for Embperl Here it starts with some HTML Text

    All values should be undefined: $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]
    Here we will see an error: [- $a = (qqqqqqqqqqqqqq -] First of all assign a value: [- $a = '(this is the value in $a)' -]
    Now we have some 'Umlaute': [- $b = "$a äöü" -] Second Error:
    [+ $a+ +] [+ qq2$b +]
    And now a and b together: [+ "$a$b" +]

    Here we have some HTML tags within the perl code, Embperl will delete them!
    [+ $c =
    6 + 17 * 3 +] Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
    [- $e = 2 -] [+ $d = $e < 6 +] Now they should have a value [$if {$error is here ) $] $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]
    [$endif$]

    Ok.

     k~ǘ7.:yc+:yc+:,p ./usr/local/lib/HTML-Embperl-1.3/test/html/allform/allform.htmt/ Tests for Embperl - optAllFormData optAllFormData: [+ $optAllFormData +]
    [- @ks = sort keys %fdat -]
    [+ $ks[$row] +][+ $fdat{$ks[$row] || ''} +]
    $a =  kNY[57.:yc+:yc+:,@5./usr/local/lib/HTML-Embperl-1.3/test/html/match/div.ascm.htmt/ Some Plain tests Embperl Here it starts with some HTML Text

    All values should be undefined: $a = [+ $a || '' +]
    $b = [+ $b || '' +]
    $c = [+ $c || '' +]
    $d = [+ $d || '' +]
    $e = [+ $e || '' +]
    First of all assign a value: [- $a = '(this is the value in $a)' -]
    Now we have some 'Umlaute': [- $b = "$a äöü" -] Now lets look what we are getting from this:
    [+ $a +] [+ $b +]
    And now a and b together: [+ "$a$b" +]

    Here we have some HTML tags within the perl code, Embperl will delete them!
    [+ $c =
    6 + 17 * 3 +] Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
    [- $e = 2 -] [+ $d = $e < 6 +] Now they should have a value $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]
    [- $a = 1; $b = 0; $c = 5; $d = 'txt' -] [$if $a$] a
    [$ endif$] [$if $a $] a
    [$else$] not a
    [$ endif $] [$ if $a$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] not a
    [$ endif $] [$ if $a$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] not a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ endif $] [$ if !$a$] not a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ endif $] [- $i = 0 -] [$ while $i <= $#ffld $] [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +] [- $j = 0 -] [$ while $j <= $i $] [+ $j++ +] [$ endwhile $]
    [- $i++ -] [$ endwhile $]
    [+ $c[$row][$col] +]

    $tabmode = default

    Display an two dimensional array with one, two and three columns !
    Please take a look at the source in your browser to see the difference
    [- undef @a ; undef @b ; $a[0][0] = 'a1/1' ; $a[1][0] = 'a2/1' ; $a[1][1] = 'a2/2' ; $a[2][0] = 'a3/1' ; $a[2][1] = 'a3/2' ; $a[2][2] = 'a3/3' ; $b[0][0] = 'b1/1' ; $b[1][0] = 'b2/1' ; $b[1][1] = 'b2/2' ; $b[2][0] = 'b3/1' ; $b[2][1] = 'b3/2' ; $b[2][2] = 'b3/3' ; $maxcol=99 ; -] $a[0][[0] = '1/1' ;
    $a[1][[0] = '2/1' ;
    $a[1][[1] = '2/2' ;
    $a[2][[0] = '3/1' ;
    $a[2][[1] = '3/2' ;
    $a[2][[2] = '3/3' ;

    $tabmode = default

    [+ $a[$row][$col] +]
    1 2 3
    [+ $a[$row][$col] +]
    [+ $b[2][$col] +]
    [+ $a[$row][$col] +]
    [+ $b[$row][$col] +]
    [+ $a[$row][$col] +]

    [+ $HTML::Embperl::VERSION +]

    [+ $tabmode +]

    [+ local $tabmode = 1 +]

    [- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
    [+ $ii[$row] +]
    $ba k5c 7.:yc+:yc+:,P ./usr/local/lib/HTML-Embperl-1.3/test/html/match/div.htmm.htmt/ Some Plain tests Embperl Here it starts with some HTML Text

    All values should be undefined: $a = [+ $a || '' +]
    $b = [+ $b || '' +]
    $c = [+ $c || '' +]
    $d = [+ $d || '' +]
    $e = [+ $e || '' +]
    First of all assign a value: [- $a = '(this is the value in $a)' -]
    Now we have some 'Umlaute': [- $b = "$a äöü" -] Now lets look what we are getting from this:
    [+ $a +] [+ $b +]
    And now a and b together: [+ "$a$b" +]

    Here we have some HTML tags within the perl code, Embperl will delete them!
    [+ $c =
    6 + 17 * 3 +] Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
    [- $e = 2 -] [+ $d = $e < 6 +] Now they should have a value $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]
    [- $a = 1; $b = 0; $c = 5; $d = 'txt' -] [$if $a$] a
    [$ endif$] [$if $a $] a
    [$else$] not a
    [$ endif $] [$ if $a$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] not a
    [$ endif $] [$ if $a$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] not a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ endif $] [$ if !$a$] not a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ endif $] [- $i = 0 -] [$ while $i <= $#ffld $] [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +] [- $j = 0 -] [$ while $j <= $i $] [+ $j++ +] [$ endwhile $]
    [- $i++ -] [$ endwhile $]
    [+ $c[$row][$col] +]

    $tabmode = default

    Display an two dimensional array with one, two and three columns !
    Please take a look at the source in your browser to see the difference
    [- undef @a ; undef @b ; $a[0][0] = 'a1/1' ; $a[1][0] = 'a2/1' ; $a[1][1] = 'a2/2' ; $a[2][0] = 'a3/1' ; $a[2][1] = 'a3/2' ; $a[2][2] = 'a3/3' ; $b[0][0] = 'b1/1' ; $b[1][0] = 'b2/1' ; $b[1][1] = 'b2/2' ; $b[2][0] = 'b3/1' ; $b[2][1] = 'b3/2' ; $b[2][2] = 'b3/3' ; $maxcol=99 ; -] $a[0][[0] = '1/1' ;
    $a[1][[0] = '2/1' ;
    $a[1][[1] = '2/2' ;
    $a[2][[0] = '3/1' ;
    $a[2][[1] = '3/2' ;
    $a[2][[2] = '3/3' ;

    $tabmode = default

    [+ $a[$row][$col] +]
    [+ $a[$row][$col] +]
    [+ $a[$row][$col] +]
    [+ $b[$row][$col] +]
    [+ $a[$row][$col] +]

    [+ $HTML::Embperl::VERSION +]

    [+ $tabmode || 17 +]

    [+ local $tabmode = 1 +]

    [- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
    [+ $ii[$row] +]
    $ ktg7.:yc+:yc+:,p)./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/eposubsub.htm/eposubsub in base dir  kh7.:yc+:yc+:,p7./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epofallback.htm/ Fallback PAGE  ki7.:yc+:yc+:,p8./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epobase.htmhtm/ Example [- Execute ('epohead.htm') -] [- Execute ('*') -] [- Execute ('epofoot.htm') -] '' k\j7.:yc+:yc+:,pt./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epohead.htmhtm/

    head from foo

     kkk7.:yc+:yc+:,@./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epodiv.htmhtm/ Some Plain tests Embperl [$ var $a $b $c $d $e $i $j $ii $v $k $fv @a %a @b %h @c @ii %hash $wv $wk $] Here it starts with some HTML Text

    All values should be undefined: $a = [+ $a || '' +]
    $b = [+ $b || '' +]
    $c = [+ $c || '' +]
    $d = [+ $d || '' +]
    $e = [+ $e || '' +]
    First of all assign a value: [- $a = '(this is the value in $a)' -]
    Now we have some 'Umlaute': [- $b = "$a äöü" -] Now lets look what we are getting from this:
    [+ $a +] [+ $b +]
    And now a and b together: [+ "$a$b" +]

    Here we have some HTML tags within the perl code, Embperl will delete them!
    [+ $c =
    6 + 17 * 3 +] Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
    [- $e = 2 -] [+ $d = $e < 6 +] Now they should have a value $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]
    [- $a = 1; $b = 0; $c = 5; $d = 'txt' -] [$if $a$] a
    [$ endif$] [$if $a $] a
    [$else$] not a
    [$ endif $] [$ if $a$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] not a
    [$ endif $] [$ if $a$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] not a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ endif $] [$ if !$a$] not a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ endif $] [- $i = 0 -] [$ while $i <= $#ffld $] [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +] [- $j = 0 -] [$ while $j <= $i $] [+ $j++ +] [$ endwhile $]
    [- $i++ -] [$ endwhile $]
    [+ $c[$row][$col] +]

    $tabmode = default

    Display an two dimensional array with one, two and three columns !
    Please take a look at the source in your browser to see the difference
    [- undef @a ; undef @b ; $a[0][0] = 'a1/1' ; $a[1][0] = 'a2/1' ; $a[1][1] = 'a2/2' ; $a[2][0] = 'a3/1' ; $a[2][1] = 'a3/2' ; $a[2][2] = 'a3/3' ; $b[0][0] = 'b1/1' ; $b[1][0] = 'b2/1' ; $b[1][1] = 'b2/2' ; $b[2][0] = 'b3/1' ; $b[2][1] = 'b3/2' ; $b[2][2] = 'b3/3' ; $maxcol=99 ; -] $a[0][[0] = '1/1' ;
    $a[1][[0] = '2/1' ;
    $a[1][[1] = '2/2' ;
    $a[2][[0] = '3/1' ;
    $a[2][[1] = '3/2' ;
    $a[2][[2] = '3/3' ;

    $tabmode = default

    [+ $a[$row][$col] +]
    [+ $a[$row][$col] +]
    [+ $a[$row][$col] +]
    [+ $b[$row][$col] +]
    [+ $a[$row][$col] +]

    [+ $HTML::Embperl::VERSION +]

    [+ $tabmode +]

    [+ local $tabmode = 1 +]

    [- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -] [- $i = 0 -] [$ while $i <= $#ffld $] [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +] [- $j = 0 -] [$ while $j <= $i $] [+ $j++ +] [$ endwhile $]
    [- $i++ -] [$ endwhile $] [- $i = 0 -] [$ while($i <= 2)$] [+ $i++ +] [$ endwhile $] [- %h = ('A' => 1, 'B' => 2, 'C' => 3) ; -] [- @a = ('a', 'b', 'c', 'd') ; -] [$ while ($v, $k) = each (%h) $] [+ "$v = $k" +]
    [$ endwhile $] [- $i = 0 -] [$ while $i <= $#a $] [+ "\@a[$i] = $a[$i]" +]
    [- $i++ -] [$ endwhile $] [- $i = 0 -] [$ do $] [+ "\@a[$i] = $a[$i]" +]
    [- $i++ -] [$ until $i > $#a $] [$ foreach $v (@a) $] [+ $v +]
    [$ endforeach $] [$ foreach $v (1, 3, 5, 7, 9) $] [+ $v +]
    [$ endforeach $] [$ foreach $v (1..10) $] [+ $v +]
    [$ endforeach $] [$ foreach $v(1..5) $] 2:[+ $v +]
    [$ endforeach $] [- %hash = ( a=>1, b=>2, c=>3) -] [$ foreach $v(keys %hash) $] 3:[+ $v +]
    [$ endforeach $] [- $i = 0 -] [$ do $] [+ "\@a[$i] = $a[$i]" +]
    [$ while ($v, $k) = each (%h) $] [+ "$v = $k" +]
    [$ foreach $fv (1, 3, 5, 7, 9) $] [+ $fv +]
    [$ endforeach $] [$ foreach $fv (()) $] [+ $fv +]
    [$ while ($wv, $wk) = each (%h) $] [+ "$wv = $wk" +]
    [$ endwhile $] [$ endforeach $] [$ endwhile $] [- $i++ -] [$ until $i > $#a $] [- undef @a ; undef @b -] [$ if 1 $] x [$ foreach $a (@a) $] [$ foreach $b (@b) $] [$ endforeach $] [$ endforeach $] y [$ endif $]
    [+ $ii[$row] +]
    =  kl7.:yc+:yc+:,pu./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epopage1.htmtm/ PAGE 1  k?m07.:yc+:yc+:,p0./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/epofoot.htmtm/

    Footer
    [+ $self -> {copyright} +]  k o07.:yc+:yc+:,p0./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base2/epostopdir.htm/ PAGE 1 (Header and Footer found with STOPDIR)  kꄉp7.:yc+:yc+:,p./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base2/epobase2.htmm/ Tests for Embperl - EmbperlObject - base 2 [- Execute ('epohead.htm') -] [- Execute ('*') -] [- Execute ('epolib.htm') -] [- Execute ('epofoot.htm') -] e kxr7.:yc+:yc+:,p./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/lib/epolib.htm/ PAGE from lib  ks7.:yc+:yc+:,p./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/lib/epobase3.htmmm/ Tests for Embperl - EmbperlObject - base 3 from lib [- Execute ('epohead.htm') -] [- Execute ('*') -] [- Execute ('epolib.htm') -] [- Execute ('epofoot.htm') -]  kIu7.:yc+:yc+:,p./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/base3/epobaselib.htm/ PAGE with base from lib ests fo kTw7.:yc+:yc+:,p./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epoobj3.htm.htm/ [! sub new { my $self = shift ; $self -> {fontsize} = 5 ; $self -> {copyright} = 'Gerald Richter / ecos (c) 2000' ; } sub title { 'epoobj3 -> page3' } !] PAGE 3- Execu kx7.:zc+:zc+:,p./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epoobj1.htm.htm/ PAGE 1  k> y07.:zc+:zc+:,p0./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epoobj2.htm.htm/ [! sub title { 'epoobj2 -> page2'} !] PAGE 2  ktzZ7.:zc+:zc+:,pZ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epobase.htm.htm/ [! sub new { my $self = shift ; $self -> {fontsize} = 1 ; } sub title { 'default' ; } !] [- $self = shift ; $self -> new ; -] Example using Objects: [+ $self -> title +] [- Execute ('epohead.htm') -] [- Execute ('*') -] [- Execute ('epofoot.htm') -] +] head from foo {fontsize} +]>title = [+ $self -> title +]
    ----------------------------- ]  kTo|07.:zc+:zc+:,p0./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epofoot.htm.htm/
    Footer
    [+ $_[0] -> {copyright} +]  k }7.:zc+:zc+:,p./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/obj/epoobj4.htm.htm/ [! sub new { my $self = shift ; $self -> {fontsize} = 9 ; $self -> {copyright} = 'Gerald Richter / ecos (c) 2000 [page 4]' ; } !] [$ sub title $]Embperl sub in title [$endsub$] PAGE 4 title kꞏ 7.:zc+:zc+:,p< ./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/epohead.htm.htm/

    another head from sub

     kq7.:zc+:zc+:,pS./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/epopage2.htmhtm/ PAGE 2  kg7.:zc+:zc+:,pUg./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/subsub/eposubsub.htm/---> eposubsub in sub/subsub ../* [- Execute ('../*') ; -] epopage1 [- Execute ('epopage1.htm') ; -] ../epopage1 [- Execute ('../epopage1.htm') ; -] epopage2 [- Execute ('epopage2.htm') ; -] ../epopage2 [- Execute ('../epopage2.htm') ; -] ../sub/epopage2 [- Execute ('../sub/epopage2.htm') ; -] ../eposubsub [- Execute ('../eposubsub.htm') ; -] <---n k`7.:zc+:zc+:,pt`./usr/local/lib/HTML-Embperl-1.3/test/html/EmbperlObject/sub/subsub/subsubsub/eposubsub.htm/---> eposubsub in sub/subsub/subsubsub ../eposubsub [- Execute ('../eposubsub.htm') ; -] <--- kVD7.:zc+:zc+:,`D./usr/local/lib/HTML-Embperl-1.3/test/html/rawinput/rawinput.htmub/subs/ Some Plain tests for Embperl using optRawInput Here it starts with some HTML Text

    All values should be undefined: $a = [+ $a || '' +]
    $b = [+ $b || '' +]
    $c = [+ $c || '' +]
    $d = [+ $d || '' +]
    $e = [+ $e || '' +]
    First of all assign a value: [- $a = '(this is the value in $a)' -]
    Now we have some 'Umlaute': [- $b = "$a äöü" -] Now lets look what we are getting from this:
    [+ $a +] [+ $b +]
    And now a and b together: [+ "$a$b" +]

    Here we have some HTML tags within the perl code,
    Embperl will not delete them when optRawInput is set !
    [+ $c = "
    6 + 17 * 3" +] Here we have something which looks like a HTML tag, but does not start with
    a character, Embperl does not change them!
    [+ "SELECT * FROM a ORDER BY b USING <; Hi There>" +] Embperl will not translate HMTL escapes to the right characters
    when optRawInput is set
    [- $e = 2 -] [+ $d = "$e < 6" +] Now they should have a value $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]

    Ok.

    optRawInput is now: [+ $optRawInput +]
    optRawInput is set now to: [+ $optRawInput = 1 +]
    optRawInput is now: [+ $optRawInput +]
    [+ $c = "
    6 + 17 * 3" +] [- $b = "$a äöü" -] Now lets look what we are getting from this:
    $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    optRawInput is now: [+ $optRawInput +]
    optRawInput is set now to: [+ $optRawInput = 0 +]
    optRawInput is now: [+ $optRawInput +]
    [+ $c = "
    6 + 17 * 3" +] [- $b = "$a äöü" -] Now lets look what we are getting from this:
    $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    hile k; 7.:zc+:zc+:,P ./usr/local/lib/HTML-Embperl-1.3/test/html/opmask/opmask.htmhtm/ Some Plain tests Embperl Here it starts with some HTML Text

    All values should be undefined: $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]
    First of all assign a value: [- $a = '(this is the value in $a)' -]
    Now we have some 'Umlaute': [- $b = "$a äöü" -] Now lets look what we are getting from this:
    [+ $a +] [+ $b +]
    And now a and b together: [+ "$a$b" +]

    Here we have some HTML tags within the perl code, Embperl will delete them!
    [+ $c =
    6 + 17 * 3 +] Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
    [- $e = 2 -] [+ $d = $e < 6 +] Now they should have a value $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]
    [- $a = 1; $b = 0; $c = 5; $d = 'txt' -] [$if $a$] a
    [$ endif$] [$if $a $] a
    [$else$] not a
    [$ endif $] [$ if $a$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] not a
    [$ endif $] [$ if $a$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] not a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ endif $] [$ if !$a$] not a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ endif $] [- $i = 0 -] [$ while $i <= $#ffld $] [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +] [- $j = 0 -] [$ while $j <= $i $] [+ $j++ +] [$ endwhile $]
    [- $i++ -] [$ endwhile $]
    [+ $c[$row][$col] +]

    $tabmode = default

    Display an two dimensional array with one, two and three columns !
    Please take a look at the source in your browser to see the difference
    [- undef @a ; undef @b ; $a[0][0] = 'a1/1' ; $a[1][0] = 'a2/1' ; $a[1][1] = 'a2/2' ; $a[2][0] = 'a3/1' ; $a[2][1] = 'a3/2' ; $a[2][2] = 'a3/3' ; $b[0][0] = 'b1/1' ; $b[1][0] = 'b2/1' ; $b[1][1] = 'b2/2' ; $b[2][0] = 'b3/1' ; $b[2][1] = 'b3/2' ; $b[2][2] = 'b3/3' ; $maxcol=99 ; -] $a[0][[0] = '1/1' ;
    $a[1][[0] = '2/1' ;
    $a[1][[1] = '2/2' ;
    $a[2][[0] = '3/1' ;
    $a[2][[1] = '3/2' ;
    $a[2][[2] = '3/3' ;

    $tabmode = default

    [+ $a[$row][$col] +]
    1 2 3
    [+ $a[$row][$col] +]
    [+ $b[2][$col] +]
    [+ $a[$row][$col] +]
    [+ $b[$row][$col] +]
    [+ $a[$row][$col] +]

    [+ $HTML::Embperl::VERSION +]

    [+ $tabmode +]

    [+ local $tabmode = 1 +]

    0  kD57.:zc+:zc+:,@5./usr/local/lib/HTML-Embperl-1.3/test/html/opmask/opmasktrap.htmub/subs/ Some Plain tests Embperl Here it starts with some HTML Text

    All values should be undefined: $a = [+ $a || '' +]
    $b = [+ $b || '' +]
    $c = [+ $c || '' +]
    $d = [+ $d || '' +]
    $e = [+ $e || '' +]
    First of all assign a value: [- $a = '(this is the value in $a)' -]
    Now we have some 'Umlaute': [- $b = "$a äöü" -] Now lets look what we are getting from this:
    [+ $a +] [+ $b +]
    And now a and b together: [+ "$a$b" +]

    Here we have some HTML tags within the perl code, Embperl will delete them!
    [+ $c =
    6 + 17 * 3 +] Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
    [- $e = 2 -] [+ $d = $e < 6 +] Now they should have a value $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]
    [- $a = 1; $b = 0; $c = 5; $d = 'txt' -] [$if $a$] a
    [$ endif$] [$if $a $] a
    [$else$] not a
    [$ endif $] [$ if $a$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] not a
    [$ endif $] [$ if $a$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] not a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ endif $] [$ if !$a$] not a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ endif $] [- $i = 0 -] [$ while $i <= $#ffld $] [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +] [- $j = 0 -] [$ while $j <= $i $] [+ $j++ +] [$ endwhile $]
    [- $i++ -] [$ endwhile $]
    [+ $c[$row][$col] +]

    $tabmode = default

    Display an two dimensional array with one, two and three columns !
    Please take a look at the source in your browser to see the difference
    [- undef @a ; undef @b ; $a[0][0] = 'a1/1' ; $a[1][0] = 'a2/1' ; $a[1][1] = 'a2/2' ; $a[2][0] = 'a3/1' ; $a[2][1] = 'a3/2' ; $a[2][2] = 'a3/3' ; $b[0][0] = 'b1/1' ; $b[1][0] = 'b2/1' ; $b[1][1] = 'b2/2' ; $b[2][0] = 'b3/1' ; $b[2][1] = 'b3/2' ; $b[2][2] = 'b3/3' ; $maxcol=99 ; -] $a[0][[0] = '1/1' ;
    $a[1][[0] = '2/1' ;
    $a[1][[1] = '2/2' ;
    $a[2][[0] = '3/1' ;
    $a[2][[1] = '3/2' ;
    $a[2][[2] = '3/3' ;

    $tabmode = default

    [+ $a[$row][$col] +]
    1 2 3
    [+ $a[$row][$col] +]
    [+ $b[2][$col] +]
    [+ $a[$row][$col] +]
    [+ $b[$row][$col] +]
    [+ $a[$row][$col] +]

    [+ $HTML::Embperl::VERSION +]

    [+ $tabmode +]

    [+ local $tabmode = 1 +]

    [- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
    [+ $ii[$row] +]
    &l k27.:zc+:zc+:,p2./usr/local/lib/HTML-Embperl-1.3/test/html/stdout/stdout.htmhtm/ Tests for Embperl - print to stdout optRedirectStdout: [+ $optRedirectStdout +]
    [+ "Here goes some text via [ + ... + ]" +]
    [- print OUT "Now we print to filehandle OUT" ; -]
    [- print "And Now we print to STDOUT" ; -]
    - $a = k:4 7.:zc+:zc+:,P ./usr/local/lib/HTML-Embperl-1.3/test/html/registry/Execute.htm/# # Example for using HTML::Embperl::Execute # # run this under mod_perl / Apache::Registry # use HTML::Embperl ; my($r) = @_; $HTML::Embperl::DebugDefault = 811005 ; $tst1 = '

    Here is some text

    ' ; $r -> status (200) ; $r -> send_http_header () ; print "Test for HTML::Embperl::Execute\n" ; print "

    1.) Include from memory

    \n" ; HTML::Embperl::Execute ({input => \$tst1, mtime => 1, inputfile => 'Some text', req_rec => $r}) ; print "

    2.) Include from memory with some Embperl code

    \n" ; HTML::Embperl::Execute ({input => \'[- @ar = (a1, b2, c3) -]
    [+$ar[$col]+]

    ', mtime => 1, inputfile => 'table', req_rec => $r}) ; print "

    3.) Include from memory with passing of variables

    \n" ; $MyPackage::Interface::Var = 'Some Var' ; HTML::Embperl::Execute ({input => \'

    Transfer some vars [+ $Var +] !

    ', inputfile => 'Var', mtime => 1, 'package' => 'MyPackage::Interface', req_rec => $r}) ; print "

    4.) Change the variable, but not the code

    \n" ; $MyPackage::Interface::Var = 'Do it again' ; # code is the same, so give the same mtime and inputfile to avoid recompile # Note you get problems is you change the code, but did not restart the server or # change the value in mtime. So make sure if you change something also change mtime! HTML::Embperl::Execute ({input => \'

    Transfer some vars [+ $Var +] !

    ', inputfile => 'Var2', mtime => 1, 'package' => 'MyPackage::Interface', req_rec => $r}) ; print "

    5.) Use \@param to pass parameters

    \n" ; HTML::Embperl::Execute ({input => \'

    Use @param to transfer some data ([+ "@param" +]) !

    ', inputfile => 'Param', req_rec => $r, param => [1, 2, 3, 4] } ) ; print "

    6.) Use \@param to pass parameters and return it

    \n" ; my @p = ('vara', 'varb') ; print "

    \$p[0] is $p[0] and \$p[1] is $p[1]

    " ; HTML::Embperl::Execute ({input => \'

    Got data in @param ([+ "@param" +]) !

    [- $param[0] = "newA" ; $param[1] = "newB" ; -]

    Change data in @param to ([+ "@param" +]) !

    ', inputfile => 'Param & Return', req_rec => $r, param => \@p } ) ; print "

    \$p[0] is now $p[0] and \$p[1] is now $p[1]

    " ; print "

    7.) Presetup \%fdat and \@ffld

    \n" ; my %myfdat = ('test' => 'value', 'fdat' => 'text') ; my @myffld = sort keys %myfdat ; HTML::Embperl::Execute ({input => \'

    [+ $ffld[$row] +][+ local $^W = 0 ; $fdat{$ffld[$row]} +]

    ', inputfile => 'fdat & ffld', req_rec => $r, fdat => \%myfdat, ffld => \@myffld} ) ; print "

    8.) Inculde a file

    \n" ; HTML::Embperl::Execute ({inputfile => '../inc.htm', req_rec => $r}) ; print "

    9.) Inculde a file and return output in a scalar

    \n" ; my $out ; HTML::Embperl::Execute ({inputfile => '../inc.htm', output => \$out, req_rec => $r}) ; print "

    $out

    \n" ; print "

    10.) Done :-)

    \n" ; print "\n";  k~*7.:zc+:zc+:,`./usr/local/lib/HTML-Embperl-1.3/test/html/registry/tied.htmtm/# # Test for magic and numeric vaiables within HTML::Embperl::Execute # # run this under mod_perl / Apache::Registry # { package HTML::Embperl::Test::Tie ; sub TIESCALAR { my ($class, $var) = @_ ; return bless \$var, $class ; } sub FETCH { my $self = shift ; return $$self ; } } use HTML::Embperl ; my($r) = @_; $HTML::Embperl::DebugDefault = 811005 ; $tst1 = '

    Here is some text

    ' ; $r -> status (200) ; $r -> send_http_header () ; print "Test for HTML::Embperl::Execute\n" ; print "

    1.) Include from memory: ref to string

    \n" ; $rc = HTML::Embperl::Execute ({inputfile => 'test_ref_string', input => \$tst1, mtime => 1}) ; print "rc = $rc\n" ; print "Test for HTML::Embperl::Execute\n" ; print "

    2.) Include from memory: numeric

    \n" ; $rc = HTML::Embperl::Execute ({inputfile => 'test_numeric', input => 5, mtime => 1}) ; print "rc = $rc\n" ; print "Test for HTML::Embperl::Execute\n" ; print "

    3.) Include from memory: string

    \n" ; $rc = HTML::Embperl::Execute ({inputfile => 'test_string', input => 'Hi', mtime => 1}) ; print "rc = $rc\n" ; print "Test for HTML::Embperl::Execute\n" ; print "

    4.) Include from memory: array

    \n" ; $rc = HTML::Embperl::Execute ({inputfile => 'test_array', input => ['a', 'b', 'c'], mtime => 1}) ; print "rc = $rc\n" ; tie $tiedvar1, 'HTML::Embperl::Test::Tie', $tst1 ; print "Test for HTML::Embperl::Execute\n" ; print "

    5.) Include from memory: tied string ref

    \n" ; $rc = HTML::Embperl::Execute ({inputfile => 'test_tied_string_ref', input => \$tiedvar1, mtime => 1}) ; print "rc = $rc\n" ; print "Test for HTML::Embperl::Execute\n" ; print "

    6.) Include from memory: tied string

    \n" ; $rc = HTML::Embperl::Execute ({inputfile => 'test_tied_string_ref', input => $tiedvar1, mtime => 1}) ; print "rc = $rc\n" ; print "

    6.) Done :-)

    \n" ; print "\n"; nge  k7.:zc+:zc+:,`+./usr/local/lib/HTML-Embperl-1.3/test/html/registry/reggetsess.htm/subs/# # run this under mod_perl / Apache::Registry # use HTML::Embperl ; my($r) = @_; $HTML::Embperl::DebugDefault = 811005 ; $r -> status (200) ; $r -> send_http_header () ; print "Test for HTML::Embperl::Req::SetupSession\n" ; my $session = HTML::Embperl::Req::SetupSession ($r) ; $off = 0 ; $off-- if ($HTML::Embperl::SessionMgnt == 2 && !defined (tied (%$session) -> getid)) ; @ks = grep (!/^_/, sort (keys %$session)) ; $num = keys (%$session) - $#ks - 1 + $off ; foreach (@ks) { print "$_ = $session->{$_}
    \n" ; } $tst1 = '

    Here is some text inside of Execute

    ' ; HTML::Embperl::Execute ({input => \$tst1, mtime => 1, inputfile => 'Some text session test', }) ; print "\n" ; Ex k7.:zc+:zc+:,p./usr/local/lib/HTML-Embperl-1.3/test/html/registry/errpage.htm/# # Example for using HTML::Embperl::Execute # # run this under mod_perl / Apache::Registry # use HTML::Embperl ; my($r) = @_; $HTML::Embperl::DebugDefault = 811005 ; $r -> status (200) ; $r -> send_http_header () ; print "Test for HTML::Embperl::Execute and errors\n" ; my $out ; print "

    1.) The next one produces an error page

    \n" ; HTML::Embperl::Execute ({inputfile => '../error.htm', output => \$out, req_rec => $r}) ; print "

    $out

    \n" ; undef $out ; print "

    2.) The next one produces an errors, but error page is disabled

    \n" ; HTML::Embperl::Execute ({inputfile => '../error.htm', output => \$out, options => HTML::Embperl::optDisableEmbperlErrorPage, req_rec => $r}) ; print "

    $out

    \n" ; undef $out ; print "

    3.) Done :-)

    \n" ; print "\n"; t => 5 ki7.:{c+:{c+:,`U./usr/local/lib/HTML-Embperl-1.3/test/html/noerr/noerrpage.htm/ Some Plain tests for Embperl Here it starts with some HTML Text

    All values should be undefined: $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]
    Here we will see an error: [- $a = (qqqqqqqqqqqqqq -] First of all assign a value: [- $a = '(this is the value in $a)' -]
    Now we have some 'Umlaute': [- $b = "$a äöü" -] Second Error:
    [+ $a+ +] [+ qq2$b +]
    And now a and b together: [+ "$a$b" +]

    Here we have some HTML tags within the perl code, Embperl will delete them!
    [+ $c =
    6 + 17 * 3 +] Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
    [- $e = 2 -] [+ $d = $e < 6 +] Now they should have a value [$if {$error is here ) $] $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]
    [$endif$] Tag missmatch:

    Ok.

    E kh 7.:{c+:{c+:,Pt ./usr/local/lib/HTML-Embperl-1.3/test/html/ofunc/div.htme.htm/ Some Plain tests Embperl Here it starts with some HTML Text

    All values should be undefined: $a = [+ $a || '' +]
    $b = [+ $b || '' +]
    $c = [+ $c || '' +]
    $d = [+ $d || '' +]
    $e = [+ $e || '' +]
    First of all assign a value: [- $a = '(this is the value in $a)' -]
    Now we have some 'Umlaute': [- $b = "$a äöü" -] Now lets look what we are getting from this:
    [+ $a +] [+ $b +]
    And now a and b together: [+ "$a$b" +]

    Here we have some HTML tags within the perl code, Embperl will delete them!
    [+ $c =
    6 + 17 * 3 +] Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
    [- $e = 2 -] [+ $d = $e < 6 +] Now they should have a value $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]
    [- $a = 1; $b = 0; $c = 5; $d = 'txt' -] [$if $a$] a
    [$ endif$] [$if $a $] a
    [$else$] not a
    [$ endif $] [$ if $a$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] not a
    [$ endif $] [$ if $a$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] not a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ endif $] [$ if !$a$] not a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ endif $] [- $i = 0 -] [$ while $i <= $#ffld $] [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +] [- $j = 0 -] [$ while $j <= $i $] [+ $j++ +] [$ endwhile $]
    [- $i++ -] [$ endwhile $]

    [+ $c[$row][$col] +]

    $tabmode = default

    Display an two dimensional array with one, two and three columns !
    Please take a look at the source in your browser to see the difference
    [- undef @a ; undef @b ; $a[0][0] = 'a1/1' ; $a[1][0] = 'a2/1' ; $a[1][1] = 'a2/2' ; $a[2][0] = 'a3/1' ; $a[2][1] = 'a3/2' ; $a[2][2] = 'a3/3' ; $b[0][0] = 'b1/1' ; $b[1][0] = 'b2/1' ; $b[1][1] = 'b2/2' ; $b[2][0] = 'b3/1' ; $b[2][1] = 'b3/2' ; $b[2][2] = 'b3/3' ; $maxcol=99 ; -] $a[0][[0] = '1/1' ;
    $a[1][[0] = '2/1' ;
    $a[1][[1] = '2/2' ;
    $a[2][[0] = '3/1' ;
    $a[2][[1] = '3/2' ;
    $a[2][[2] = '3/3' ;

    $tabmode = default

    [+ $a[$row][$col] +]
    [+ $a[$row][$col] +]
    [+ $a[$row][$col] +]
    [+ $b[$row][$col] +]
    [+ $a[$row][$col] +]

    [+ $HTML::Embperl::VERSION +]

    [+ $tabmode || 17 +]

    [+ local $tabmode = 1 +]

    [- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
    [+ $ii[$row] +]
    $ k&h7.:{c+:{c+:,@h./usr/local/lib/HTML-Embperl-1.3/test/html/safe/safe.htme.htm/ Some Plain tests Embperl Here it starts with some HTML Text

    All values should be undefined: $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]
    First of all assign a value: [- $a = '(this is the value in $a)' -]
    Now we have some 'Umlaute': [- $b = "$a äöü" -] Now lets look what we are getting from this:
    [+ $a +] [+ $b +]
    And now a and b together: [+ "$a$b" +]

    Here we have some HTML tags within the perl code, Embperl will delete them!
    [+ $c =
    6 + 17 * 3 +] Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
    [- $e = 2 -] [+ $d = $e < 6 +] Now they should have a value $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]
    [- $a = 1; $b = 0; $c = 5; $d = 'txt' -] [$if $a$] a
    [$ endif$] [$if $a $] a
    [$else$] not a
    [$ endif $] [$ if $a$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] not a
    [$ endif $] [$ if $a$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] not a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ endif $] [$ if !$a$] not a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ else$] a
    [$if $b == 0$] b is null
    [$else$] b is not null
    [$endif$] [$ endif $] [- $i = 0 -] [$ while $i <= $#ffld $] [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +] [- $j = 0 -] [$ while $j <= $i $] [+ $j++ +] [$ endwhile $]
    [- $i++ -] [$ endwhile $]
    [+ $c[$row][$col] +]

    $tabmode = default

    Display an two dimensional array with one, two and three columns !
    Please take a look at the source in your browser to see the difference
    [- undef @a ; undef @b ; $a[0][0] = 'a1/1' ; $a[1][0] = 'a2/1' ; $a[1][1] = 'a2/2' ; $a[2][0] = 'a3/1' ; $a[2][1] = 'a3/2' ; $a[2][2] = 'a3/3' ; $b[0][0] = 'b1/1' ; $b[1][0] = 'b2/1' ; $b[1][1] = 'b2/2' ; $b[2][0] = 'b3/1' ; $b[2][1] = 'b3/2' ; $b[2][2] = 'b3/3' ; $maxcol=99 ; -] $a[0][[0] = '1/1' ;
    $a[1][[0] = '2/1' ;
    $a[1][[1] = '2/2' ;
    $a[2][[0] = '3/1' ;
    $a[2][[1] = '3/2' ;
    $a[2][[2] = '3/3' ;

    $tabmode = default

    [+ $a[$row][$col] +]
    1 2 3
    [+ $a[$row][$col] +]
    [+ $b[2][$col] +]
    [+ $a[$row][$col] +]
    [+ $b[$row][$col] +]
    [+ $a[$row][$col] +]

    [+ $HTML::Embperl::VERSION +]

    [+ $tabmode +]

    [+ local $tabmode = 1 +]

    [- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
    [+ $ii[$row] +]
    [- @fe = (1, 10, 100, 1000) -] [$ foreach $fe @fe $] [+ $fe +] [$ endforeach $]  k|57.:{c+:{c+:,`5./usr/local/lib/HTML-Embperl-1.3/test/html/ifuncsrc/proxy.htm/ mod_include/proxy test This document contains SSI and Embperl commands
    Here it starts with some HTML Text

    All values should be undefined: $a = [+ $a || '' +]
    $b = [+ $b || '' +]
    $c = [+ $c || '' +]
    $d = [+ $d || '' +]
    $e = [+ $e || '' +]
    First of all assign a value: [- $a = '(this is the value in $a)' -]
    Now we have some 'Umlaute': [- $b = "$a äöü" -] Now lets look what we are getting from this:
    [+ $a +] [+ $b +]
    And now a and b together: [+ "$a$b" +]

    Here we have some HTML tags within the perl code, Embperl will delete them!
    [+ $c =
    6 + 17 * 3    + 0 +] [+ "SELECT *
    FROM a ORDER BY b USING <; Hi There>" +] Here we have something which looks like a HTML tag, but does not start with
    a character, Embperl does not change them!
    [+ "SELECT * FROM a ORDER BY b USING <; Hi There>" +] Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
    [- $e = 2 -] [+ $d = $e < 6 +] Now they should have a value $a = [+ $a +]
    $b = [+ $b +]
    $c = [+ $c +]
    $d = [+ $d +]
    $e = [+ $e +]

    Ok.

    els k  7.:{c+:{c+:,pi ./usr/local/lib/HTML-Embperl-1.3/test/html/nochdir/nochdir.htm/ Some tests for Embperl [- use Cwd (); -] optDisableChdir:[+ $optDisableChdir +]
    optDisableFormData: [+ $optDisableFormData +]
    Script CWD: [+ $script = Cwd::fastcwd() +]
    Embperl CWD: [+ $ep = $HTML::Embperl::cwd +]
    Equal: [+ $script eq $ep?'Yes':'No' +]
    Diff CWD: [+ $script =~ /$ep/ ; ">$'<" +]
    [- @ks = sort keys %fdat -]
    [+ $ks[$row] +][+ $fdat{$ks[$row] || ''} +]
    we k7.:{c+:{c+:,p./usr/local/lib/HTML-Embperl-1.3/test/conf/null/# tml> < kB7.:{c+:{c+:,p./usr/local/lib/HTML-Embperl-1.3/test/conf/startup.plhd/BEGIN { use lib qw{ . } ; use ExtUtils::testlib ; if ($EPSESSIONCLASS = $ENV{EMBPERL_SESSION_CLASS}) { eval " use Apache\:\:Session; " ; die $@ if ($@) ; eval " use Apache\:\:Session\:\:$EPSESSIONCLASS; " ; } } ; use Apache ; use Apache::Registry ; use HTML::Embperl ; $cp = HTML::Embperl::AddCompartment ('TEST') ; $cp -> deny (':base_loop') ; 1 ;  k0[7.:{c+:{c+:,P[./usr/local/lib/HTML-Embperl-1.3/test/conf/httpd.conf.src.htm/print OFH <= 1.24) { # ActiveState workarounds... print OFH "SetEnv EMBPERL_OPTIONS 0\n" ; print OFH "SetEnv EMBPERL_ESCMODE 3\n" ; } if ($EPSESSIONVERSION) { print OFH < 1)) { print OFH < SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI AddType text/html .html AddType text/html .htm AddType text/html .xhtm Alias /embperl/sub/ $EPPATH/test/html/ Alias /embperl/ $EPPATH/test/html/ Alias /embperl2/ $EPPATH/test/html2/ Alias /eg/ $EPPATH/eg/ SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI PerlSetEnv LOC embperl_sub SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI PerlSetEnv LOC embperl SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI PerlSetEnv LOC embperl SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI PerlSetEnv EMBPERL_OPTIONS 4 SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI PerlSetEnv EMBPERL_OPTIONS 12 PerlSetEnv EMBPERL_COMPARTMENT TEST SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI PerlSetEnv EMBPERL_OPTIONS 16 SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI PerlSetEnv EMBPERL_OPTIONS 384 SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI PerlSetEnv EMBPERL_OPTIONS 64 SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI #PerlSetEnv EMBPERL_OPTIONS 16384 PerlSetEnv EMBPERL_OPTIONS 16400 PerlSetEnv EMBPERL_ESCMODE 0 PerlSetupEnv Off SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI PerlSetEnv EMBPERL_OPTIONS 8192 SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI PerlSetEnv EMBPERL_OPTIONS 2 SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI PerlSetEnv EMBPERL_OPTIONS 262144 ErrorDocument 500 /html/errmsg.htm SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI PerlSetEnv EMBPERL_OPTIONS 262144 ErrorDocument 500 /embperl/errmsg2.htm SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI PerlSetEnv EMBPERL_FILESMATCH \\.htm\$ SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI PerlSetEnv EMBPERL_INPUT_FUNC \"ProxyInput, /embperl/ifunc, http://localhost:$EPPORT/embperl/ifuncsrc\" SetHandler server-parsed Options +Includes AddType text/html .ehtml # #SetHandler perl-script #PerlHandler HTML::Embperl #Options ExecCGI #PerlSetEnv EMBPERL_INPUT_FUNC \"ProxyInput, , http://localhost:8529/src\" # SetHandler server-parsed Options +Includes # # Configuration for mod_inlcude via ProxyInput on two ports # #Listen $EPPORT #Listen $EPPORT2 # # # # #SetHandler perl-script #PerlHandler HTML::Embperl #Options ExecCGI #PerlSetEnv EMBPERL_INPUT_FUNC \"ProxyInput, , http://www:$EPPORT2\" # # # # # # # #AddType text/html .ehtml #AddHandler server-parsed .ehtml #Options +Includes # # # SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI PerlSetEnv EMBPERL_OUTPUT_FUNC \"LogOutput, $EPPATH/test/tmp/log.out\" Alias /cgi-bin/ $EPPATH/test/html/ Alias /cgi-bin-32/ $EPPATH/test/html/ ScriptAlias /cgi/ $EPPATH/ Action text/html /cgi/embpcgi.test.pl Options ExecCGI Action text/html /cgi/embpcgi.test.bat Options ExecCGI SetHandler perl-script PerlHandler Apache::Status SetHandler perl-script PerlHandler Apache::Registry Options ExecCGI PerlSetEnv EMBPERL_OBJECT_BASE epobase3.htm PerlSetEnv EMBPERL_OBJECT_STOPDIR $EPPATH/test/html/EmbperlObject PerlSetEnv EMBPERL_OBJECT_ADDPATH $EPPATH/test/html/EmbperlObject/lib PerlSetEnv EMBPERL_OBJECT_FALLBACK epofallback.htm PerlSetEnv EMBPERL_FILESMATCH \"\\.htm.?\$|\\.epl\$\" SetHandler perl-script PerlHandler HTML::EmbperlObject Options ExecCGI PerlSetEnv EMBPERL_OBJECT_BASE epobase2.htm PerlSetEnv EMBPERL_OBJECT_STOPDIR $EPPATH/test/html/EmbperlObject PerlSetEnv EMBPERL_OBJECT_ADDPATH $EPPATH/test/html/EmbperlObject/lib PerlSetEnv EMBPERL_OBJECT_FALLBACK epofallback.htm PerlSetEnv EMBPERL_FILESMATCH \"\\.htm.?\$|\\.epl\$\" SetHandler perl-script PerlHandler HTML::EmbperlObject Options ExecCGI PerlSetEnv EMBPERL_OBJECT_BASE epobase.htm PerlSetEnv EMBPERL_OBJECT_FALLBACK epofallback.htm PerlSetEnv EMBPERL_FILESMATCH \"\\.htm.?\$|\\.epl\$\" SetHandler perl-script PerlHandler HTML::EmbperlObject Options ExecCGI SetHandler perl-script PerlHandler HTML::Embperl Options ExecCGI SetHandler perl-script PerlHandler "sub { print 'Hello' }" Options ExecCGI ErrorLog tmp/httpd.err.log PidFile tmp/httpd.pid AccessConfig conf/null ResourceConfig conf/null TypesConfig conf/null #TransferLog $EPNULL #ScoreBoardFile $EPNULL LockFile tmp/httpd.lock SSLDisable SSLCacheServerPort gcache_port SSLCacheServerPath $EPAPACHESRC/modules/ssl/gcache EOD if (!$EPSTRONGHOLDKEY && $EPSSLDISABLE) { print OFH < SSLDisable SSLCacheServerPort $EPPORT2 SSLCacheServerPath tmp EOD } print OFH < ApJServManual on ApJServSecretKey DISABLED ApJServLogFile /dev/null EOD /emb k! 7.:{c+:{c+:,p ./usr/local/lib/HTML-Embperl-1.3/test/conf/ssldisable.confhtm/SSLDisable xecC kT7.:{c+:{c+:,p./usr/local/lib/HTML-Embperl-1.3/test/conf/startup_dso.plhtm/BEGIN { use lib qw{ . } ; use ExtUtils::testlib ; if ($EPSESSIONCLASS = $ENV{EMBPERL_SESSION_CLASS}) { eval " use Apache\:\:Session; " ; die $@ if ($@) ; eval " use Apache\:\:Session\:\:$EPSESSIONCLASS; " ; } } ; 1 ; Locatio kƌN7.:{c+:{c+:,`N./usr/local/lib/HTML-Embperl-1.3/test/conf/config.plo.p/# This file is automaticly generated by Makefile.PL, do not edit $EPPATH='/internet/port/HTML-Embperl-1.3.0' ; $EPUSER='nobody' ; $EPGROUP='system' ; $EPPORT=8531 ; $EPHTTPD='/internet/port/apache_1.3.14/src/httpd' ; $EPHTTPDDLL='' ; $EPWIN32='' ; $EPAPACHESRC='/internet/port/apache_1.3.14/src' ; $EPAPACHE_SSL='0' ; $EPSTRONGHOLD='' ; $EPSSLDISABLE='' ; $EPSTRONGHOLDKEY='' ; $EPMODPERL=' LoadModule mime_module /internet/port/apache_1.3.14/src/modules/standard/mod_mime.so LoadModule action_module /internet/port/apache_1.3.14/src/modules/standard/mod_actions.so LoadModule env_module /internet/port/apache_1.3.14/src/modules/standard/mod_env.so LoadModule alias_module /internet/port/apache_1.3.14/src/modules/standard/mod_alias.so LoadModule cgi_module /internet/port/apache_1.3.14/src/modules/standard/mod_cgi.so LoadModule perl_module /usr/local/lib/apache/libperl.so LoadModule dir_module /usr/local/lib/apache/mod_dir.so'; $EPSTARTUP='startup.pl'; $EPAPACHEVERSION='Server version: Apache/1.3.14 (Unix)'; $EPSESSIONVERSION='0'; $EP2=''; $EPMODPERLVERSION='1.2401'; $EPNULL='/dev/null'; al k07.:{c+:{c+:,p./usr/local/lib/HTML-Embperl-1.3/test/cmp/epoobj3.htm.p/ Example using Objects: epoobj3 -> page3

    head from foo

    title = epoobj3 -> page3
    ----------------------------- PAGE 3
    Footer
    Gerald Richter / ecos (c) 2000 t/apa k#D7.:{c+:{c+:,PD./usr/local/lib/HTML-Embperl-1.3/test/cmp/escape.htm.p/ Some tests for Embperl escaping Here it starts with some HTML Text

    First of all assign a value:
    Now we have some 'Umlaute': Now lets look what we are getting from this:
    (this is the value in $a) (this is the value in $a) äöüäöü???<&+
    What is the EscMode? 3 Now a Url: Here it goes A Tag 2: a2 A Tag 3: a3 A Tag 4: a4 A Tag 5: a5 A Tag 6: a6 A Tag 7: x A Tag 8: x A Tag 9: x A Tag 10: x A Tag 11: x ^A Tag 12\: x<\/A> ^A Tag 12b\: x<\/A> A Tag 13: x A Tag 14: x FRAME: IFRAME: