projects
/
Business-OnlinePayment-Skipjack.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update missed bad_card_mc.t to new test account
[Business-OnlinePayment-Skipjack.git]
/
Skipjack.pm
diff --git
a/Skipjack.pm
b/Skipjack.pm
index
e20eaf1
..
5c6565e
100644
(file)
--- a/
Skipjack.pm
+++ b/
Skipjack.pm
@@
-429,12
+429,14
@@
sub parse_SJAPI_TransactionChangeStatusRequest
my @records = split(/\r\n/, $page);
my @records = split(/\r\n/, $page);
- $csv->parse(shift @records) or die $csv->error;
+ $csv->parse(shift @records)
+ or die "CSV parse failed on " . $csv->error_input;
@output{@CHANGE_STATUS_RESPONSE} = $csv->fields();
# we only handle a single record reponse, as that's all this module will
# currently submit...
@output{@CHANGE_STATUS_RESPONSE} = $csv->fields();
# we only handle a single record reponse, as that's all this module will
# currently submit...
- $csv->parse(shift @records) or die $csv->error;
+ $csv->parse(shift @records)
+ or die "CSV parse failed on " . $csv->error_input;
@output{@CHANGE_STATUS_RESPONSE_RECORD} = $csv->fields();
return %output;
@output{@CHANGE_STATUS_RESPONSE_RECORD} = $csv->fields();
return %output;
@@
-451,12
+453,15
@@
sub parse_SJAPI_TransactionStatusRequest
my @records = split(/\r\n/, $page);
my @records = split(/\r\n/, $page);
- $csv->parse(shift @records) or die $csv->error;
+ #$csv->parse(shift @records)
+ $csv->parse(shift @records)
+ or die "CSV parse failed on " . $csv->error_input;
@output{@GET_STATUS_RESPONSE} = $csv->fields();
# we only handle a single record reponse, as that's all this module will
# currently submit...
@output{@GET_STATUS_RESPONSE} = $csv->fields();
# we only handle a single record reponse, as that's all this module will
# currently submit...
- $csv->parse(shift @records) or die $csv->error;
+ $csv->parse(shift @records)
+ or die "CSV parse failed on " . $csv->error_input;
@output{@GET_STATUS_RESPONSE_RECORD} = $csv->fields();
return %output;
@output{@GET_STATUS_RESPONSE_RECORD} = $csv->fields();
return %output;
@@
-572,11
+577,13
@@
Skipjack's TransactionStatusRequest. It should be documented.
=head1 AUTHOR
=head1 AUTHOR
-Original Skipjack.pm developed by New York Connect Net (http://nyct.net)
-Michael Bacarella <mbac@nyct.net>
+Inspiried by (but no longer contains) code from:
-Modified for GetCareer.com by Slipstream.com
-Troy Davis <troy@slipstream.com>
+ Original Skipjack.pm developed by New York Connect Net (http://nyct.net)
+ Michael Bacarella <mbac@nyct.net>
+
+ Modified for GetCareer.com by Slipstream.com
+ Troy Davis <troy@slipstream.com>
'Adapted' (completely rewritten) for Business::OnlinePayment
by Fire2Wire Internet Services (http://www.fire2wire.com)
'Adapted' (completely rewritten) for Business::OnlinePayment
by Fire2Wire Internet Services (http://www.fire2wire.com)
@@
-588,14
+595,18
@@
Boring 0.2 update by Ivan Kohler <ivan-skipjack@420.am>
=head1 COPYRIGHT
=head1 COPYRIGHT
-original license unknown, pending contact from Michael Bacarella / nyct.net.
-assuming it is okay...
-
-Business::OnlinePayment rewrite:
Copyright (c) 2006 Fire2Wire Internet Services (http://www.fire2wire.com)
All rights reserved. This program is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.
Copyright (c) 2006 Fire2Wire Internet Services (http://www.fire2wire.com)
All rights reserved. This program is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.
+Inspiried by (but no longer contains) code from:
+
+ Original Skipjack.pm developed by New York Connect Net (http://nyct.net)
+ Michael Bacarella <mbac@nyct.net>
+
+ Modified for GetCareer.com by Slipstream.com
+ Troy Davis <troy@slipstream.com>
+
=head1 SEE ALSO
L<Business::OnlinePayment>
=head1 SEE ALSO
L<Business::OnlinePayment>