rt/etc/initialdata

   1 # Initial data for a fresh RT3 Installation.
   2
   3 @Users = (
   4     {  Name     => 'Nobody',
   5        RealName => 'Nobody in particular',
   6        Comments => 'Do not delete or modify this user. It is integral '
   7          . 'to RT\'s internal data structures',
   8        Privileged => '0', },
   9
  10     {  Name         => 'root',
  11        Gecos        => 'root',
  12        RealName     => 'Enoch Root',
  13        Password     => 'password',
  14        EmailAddress => "root\@localhost",
  15        Comments     => 'SuperUser',
  16        Privileged   => '1', } );
  17
  18 @Groups = (
  19     { Name        => '',
  20       Type        => 'Everyone',                        # loc
  21       Domain      => 'SystemInternal',
  22       Instance    => '',
  23       Description => 'Pseudogroup for internal use',    # loc
  24     },
  25     { Type        => 'Privileged',                      # loc
  26       Domain      => 'SystemInternal',
  27       Instance    => '',
  28       Name        => '',
  29       Description => 'Pseudogroup for internal use',    # loc
  30     },
  31     { Name        => '',
  32       Type        => 'Unprivileged',                    # loc
  33       Domain      => 'SystemInternal',
  34       Instance    => '',
  35       Description => 'Pseudogroup for internal use',    # loc
  36     },
  37     { Name        => '',
  38       Type        => 'Owner',                               # loc
  39       Domain      => 'RT::System-Role',
  40       Instance    => '',
  41       Description => 'SystemRolegroup for internal use',    # loc
  42     },
  43     { Name        => '',
  44       Type        => 'Requestor',                           # loc
  45       Domain      => 'RT::System-Role',
  46       Instance    => '',
  47       Description => 'SystemRolegroup for internal use',    # loc
  48     },
  49     { Name        => '',
  50       Type        => 'Cc',                                  # loc
  51       Domain      => 'RT::System-Role',
  52       Instance    => '',
  53       Description => 'SystemRolegroup for internal use',    # loc
  54     },
  55     { Name        => '',
  56       Type        => 'AdminCc',                             # loc
  57       Domain      => 'RT::System-Role',
  58       Instance    => '',
  59       Description => 'Pseudogroup for internal use',        # loc
  60     }, );
  61
  62 @Queues = ({ Name              => 'General',
  63              Description       => 'The default queue',
  64              CorrespondAddress => "",
  65              CommentAddress    => "", },
  66            { Name        => '___Approvals',
  67              Description => 'A system-internal queue for the approvals system',
  68              Disabled    => 2, } );
  69
  70 @ScripActions = (
  71
  72     {  Name        => 'Autoreply To Requestors',    # loc
  73        Description =>
  74 'Always sends a message to the requestors independent of message sender' ,                                            # loc
  75        ExecModule => 'Autoreply',
  76        Argument   => 'Requestor' },
  77     { Name        => 'Notify Requestors',                    # loc
  78       Description => 'Sends a message to the requestors',    # loc
  79       ExecModule  => 'Notify',
  80       Argument    => 'Requestor' },
  81     { Name        => 'Notify Owner as Comment',              # loc
  82       Description => 'Sends mail to the owner',              # loc
  83       ExecModule  => 'NotifyAsComment',
  84       Argument    => 'Owner' },
  85     { Name        => 'Notify Owner',                         # loc
  86       Description => 'Sends mail to the owner',              # loc
  87       ExecModule  => 'Notify',
  88       Argument    => 'Owner' },
  89     { Name        => 'Notify AdminCcs as Comment',                        # loc
  90       Description => 'Sends mail to the administrative Ccs as a comment', # loc
  91       ExecModule  => 'NotifyAsComment',
  92       Argument    => 'AdminCc' },
  93     { Name        => 'Notify AdminCcs',                                   # loc
  94       Description => 'Sends mail to the administrative Ccs',              # loc
  95       ExecModule  => 'Notify',
  96       Argument    => 'AdminCc' },
  97
  98     { Name        => 'Notify Requestors and Ccs as Comment',              # loc
  99       Description => 'Send mail to requestors and Ccs as a comment',      # loc
 100       ExecModule  => 'NotifyAsComment',
 101       Argument    => 'Requestor,Cc' },
 102
 103     { Name        => 'Notify Requestors and Ccs',                         # loc
 104       Description => 'Send mail to requestors and Ccs',                   # loc
 105       ExecModule  => 'Notify',
 106       Argument    => 'Requestor,Cc' },
 107
 108     { Name        => 'Notify Requestors, Ccs and AdminCcs as Comment',    # loc
 109       Description => 'Send mail to all watchers as a "comment"',          # loc
 110       ExecModule  => 'NotifyAsComment',
 111       Argument    => 'All' },
 112     { Name        => 'Notify Requestors, Ccs and AdminCcs',               # loc
 113       Description => 'Send mail to all watchers',                         # loc
 114       ExecModule  => 'Notify',
 115       Argument    => 'All' },
 116     { Name        => 'Notify Other Recipients as Comment',                # loc
 117       Description => 'Sends mail to explicitly listed Ccs and Bccs',      # loc
 118       ExecModule  => 'NotifyAsComment',
 119       Argument    => 'OtherRecipients' },
 120     { Name        => 'Notify Other Recipients',                           # loc
 121       Description => 'Sends mail to explicitly listed Ccs and Bccs',      # loc
 122       ExecModule  => 'Notify',
 123       Argument    => 'OtherRecipients' },
 124     { Name        => 'User Defined',                                      # loc
 125       Description => 'Perform a user-defined action',                     # loc
 126       ExecModule  => 'UserDefined', },
 127     {  Name        => 'Create Tickets',                                    # loc
 128        Description =>
 129          'Create new tickets based on this scrip\'s template',             # loc
 130        ExecModule => 'CreateTickets', },
 131     { Name        => 'Open Tickets',
 132       Description => 'Open tickets on correspondence',                    # loc
 133       ExecModule  => 'AutoOpen' },
 134 );
 135
 136 @ScripConditions = (
 137     { Name                 => 'On Create',                                # loc
 138       Description          => 'When a ticket is created',                 # loc
 139       ApplicableTransTypes => 'Create',
 140       ExecModule           => 'AnyTransaction', },
 141
 142     { Name                 => 'On Transaction',                           # loc
 143       Description          => 'When anything happens',                    # loc
 144       ApplicableTransTypes => 'Any',
 145       ExecModule           => 'AnyTransaction', },
 146     {
 147
 148       Name                 => 'On Correspond',                             # loc
 149       Description          => 'Whenever correspondence comes in',          # loc
 150       ApplicableTransTypes => 'Correspond',
 151       ExecModule           => 'AnyTransaction', },
 152
 153     {
 154
 155       Name                 => 'On Comment',                                # loc
 156       Description          => 'Whenever comments come in',                 # loc
 157       ApplicableTransTypes => 'Comment',
 158       ExecModule           => 'AnyTransaction' },
 159     {
 160
 161       Name                 => 'On Status Change',                          # loc
 162       Description          => 'Whenever a ticket\'s status changes',       # loc
 163       ApplicableTransTypes => 'Status',
 164       ExecModule           => 'AnyTransaction',
 165
 166     },
 167     {
 168
 169       Name                 => 'On Owner Change',                           # loc
 170       Description          => 'Whenever a ticket\'s owner changes',        # loc
 171       ApplicableTransTypes => 'Any',
 172       ExecModule           => 'OwnerChange',
 173
 174     },
 175     {
 176
 177       Name                 => 'On Queue Change',                           # loc
 178       Description          => 'Whenever a ticket\'s queue changes',        # loc
 179       ApplicableTransTypes => 'Set',
 180       ExecModule           => 'QueueChange',
 181
 182     },
 183     {  Name                 => 'On Resolve',                               # loc
 184        Description          => 'Whenever a ticket is resolved',            # loc
 185        ApplicableTransTypes => 'Status',
 186        ExecModule           => 'StatusChange',
 187        Argument             => 'resolved'
 188
 189     },
 190
 191     {  Name                 => 'User Defined',                             # loc
 192        Description          => 'Whenever a user-defined condition occurs', # loc
 193        ApplicableTransTypes => 'Any',
 194        ExecModule           => 'UserDefined'
 195
 196     },
 197
 198 );
 199
 200 @Templates = (
 201     { Queue       => '0',
 202       Name        => 'Blank',                                             # loc
 203       Description => 'A blank template',                                  # loc
 204       Content     => '', },
 205     {  Queue       => '0',
 206        Name        => 'Autoreply',                                         # loc
 207        Description => 'Default Autoresponse template',                     # loc
 208        Content     => 'Subject: AutoReply: {$Ticket->Subject}
 209
 210
 211 Greetings,
 212
 213 This message has been automatically generated in response to the
 214 creation of a trouble ticket regarding:
 215         "{$Ticket->Subject()}",
 216 a summary of which appears below.
 217
 218 There is no need to reply to this message right now.  Your ticket has been
 219 assigned an ID of [{$rtname} #{$Ticket->id()}].
 220
 221 Please include the string:
 222
 223          [{$rtname} #{$Ticket->id}]
 224
 225 in the subject line of all future correspondence about this issue. To do so,
 226 you may reply to this message.
 227
 228                         Thank you,
 229                         {$Ticket->QueueObj->CorrespondAddress()}
 230
 231 -------------------------------------------------------------------------
 232 {$Transaction->Content()}
 233 '
 234     },
 235
 236     {  Queue       => '0',
 237        Name        => 'Transaction',                     # loc
 238        Description => 'Default transaction template',    # loc
 239        Content     => 'RT-Attach-Message: yes
 240
 241
 242 {$Transaction->CreatedAsString}: Request {$Ticket->id} was acted upon.
 243 Transaction: {$Transaction->Description}
 244        Queue: {$Ticket->QueueObj->Name}
 245      Subject: {$Transaction->Subject || $Ticket->Subject || "(No subject given)"}
 246        Owner: {$Ticket->OwnerObj->Name}
 247   Requestors: {$Ticket->RequestorAddresses}
 248       Status: {$Ticket->Status}
 249  Ticket <URL: {$RT::WebURL}Ticket/Display.html?id={$Ticket->id} >
 250
 251
 252 {$Transaction->Content()}
 253 '
 254     },
 255
 256     {
 257
 258       Queue       => '0',
 259       Name        => 'Admin Correspondence',                     # loc
 260       Description => 'Default admin correspondence template',    # loc
 261       Content     => 'RT-Attach-Message: yes
 262
 263
 264 <URL: {$RT::WebURL}Ticket/Display.html?id={$Ticket->id} >
 265
 266 {$Transaction->Content()}
 267 '
 268     },
 269
 270     {  Queue       => '0',
 271        Name        => 'Correspondence',                          # loc
 272        Description => 'Default correspondence template',         # loc
 273        Content     => 'RT-Attach-Message: yes
 274
 275 {$Transaction->Content()}
 276 '
 277     },
 278
 279     {  Queue       => '0',
 280        Name        => 'Admin Comment',                           # loc
 281        Description => 'Default admin comment template',          # loc
 282        Content     =>
 283 'Subject: [Comment] {my $s=($Transaction->Subject||$Ticket->Subject); $s =~ s/\\[Comment\\]//g; $comment =~ s/^Re//i; $s;}
 284
 285
 286 {$RT::WebURL}Ticket/Display.html?id={$Ticket->id}
 287 This is a comment.  It is not sent to the Requestor(s):
 288
 289 {$Transaction->Content()}
 290 '
 291     },
 292
 293     {  Queue       => '0',
 294        Name        => 'Status Change',                                     # loc
 295        Description => 'Ticket status changed',                             # loc
 296        Content     => 'Subject: Status Changed to: {$Transaction->NewValue}
 297
 298
 299 {$RT::WebURL}Ticket/Display.html?id={$Ticket->id}
 300
 301 {$Transaction->Content()}
 302 '
 303     },
 304
 305     {
 306
 307       Queue       => '0',
 308       Name        => 'Resolved',                 # loc
 309       Description => 'Ticket Resolved',          # loc
 310       Content     => 'Subject: Ticket Resolved
 311
 312 According to our records, your request has been resolved. If you have any
 313 further questions or concerns, please respond to this message.
 314 '
 315     },
 316     {  Queue       => '___Approvals',
 317        Name        => "New Pending Approval",    # loc
 318        Description =>
 319          "Notify Owners and AdminCcs of new items pending their approval", # loc
 320        Content => 'Subject: New Pending Approval: {$Ticket->Subject}
 321
 322 Greetings,
 323
 324 There is a new item pending your approval: "{$Ticket->Subject()}",
 325 a summary of which appears below.
 326
 327 Please visit {$RT::WebURL}Approvals/Display.html?id={$Ticket->id}
 328 to approve or reject this ticket, or {$RT::WebURL}Approvals/ to
 329 batch-process all your pending approvals.
 330
 331 -------------------------------------------------------------------------
 332 {$Transaction->Content()}
 333 '
 334     },
 335     {  Queue       => '___Approvals',
 336        Name        => "Approval Passed",    # loc
 337        Description =>
 338          "Notify Owner of their ticket has been approved by some approver", # loc
 339        Content => 'Subject: Ticket Rejected: {$Ticket->Subject}
 340
 341 Greetings,
 342
 343 Your ticket has been approved by { eval { $Approval->OwnerObj->Name } }.
 344 Other approvals may be pending.
 345 '
 346     },
 347     {  Queue       => '___Approvals',
 348        Name        => "All Approvals Passed",    # loc
 349        Description =>
 350          "Notify Owner of their ticket has been approved by all approvers", # loc
 351        Content => 'Subject: Ticket Rejected: {$Ticket->Subject}
 352
 353 Greetings,
 354
 355 Your ticket has been approved.  Its Owner may now start to act on it.
 356 '
 357     },
 358     {  Queue       => '___Approvals',
 359        Name        => "Approval Rejected",    # loc
 360        Description =>
 361          "Notify Owner of their rejected ticket", # loc
 362        Content => 'Subject: Ticket Rejected: {$Ticket->Subject}
 363
 364 Greetings,
 365
 366 Your ticket has been rejected by { eval { $Approval->OwnerObj->Name } }.
 367 '
 368     },
 369 );
 370 # }}}
 371
 372 @Scrips = (
 373     {  ScripCondition => 'On Correspond',
 374        ScripAction    => 'Open Tickets',
 375        Template       => 'Blank' },
 376     {  ScripCondition => 'On Create',
 377        ScripAction    => 'AutoReply To Requestors',
 378        Template       => 'AutoReply' },
 379     {  ScripCondition => 'On Create',
 380        ScripAction    => 'Notify AdminCcs',
 381        Template       => 'Transaction' },
 382     {  ScripCondition => 'On Correspond',
 383        ScripAction    => 'Notify AdminCcs',
 384        Template       => 'Admin Correspondence' },
 385     {  ScripCondition => 'On Correspond',
 386        ScripAction    => 'Notify Requestors And Ccs',
 387        Template       => 'Correspondence' },
 388     {  ScripCondition => 'On Correspond',
 389        ScripAction    => 'Notify Other Recipients',
 390        Template       => 'Correspondence' },
 391     {  ScripCondition => 'On Comment',
 392        ScripAction    => 'Notify AdminCcs As Comment',
 393        Template       => 'Admin Comment' },
 394     {  ScripCondition => 'On Comment',
 395        ScripAction    => 'Notify Other Recipients As Comment',
 396        Template       => 'Correspondence' },
 397     {  ScripCondition => 'On Resolve',
 398        ScripAction    => 'Notify Requestors',
 399        Template       => 'Resolved' },
 400     {  Description => "When an approval ticket is created, notify the Owner and AdminCc of the item awaiting their approval",    # loc
 401        Queue          => '___Approvals',
 402        ScripCondition => 'User Defined',
 403        CustomIsApplicableCode => q[
 404             $self->TicketObj->Type eq 'approval'        and
 405             $self->TransactionObj->Field eq 'Status'    and
 406             $self->TransactionObj->NewValue eq 'open'   and
 407             eval { $T::Approving = ($self->TicketObj->AllDependedOnBy( Type => 'ticket' ))[0] }
 408        ],
 409        ScripAction    => 'Notify Owner',
 410        Template       => 'New Pending Approval' },
 411     {  Description => "If an approval is rejected, reject the original and delete pending approvals",    # loc
 412        Queue            => '___Approvals',
 413        ScripCondition   => 'On Status Change',
 414        ScripAction      => 'User Defined',
 415        CustomPrepareCode => q[
 416 # ------------------------------------------------------------------- #
 417 return(0) unless ( lc($self->TransactionObj->NewValue) eq "rejected" or
 418                    lc($self->TransactionObj->NewValue) eq "deleted" );
 419
 420 my $rejected = 0;
 421 my $links = $self->TicketObj->DependedOnBy;
 422 foreach my $link (@{ $links->ItemsArrayRef }) {
 423     my $obj = $link->BaseObj;
 424     if ($obj->QueueObj->IsActiveStatus($obj->Status)) {
 425         if ($obj->Type eq 'ticket') {
 426             $obj->Comment(
 427                 Content => $self->loc("Your request was rejected."),
 428             );
 429             $obj->SetStatus(
 430                 Status  => 'rejected',
 431                 Force   => 1,
 432             );
 433
 434             $T::Approval = $self->TicketObj; # so we can access it inside templates
 435             $self->{TicketObj} = $obj;  # we want the original id in the token line
 436             $rejected = 1;
 437         }
 438         else {
 439             $obj->SetStatus(
 440                 Status  => 'deleted',
 441                 Force   => 1,
 442             );
 443         }
 444     }
 445 }
 446
 447 $links = $self->TicketObj->DependsOn;
 448 foreach my $link (@{ $links->ItemsArrayRef }) {
 449     my $obj = $link->TargetObj;
 450     if ($obj->QueueObj->IsActiveStatus($obj->Status)) {
 451         $obj->SetStatus(
 452             Status      => 'deleted',
 453             Force       => 1,
 454         );
 455     }
 456 }
 457
 458 # Now magically turn myself into a Requestor Notify object...
 459 require RT::Action::Notify; bless($self, 'RT::Action::Notify');
 460 $self->{Argument} = 'Requestor'; $self->Prepare;
 461
 462 return $rejected;
 463 # ------------------------------------------------------------------- #
 464         ],
 465        CustomCommitCode => '"never needed"',
 466        Template          => 'Approval Rejected', },
 467     {  Description => "When a ticket has been approved by any approver, add correspondence to the original ticket", # loc
 468        Queue             => '___Approvals',
 469        ScripCondition    => 'On Resolve',
 470        ScripAction       => 'User Defined',
 471        CustomPrepareCode => q[
 472 # ------------------------------------------------------------------- #
 473 return(0) unless ($self->TicketObj->Type eq 'approval');
 474
 475 my $note;
 476 my $t = $self->TicketObj->Transactions;
 477 while (my $o = $t->Next) {
 478     $note .= $o->Content . "\n" if $o->ContentObj
 479             and $o->Content !~ /Default Approval/;
 480 }
 481
 482 foreach my $obj ($self->TicketObj->AllDependedOnBy( Type => 'ticket' )) {
 483     $obj->Comment(
 484         Content => $self->loc( "Your request has been approved by [_1]. Other approvals may still be pending.", # loc
 485             $self->TransactionObj->CreatorObj->Name,
 486         ) . "\n" . $self->loc( "Approver's notes: [_1]", # loc
 487             $note
 488         ),
 489     );
 490     $T::Approval = $self->TicketObj; # so we can access it inside templates
 491     $self->{TicketObj} = $obj;  # we want the original id in the token line
 492 }
 493
 494 # Now magically turn myself into a Requestor Notify object...
 495 require RT::Action::Notify; bless($self, 'RT::Action::Notify');
 496 $self->{Argument} = 'Requestor'; $self->Prepare;
 497
 498 return 1;
 499 # ------------------------------------------------------------------- #
 500         ],
 501        CustomCommitCode => '"never needed"',
 502        Template => 'Approval Passed' },
 503     {  Description => "When a ticket has been approved by all approvers, add correspondence to the original ticket", # loc
 504        Queue             => '___Approvals',
 505        ScripCondition    => 'On Resolve',
 506        ScripAction       => 'User Defined',
 507        CustomPrepareCode  => q[
 508 # ------------------------------------------------------------------- #
 509 # Find all the tickets that depend on this (that this is approving)
 510
 511 my $Ticket = $self->TicketObj;
 512 my @TOP    = $Ticket->AllDependedOnBy( Type => 'ticket' );
 513 my $links  = $Ticket->DependedOnBy;
 514 my $passed = 0;
 515
 516 while (my $link = $links->Next) {
 517     my $obj = $link->BaseObj;
 518     next if ($obj->HasUnresolvedDependencies( Type => 'approval' ));
 519
 520     if ($obj->Type eq 'ticket') {
 521         $obj->Comment(
 522             Content     => $self->loc("Your request has been approved."),
 523         );
 524         $T::Approval  = $Ticket;    # so we can access it inside templates
 525         $self->{TicketObj} = $obj;  # we want the original id in the token line
 526         $passed = 1;
 527     }
 528     elsif ($obj->Type eq 'approval') {
 529         $obj->SetStatus( Status => 'open', Force => 1 );
 530     }
 531     elsif ($RT::UseCodeTickets and $obj->Type eq 'code') {
 532         my $code = $obj->Transactions->First->Content;
 533         my $rv;
 534
 535         foreach my $TOP (@TOP) {
 536             local $@;
 537             $rv++ if eval $code;
 538             $RT::Logger->error("Cannot eval code: $@") if $@;
 539         }
 540
 541         if ($rv or !@TOP) {
 542             $obj->SetStatus( Status     => 'resolved', Force    => 1,);
 543         }
 544         else {
 545             $obj->SetStatus( Status     => 'rejected', Force    => 1,);
 546         }
 547     }
 548 }
 549
 550 # Now magically turn myself into a Requestor Notify object...
 551 require RT::Action::Notify; bless($self, 'RT::Action::Notify');
 552 $self->{Argument} = 'Requestor'; $self->Prepare;
 553
 554 return $passed;
 555 # ------------------------------------------------------------------- #
 556         ],
 557        CustomCommitCode => '"never needed"',
 558        Template => 'All Approvals Passed', },
 559
 560 );
 561
 562 @ACL = (
 563     { UserId => 'Nobody',      # - principalId
 564       Right  => 'OwnTicket', },
 565
 566     { UserId => 'root',        # - principalid
 567       Right  => 'SuperUser', },
 568
 569 );