fs_selfservice/perl/xmlrpc-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/selfservice/xmlrpc.cgi',
   9 );
  10
  11 my $result = $server->call('FS.SelfService.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.SelfService.XMLRPC.create_ticket',
  24   'session_id' => $session_id,
  25   'queue'      => 3, #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'    => "Isn't there something you can do about this?\n\nShe keeps waking me up!  http://linktest.freeside.biz/hi",
  31 );
  32
  33 die $t_result->{'error'} if $t_result->{'error'};
  34
  35 warn Dumper($t_result);
  36
  37 my $ticket_id = $t_result->{'ticket_id'};
  38 warn "ticket $ticket_id created\n";
  39
  40 1;