Subject: | signature option cannot be passed |
Date: | Thu, 1 Mar 2007 15:47:31 -0500 |
To: | <bug-Business-FedEx-DirectConnect [...] rt.cpan.org> |
From: | "Mark Underwood" <mark [...] workingtraffic.com> |
Message body not shown because it is not plain text.
Hi,
I have had the direct connect module ( use Business::FedEx::DirectConnect; )
working for sometime now with no problems. I then added the tag 2399
(Signature Option) and it stopped returning any values from FedEx at all.
FedEx can duplicate the transaction I am sending without any problem and my
code runs fine unless I add that one line of code
FedEx will not help me anymore so you are my last recourse in solving this
problem.
My code is as simple as I believe is possible to reproduce the problem. You
can see it below or attached.
I hope you can find the problem, or suggest a workaround?
Many thanks for your time ...and a great module (except for this bug ?)
FYI I cannot provide my clients account number or meter number. I assume you
can test using your own...if not let me know and I will ask my client for
permission
Ciao.
Mark Underwood.
#!/usr/bin/perl
#####################################################################
# START OF CODE
#####################################################################
print "Content-type: text/html\n\n";
##########################################
use Business::FedEx::DirectConnect;
#########################################
print "<p>START<p>";
#########################################
$t = Business::FedEx::DirectConnect->new
#########################################
(
uri=>'https://gateway.fedex.com:443/GatewayDC'
,acc => 'XXXX7695' #FedEx Account Number
,meter => 'XXX4823' #FedEx Meter Number (This is given after you subscribe
to FedEx)
,referer => 'Integrated Midi Systems Inc.' # Name or Company
,Debug => 1
);
#########################################
$t->set_data
#########################################
(
2017
,8 => "NY"
,9 => "11733"
,10 => "210887695"
,16 => "NY"
,17 => "11542"
,23 => "1"
,50 => "US"
,68 => "USD"
,75 => "LBS"
,116 => "1"
,117 => "US"
,440 => "Y"
,498 => "7404823"
,1266 => "Y"
,1273 => "01"
,1274 => "03"
,1401 => "4.0"
,1415 => "349.00"
,2399 => '4' # IF THIS LINE IS INCLUDED THIS PROGRAM FAILES WITH ERRORS OR
DIAGNOSTICS AVAILABE, IF I REMOVE THIS ONE LINE IT RUNS FINE
,3025 => "FDXE"
) or $MyError = $t->errstr();
#########################################
$t->transaction() or $MyError = $t->errstr();
#########################################
if ($MyError)
{
print "<p>error = " . $MyError;
}
print '<p>FREIGHT1= ' . $t->lookup('1419');
print '<p>FINISH';
#####################################################################
# END OF CODE
#####################################################################
Here is the output from runnign the program (when the line containg tag 2399
is REMOVED...it will not return anything when th eline is included)
START
Sending
0,"022"8,"NY"9,"11733"10,"210887695"16,"NY"17,"11542"23,"1"50,"US"68,"USD"75
,"LBS"116,"1"117,"US"440,"Y"498,"7404823"1266,"Y"1273,"01"1274,"03"1401,"4.0
"1415,"349.00"3025,"FDXE"99,"" POST https://gateway.fedex.com:443/GatewayDC
Accept: image/gif,image/jpeg,image/pjpeg,text/plain,text/html,*/* Referer:
Integrated Midi Systems Inc. User-Agent: Business-FedEx-DirectConnect-1.01
Content-Length: 182 Content-Type: image/gif
0,"022"8,"NY"9,"11733"10,"210887695"16,"NY"17,"11542"23,"1"50,"US"68,"USD"75
,"LBS"116,"1"117,"US"440,"Y"498,"7404823"1266,"Y"1273,"01"1274,"03"1401,"4.0
"1415,"349.00"3025,"FDXE"99,"" Total bytes returned 194 Looking for 1419
FREIGHT1= 28.25
FINISH
Mark Underwood
P: +1(516)620-0865
F: +1(516)208-2235
<mailto:mark@workingtraffic.com> mark@workingtraffic.com