rt/etc/upgrade/3.9.1/content

   1 use strict;
   2 use warnings;
   3
   4 our @Initial = (
   5     sub {
   6         RT->Logger->debug('Make sure templates all have known types');
   7
   8         # We update all NULL rows, below.  We want to find non-NULL
   9         # rows, which weren't created by the current codebase running
  10         # through earlier initialdatas.  Type != 'Perl' enforces the
  11         # non-NULL part, as well
  12         my $templates = RT::Templates->new(RT->SystemUser);
  13         $templates->Limit(
  14             FIELD => 'Type',
  15             OPERATOR => '!=',
  16             VALUE => 'Perl',
  17         );
  18
  19         if ($templates->Count) {
  20             die "You have templates with Type already set. This will interfere with your upgrade because RT used to ignore the template Type field, but now uses it.";
  21         }
  22
  23         $templates = RT::Templates->new(RT->SystemUser);
  24         $templates->Limit(
  25             FIELD => 'Type',
  26             OPERATOR => 'IS',
  27             VALUE => 'NULL',
  28         );
  29         while (my $template = $templates->Next) {
  30             my ($status, $msg) = $template->SetType('Perl');
  31             RT->Logger->warning( "Couldn't change Type of Template #" . $template->Id . ": $msg" ) unless $status;
  32         }
  33     },
  34     sub {
  35         RT->Logger->debug('Adding ExecuteCode right to principals that currently have ModifyTemplate or ModifyScrips');
  36
  37         my $acl = RT::ACL->new(RT->SystemUser);
  38         $acl->Limit(
  39             FIELD           => 'RightName',
  40             OPERATOR        => '=',
  41             VALUE           => 'ModifyTemplate',
  42             ENTRYAGGREGATOR => 'OR',
  43         );
  44         $acl->Limit(
  45             FIELD           => 'RightName',
  46             OPERATOR        => '=',
  47             VALUE           => 'ModifyScrips',
  48             ENTRYAGGREGATOR => 'OR',
  49         );
  50
  51         while (my $ace = $acl->Next) {
  52             my $principal = $ace->PrincipalObj;
  53             next if $principal->HasRight(
  54                 Right  => 'ExecuteCode',
  55                 Object => $RT::System,
  56             );
  57
  58             my ($ok, $msg) = $principal->GrantRight(
  59                 Right  => 'ExecuteCode',
  60                 Object => $RT::System,
  61             );
  62
  63             if (!$ok) {
  64                 RT->Logger->warn("Unable to grant ExecuteCode on principal " . $principal->id . ": $msg");
  65             }
  66         }
  67     },
  68 );
  69