[Rt-commit] r5024 - in rtir/branches/1.9-EXPERIMENTAL: . etc

[ruz at bestpractical.com]

Author: ruz
Date: Wed Apr 12 17:21:38 2006
New Revision: 5024

Modified:
   rtir/branches/1.9-EXPERIMENTAL/   (props changed)
   rtir/branches/1.9-EXPERIMENTAL/etc/initialdata
   rtir/branches/1.9-EXPERIMENTAL/etc/upgrade/1.9.0/content

Log:
 r1295 at cubic-pc:  cubic | 2006-04-13 01:28:34 +0400
 * notify on block close


Modified: rtir/branches/1.9-EXPERIMENTAL/etc/initialdata
==============================================================================
--- rtir/branches/1.9-EXPERIMENTAL/etc/initialdata	(original)
+++ rtir/branches/1.9-EXPERIMENTAL/etc/initialdata	Wed Apr 12 17:21:38 2006
@@ -428,11 +428,10 @@
        ExecModule => 'RTIR_RequireStateChange',
     },
     {  Name        => 'RTIR Require Due Change',    # loc
-       Description => 'The due date of the parent incident must be changed' ,                                            # loc
+       Description => 'The due date of the parent incident must be changed',                                            # loc
        ApplicableTransTypes => 'Any',
        ExecModule => 'RTIR_RequireDueChange',
     },
-
 );
 
 @Scrips = (
@@ -587,6 +586,12 @@
        ScripCondition    => 'On Status Change',
        ScripAction       => 'RTIR Set Incident Resolution',
        Template          => 'Blank', },
+
+    {  Description       => "NotifyOnClose",
+       Queue             => 'Blocks',
+       ScripCondition    => 'RTIR Close Ticket',
+       ScripAction       => 'Notify Requestors',
+       Template          => 'BlockRemoved' },
 );
 
 @Templates = (
@@ -628,6 +633,43 @@
 
                         Thank you,
                         {$Ticket->QueueObj->CorrespondAddress()}', },
+    { Queue       => 'Blocks',
+      Name        => 'BlockRemoved',
+      Description => 'Sent when a block is removed',
+      Content     => 'Subject: {$Ticket->Subject}
+
+Block #{$Ticket->id} was removed.
+
+{
+  my $output = "";
+  my $CustomFields = $Ticket->QueueObj->CustomFields();
+  $CustomFields->{"find_disabled_rows"} = 1;
+  while (my $CustomField = $CustomFields->Next()) {
+    my @mailfields = ("_RTIR_IP", 
+        "_RTIR_Netmask", 
+        "_RTIR_Port",
+        "_RTIR_WhereBlocked");
+    my $Values = $Ticket->CustomFieldValues($CustomField->Id);
+    while (my $Value = $Values->Next()) {
+      for my $field (@mailfields) {
+        if ($CustomField->Name eq $field) {
+          $output .= $CustomField->Name.": ".$Value->Content."\n";
+        }
+      }
+    }
+  }
+  return $output;
+}
+-------------------------------------------------------------------------
+Please include the string:
+
+         [{$rtname} #{$Ticket->id}]
+
+in the subject line of all future correspondence about this issue. To do so, 
+you may reply to this message.
+
+                        Thank you,
+                        {$Ticket->QueueObj->CorrespondAddress()}', },
     { Queue       => 'Investigations',
       Name        => 'LaunchMessage',
       Description => 'Sent when an investigation is launched',

Modified: rtir/branches/1.9-EXPERIMENTAL/etc/upgrade/1.9.0/content
==============================================================================
--- rtir/branches/1.9-EXPERIMENTAL/etc/upgrade/1.9.0/content	(original)
+++ rtir/branches/1.9-EXPERIMENTAL/etc/upgrade/1.9.0/content	Wed Apr 12 17:21:38 2006
@@ -125,6 +125,46 @@
     );
 }
 
+ at Templates = (
+    { Queue       => 'Blocks',
+      Name        => 'BlockRemoved',
+      Description => 'Sent when a block is removed',
+      Content     => 'Subject: {$Ticket->Subject}
+
+Block #{$Ticket->id} was removed.
+
+{
+  my $output = "";
+  my $CustomFields = $Ticket->QueueObj->CustomFields();
+  $CustomFields->{"find_disabled_rows"} = 1;
+  while (my $CustomField = $CustomFields->Next()) {
+    my @mailfields = ("_RTIR_IP", 
+        "_RTIR_Netmask", 
+        "_RTIR_Port",
+        "_RTIR_WhereBlocked");
+    my $Values = $Ticket->CustomFieldValues($CustomField->Id);
+    while (my $Value = $Values->Next()) {
+      for my $field (@mailfields) {
+        if ($CustomField->Name eq $field) {
+          $output .= $CustomField->Name.": ".$Value->Content."\n";
+        }
+      }
+    }
+  }
+  return $output;
+}
+-------------------------------------------------------------------------
+Please include the string:
+
+         [{$rtname} #{$Ticket->id}]
+
+in the subject line of all future correspondence about this issue. To do so, 
+you may reply to this message.
+
+                        Thank you,
+                        {$Ticket->QueueObj->CorrespondAddress()}', },
+);
+
 @ScripActions = (
     {  Name        => 'RTIR Set Incident Resolution',    # loc
        Description => 'Set the default resolution of an Incident' ,                                            # loc
@@ -161,6 +201,12 @@
        ScripCondition    => 'On Status Change',
        ScripAction       => 'RTIR Set Incident Resolution',
        Template          => 'Blank', },
+
+    {  Description       => "NotifyOnClose",
+       Queue             => 'Blocks',
+       ScripCondition    => 'RTIR Close Ticket',
+       ScripAction       => 'Notify Requestors',
+       Template          => 'BlockRemoved' },
 );
 
 push @ACL, (