X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Fetc%2Finitialdata;h=0860d54f6b7894610ea0c4eb6cde355fc3869080;hb=refs%2Fheads%2FFREESIDE_2_3_BRANCH;hp=89db2cc647fed738d6c97fef532fff5232dc9d5f;hpb=b4b0c7e72d7eaee2fbfc7022022c9698323203dd;p=freeside.git diff --git a/rt/etc/initialdata b/rt/etc/initialdata index 89db2cc64..0860d54f6 100644 --- a/rt/etc/initialdata +++ b/rt/etc/initialdata @@ -63,11 +63,13 @@ ExecModule => 'NotifyAsComment', Argument => 'Requestor,Cc' }, - { Name => 'Notify Requestors and Ccs', # loc - Description => 'Send mail to requestors and Ccs', # loc - ExecModule => 'Notify', - Argument => 'Requestor,Cc' }, +# deprecated +# { Name => 'Notify Requestors and Ccs', # loc +# Description => 'Send mail to requestors and Ccs', # loc +# ExecModule => 'Notify', +# Argument => 'Requestor,Cc' }, +# not yet deprecated { Name => 'Notify Owner, Requestors, Ccs and AdminCcs as Comment', # loc Description => 'Send mail to owner and all watchers as a "comment"', # loc ExecModule => 'NotifyAsComment', @@ -80,10 +82,12 @@ Description => 'Sends mail to explicitly listed Ccs and Bccs', # loc ExecModule => 'NotifyAsComment', Argument => 'OtherRecipients' }, - { Name => 'Notify Other Recipients', # loc - Description => 'Sends mail to explicitly listed Ccs and Bccs', # loc - ExecModule => 'Notify', - Argument => 'OtherRecipients' }, +# deprecated +# { Name => 'Notify Other Recipients', # loc +# Description => 'Sends mail to explicitly listed Ccs and Bccs', # loc +# ExecModule => 'Notify', +# Argument => 'OtherRecipients' }, + { Name => 'User Defined', # loc Description => 'Perform a user-defined action', # loc ExecModule => 'UserDefined', }, @@ -97,6 +101,29 @@ { Name => 'Extract Subject Tag', # loc Description => 'Extract tags from a Transaction\'s subject and add them to the Ticket\'s subject.', # loc ExecModule => 'ExtractSubjectTag' }, + + #freeside + { Name => 'Set Priority', + Description => 'Set ticket priority', + ExecModule => 'SetPriority', + Argument => '', + }, + { Name => 'Cancel Scheduled Resolve', + Description => 'Set ticket not to resolve in the future', + ExecModule => 'SetWillResolve', + Argument => '', + }, + { Name => 'Scheduled Resolve', + Description => 'Resolve ticket if its WillResolve date has passed', + ExecModule => 'ScheduledResolve', + Argument => '', + }, +# combine these into a single action so they can see each other in the headers + { Name => 'Notify Requestors, Ccs, and Other Recipients', + Description => 'Send mail to requestors, watchers, and explicit Ccs', + ExecModule => 'Notify', + Argument => 'Requestor,Cc,OtherRecipients', + }, ); @ScripConditions = ( @@ -185,6 +212,18 @@ ExecModule => 'ReopenTicket', }, + #freeside + { Name => 'On Custom Field Transaction', + Description => 'When a custom field is changed', + ExecModule => 'CustomFieldTransaction', + ApplicableTransTypes => 'Any', + }, + { Name => 'On Custom Field Change', + Description => 'When a custom field is changed to some value', + ExecModule => 'CustomFieldChange', + ApplicableTransTypes => 'Any', + }, + ); @Templates = ( @@ -270,7 +309,7 @@ you may reply to this message. Name => 'Admin Comment', # loc Description => 'Default admin comment template', # loc Content => -'Subject: [Comment] {my $s=($Transaction->Subject||$Ticket->Subject); $s =~ s/\\[Comment\\]//g; $s =~ s/^Re//i; $s;} +'Subject: [Comment] {my $s=($Transaction->Subject||$Ticket->Subject); $s =~ s/\\[Comment\\]\\s*//g; $s =~ s/^Re:\\s*//i; $s;} RT-Attach-Message: yes @@ -331,7 +370,7 @@ batch-process all your pending approvals. Greetings, -Your ticket has been approved by { eval { $Approval->OwnerObj->Name } }. +Your ticket has been approved by { eval { $Approver->Name } }. Other approvals may be pending. Approver\'s notes: { $Notes } @@ -345,7 +384,7 @@ Approver\'s notes: { $Notes } Greetings, -Your ticket has been approved by { eval { $Approval->OwnerObj->Name } }. +Your ticket has been approved by { eval { $Approver->Name } }. Its Owner may now start to act on it. Approver\'s notes: { $Notes } @@ -359,7 +398,7 @@ Approver\'s notes: { $Notes } Greetings, -Your ticket has been rejected by { eval { $Approval->OwnerObj->Name } }. +Your ticket has been rejected by { eval { $Approver->Name } }. Approver\'s notes: { $Notes } ' @@ -486,6 +525,17 @@ Hour: { $SubscriptionObj->SubValue('Hour') } } } }, + { Queue => 0, + Name => 'Custom Field Transaction', + Description => 'Custom field value changed', + Content => q[Subject: {$Transaction->BriefDescription()} + +{RT->Config->Get('WebURL')}Ticket/Display.html?id={$Ticket->id} + +{$Transaction->Content()} +], + }, + ); # }}} @@ -510,14 +560,18 @@ Hour: { $SubscriptionObj->SubValue('Hour') } ScripCondition => 'On Correspond', ScripAction => 'Notify AdminCcs', Template => 'Admin Correspondence' }, - { Description => 'On Correspond Notify Requestors and Ccs', - ScripCondition => 'On Correspond', - ScripAction => 'Notify Requestors And Ccs', - Template => 'Correspondence' }, - { Description => 'On Correspond Notify Other Recipients', +# { Description => 'On Correspond Notify Requestors and Ccs', +# ScripCondition => 'On Correspond', +# ScripAction => 'Notify Requestors And Ccs', +# Template => 'Correspondence' }, +# { Description => 'On Correspond Notify Other Recipients', +# ScripCondition => 'On Correspond', +# ScripAction => 'Notify Other Recipients', +# Template => 'Correspondence' }, + { Description => 'On Correspond Notify Requestors, Ccs, and Other Recipients', ScripCondition => 'On Correspond', - ScripAction => 'Notify Other Recipients', - Template => 'Correspondence' }, + ScripAction => 'Notify Requestors, Ccs, and Other Recipients', + Template => 'Correspondence', }, { Description => 'On Comment Notify AdminCcs as Comment', ScripCondition => 'On Comment', ScripAction => 'Notify AdminCcs As Comment', @@ -534,6 +588,10 @@ Hour: { $SubscriptionObj->SubValue('Hour') } ScripCondition => 'On Transaction', ScripAction => 'Extract Subject Tag', Template => 'Blank' }, + { Description => 'On Correspond, cancel future resolve', + ScripCondition => 'On Correspond', + ScripAction => 'Cancel Scheduled Resolve', + Template => 'Blank' }, ); @ACL = ( @@ -602,3 +660,108 @@ Hour: { $SubscriptionObj->SubValue('Hour') } }, }, ); + +# freeside upgrade +# Obsolete/erroneous scrips +# If +# $Delete_Scrips{conditionname}{actionname}{templatename} +# exists, and the scrip was created by the system user, it +# will be deleted on upgrade. Lowercase all the names here. + +%Delete_Scrips = ( + 'on correspond' => { + 'notify requestors and ccs' => { 'correspondence' => 1 }, + 'notify other recipients' => { 'correspondence' => 1 }, + } +); + +# -*- perl -*- + +push @ScripActions, ( + + { Name => 'Extract Custom Field Values', # loc + Description => 'extract cf-values out of a message', # loc + ExecModule => 'ExtractCustomFieldValues' }, + + { Name => 'Extract Custom Field Values With Code in Template', # loc + Description => 'extract cf-values out of a message with a Text::Template template', # loc + ExecModule => 'ExtractCustomFieldValuesWithCodeInTemplate' } + +); + +push @Templates, ( + { Queue => '0', + Name => 'CustomFieldScannerExample', # loc + Description => 'Example Template for ExtractCustomFieldValues', # loc + Content => <<'EOTEXT' +#### Syntax: +# CF Name | Header name or "Body" | MatchString(re) | Postcmd | Options + +#### Allowed Options: + +# q - (quiet) Don't record a transaction for adding the custom field +# value +# * - (wildcard) The MatchString regex should contain _two_ +# capturing groups, the first of which is the CF name, +# the second of which is the value. If this option is +# given, the field is ignored. + +#### Examples: + +# 1. Put the content of the "X-MI-Test" header into the "testcf" +# custom field: +# testcf|X-MI-Test|.* + +# 2. Scan the body for Host:name and put name into the "bodycf" custom +# field: +# bodycf|Body|Host:\s*(\w+) + +# 3. Scan the "X-MI-IP" header for an IP-Adresse and get the hostname +# by reverse-resolving it: +# Hostname|X-MI-IP|\d+\.\d+\.\d+\.\d+|use Socket; ($value) = gethostbyaddr(inet_aton($value),AF_INET); + +# 4. scan the "CC" header for an many email addresses, and add them to +# a custom field named "parsedCCs". If "parsedCCs" is a multivalue +# CF, then this should yield separate values for all email adress +# found. +# parsedCCs|CC|.*|$value =~ s/^\s+//; $value =~ s/\s+$//; + +# 5. Looks for an "Email:" field in the body of the email, then loads +# up that user and makes them privileged The blank first field +# means the automatic CustomField setting is not invoked. +# |Body|Email:\s*(.+)$|my $u = RT::User->new($RT::SystemUser); $u->LoadByEmail($value); $u->SetPrivileged(1)| + +# 6. Looks for any text of the form "Set CF Name: Value" in the body, +# and sets the CF named "CF Name" to the given value, which may be +# multi-line. The '*' option controls the wildcard nature of this +# example. +# Separator=! +# !Body!^Set ([^\n:]*?):\s*((?s).*?)(?:\Z|\n\Z|\n\n)!!* + +# 7. Looks for the regex anywhere in the headers and stores the match +# in the AllHeaderSearch CF +# AllHeaderSearch|Headers|Site:\s*(\w+) + +# 8. If you need to dynamically build your matching, and want to trigger on headers and body +# and invode some arbitrary code like example 5 +# Separator=~~ +# { +# my $action = 'use My::Site; My::Site::SetSiteID( Ticket => $self->TicketObj, Site => $_ );'; +# +# for my $regex (My::Site::ValidRegexps) { +# for my $from ('headers', 'body') { +# $OUT .= join '~~', +# '', # CF name +# $from, +# $regex, +# $action; +# $OUT .= "\n"; +# } +# } +# } + +EOTEXT + } +); + +1;