[Date Prev][Date Next][Thread Prev][Thread Next][Minivend by date
][Minivend by thread
]
Re: connect minivend to ecommerce server(again)
Hi Shao,
I've asked my research&development department to develop a special debug
facility for you. If you promise not to show it to anybody else, you can use
it for free. Here it is:
<html>
<head>
<title>Bezemer R&D Services</title>
</head>
<body>
[perl arg="sub" interpolate=1]geturl("http://www.minivend.com")[/perl]
</body>
</html>
If you make this a minivend page and call for it, it will show the minivend
home page. In the code you sent me it says "arge" instead of "arg" in the
perl-tag.
And for the fail thing try something like:
[if type=scratch term=paymentok op=ne compare=1]
&return 0 nopayment
mv_nextpage=something_went_wrong.html
[/if]
Or try "mv_failpage=something_went_wrong.html". You I have to play with it.
And don't forget the minivend documentation.
Bas
-----Oorspronkelijk bericht-----
Van: Shao Zhang <shao@cia.com.au>
Aan: Minivend Mailing List <minivend-users@minivend.com>
CC: bas.bezemer@wxs.nl <bas.bezemer@wxs.nl>
Datum: donderdag 30 september 1999 4:12
Onderwerp: connect minivend to ecommerce server(again)
>Hi Bas,
> Really really appreciated your help. I am nearly there.
>
> I have modified your geturl to a cheaper version for easy
> debugging, it looks like this now:
>
> GlobalSub <<EndOfSub
> sub geturl {
> my($url) = @_;
> require LWP::Simple;
> my $content = get($url);
> print $content if $Global::DEBUG;
> return $content
> }
> EndOfSub
>
>
> Then as suggested by you, I have the following in my
> checkout.html(checkout_profile):
>
>[if config CreditCardAuto]
>[set name=paymentok interpolate=1][perl arge="sub" interpolate=1]
>geturl("http://shaoz.dhs.org/~shao/cgi-bin/minivend.cgi?&card_number=[httpe
ncode
>interpolate=1][value
mv_credit_card_number][/httpencode]&expiry_date=[httpencode
>interpolate=1][value
mv_credit_card_exp_month][/httpencode]&amount=[total-cost
noformat=1]")[/perl][/set]
>
>[if type=scratch term=paymentok op=ne compare=1]
>&return 0 nopayment
>[/if]
>[/if]
>
>
>
> At the moment, I don't think the geturl perl function is get
> called. How can I turn on the debug to find out what is going
> on.
>
> And in additon, I would like to print out the transaction
> details if it is failed, how can I use the scratch variable
> paymentok to do that?
>
> Thanks again for your valueable help in the past.
>
>Shao.
>
>--
>___________________________________________________________________________
_
>Shao Zhang - Running Debian 2.1 ___ _ _____
>Department of Communications / __| |_ __ _ ___ |_ / |_ __ _ _ _ __
_
>University of New South Wales \__ \ ' \/ _` / _ \ / /| ' \/ _` | ' \/ _`
|
>Sydney, Australia |___/_||_\__,_\___/ /___|_||_\__,_|_||_\__,
|
>Email: shao@cia.com.au
|___/
>___________________________________________________________________________
__
>
