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
144
145
146
147
148
149
|
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';
# 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;
}
# Load from RT data file
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;
}
# Cache existing ScripCondition, ScripAction, and Template IDs
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 };
# ScripConditions
my $ScripCondition = RT::ScripCondition->new($CurrentUser);
foreach my $sc (@ScripConditions) {
# $sc: Name, Description, ApplicableTransTypes, ExecModule, Argument
next if exists( $condition{ lc($sc->{Name}) } );
my ($val, $msg) = $ScripCondition->Create( %$sc );
die $msg if !$val;
$condition{ lc($ScripCondition->Name) } = $ScripCondition->Id;
}
# ScripActions
my $ScripAction = RT::ScripAction->new($CurrentUser);
foreach my $sa (@ScripActions) {
# $sa: Name, Description, ExecModule, Argument
next if exists( $action{ lc($sa->{Name}) } );
my ($val, $msg) = $ScripAction->Create( %$sa );
die $msg if !$val;
$action{ lc($ScripAction->Name) } = $ScripAction->Id;
}
# Templates
my $Template = RT::Template->new($CurrentUser);
foreach my $t (@Templates) {
# $t: Queue, Name, Description, Content
next if exists( $template{ lc($t->{Name}) } );
my ($val, $msg) = $Template->Create( %$t );
die $msg if !$val;
$template{ lc($Template->Name) } = $Template->Id;
}
# Scrips
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;
|
