Re: RealTime online credit card verification

[Shao Zhang <shao@shaoz.dhs.org>]

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                                                  |___/ 
_____________________________________________________________________________