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
|
#!/usr/bin/perl -Tw
use strict;
use vars qw($opt_u $opt_f $opt_v);
use Getopt::Std;
use IO::File;
use FS::UID qw(adminsuidsetup checkeuid dbh);
use FS::CurrentUser;
use FS::Record qw(qsearch);
die "Not running uid freeside!" unless checkeuid();
getopts("u:vf");
my $dir = shift or die &usage;
$FS::CurrentUser::upgrade_hack = 1;
adminsuidsetup $opt_u; #$user;
$|=1;
my $conf = new FS::Conf;
if (!scalar(qsearch('conf', {})) || $opt_f) {
foreach my $item ( $conf->config_items() ) {
insert_config_item($item,$dir);
}
# ugly pseudo false laziness with Conf.pm
foreach my $item ( map { my $basename = basename($_);
$basename =~ /^(.*)$/;
$basename = $1;
new FS::ConfItem {
'key' => $basename,
'type' => '',
}
} glob($dir. '/invoice_template_*'),
glob($dir. '/invoice_html_*'),
glob($dir. '/invoice_htmlnotes_*'),
glob($dir. '/invoice_latex_*'),
glob($dir. '/invoice_latexnotes_*')
) {
insert_config_item($item,$dir);
}
foreach my $item ( map { my $basename = basename($_);
$basename =~ /^(.*)$/;
$basename = $1;
new FS::ConfItem {
'key' => $basename,
'type' => 'binary',
}
} glob($dir. '/logo_*.png'),
glob($dir. '/logo_*.eps')
) {
insert_config_item($item,$dir);
}
}
warn "Freeside database initialized - committing transaction\n" if $opt_v;
dbh->commit or die dbh->errstr;
dbh->disconnect or die dbh->errstr;
warn "Configuration initialization committed successfully\n" if $opt_v;
sub insert_config_item {
local $/;
my ($item,$dir) = @_;
my $key = $item->key;
if (-e "$dir/$key") {
warn "Inserting $key\n" if $opt_v;
my $value = readline(new IO::File "$dir/$key");
if ($item->type eq 'binary'){
$conf->set_binary($key, $value);
}else{
$conf->set($key, $value);
}
}
}
sub usage {
die "Usage:\n freeside-init-config directory [ -v ] [ -f ]\n"
# [ -u user ] for devel/multi-db installs
}
1;
|
