use 5.005;
use strict;
use Data::Dumper;
-use URI::Escape;
use LWP::UserAgent;
use XML::Simple;
use Locale::Country;
use Net::Artera;
my $connection = new Net::Artera (
+ 'rid' => 'reseller_id',
'username' => 'reseller_username',
'password' => 'reseller_password',
'production' => 0,
);
+ my $result = $artera->newOrder(
+ 'email' => $email,
+ 'cname' => $name,
+ 'ref' => $refnum,,
+ 'aid' => $affiliatenum,
+ 'add1' => $address1,
+ 'add2' => $address2,
+ 'add3' => $city,
+ 'add4' => $state,
+ 'zip' => $zip,
+ 'cid' => $country,
+ 'phone' => $phone,
+ 'fax' => $fax,
+ );
+
+ if ( $result->{'id'} == 1 ) {
+ #Success!
+ $serialnum = $result->{'ASN'};
+ $keycode = $result->{'AKC'};
+ } else {
+ #Failure
+ die $result->{'message'};
+ }
+
+ # etc...
+
=head1 DESCRIPTION
This is a Perl module which speaks the Artera XML API.