4 use vars qw($opt_u $opt_f $opt_v);
7 use FS::UID qw(adminsuidsetup checkeuid dbh);
9 use FS::Record qw(qsearch);
12 die "Not running uid freeside!" unless checkeuid();
15 my $dir = shift or die &usage;
17 $FS::CurrentUser::upgrade_hack = 1;
18 adminsuidsetup $opt_u; #$user;
22 my $conf = new FS::Conf;
23 if (!scalar(qsearch('conf', {})) || $opt_f) {
25 foreach my $item ( $conf->config_items() ) {
26 insert_config_item($item,$dir);
29 # ugly pseudo false laziness with Conf.pm
30 foreach my $item ( map { my $basename = basename($_);
31 $basename =~ /^(.*)$/;
37 } glob($dir. '/invoice_template_*'),
38 glob($dir. '/invoice_html_*'),
39 glob($dir. '/invoice_htmlnotes_*'),
40 glob($dir. '/invoice_latex_*'),
41 glob($dir. '/invoice_latexnotes_*')
44 insert_config_item($item,$dir);
48 foreach my $item ( map { my $basename = basename($_);
49 $basename =~ /^(.*)$/;
55 } glob($dir. '/logo_*.png'),
56 glob($dir. '/logo_*.eps')
59 insert_config_item($item,$dir);
65 warn "Freeside database initialized - committing transaction\n" if $opt_v;
67 dbh->commit or die dbh->errstr;
68 dbh->disconnect or die dbh->errstr;
70 warn "Configuration initialization committed successfully\n" if $opt_v;
72 sub insert_config_item {
77 warn "Inserting $key\n" if $opt_v;
78 my $value = readline(new IO::File "$dir/$key");
79 if ($item->type eq 'binary'){
80 $conf->set_binary($key, $value);
82 $conf->set($key, $value);
88 die "Usage:\n freeside-init-config [ -v ] [ -f ] directory\n"
89 # [ -u user ] for devel/multi-db installs