perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Gerald Richter" <rich...@ecos.de>
Subject RE: Execute question
Date Fri, 22 Apr 2005 14:13:33 GMT
Hi,

If you are using Embperl::Object you can also take adavance of the
application object, which allow to modify the request prior to any page is
executed.

The file eg/web/epwebapp.pl shows an example (see init method)

Gerald


---------------------------------------------------------------------------
Gerald Richter            ecos electronic communication services gmbh
IT-Securitylösungen * Webapplikationen mit Apache/Perl/mod_perl/Embperl

Post:       Tulpenstrasse 5          D-55276 Dienheim b. Mainz
E-Mail:     richter@ecos.de          Voice:   +49 6133 939-122
WWW:        http://www.ecos.de/      Fax:     +49 6133 939-333
---------------------------------------------------------------------------
ECOS BB-5000 Firewall- und IT-Security Appliance: www.bb-5000.info
---------------------------------------------------------------------------

  

> -----Original Message-----
> From: Andrew O'Brien [mailto:andrewo@oriel.com.au] 
> Sent: Thursday, April 21, 2005 1:48 AM
> To: embperl@perl.apache.org
> Subject: RE: Execute question
> 
> 
> Allen,
> 
> That's all up to how you structure your page construction. 
> You will need to either
> 
> 1. Easier: be able to test for that branch condition early 
> enough in your page
>    construction and then have the two Execute()s in a wrapping "if"
> statement
> Or
> 2. take advantage of the fact that Execute can put its output 
> into a scalar and
>    you can pass back information either via scalar reference 
> parameters or via
>    the errors option to Execute. Contrived example:
> 
> page.epl:
> ...
> [-
>   $req = shift;
>   my $do_something_else = 0;
>   $out = '';
>   Execute({inputfile => 'page_that_can_return_errors.epl',
>            output => \$out,
>            param => [\$do_something_else]
>           });
>   if ( $do_something_else ) {
>     Execute( 'alternative_content.epl' );
>   } else {
>     local $escmode=0;
>     print OUT $out;
>   }
> -]
> 
> Page_that_can_return_errors.epl:
> [-
>   $req = shift;
>   $test = shift @param;
>   if ($something_went_wrong) {
>     $$test = 1;
>     exit;
>   }
> -]
> 
> --
> Andrew O'Brien
> Development Manager
> e: andrewo@oriel.com.au    p: +61 2 9461 0114
> w: www.oriel.com.au        f: +61 2 9431 6700 
> 
> > -----Original Message-----
> > From: allen haim [mailto:allen@netherrealm.net]
> > Sent: Thursday, 21 April 2005 7:00 AM
> > To: embperl@perl.apache.org
> > Subject: Execute question
> > 
> > Hi,
> > 
> > How do I abort the flow of my current Embperl page and bring up a 
> > different Embperl page?
> > 
> > If I use Execute, it puts the other page inside the calling 
> page, but 
> > I would like to discard the calling page entirely and just bring up 
> > the new page.
> > 
> > Do I use Execute for this or something else?
> > 
> > Thanks,
> > 
> > Allen
> > 
> > 
> > --
> > happy random george orwell advice for making tea:
> > 
> > 	Some people would answer that they don't like tea in 
> itself, that 
> > they only drink it in order to be warmed and stimulated, 
> and they need 
> > sugar to take the taste away.
> > 
> > 
> ---------------------------------------------------------------------
> > To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> > For additional commands, e-mail: embperl-help@perl.apache.org
> > 
> > 
> 
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> For additional commands, e-mail: embperl-help@perl.apache.org
> 
> 


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


Mime
View raw message