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 use Data::Dumper 'Dumper';
  10
  11 @ISA = qw(FS::part_export);
  12
  13 my %templates;
  14 my %queues;
  15 my %template_select = (
  16   type          => 'select',
  17   freeform      => 1,
  18   option_label  => sub {
  19     $templates{$_[0]};
  20   },
  21   option_values => sub {
  22     %templates = (0 => '',
  23       map { $_->msgnum, $_->msgname }
  24       qsearch({ table => 'msg_template',
  25                 hashref => {},
  26                 order_by => 'ORDER BY msgnum ASC'
  27               })
  28     );
  29     sort keys (%templates);
  30   },
  31 );
  32
  33 my %queue_select = (
  34   type          => 'select',
  35   freeform      => 1,
  36   option_label  => sub {
  37     $queues{$_[0]};
  38   },
  39   option_values => sub {
  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 )], #others?
 127   'desc'     =>
 128     'Create an RT ticket',
 129   'options'  => \%options,
 130   'nodomain' => '',
 131   'notes'    => <<'END'
 132 Create a ticket in RT.  The subject and body of the ticket
 133 will be generated from a message template.
 134 END
 135 );
 136
 137 sub _export_ticket {
 138   my( $self, $action, $svc ) = (shift, shift, shift);
 139   my $msgnum = $self->option($action.'_template');
 140   return if !$msgnum;
 141
 142   my $queue = $self->option($action.'_queue');
 143   return if !$queue;
 144
 145   my $msg_template = FS::msg_template->by_key($msgnum);
 146   return "Template $msgnum not found\n" if !$msg_template;
 147
 148   my $cust_pkg = $svc->cust_svc->cust_pkg;
 149   my $cust_main = $svc->cust_svc->cust_pkg->cust_main if $cust_pkg;
 150   my $custnum = $cust_main->custnum if $cust_main;
 151   my $svcnum = $svc->svcnum if $action ne 'delete';
 152
 153   my %msg;
 154   if ( $action eq 'replace' ) {
 155     my $old = shift;
 156     %msg = $msg_template->prepare(
 157       'cust_main' => $cust_main,
 158       'object'    => [ $svc, $old ],
 159     );
 160
 161   }
 162   else {
 163     %msg = $msg_template->prepare(
 164       'cust_main' => $cust_main,
 165       'object'    => $svc,
 166     );
 167   }
 168   my $requestor = $msg{'from'};
 169   $requestor = [ $cust_main->invoicing_list_emailonly ]
 170     if $cust_main and $self->option('requestor') == 1;
 171
 172   my $err_or_ticket = FS::TicketSystem->create_ticket(
 173     '', #session should already exist
 174     'queue'     => $queue,
 175     'subject'   => $msg{'subject'},
 176     'requestor' => $requestor,
 177     'message'   => $msg{'html_body'},
 178     'mime_type' => 'text/html',
 179     'custnum'   => $custnum,
 180     'svcnum'    => $svcnum,
 181   );
 182   if( ref($err_or_ticket) ) {
 183     return '';
 184   }
 185   else {
 186     return $err_or_ticket;
 187   }
 188 }
 189
 190 sub _export_insert {
 191   my($self, $svc) = (shift, shift);
 192   $self->_export_ticket('insert', $svc);
 193 }
 194
 195 sub _export_replace {
 196   my($self, $new, $old) = (shift, shift, shift);
 197   $self->_export_ticket('replace', $new, $old);
 198 }
 199
 200 sub _export_delete {
 201   my($self, $svc) = (shift, shift);
 202   $self->_export_ticket('delete', $svc);
 203 }
 204
 205 sub _export_suspend {
 206   my($self, $svc) = (shift, shift);
 207   $self->_export_ticket('suspend', $svc);
 208 }
 209
 210 sub _export_unsuspend {
 211   my($self, $svc) = (shift, shift);
 212   $self->_export_ticket('unsuspend', $svc);
 213 }
 214
 215 1;