Re: RealTime online credit card verification

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

Hi,

You pass them in the http call to your cgi script after the question mark.
In the example below the parameters are passed "action" and "ordernumber"
but can be expanded with parameters like "order_total", "currency" or
whatever. The response of your cgi-script is returned in the scratch
variable "ok".

geturl ("http://__CHECKURL__?action=checkorder&ordernumber=103101")

I don't know how advanced your cgi script is, but I would recommend that you
import it into minivend by means of a UserTag, a GlobalSub or as Sub. Then
you don't have to bother so much about passing variables. You use the
subroutine "geturl" to communicate with your payment facility.

If you want to pass variables to minivend by means of a hyperlink or a
redirection: seach the archives for "Jason Korkin" and "[data session arg]"
(somewhere this year).

Don't forget to check if your payment processing facility shows some
similarities with the supported methods of minivend.

Greetings,
Bas Bezemer

>Hi,
> Thanks for the info given below. It is really usefull and I am
> now starting to learn all these minivend tags.
>
> However, I am still confusing on some issues. I am still not
> clear how to pass the variables from minivend to my own cgi
> script, and how to pass the output of my own cgi script back to
> minivend. Afterall, I realised this is a very complex program
> and at a moment I am very confused.
>
> Hope someone can enlighten me further if I am not asking too
> much.
>
> Thanks.
>Shao.
>
>B.J. Bezemer [bas.bezemer@wxs.nl] wrote:
>> ******    message to minivend-users from "B.J. Bezemer"
<bas.bezemer@wxs.nl>     ******
>>
>> Hi Shao,
>>
>> To fetch information from the www (payement service script or your own
>> script) i have constructed a little subroutine that helps me to
communicate
>> with my payment facility provider.  The perl modules LWP and HTTP need to
be
>> installed to let this work.
>>
>> you can make the request by doing something like in your page or order
>> profile:
>> [set name=ok interpolate=1][perl arg="sub" interpolate=1]geturl
>> ("http://__CHEKURL__?action=checkorder&ordernumber=103101")[/perl][/set]
>>
>> With the scratch variable you can do all sorts of things like:
>> [if type=scratch term=ok op=eq compare="yes"]
>> You have payed
>> [else]
>> You didn't pay. Try again.
>> [/else]
>> [/if]
>>
>>
>> Here is the Global subroutine that needs to placed in minivend.cfg or in
>> your shop catalog.cfg if you have the proper permissions.
>>
>> GlobalSub <<EndOfSub
>> sub  geturl {
>>
>> #
>> # This subroutine returns the response of a http request
>> # on a supplied url-address
>> #
>>  my($url) = @_;
>>  require LWP::UserAgent;
>>  require HTTP::Request;
>>
>>  print("geturl url $url\n") if $Global::DEBUG;
>>
>>  my $string = "";
>>
>>  $url = "http://$url" unless ($url =~ /^\w+:\/\//);
>>
>>  my $ua = new LWP::UserAgent;
>>  my $request = new HTTP::Request 'GET', $url;
>>
>>  my $response = $ua->request($request);
>>
>>  if ($response->is_success)
>>  {
>>   $string = $response->content();
>>  }
>>  return $string;
>> }
>> EndOfSub
>>
>> Greetings
>> Bas Bezemer
>>
>>
>>
>>
>>
>> -----Oorspronkelijk bericht-----
>> Van: Shao Zhang <shao@shaoz.dhs.org>
>> Aan: Minivend Mailing List <minivend-users@minivend.com>
>> Datum: maandag 16 augustus 1999 10:19
>> Onderwerp: RealTime online credit card verification
>>
>>
>> >******    message to minivend-users from Shao Zhang <shao@shaoz.dhs.org>
>> ******
>> >
>> >Hi,
>> > A lot of thanks to people who helped me to get the simple
>> > catalog working. Now, please help me with my next problem.
>> >
>> > I have written a cgi program that will contact an OCV(Online
>> > Credit card Verification) server to verify the credit card info
>> > and charge the money on it.
>> >
>> > Now, I would like to link this cgi program to the "Place Order!"
>> > button in the minivend.
>> >
>> > I need to pass some of the minivend form variables such as
>> > CreditCardNumber to my cgi program. I have gone through the docs
>> > and cannot find any usefull information.
>> >
>> > Could someone please enlighten me where to start?
>> >
>> > Thanks.
>> >
>> >Shao.
>> >
>> >--
>>
>___________________________________________________________________________
>> _
>> >Shao Zhang - Running Debian 2.1  ___ _               _____
>> >Department of Communications    / __| |_  __ _ ___  |_  / |_  __ _ _ _
__
>> _
>> >University of New South Wales   \__ \ ' \/ _` / _ \  / /| ' \/ _` | ' \/
_`
>> |
>> >Sydney, Australia               |___/_||_\__,_\___/
/___|_||_\__,_|_||_\__,
>> |
>> >Email: shao@cia.com.au
>> |___/
>>
>___________________________________________________________________________
>> __
>> >-
>> >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
>> >
>>
>> -
>> 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
>
>--
>___________________________________________________________________________
_
>Shao Zhang - Running Debian 2.1  ___ _               _____
>Department of Communications    / __| |_  __ _ ___  |_  / |_  __ _ _ _  __
_
>University of New South Wales   \__ \ ' \/ _` / _ \  / /| ' \/ _` | ' \/ _`
|
>Sydney, Australia               |___/_||_\__,_\___/ /___|_||_\__,_|_||_\__,
|
>Email: shao@cia.com.au
|___/
>___________________________________________________________________________
__
>