HTML::EmbperlObject::Execute w/in CGI

[David M. Spreitzer]

I'm a Embperl newbie needing some help.

I've implementing EmbperlObject for generating the html pages, which btw
worked great.  Now I'd like to use the component files (headers/footers)
within  some existing cgi scripts. I think HTML::EmbperlObject::Execute
is my answer, but I'm having some trouble implementing this
functionality.

1) is this possible and is EmbperlObject::Execute really what I'm
looking for?

2) given the following, am I missing/over-looking anything, or just
doing it wrong.

3) the log file shows it finds and does some processing on the
components, but not output is generated on the browser.

4) Can the log output be piped to a another program, like Apache
CustomLog pipe directive.

using Apache/1.3.17 (solaris)
      mod_perl/1.25
      Embperl 1.3.1

http config file entry:
(Some EMBPERL entries are probably not need, but I included them anyway)
        <Files *.epl>
            PerlSetEnv EMBPERL_OBJECT_BASE base.ep
            PerlSetEnv EMBPERL_FILESMATCH "\.epl"
            PerlSetEnv EMBPERL_DECLINE "\.ep"
            PerlSetEnv EMBPERL_OBJECT_ADDPATH /web/apache/embperl
            PerlSetEnv EMBPERL_OBJECT_FALLBACK missing_handler.embperl

            PerlSetEnv EMBPERL_DEBUG 30

             PerlSendHeader On
             SetHandler perl-script
             PerlHandler Apache::Registry
             Options +ExecCGI
        </Files>

cgi script:
#!/usr/local/bin/perl

use strict;
require CGI;
CGI->import(qw(:standard :html3 font));

use HTML::EmbperlObject;
              
main();

sub main {
    print header(),start_html();

#    my $Logfile = '|/usr/local/sbin/cronolog
/usr/local/apache/logs/%Y/%m/%d/embperl_log';
    my $Logfile = '/tmp/embperl_log_test';
    my $DebugDefault = 2285;
    HTML::Embperl::Init ($Logfile, $DebugDefault);
    HTML::Embperl::ScanEnvironment;

    HTML::EmbperlObject::Execute ({inputfile => 'table.ep'});
    HTML::EmbperlObject::Execute ({inputfile => 'title.ep'});

    print end_html();
}


file table.ep:
[- @link = (
"1",
"2"
) -]

[- @name = (
"1",
"2"
) -]

start table
[- $i = 0 -]
<table border=0 cellpadding=3 cellspacing=0 width=100%>
[$ do $]
    <tr><td>
        <table border=0 cellpadding=1 cellspacing=0 width=100%
bgcolor=#6699cc> <tr><td>
            <table border=0 cellpadding=5 cellspacing=0 width=100%
bgcolor=#e7effa> <tr><td>
                <a href=[+ $link[ $i ] +]><b>[+ $name[ $i ] +]</b></a>
            </td></tr> </table>
        </td></tr> </table>
    </td></tr>
[- $i++ -]
[$ until $i > $#link $]
</table>
end table


file title.ep:
<h2>
       [- @time = split /[\s:]/, localtime; -]
       [$ if ( $time[3] < 12 ) $]
       Good morning
       [$ elsif ( $time[3] < 17 ) $]
       Good afternoon
       [$ else $]
       Good evening
       [$ endif $]
</h2>

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]