Re: [mv] Re: RealTime online credit card verification

["B.J. Bezemer" <bas.bezemer@wxs.nl>]

******    message to minivend-users from "B.J. Bezemer" <bas.bezemer@wxs.nl>     ******

Hi Geoff,

----- Original Message -----
From: Geoff <minivend@hq.com.au>
To: Minivend-Users <minivend-users@minivend.com>
Cc: <bas.bezemer@wxs.nl>
Sent: donderdag 25 mei 2000 10:37
Subject: [mv] Re: RealTime online credit card verification


> ******    message to minivend-users from "Geoff" <minivend@hq.com.au>
******
>
> (Bas the get url function really rocks! See
> http://www.minivend.com/minivend/minivend-list/1999/msg05788.html)
>
> I am trying to strip some of the content in the feched page and display
it.
> The page feches fine and displays but if I try to strip it it fails. Any
> Ideas on how the code should be?
>
> PS. Have you written a sub to posturl? Using the Post Method?
I've done something in Perl, not in minivend. It isn't very different from
geturl though. Have a look at the documentation of the perl-modules used.

>
> [set name=page interpolate=1]
> [perl arg="sub" interpolate=1
> global=1]geturl("http://www.mypage.com";);
> [/perl][/set]
>
> [perl scratch interpolate=1]
> $page = '[scratch page]';
> $page =~ s/.*[0-9] file://g;
> return $page;
> [/perl]
>
I didn't test it but I suggest the following (notice the "arg=". And the
"interpolate=1" probably isn't needed. test it):

[perl arg=scratch interpolate=1]
$page = $Safe{scratch}->{page};
$page =~ s/.*[0-9] file://g;
return $page;
[/perl]


Regards,
Bas


-
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