> > To get the Embperl request object, you need to get the first > > parameter passed to the page (not to the sub): > > > > [- > > $r = shift ; > > -] > >
I am using Perl syntax, so this does not work, and trying $r = shift results in nothing.. > -----Original Message----- > From: Justin Harrison [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, July 30, 2002 12:37 PM > To: [EMAIL PROTECTED] > Subject: RE: Execute > > > Hi Gerald, > > Thanks for your response. It definitely does. > > > -----Original Message----- > > From: Gerald Richter [mailto:[EMAIL PROTECTED]] > > Sent: Tuesday, July 30, 2002 2:53 AM > > To: Justin Harrison; [EMAIL PROTECTED] > > Subject: Re: Execute > > > > > > > > > > > I'm having problems trying to get an embperl::req object in my > > > imported perl code (As objects).. > > > > > > [- Execute ({'object' > > > =>'/home/user/dir/lib/web/whatever/whatever.pm',syntax => > > 'Perl'}) -] > > > > > > > > > http://perl.apache.org/embperl/pod/intro/IntroEmbperlObject.-page-5-.h > > > tm > > > says: > > > > > > "This object is passed in on the stack, so you can retrieve > > it using > > > the Perl "shift" statement." > > > > > > The first argument to my sub routines in whatever.pm, when > > imported as > > > objects, however, does not seem to be the same request > object (Or a > > > request object at all? Looking at it...) I used in the > > caller for the > > > execution of the perl file. > > > > > > It receives Embperl::__7=HASH(0xa8b0304) as the first argument (An > > > object reference?).. > > > > > > > Yes, this is correct. That's the object you have created not > > the Embperl request object. > > > > > I tried to use Data Dump on it, but it segfaulted Apache > everytime. > > > > > > > This may happen if Data::DUmper tries to display the "magic" > > Embperl uses to tied it's data to this request record. I > > never tried this... > > > > To get the Embperl request object, you need to get the first > > parameter passed to the page (not to the sub): > > > > [- > > $r = shift ; > > -] > > > > > I tried importing it to access sub routines "normally", but > > it didn't > > > find them in the current name space. > > > > > > > This should work when you use the import => 1 parameter. When > > using the object parameter you should do something like the > > following to call them: > > > > [- > > $obj = Execute ({'object' > > =>'/home/user/dir/lib/web/whatever/whatever.pm',syntax => 'Perl'}) > > > > $obj -> mysub ; > > > > -] > > > > in mysub you get $obj passed as first parameter > > > > Hope this makes things a little bit more clear > > > > Gerald > > > > > > > > -----Original Message----- > > > > From: Justin Harrison [mailto:[EMAIL PROTECTED]] > > > > Sent: Thursday, July 25, 2002 9:12 PM > > > > To: [EMAIL PROTECTED] > > > > Subject: RE: Execute > > > > > > > > > > > > Thank you Gerald. I love you. > > > > > > > > > -----Original Message----- > > > > > From: Gerald Richter [mailto:[EMAIL PROTECTED]] > > > > > Sent: Thursday, July 25, 2002 7:45 PM > > > > > To: Justin Harrison; [EMAIL PROTECTED] > > > > > Subject: Re: Execute > > > > > > > > > > > > > > > > > > > > > > > > > > It seems to work in some fashion with Embperl Meta Subs.. > > > > > > > > > > > > Is it by design that it seems not to function with > > perl subs? Am > > > > > > I doing something wrong? :-( Is there anyway to make it > > > > function with > > > > > > perl subs? > > > > > > > > > > > > > > > > It also works with perl subs, but you either need to > > tell Execute > > > > > that you are loading pure Perl code or wrap your sub's > > inside of a > > > > > [- -] block: > > > > > > > > > > Either: > > > > > > > > > > [- $r->{content} = Execute ({'object' => > > > > > '/home/zo/zo/lib/zoweb/content/content.pm', > > > > > syntax => 'Perl' > > > > > }) -] > > > > > > > > > > or > > > > > > > > > > > > In content.pm: > > > > > > > > > > > > > > #package zoweb::content::content; > > > > > > > #use strict; > > > > > > > > > > # Never put a package statement here, Embperl will setup the > > > > > package for you > > > > > > > > > > [- > > > > > sub title { > > > > > } > > > > > > > > > > -] > > > > > > > > > > Gerald > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > -------------------------------------------------------------------- > > > > - > > > > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > > > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > > > > > > > > > > > > > > > > -------------------------------------------------------------------- > > > > - > > > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > > > > > > > > > > > > > --------------------------------------------------------------------- > > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > > > > > > > > > ------------------------------------------------------------- > > 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] > --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
