projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
new world ACLs
[freeside.git]
/
FS
/
bin
/
freeside-setup
diff --git
a/FS/bin/freeside-setup
b/FS/bin/freeside-setup
index
2ba717c
..
a51dfd7
100755
(executable)
--- a/
FS/bin/freeside-setup
+++ b/
FS/bin/freeside-setup
@@
-4,7
+4,7
@@
BEGIN { $FS::Schema::setup_hack = 1; }
use strict;
BEGIN { $FS::Schema::setup_hack = 1; }
use strict;
-use vars qw($opt_
s
$opt_d $opt_v);
+use vars qw($opt_
u
$opt_d $opt_v);
use Getopt::Std;
use FS::UID qw(adminsuidsetup datasrc checkeuid getsecrets);
use FS::CurrentUser;
use Getopt::Std;
use FS::UID qw(adminsuidsetup datasrc checkeuid getsecrets);
use FS::CurrentUser;
@@
-18,9
+18,10
@@
die "Not running uid freeside!" unless checkeuid();
#my %attrib2db =
# map { lc($FS::raddb::attrib{$_}) => $_ } keys %FS::raddb::attrib;
#my %attrib2db =
# map { lc($FS::raddb::attrib{$_}) => $_ } keys %FS::raddb::attrib;
-getopts("
s
vd:");
+getopts("
u:
vd:");
#my $user = shift or die &usage;
#my $user = shift or die &usage;
-getsecrets(); #$user);
+
+getsecrets($opt_u); #$user);
#needs to match FS::Record
my($dbdef_file) = "/usr/local/etc/freeside/dbdef.". datasrc;
#needs to match FS::Record
my($dbdef_file) = "/usr/local/etc/freeside/dbdef.". datasrc;
@@
-87,7
+88,7
@@
$dbdef->save($dbdef_file);
###
$FS::CurrentUser::upgrade_hack = 1;
###
$FS::CurrentUser::upgrade_hack = 1;
-my $dbh = adminsuidsetup; #$user;
+my $dbh = adminsuidsetup
$opt_u
; #$user;
#create tables
$|=1;
#create tables
$|=1;
@@
-120,7
+121,8
@@
sub dbdef_create { # reverse engineer the schema from the DB and save to file
}
sub usage {
}
sub usage {
- die "Usage:\n freeside-setup -d domain.name [ -v ] user\n";
+ die "Usage:\n freeside-setup -d domain.name [ -v ]\n"
+ # [ -u user ] for devel/multi-db installs
}
1;
}
1;