FS/FS/part_export/rt_ticket.pm

   1 package FS::part_export::rt_ticket;
   2
   3 use vars qw(@ISA %info);
   4 use Tie::IxHash;
   5 use FS::part_export;
   6 use FS::Record qw(qsearch qsearchs);
   7 use FS::Conf;
   8 use FS::TicketSystem;
   9
  10 @ISA = qw(FS::part_export);
  11
  12 my %templates;
  13 my %queues;
  14 my %template_select = (
  15   type          => 'select',
  16   freeform      => 1,
  17   option_label  => sub {
  18     $templates{$_[0]};
  19   },
  20   option_values => sub {
  21     %templates = (0 => '',
  22       map { $_->msgnum, $_->msgname }
  23       qsearch({ table => 'msg_template',
  24                 hashref => { disabled => '' },
  25                 order_by => 'ORDER BY msgnum ASC'
  26               })
  27     );
  28     sort keys (%templates);
  29   },
  30 );
  31
  32 my %queue_select = (
  33   type          => 'select',
  34   freeform      => 1,
  35   option_label  => sub {
  36     $queues{$_[0]};
  37   },
  38   option_values => sub {
  39     return (0) unless FS::Conf->new->config('ticket_system');
  40     %queues = (0 => '', FS::TicketSystem->queues());
  41     sort {$queues{$a} cmp $queues{$b}} keys %queues;
  42   },
  43 );
  44
  45 tie my %options, 'Tie::IxHash', (
  46   'insert_queue' => {
  47     before  => '
  48 <TR><TD COLSPAN=2>
  49 <TABLE>
  50   <TR><TH></TH><TH>Queue</TH><TH>Template</TH></TR>
  51   <TR><TD>New service</TD><TD>',
  52     %queue_select,
  53     after   => '</TD>'
  54   },
  55   'insert_template' => {
  56     before  => '<TD>',
  57     %template_select,
  58     after   => '</TD></TR>
  59 ',
  60   },
  61   'delete_queue' => {
  62     before  => '
  63   <TR><TD>Delete</TD><TD>',
  64     %queue_select,
  65     after   => '</TD>',
  66   },
  67   'delete_template' => {
  68     before  => '<TD>',
  69     %template_select,
  70     after   => '</TD></TR>
  71 ',
  72   },
  73   'replace_queue' => {
  74     before  => '
  75   <TR><TD>Modify</TD><TD>',
  76     %queue_select,
  77     after   => '</TD>',
  78   },
  79   'replace_template' => {
  80     before  => '<TD>',
  81     %template_select,
  82     after   => '</TD></TR>
  83 ',
  84   },
  85   'suspend_queue' => {
  86     before  => '
  87   <TR><TD>Suspend</TD><TD>',
  88     %queue_select,
  89     after   => '</TD>',
  90   },
  91   'suspend_template' => {
  92     before  => '<TD>',
  93     %template_select,
  94     after   => '</TD></TR>
  95 ',
  96   },
  97   'unsuspend_queue' => {
  98     before  => '
  99   <TR><TD>Unsuspend</TD><TD>',
 100     %queue_select,
 101     after   => '</TD>',
 102   },
 103   'unsuspend_template' => {
 104     before  => '<TD>',
 105     %template_select,
 106     after   => '</TD></TR>
 107   </TABLE>
 108 </TD></TR>',
 109   },
 110   'requestor' => {
 111     freeform  => 0,
 112     label     => 'Requestor',
 113     'type'    => 'select',
 114     option_label => sub {
 115       my @labels = (
 116         'Template From: address',
 117         'Customer\'s invoice address',
 118       );
 119       $labels[shift];
 120     },
 121     option_values => sub { (0, 1) },
 122   },
 123 );
 124
 125 %info = (
 126   'svc'      => [qw( svc_acct svc_broadband svc_phone svc_domain )],
 127   'desc'     =>
 128   'Create an RT ticket',
 129   'options'  => \%options,
 130   'nodomain' => '',
 131   'no_machine' => 1,
 132   'notes'    => '
 133   Create a ticket in RT.  The subject and body of the ticket
 134   will be generated from a message template.'
 135 );
 136
 137 sub _export_ticket {
 138   my( $self, $action, $svc ) = (shift, shift, shift);
 139   my $conf = new FS::Conf;
 140   die "rt_ticket export - no ticket system configured"
 141     unless $conf->config('ticket_system');
 142
 143   FS::TicketSystem->init();
 144
 145   my $msgnum = $self->option($action.'_template');
 146   return if !$msgnum;
 147
 148   my $queue = $self->option($action.'_queue');
 149   return if !$queue;
 150
 151   my $msg_template = FS::msg_template->by_key($msgnum);
 152   return "Template $msgnum not found\n" if !$msg_template;
 153
 154   my $cust_pkg = $svc->cust_svc->cust_pkg;
 155   my $cust_main = $svc->cust_svc->cust_pkg->cust_main if $cust_pkg;
 156   my $custnum = $cust_main->custnum if $cust_main;
 157   my $svcnum = $svc->svcnum if $action ne 'delete';
 158
 159   my %msg;
 160   if ( $action eq 'replace' ) {
 161     my $old = shift;
 162     %msg = $msg_template->prepare(
 163       'cust_main' => $cust_main,
 164       'object'    => [ $svc, $old ],
 165     );
 166
 167   }
 168   else {
 169     %msg = $msg_template->prepare(
 170       'cust_main' => $cust_main,
 171       'object'    => $svc,
 172     );
 173   }
 174   my $requestor = $msg{'from'};
 175   $requestor = [ $cust_main->invoicing_list_emailonly ]
 176     if $cust_main and $self->option('requestor') == 1;
 177
 178   my $err_or_ticket = FS::TicketSystem->create_ticket(
 179     '', #session should already exist
 180     'queue'     => $queue,
 181     'subject'   => $msg{'subject'},
 182     'requestor' => $requestor,
 183     'message'   => $msg{'html_body'},
 184     'mime_type' => 'text/html',
 185     'custnum'   => $custnum,
 186     'svcnum'    => $svcnum,
 187   );
 188   if( ref($err_or_ticket) ) {
 189     return '';
 190   }
 191   else {
 192     return $err_or_ticket;
 193   }
 194 }
 195
 196 sub _export_insert {
 197   my($self, $svc) = (shift, shift);
 198   $self->_export_ticket('insert', $svc);
 199 }
 200
 201 sub _export_replace {
 202   my($self, $new, $old) = (shift, shift, shift);
 203   $self->_export_ticket('replace', $new, $old);
 204 }
 205
 206 sub _export_delete {
 207   my($self, $svc) = (shift, shift);
 208   $self->_export_ticket('delete', $svc);
 209 }
 210
 211 sub _export_suspend {
 212   my($self, $svc) = (shift, shift);
 213   $self->_export_ticket('suspend', $svc);
 214 }
 215
 216 sub _export_unsuspend {
 217   my($self, $svc) = (shift, shift);
 218   $self->_export_ticket('unsuspend', $svc);
 219 }
 220
 221 1;