[ic] Bad GlobalSub

[Richard Eicher II]

lol This just keeps getting better. Note there
will be some line breaks in the wrong place. 

Ok Here is what I get when I run ./self_test.sh:

[root@nemisis /root]# ./self_test.sh
/usr/lib/interchange/eg/globalsub/linkpt

 Global Sub passed

Here is what I get when I try to restart:



bash-2.04$ ./restart
The Interchange server was not running
(//usr/lib/interchange/etc/interchange.pid).
Low traffic settings.
Calling UI....
...UI is loaded....
Bad GlobalSub 'linkpt'
In line 84 of the configuration file
'/usr/lib/interchange/eg/globalsub/linkpt':
GlobalSub <<EOF

Bad GlobalSub 'linkpt'
In line 84 of the configuration file
'/usr/lib/interchange/eg/globalsub/linkpt':
GlobalSub <<EOF

Here is the latest version of the linkpt
globalsub.

GlobalSub <<EOF
sub linkpt {
#use strict;
no strict;
use lperl;
#use LPERL 'CapturePayment';
$lperl = new 
LPERL("/usr/lib/interchange/eg/LPERL/lbin","FILE","/usr/lib/interchange/eg/LPERL/temp/")
;

my $hostname           = "secure.linkpt.net";
my $port               = "1139";
my $storename          = "370544";
my $keyfile            =
"/usr/lib/interchange/eg/certs/cert.pem";
my $transactionresult  = "GOOD";
my $testip             = "127.0.0.1";

$transaction_hash = {
     hostname        => $hostname,
     port            => $port,
     storename       => $storename,
     keyfile         => $keyfile,
     orderID         => '',
     result          => $transactionresult,
     cardNumber      => $_[0],
     cardExpMonth    => $_[1],
     cardExpYear     => $_[2],
     name            => $_[3],
     email           => $_[4],
     phone           => $_[5],
     address         => $_[6],
     city            => $_[7],
     state           => $_[8],
     zip             => $_[9],
     country         => $_[10],
     tax             => $_[11],
     shipping        => $_[12],
     subtotal        => $_[13],
     amount          => $_[14],
     saddr1          => $_[15],
     scity           => $_[16],
     sstate          => $_[17],
     szip            => $_[18],
     scountry        => $_[19],
     ip              => $testip,
 };

%ret = $lperl->CapturePayment($transaction_hash);
$neworderID = $ret{'neworderID'};
$statusCode = $ret{'statusCode'};

my %result;

if ($statusCode == 1) {$result{MStatus} =
'success';}

elsif ($statusCode == 0) {$result{MStatus} =
$statusMessage;}

$Vend::Session->{cybercash_result} =
    $Vend::Session->{payment_result} = \%result;

    delete $Vend::Session->{cybercash_error};
    delete $Vend::Session->{payment_error};

    if ($decline) {
        $decline = $decline >> 8;
        $result{'pop.status'} =
        $result{'MStatus'} = 'failed';

        $Vend::Session->{cybercash_error}   =
            $Vend::Session->{payment_error} =
$result{RESPMSG};
    }
    else {
        $result{'pop.status'} =
        $result{'MStatus'} = 'success';

        $Vend::Session->{payment_id} =
$result{'pop.order-id'};

        $Vend::Session->{cybercash_error}   =
        $Vend::Session->{payment_error} =
$result{RESPMSG};

#::logDebug(qq{signio decline=$decline result: }
. ::uneval( \%result));

    return %result;
}
EOF

Again watch the line breaks.

Thanks Boyd and Murray, for your help. So is it
time for a hammer or does anyone have another
trick.

Thanks again for everyones time,
Rick

__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail
http://personal.mail.yahoo.com/