Re: RealTime online credit card verification

["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
>