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
|
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';
# 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;
|
