fs_selfservice/perl/xmlrpc_local-create_ticket.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use Frontier::Client;
   5 use Data::Dumper;;
   6
   7 my $server = new Frontier::Client (
   8         url => 'http://localhost:8080/',
   9 );
  10
  11 my $result = $server->call('FS.ClientAPI_XMLRPC.login',
  12   'username' => '4155551212',
  13   'password' => '5454',
  14   'domain'   => 'svc_phone',
  15 );
  16
  17 #print Dumper($result);
  18 die $result->{'error'} if $result->{'error'};
  19
  20 my $session_id = $result->{'session_id'};
  21 warn "logged in with session_id $session_id\n";
  22
  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',
  32 );
  33
  34 die $t_result->{'error'} if $t_result->{'error'};
  35
  36 warn Dumper($t_result);
  37
  38 my $ticket_id = $t_result->{'ticket_id'};
  39 warn "ticket $ticket_id created\n";
  40
  41 1;