1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
#!/usr/bin/perl
use strict;
use Frontier::Client;
use Data::Dumper;
my( $username, $password ) = ( @ARGV );
my $uri = new URI 'http://localhost:8080/';
my $server = new Frontier::Client ( 'url' => $uri );
my $result = $server->call('FS.ClientAPI_XMLRPC.login',
'email' => 'joe@test.com',
'password' => 'testpass',
);
die $result->{'error'} if $result->{'error'};
my $session_id = $result->{'session_id'};
warn "$session_id";
my $process_payment = $server->call('FS.ClientAPI_XMLRPC.process_payment',
# Required fields
'session_id' => $session_id,
'amount' => '1.00',
'payname' => 'Joe Tester',
'payinfo' => '4111111111111111',
'month' => '1', # CC Expiration month
'year' => '2019', # CC Expiration year
#Optional fields (Only needed which these are not set on the customers account or when new information needs to be saved)
'save' => 1, # Save this information to the customers account
'auto' => 1, # Set this customers account to "automatic" payment type
'address1' => '1234 Testerville Rd',
'address2' => '',
'city' => 'Testerville',
'state' => 'MD',
'zip' => '12345',
'country' => 'US',
);
die $process_payment->{'error'} if $process_payment->{'error'};
1;
|