Re: [mv] Simple &charge globalsub always failing.

[Sonny Cook <sonny@akopia.com>]

******    message to minivend-users from Sonny Cook <sonny@akopia.com>     ******

Okay, I missed something in my explanation.  sub _charge calls sub
Vend::Order::charge (in the same file, inother words).  This is a big
beastly function.  It looks for 'custom' in the $params you pass it.  If
it finds that then it executes your globalsub.  When your globalsub
returns it checks for $result{'MStatus'} = 'success' and will return undef
if that condition is not met.  The part I missed is what sub charge
returns, which is $result{'order-id'}.  In other words, your globalsub
will also have to return some value for 'order-id' in the %result hash.
Presumably that would be the order-id for your order.

 ---
Sonny Cook
Itinerant Chthonic Actuator
Akopia
"What is it that makes you all behave as though you were real?"
--Franz Kafka "Description of a Struggle"

On Thu, 31 Aug 2000, Steve Bergman wrote:

> ******    message to minivend-users from Steve Bergman <steve@cx662584-c.okc1.ok.home.com>     ******
> 
> Sonny Cook wrote:
> > 
> > ******    message to minivend-users from Sonny Cook <sonny@akopia.com>     ******
> > 
> > I was beating my head against this very thing last night.  Here's what you
> > need to know.  In profiles.order you need a &charge custom webauthorize.
> > This tells IC (MV) which globalsub to use.  The return from the new
> > globalsub is not just looking for a true value, it's looking for a sneaky
> > hash value.  For a successful transaction, you'll need to return a hash
> > with and 'MStatus' element with the value 'success'.  So something like
> > this:
> >         my $result{'MStatus'} = 'success';
> >         return %result;
> 
> 
> Thanks for the help.  Unfortunately, still no luck.  And now I'm
> extremely confused because in going through the source code I have
> narrowed the problem down to one line.  But what is happenning seems
> quite bizzare.
> 
> It comes down to this subroutine in Vend/Order.pm:
> 
> -------------
> sub _charge {
> 	my ($ref, $params, $message) = @_;
> ::logDebug("called _charge: ref=$ref params=$params message=$message");
> 	my $result;
> 	eval {
> 		$result = charge($params);
> 	};
> 	if($@) {
> 		::logError("Fatal error on charge operation '%s': %s", $params, $@);
> 		$message = "Error on charge operation.";
> 	}
> 	elsif(! $result) {
> 		$message = "Charge operation '$ref->{mv_cyber_mode}' failed" if !
> $message;
> 	}
> ::logDebug("charge result: result=$result params=$params
> message=$message");
> 	return ($result, $params, $message);
> }
> -------------
> 
> Here is the output in /tmp/mvdebug:
> ----
> Start DEBUG at Thu Aug 31 08:14:52 2000
> Vend::Order:debug: called _charge: ref=HASH(0x83ffa04) params=custom
> webauthorize message=
> Vend::Order:debug: charge result: result= params=custom webauthorize
> message=Charge operation '' failed
> ----
> 
> "$result = charge($params);" executes my globalsub.  I know that it runs
> because if I print something it shows up in /tmp/mvdebug
> 
> Note that $result is false.
> 
> 
> 
> My globalsub looks like this:
> 
> -----
> GlobalSub sub webauthorize { return 1 }
> -----
> 
> I have tried returning strings, integers, hashes with MStatus element
> set to 'success'.  No matter what I do, the return result comes up
> blank.  I've even tried cutting and pasting the test_global_sub from
> elsewhere in minivend.cfg and renaming it to webauthorize to eliminate
> any chance of a typo.  I'm beginning to wonder if I'm losing my mind. 
> BTW, if I change 'elseif(! $result)' to 'elseif( $result)' then my order
> is successful.
> 
> Thanks for any help. :-)
> 
> -Steve Bergman
> steve@uhura.netplus.net
> -
> 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