7 my $server = new Frontier::Client (
8 url => 'http://localhost:8080/',
11 my $result = $server->call('FS.ClientAPI_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.ClientAPI_XMLRPC.create_ticket',
24 'session_id' => $session_id,
25 'queue' => 1, #otherwise defaults to ticket_system-selfservice_queueid
26 #or ticket_system-default_queueid
27 'requestor' => 'harveylala@example.com',
28 'cc' => 'chiquitabanana@example.com',
29 'subject' => 'Chiquita keeps sitting on me',
30 'message' => 'Is there something you can do about this?<BR><BR>She keeps waking me up! <A HREF="http://linktest.freeside.biz/hi">link test</A>',
31 'mime_type' => 'text/html',
34 die $t_result->{'error'} if $t_result->{'error'};
36 warn Dumper($t_result);
38 my $ticket_id = $t_result->{'ticket_id'};
39 warn "ticket $ticket_id created\n";