I'm concerned about losing session scooping in the calling page.
page1:
[-
use mymodule;
call &mymodule::wait( $req_rec, \%fdat, \%udat )
# execute a time consuming operation
.....
-]
EOF
-----
package mymodule;
use HTML::Embperl;
# shows please wait page...
sub wait {
my ( $r, $fdat, $udat ) = @_;
$fdat->{returnpage} = $r->uri();
HTML::Embperl::Execute({inputfile => 'waitpage', fdat => $fdat, udat =>
$udat });
exit;
}
1;
EOF
----------
waitpage:
[-
$escmode = 0;
$page = delete $fdat{returnpage} || '/';
-]
<HTML>
<BODY>
<FORM action="[+ $page +]" method="POST">
<TABLE border="0" width="100%">
<TR><TD height="80"> </TD></TR>
<TR><TD align="center" valign="top">
<TABLE bgcolor="navy" border="0" cellspacing="0" cellpadding="2"
width="200">
<TR><TD align="left" class="error"
valign="middle"><B> processing</B></TD></TR>
<TR><TD>
<TABLE bgcolor="#FFFFFF" width="100%" border="0" cellpadding="2"
cellspacing="0">
<TR><TD align="left" nowrap class="normal"> </TD></TR>
<TR><TD align="center" nowrap class="normal">Please wait...</TD></TR>
<TR><TD align="left" nowrap class="normal"> </TD></TR>
</TABLE>
</TD></TR></TABLE>
</TD></TR>
</TABLE>
[$HIDDEN$]
</FORM>
<SCRIPT language="javascript">
document.forms[0].submit();
</SCRIPT>
</BODY>
</HTML>
-----Original Message-----
From: Gerald Richter [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 09, 2002 3:01 AM
To: Aldo Letellier; [EMAIL PROTECTED]
Subject: Re: execute and udat
>Can the following be done:
>
>my ( $page, $fdat, $udat ) = @_;
>HTML::Embperl::Execute({inputfile => $page, fdat => $fdat, udat =>
$udat });
>exit;
No, that can't be done (fdat parameter is ok, but udat parameter doesn't
exists). Why do like to do it?
Gerald
-------------------------------------------------------------
Gerald Richter ecos electronic communication services gmbh
Internetconnect * Webserver/-design/-datenbanken * Consulting
Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: [EMAIL PROTECTED] Voice: +49 6133 925131
WWW: http://www.ecos.de Fax: +49 6133 925152
-------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
