[Date Prev][Date Next][Thread Prev][Thread Next][Minivend by date
][Minivend by thread
]
Re: [perl] tag is a cruel joke, and user-defined tags don't do jack , squat. HELP! How do I use Perl!?
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/
