diff options
Diffstat (limited to 'bin/xmlrpc-delete_payby')
-rwxr-xr-x | bin/xmlrpc-delete_payby | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/bin/xmlrpc-delete_payby b/bin/xmlrpc-delete_payby new file mode 100755 index 0000000..0f489f3 --- /dev/null +++ b/bin/xmlrpc-delete_payby @@ -0,0 +1,32 @@ +#!/usr/bin/perl + +use strict; +use Frontier::Client; +use Data::Dumper; + +my( $email, $password, $custpaybynum ) = @ARGV; +die "Usage: xmlrpc-delete_payby email password custpaybynum\n" + unless $email && length($password) && $custpaybynum; + +my $uri = new URI 'http://localhost:8080/'; + +my $server = new Frontier::Client ( 'url' => $uri ); + +my $login_result = $server->call( + 'FS.ClientAPI_XMLRPC.login', + 'email' => $email, + 'password' => $password, +); +die $login_result->{'error'}."\n" if $login_result->{'error'}; + +my $list_result = $server->call( + 'FS.ClientAPI_XMLRPC.delete_payby', + 'session_id' => $login_result->{'session_id'}, + 'custpaybynum' => $custpaybynum, +); +die $list_result->{'error'}."\n" if $list_result->{'error'}; + +#print Dumper($list_result); +print "Successfully deleted\n"; + +1; |