diff options
author | Ivan Kohler <ivan@freeside.biz> | 2012-02-19 19:19:16 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2012-02-19 19:19:16 -0800 |
commit | 22239b27fd94401ae2d1fac244a7cf95c17b3566 (patch) | |
tree | 22db7df75fc484f7a68ada070454002db1d90255 /fs_selfservice/perl/xmlrpc_local-agent_signup.pl | |
parent | 3a4880fe643514dc772018952b92005b8c57bbf8 (diff) |
add some random perl xmlrpc examples
Diffstat (limited to 'fs_selfservice/perl/xmlrpc_local-agent_signup.pl')
-rwxr-xr-x | fs_selfservice/perl/xmlrpc_local-agent_signup.pl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/fs_selfservice/perl/xmlrpc_local-agent_signup.pl b/fs_selfservice/perl/xmlrpc_local-agent_signup.pl new file mode 100755 index 000000000..4ad321fcc --- /dev/null +++ b/fs_selfservice/perl/xmlrpc_local-agent_signup.pl @@ -0,0 +1,25 @@ +#!/usr/bin/perl + +use strict; +use Frontier::Client; +use Data::Dumper; +use Data::Faker; + +my $server = new Frontier::Client ( + url => 'http://localhost:8080/selfservice/xmlrpc.cgi', +); + +my $faker = new Data::Faker; + +my $result = $server->call('FS.ClientAPI_XMLRPC.new_agent', { + 'agent' => $faker->company, + 'username' => $faker->username, + 'password' => '12345', +}); + +#print Dumper($result); +die $result->{'error'} if $result->{'error'}; + +warn Dumper($result); + +1; |