perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Aldo Letellier" <aletell...@bigfootinteractive.com>
Subject RE: execute and udat
Date Mon, 09 Sep 2002 17:11:59 GMT
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">&nbsp;</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>&nbsp;processing</B></TD></TR>
<TR><TD>
 <TABLE bgcolor="#FFFFFF" width="100%" border="0" cellpadding="2"
cellspacing="0">
  <TR><TD align="left" nowrap class="normal">&nbsp;</TD></TR>
  <TR><TD align="center" nowrap class="normal">Please wait...</TD></TR>
  <TR><TD align="left" nowrap class="normal">&nbsp;</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:richter@ecos.de]
Sent: Monday, September 09, 2002 3:01 AM
To: Aldo Letellier; embperl@perl.apache.org
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:     richter@ecos.de         Voice:    +49 6133 925131
WWW:        http://www.ecos.de      Fax:      +49 6133 925152
-------------------------------------------------------------




---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message