|
|
|
Ok, after I add that [realperl] definition,
can I use [realperl]....[/realperl] to do whatever I want?
just like I would with normal !#/usr/bin/perl?
or $var="HELLO WORLD"; return $var; about the only
thing you can do with it?
can I use open (FILE, "$file"); (@array)=<FILE>; close(FILE); (a,b,c)=split(/ /, $array[$i]); ...... and stuff like this?
Thanks,
Dmitriy
"Mr. Anthony R.J. Ball" wrote:
****** message to minivend-users from "Mr. Anthony R.J. Ball" <ant@maine.com> ******That might work better. sorry, forgot the return.... I think...
do something like.
[realperl]
{
my($var);
$var = "Hello";
$var .= " World";
return $var;
}
[/realperl]after you add that new line. And make sure you have it in the
minivend.cfg, not the catalog.cfg, cuz everything in catalog.cfg
is run through safe (I believe).> I'm afraid that that doesn't work. :/
>
> No error messages. No output. No nothing.
>
> Briefly, I was able to get the thing to print "Content-type:
> text/html\n\n", but that's it...
>
> On Wed, 23 Jun 1999, Mr. Anthony R.J. Ball wrote:
>
> > ****** message to minivend-users from "Mr. Anthony R.J. Ball" <ant@maine.com> ******
> >
> > >
> > > They say the best way to learn is by example. Could someone give
> > > me an example-- or more than one example-- of a way to display the output
> > > of:
> > >
> > > print "Hi there";
> >
> > UserTag realperl HasEndTag
> > UserTag realperl CanNest
> > UserTag realperl Interpolate
> > UserTag realperl Routine <<EOF
> > sub {
> > my $str = eval {
> > eval $_[0] or die;
> > };return "<PRE>$@</PRE>" if $@; # this should show you errors
return $str;> > }
> > EOF--
Anthony Ball ant@maine.com
MaineStreet Communications, Inc 208 Portland Road, Gray, ME 04039
tel:1.207.657.5078 fax:1.207.657.5048 http://www.maine.com/
-
To unsubscribe from the list, DO NOT REPLY to this message. Instead, send
email with 'UNSUBSCRIBE minivend-users' in the body to Majordomo@minivend.com.
Archive of past messages: http://www.minivend.com/minivend/minivend-list
-- ______________________________________ | | | Dmitriy Katsman | | Webmaster, The Wizard | | Affordable Computers, Inc. | | http://www.affordablecomputers.com | | (800) 864-2345 Ext. 114 | |____________________________________|