1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
package FS::TicketSystem;
use strict;
use vars qw( $conf $system $AUTOLOAD );
use FS::Conf;
use FS::UID qw( dbh driver_name );
FS::UID->install_callback( sub {
$conf = new FS::Conf;
$system = $conf->config('ticket_system');
} );
sub AUTOLOAD {
my $self = shift;
my($sub)=$AUTOLOAD;
$sub =~ s/.*://;
my $conf = new FS::Conf;
die "FS::TicketSystem::$AUTOLOAD called, but no ticket system configured\n"
unless $system;
eval "use FS::TicketSystem::$system;";
die $@ if $@;
$self .= "::$system";
$self->$sub(@_);
}
sub _upgrade_data {
return if !defined($system) || $system ne 'RT_Internal';
my ($class, %opts) = @_;
# go ahead and use the RT API for this
FS::TicketSystem->init;
my $session = FS::TicketSystem->session();
my $CurrentUser = $session->{'CurrentUser'}
or die 'freeside-upgrade must run as a valid RT user';
# CustomFieldChange scrip condition
my $ScripCondition = RT::ScripCondition->new($CurrentUser);
$ScripCondition->LoadByCols('ExecModule' => 'CustomFieldChange');
if (!defined($ScripCondition->Id)) {
my ($val, $msg) = $ScripCondition->Create(
'Name' => 'On Custom Field Change',
'Description' => 'When a custom field is changed to some value',
'ExecModule' => 'CustomFieldChange',
'ApplicableTransTypes' => 'Any',
);
die $msg if !$val;
}
# SetPriority scrip action
my $ScripAction = RT::ScripAction->new($CurrentUser);
$ScripAction->LoadByCols('ExecModule' => 'SetPriority');
if (!defined($ScripAction->Id)) {
my ($val, $msg) = $ScripAction->Create(
'Name' => 'Set Priority',
'Description' => 'Set ticket priority',
'ExecModule' => 'SetPriority',
'Argument' => '',
);
die $msg if !$val;
}
# EscalateQueue custom field and friends
my $CF = RT::CustomField->new($CurrentUser);
$CF->Load('EscalateQueue');
if (!defined($CF->Id)) {
my ($val, $msg) = $CF->Create(
'Name' => 'EscalateQueue',
'Type' => 'Select',
'MaxValues' => 1,
'LookupType' => 'RT::Queue',
'Description' => 'Escalate to Queue',
'ValuesClass' => 'RT::CustomFieldValues::Queues', #magic!
);
die $msg if !$val;
my $OCF = RT::ObjectCustomField->new($CurrentUser);
($val, $msg) = $OCF->Create(
'CustomField' => $CF->Id,
'ObjectId' => 0,
);
die $msg if !$val;
}
# Create any missing scrips
our (@Groups, @Users, @ACL, @Queues, @ScripActions, @ScripConditions,
@Templates, @CustomFields, @Scrips, @Attributes, @Initial, @Final);
my $datafile = '%%%RT_PATH%%%/etc/initialdata';
eval { require $datafile };
if ( $@ ) {
warn "Couldn't load RT data from '$datafile': $@\n(skipping)\n";
return;
}
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 };
$search = RT::Templates->new($CurrentUser);
$search->UnLimit;
my %template = map { lc($_->Name), $_->Id } @{ $search->ItemsArrayRef };
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);
die $msg if !$val;
}
} #foreach (@Scrips)
return;
}
1;
|
