From 943e15b73551da5f0d490bd3428fa8ae8c3a2634 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 12 Nov 2010 21:51:56 +0000
Subject: [PATCH] adding agent new customer example, RT#9608

---
 bin/xmlrpc-agent_new_customer.pl | 80 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)
 create mode 100755 bin/xmlrpc-agent_new_customer.pl

diff --git a/bin/xmlrpc-agent_new_customer.pl b/bin/xmlrpc-agent_new_customer.pl
new file mode 100755
index 000000000..761fcdf6e
--- /dev/null
+++ b/bin/xmlrpc-agent_new_customer.pl
@@ -0,0 +1,80 @@
+#!/usr/bin/perl
+#
+# xmlrpc-agent_new_customer.pl username password
+
+use strict;
+use Frontier::Client;
+use Data::Dumper;
+
+my( $username, $password ) = ( @ARGV );
+
+my $uri = new URI 'http://localhost/selfservice/xmlrpc.cgi';
+
+my $server = new Frontier::Client ( 'url' => $uri );
+
+
+###
+#   login
+###
+
+my $login_result = $server->call('FS.SelfService.XMLRPC.agent_login',
+  {
+    'username' => $username,
+    'password' => $username,
+  }
+);
+
+die $login_result->{'error'} if $login_result->{'error'};
+
+my $session_id = $login_result->{'session_id'};
+warn "logged in w/session_id $session_id\n";
+
+
+###
+#   new_customer
+###
+
+my $result = $server->call('FS.SelfService.XMLRPC.new_customer',
+  {
+    'session_id'     => $session_id,
+    #customer informaiton
+    'first'          => 'Tofu',
+    'last'           => 'Beast',
+    'address1'       => '1234 Soybean Ln.',
+    'city'           => 'Tofutown',
+    'state'          => 'CA',
+    'zip'            => '54321',
+    'country'        => 'US',
+    'invoicing_list' => 'tofu@example.com',
+    #billing information
+    'payby'          => 'CARD',
+    'payinfo'        => '4111111111111111',
+    'paycvv'         => '123',
+    'paydate'        => '11/2012',
+    #package information
+    'pkgpart'        => '2',
+    'username'       => 'tofu',
+    '_password'      => 's33kret',
+  }
+);
+
+die $result->{'error'} if $result->{'error'};
+
+my $custnum = $result->{'custnum'};
+warn "added new customer w/custnum $custnum\n";
+
+
+###
+#   logout
+###
+
+my $logout_result = $server->call('FS.SelfService.XMLRPC.agent_logout',
+  {
+    'session_id' => $session_id,
+  }
+);
+
+die $logout_result->{'error'} if $logout_result->{'error'};
+warn "logged out\n";
+
+1;
-- 
2.11.0