7 my $server = new Frontier::Client (
8 url => 'http://localhost/selfservice/xmlrpc.cgi',
11 my $result = $server->call('FS.SelfService.XMLRPC.login',
12 'username' => '4155551212',
14 'domain' => 'svc_phone',
17 #print Dumper($result);
18 die $result->{'error'} if $result->{'error'};
20 my $session_id = $result->{'session_id'};
21 warn "logged in with session_id $session_id\n";
23 my $t_result = $server->call('FS.SelfService.XMLRPC.create_ticket',
24 'session_id' => $session_id,
25 'requestor' => 'harveylala@example.com',
26 'cc' => 'chiquitabanana@example.com',
27 'subject' => 'Chiquita keeps sitting on me',
28 'message' => "Isn't there something you can do about this?\n\nShe keeps waking me up!",
31 die $t_result->{'error'} if $t_result->{'error'};
33 warn Dumper($t_result);
35 my $ticket_id = $t_result->{'ticket_id'};
36 warn "ticket $ticket_id created\n";