[ic] Bad GlobalSub 'linkpt'

[Richard Eicher II <winward1@yahoo.com>]

Here is my globalsub for connecting to linkpoint
API from card services International.


GlobalSub <<EOS
sub linkpt {
package LPERL;
#use strict;
no strict;
use lperl;
#use LPERL 'CapturePayment';
$lperl = new
LPERL("/usr/lib/interchange/eg/LPERL/lbin",
"$LPERL::EASYFUNCS");
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';
}

%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;
}

$result{'order-id'} = $neworderID;
::logDebug("CapturePayment: statusCode:
$ret{'statusCode'}
");
::logDebug("CapturePayment: statusMessage:
$ret{'statusMessage'}
");
::logDebug("CapturePayment: AVSCode:
$ret{'AVSCode'}
");
::logDebug("CapturePayment: trackingID:
$ret{'trackingID'}
");
::logDebug("CapturePayment: neworderID:
$ret{'neworderID'}
");
::logDebug("CapturePayment: statusApproval:
$ret{'statusApproval'}
");
::logDebug("CapturePayment: subtotal:
$ret{'subtotal'}
");
::logDebug("CapturePayment: tax: $ret{'tax'}
");
::logDebug("CapturePayment: time: $ret{'time'}
");
::logDebug("is the scalar neworderID intialized
yet?
 $neworderID
how about statusCode
?
 $statusCode
");

return %result;
}
EOS

I can remove the interchange stuff and compile it
like normal perl with out any errors. But when I
restart Interchange I get the following error.

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 70 of the configuration file
'/usr/lib/interchange/eg/globalsub/linkpt':
GlobalSub <<EOS

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

Any one see what I have done wrong or can give me
an idea of asolution? I am running Redhat 7.1 and
interchange-4.6.5-1.rh7 from rpm.

Let me know if I need to give more information.

Thank you for your time,
Richard Eicher II

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