ICS::Simple ICS::Simple is a simple interface to CyberSource ICS2.
Download

ICS::Simple Ranking & Summary

ICS::Simple Tags

Perl interface ICS2 CyberSource ICS2 ICS interface CyberSource

ICS::Simple Description

ICS::Simple is a simple interface to CyberSource ICS2. ICS::Simple is a simple interface to CyberSource ICS2.SYNOPSISHere is some basic code. Hopefully I'll come back through soon to document it properly. use ICS::Simple; my $ics = ICS::Simple->new( ICSPath => '/opt/ics', MerchantId => 'v0123456789', # CyberSource supplies this number to you Mode => 'test', Currency => 'USD', Grammar => 'UpperCamel', # defaults to raw ICS responses, so you might want to set this #ErrorsTo => 'all-errors@some.fun.place.com', CriticalErrorsTo => 'only-critical-errors@some.fun.place.com', ); my $request = { OrderId => 'order19857219', FirstName => 'Fred', LastName => 'Smith', Email => 'fred.smith@buyer-of-stuff.com', CardNumber => '4111111111111111', CardCVV => '123', CardExpYear => '2008', CardExpMonth => '12', BillingAddress => '123 Main St', BillingCity => 'Olympia', BillingRegion => 'WA', BillingPostalCode => '98501', BillingCountryCode => 'US', ShippingAddress1 => '6789 Industrial Pl', ShippingAddress2 => 'Floor 83, Room 11415', ShippingCity => 'Olympia', ShippingRegion => 'WA', ShippingPostalCode => '98506', ShippingCountryCode => 'US', ShippingFee => '25.05', HandlingFee => '5.00', Items => , }; my $response = $ics->requestBill($request); if ($response->{success}) { print "Woo! Success!n"; $response = $response->{response}; print "Thanks for your payment of $$response->{BillAmount}.n"; } else { print "Boo! Failure!n"; print "Error: $response->{error}->{description}n"; } Requirements: · Perl

ICS::Simple Related Software