projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[freeside.git]
/
bin
/
fs-setup
diff --git
a/bin/fs-setup
b/bin/fs-setup
index
b7d4a18
..
ca5e822
100755
(executable)
--- a/
bin/fs-setup
+++ b/
bin/fs-setup
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: fs-setup,v 1.1
6 1999-02-28 19:44:16
ivan Exp $
+# $Id: fs-setup,v 1.1
8 1999-04-15 22:46:30
ivan Exp $
#
# ivan@sisd.com 97-nov-8,9
#
#
# ivan@sisd.com 97-nov-8,9
#
@@
-32,7
+32,13
@@
# fix radius attributes ivan@sisd.com 98-sep-27
#
# $Log: fs-setup,v $
# fix radius attributes ivan@sisd.com 98-sep-27
#
# $Log: fs-setup,v $
-# Revision 1.16 1999-02-28 19:44:16 ivan
+# Revision 1.18 1999-04-15 22:46:30 ivan
+# TT isn't a state!
+#
+# Revision 1.17 1999/04/14 07:58:39 ivan
+# export getsecrets from FS::UID instead of calling it explicitly
+#
+# Revision 1.16 1999/02/28 19:44:16 ivan
# constructors s/create/new/ pointed out by "Bao C. Ha" <bao@hacom.net>
#
# Revision 1.15 1999/02/27 21:06:21 ivan
# constructors s/create/new/ pointed out by "Bao C. Ha" <bao@hacom.net>
#
# Revision 1.15 1999/02/27 21:06:21 ivan
@@
-82,14
+88,14
@@
BEGIN { $FS::Record::setup_hack = 1; }
use strict;
use DBI;
use FS::dbdef;
use strict;
use DBI;
use FS::dbdef;
-use FS::UID qw(adminsuidsetup datasrc checkeuid);
+use FS::UID qw(adminsuidsetup datasrc checkeuid
getsecrets
);
use FS::Record;
use FS::cust_main_county;
die "Not running uid freeside!" unless checkeuid();
my $user = shift or die &usage;
use FS::Record;
use FS::cust_main_county;
die "Not running uid freeside!" unless checkeuid();
my $user = shift or die &usage;
-
FS::UID::getsecrets $user
;
+
getsecrets($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;
@@
-229,7
+235,7
@@
foreach ($dbdef->tables) {
foreach ( qw(
AL AK AS AZ AR CA CO CT DC DE FM FL GA GU HI ID IL IN IA KS KY LA
ME MH MD MA MI MN MS MO MT NC ND NE NH NJ NM NV NY MP OH OK OR PA PW PR RI
foreach ( qw(
AL AK AS AZ AR CA CO CT DC DE FM FL GA GU HI ID IL IN IA KS KY LA
ME MH MD MA MI MN MS MO MT NC ND NE NH NJ NM NV NY MP OH OK OR PA PW PR RI
-SC SD TN TX
TT
UT VT VI VA WA WV WI WY AE AA AP
+SC SD TN TX UT VT VI VA WA WV WI WY AE AA AP
) ) {
my($cust_main_county)=new FS::cust_main_county({
'state' => $_,
) ) {
my($cust_main_county)=new FS::cust_main_county({
'state' => $_,