X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FTicketSystem.pm;h=3c972d0bd67a224903fdc7231f40dc3345572974;hb=2ea729e55651a288bbf3826c888f430806aab04c;hp=169f0dc4d375bd42f242c746f0e19568ec9993e0;hpb=4c8c18409f82d56320a80f6c94f275fa15486897;p=freeside.git

diff --git a/FS/FS/TicketSystem.pm b/FS/FS/TicketSystem.pm
index 169f0dc4d..3c972d0bd 100644
--- a/FS/FS/TicketSystem.pm
+++ b/FS/FS/TicketSystem.pm
@@ -87,29 +87,33 @@ sub _upgrade_data {
   # bypass RT ACLs--we're going to do lots of things
   my $CurrentUser = $RT::SystemUser;
 
-  # selfservice user
-  my $User = RT::User->new($CurrentUser);
-  $User->Load('%%%SELFSERVICE_USER%%%');
-  if (!defined($User->Id)) {
-    my ($val, $msg) = $User->Create(
-      'Name' => '%%%SELFSERVICE_USER%%%',
-      'Gecos' => '%%%SELFSERVICE_USER%%%',
-      'Privileged' => 1,
-      # any other fields needed?
-    );
-    die $msg if !$val;
-  }
-  my $Principal = $User->PrincipalObj; # can this ever fail?
-  my @rights = ( qw(ShowTicket SeeQueue ModifyTicket ReplyToTicket 
-                    CreateTicket SeeCustomField) );
-  foreach (@rights) {
-    next if $Principal->HasRight( 'Right' => $_, Object => $RT::System );
-    my ($val, $msg) = $Principal->GrantRight(
-      'Right' => $_,
-      'Object' => $RT::System,
-    );
-    die $msg if !$val;
-  }
+  my $dbh = dbh;
+
+  # selfservice and cron users
+  foreach my $username ('%%%SELFSERVICE_USER%%%', 'fs_daily') {
+    my $User = RT::User->new($CurrentUser);
+    $User->Load($username);
+    if (!defined($User->Id)) {
+      my ($val, $msg) = $User->Create(
+        'Name' => $username,
+        'Gecos' => $username,
+        'Privileged' => 1,
+        # any other fields needed?
+      );
+      die $msg if !$val;
+    }
+    my $Principal = $User->PrincipalObj; # can this ever fail?
+    my @rights = ( qw(ShowTicket SeeQueue ModifyTicket ReplyToTicket 
+                      CreateTicket SeeCustomField) );
+    foreach (@rights) {
+      next if $Principal->HasRight( 'Right' => $_, Object => $RT::System );
+      my ($val, $msg) = $Principal->GrantRight(
+        'Right' => $_,
+        'Object' => $RT::System,
+      );
+      die $msg if !$val;
+    }
+  } #foreach $username
 
   # EscalateQueue custom field and friends
   my $CF = RT::CustomField->new($CurrentUser);
@@ -134,7 +138,8 @@ sub _upgrade_data {
 
   # Load from RT data file
   our (@Groups, @Users, @ACL, @Queues, @ScripActions, @ScripConditions,
-       @Templates, @CustomFields, @Scrips, @Attributes, @Initial, @Final);
+       @Templates, @CustomFields, @Scrips, @Attributes, @Initial, @Final,
+       %Delete_Scrips);
   my $datafile = '%%%RT_PATH%%%/etc/initialdata';
   eval { require $datafile };
   if ( $@ ) {
@@ -142,18 +147,30 @@ sub _upgrade_data {
     return;
   }
 
-  # Cache existing ScripCondition, ScripAction, and Template IDs
-  my $search = RT::ScripConditions->new($CurrentUser);
-  $search->UnLimit;
-  my %condition = map { lc($_->Name), $_->Id } @{ $search->ItemsArrayRef };
-
-  $search = RT::ScripActions->new($CurrentUser);
-  $search->UnLimit;
-  my %action = map { lc($_->Name), $_->Id } @{ $search->ItemsArrayRef };
+  # Cache existing ScripCondition, ScripAction, and Template IDs.
+  # Complicated because we don't want to just step on multiple IDs 
+  # with the same name.
+  my $cachify = sub {
+    my ($class, $hash) = @_;
+    my $search = $class->new($CurrentUser);
+    $search->UnLimit;
+    while ( my $item = $search->Next ) {
+      my $ids = $hash->{lc($item->Name)} ||= [];
+      if ( $item->Creator == 1 ) { # RT::SystemUser
+        unshift @$ids, $item->Id;
+      }
+      else {
+        push @$ids, $item->Id;
+      }
+    }
+  };
 
-  $search = RT::Templates->new($CurrentUser);
-  $search->UnLimit;
-  my %template = map { lc($_->Name), $_->Id } @{ $search->ItemsArrayRef };
+  my (%condition, %action, %template);
+  &$cachify('RT::ScripConditions', \%condition);
+  &$cachify('RT::ScripActions', \%action);
+  &$cachify('RT::Templates', \%template);
+  # $condition{name} = [ ids... ]
+  # with the id of the system-created object first, if there is one
 
   # ScripConditions
   my $ScripCondition = RT::ScripCondition->new($CurrentUser);
@@ -162,7 +179,7 @@ sub _upgrade_data {
     next if exists( $condition{ lc($sc->{Name}) } );
     my ($val, $msg) = $ScripCondition->Create( %$sc );
     die $msg if !$val;
-    $condition{ lc($ScripCondition->Name) } = $ScripCondition->Id;
+    $condition{ lc($ScripCondition->Name) } = [ $ScripCondition->Id ];
   }
 
   # ScripActions
@@ -172,7 +189,7 @@ sub _upgrade_data {
     next if exists( $action{ lc($sa->{Name}) } );
     my ($val, $msg) = $ScripAction->Create( %$sa );
     die $msg if !$val;
-    $action{ lc($ScripAction->Name) } = $ScripAction->Id;
+    $action{ lc($ScripAction->Name) } = [ $ScripAction->Id ];
   }
 
   # Templates
@@ -182,40 +199,174 @@ sub _upgrade_data {
     next if exists( $template{ lc($t->{Name}) } );
     my ($val, $msg) = $Template->Create( %$t );
     die $msg if !$val;
-    $template{ lc($Template->Name) } = $Template->Id;
+    $template{ lc($Template->Name) } = [ $Template->Id ];
   }
 
   # Scrips
+  my %scrip; # $scrips{condition}{action}{template} = id
+  my $search = RT::Scrips->new($CurrentUser);
+  $search->Limit(FIELD => 'Queue', VALUE => 0);
+  while (my $item = $search->Next) {
+    my ($c, $a, $t) = map {lc $item->$_->Name} 
+      ('ScripConditionObj', 'ScripActionObj', 'TemplateObj');
+    if ( exists $scrip{$c}{$a} and $item->Creator == 1 ) {
+      warn "Deleting duplicate scrip $c $a [$t]\n";
+      my ($val, $msg) = $item->Delete;
+      warn "error deleting scrip: $msg\n" if !$val;
+    }
+    elsif ( exists $Delete_Scrips{$c}{$a}{$t} and $item->Creator == 1 ) {
+      warn "Deleting obsolete scrip $c $a [$t]\n";
+      my ($val, $msg) = $item->Delete;
+      warn "error deleting scrip: $msg\n" if !$val;
+    }
+    else {
+      $scrip{$c}{$a} = $item->id;
+    }
+  }
   my $Scrip = RT::Scrip->new($CurrentUser);
   foreach my $s ( @Scrips ) {
     my $desc = $s->{'Description'};
     my ($c, $a, $t) = map lc,
       @{ $s }{'ScripCondition', 'ScripAction', 'Template'};
-    if ( !$condition{$c} ) {
-      warn "ScripCondition '$c' not found.\n";
-      next;
-    }
-    if ( !$action{$a} ) {
-      warn "ScripAction '$a' not found.\n";
-      next;
-    }
-    if ( !$template{$t} ) {
-      warn "Template '$t' not found.\n";
-      next;
-    }
-    my %param = (
-      ScripCondition => $condition{$c},
-      ScripAction => $action{$a},
-      Template => $template{$t},
-      Queue => 0,
-    );
-    $Scrip->LoadByCols(%param);
-    if (!defined($Scrip->Id)) {
-      my ($val, $msg) = $Scrip->Create(%param, Description => $desc);
+
+    if ( exists($scrip{$c}{$a}) ) {
+      $Scrip->Load( $scrip{$c}{$a} );
+    } else { # need to create it
+
+      if ( !exists($condition{$c}) ) {
+        warn "ScripCondition '$c' not found.\n";
+        next;
+      }
+      if ( !exists($action{$a}) ) {
+        warn "ScripAction '$a' not found.\n";
+        next;
+      }
+      if ( !exists($template{$t}) ) {
+        warn "Template '$t' not found.\n";
+        next;
+      }
+      my %new_param = (
+        ScripCondition => $condition{$c}->[0],
+        ScripAction => $action{$a}->[0],
+        Template => $template{$t}->[0],
+        Queue => 0,
+        Description => $desc,
+      );
+      warn "Creating scrip: $c $a [$t]\n";
+      my ($val, $msg) = $Scrip->Create(%new_param);
+      die $msg if !$val;
+
+    } #if $scrip{...}
+    # set the Immutable attribute on them if needed
+    if ( !$Scrip->FirstAttribute('Immutable') ) {
+      my ($val, $msg) =
+        $Scrip->SetAttribute(Name => 'Immutable', Content => '1');
       die $msg if !$val;
     }
+
   } #foreach (@Scrips)
 
+  # one-time fix: accumulator fields (support time, etc.) that had values 
+  # entered on ticket creation need OCFV records attached to their Create
+  # transactions
+  my $sql = 'SELECT first_ocfv.ObjectId, first_ocfv.Created, Content '.
+    'FROM ObjectCustomFieldValues as first_ocfv '.
+    'JOIN ('.
+      # subquery to get the first OCFV with a certain name for each ticket
+      'SELECT min(ObjectCustomFieldValues.Id) AS Id '.
+      'FROM ObjectCustomFieldValues '.
+      'JOIN CustomFields '.
+      'ON (ObjectCustomFieldValues.CustomField = CustomFields.Id) '.
+      'WHERE ObjectType = \'RT::Ticket\' '.
+      'AND CustomFields.Name = ? '.
+      'GROUP BY ObjectId'.
+    ') AS first_ocfv_id USING (Id) '.
+    'JOIN ('.
+      # subquery to get the first transaction date for each ticket
+      # other than the Create
+      'SELECT ObjectId, min(Created) AS Created FROM Transactions '.
+      'WHERE ObjectType = \'RT::Ticket\' '.
+      'AND Type != \'Create\' '.
+      'GROUP BY ObjectId'.
+    ') AS first_txn ON (first_ocfv.ObjectId = first_txn.ObjectId) '.
+    # where the ticket custom field acquired a value before any transactions
+    # on the ticket (i.e. it was set on ticket creation)
+    'WHERE first_ocfv.Created < first_txn.Created '.
+    # and we haven't already fixed the ticket
+    'AND NOT EXISTS('.
+      'SELECT 1 FROM Transactions JOIN ObjectCustomFieldValues '.
+      'ON (Transactions.Id = ObjectCustomFieldValues.ObjectId) '.
+      'JOIN CustomFields '.
+      'ON (ObjectCustomFieldValues.CustomField = CustomFields.Id) '.
+      'WHERE ObjectCustomFieldValues.ObjectType = \'RT::Transaction\' '.
+      'AND CustomFields.Name = ? '.
+      'AND Transactions.Type = \'Create\''.
+      'AND Transactions.ObjectType = \'RT::Ticket\''.
+      'AND Transactions.ObjectId = first_ocfv.ObjectId'.
+    ')';
+    #whew
+
+  # prior to this fix, the only name an accumulate field could possibly have 
+  # was "Support time".
+  my $sth = $dbh->prepare($sql);
+  $sth->execute('Support time', 'Support time');
+  my $rows = $sth->rows;
+  warn "Fixing support time on $rows rows...\n" if $rows > 0;
+  while ( my $row = $sth->fetchrow_arrayref ) {
+    my ($tid, $created, $content) = @$row;
+    my $Txns = RT::Transactions->new($CurrentUser);
+    $Txns->Limit(FIELD => 'ObjectId', VALUE => $tid);
+    $Txns->Limit(FIELD => 'ObjectType', VALUE => 'RT::Ticket');
+    $Txns->Limit(FIELD => 'Type', VALUE => 'Create');
+    my $CreateTxn = $Txns->First;
+    if ($CreateTxn) {
+      my ($val, $msg) = $CreateTxn->AddCustomFieldValue(
+        Field => 'Support time',
+        Value => $content,
+        RecordTransaction => 0,
+      );
+      warn "Error setting transaction support time: $msg\n" unless $val;
+    } else {
+      warn "Create transaction not found for ticket $tid.\n";
+    }
+  }
+
+  #Pg-specific 
+  my $cve_2013_3373_sql = q(
+    UPDATE Tickets SET Subject = REPLACE(Subject,E'\n','')
+  );
+  #need this for mysql
+  #UPDATE Tickets SET Subject = REPLACE(Subject,'\n','');
+
+  my $cve_2013_3373_sth = $dbh->prepare( $cve_2013_3373_sql)
+    or die $dbh->errstr;
+  $cve_2013_3373_sth->execute or die $cve_2013_3373_sth->errstr;
+
+  # Remove dangling customer links, if any
+  my %target_pkey = ('cust_main' => 'custnum', 'cust_svc' => 'svcnum');
+  for my $table (keys %target_pkey) {
+    my $pkey = $target_pkey{$table};
+    my $rows = $dbh->do(
+      "DELETE FROM links WHERE id IN(".
+        "SELECT links.id FROM links LEFT JOIN $table ON (links.target = ".
+        "'freeside://freeside/$table/' || $table.$pkey) ".
+        "WHERE links.target like 'freeside://freeside/$table/%' ".
+        "AND $table.$pkey IS NULL".
+      ")"
+    ) or die $dbh->errstr;
+    warn "Removed $rows dangling ticket-$table links\n" if $rows > 0;
+  }
+
+  # Fix ticket transactions on the Time* fields where the NewValue (or
+  # OldValue, though this is not known to happen) is an empty string
+  foreach (qw(newvalue oldvalue)) {
+    my $rows = $dbh->do(
+      "UPDATE transactions SET $_ = '0' WHERE objecttype='RT::Ticket' AND ".
+      "field IN ('TimeWorked', 'TimeEstimated', 'TimeLeft') AND $_ = ''"
+    ) or die $dbh->errstr;
+    warn "Fixed $rows transactions with empty time values\n" if $rows > 0;
+  }
+
   return;
 }