projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
more mod_perl fixes, and bugfixes Peter Wemm sent via email
[freeside.git]
/
bin
/
fs-setup
diff --git
a/bin/fs-setup
b/bin/fs-setup
index
19ac533
..
f028c6e
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.
9 1998-12-15 04:36:29
ivan Exp $
+# $Id: fs-setup,v 1.
14 1999-02-07 09:59:14
ivan Exp $
#
# ivan@sisd.com 97-nov-8,9
#
#
# ivan@sisd.com 97-nov-8,9
#
@@
-32,7
+32,22
@@
# 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.9 1998-12-15 04:36:29 ivan
+# Revision 1.14 1999-02-07 09:59:14 ivan
+# more mod_perl fixes, and bugfixes Peter Wemm sent via email
+#
+# Revision 1.13 1999/02/04 06:09:23 ivan
+# add AU provences
+#
+# Revision 1.12 1999/02/03 10:42:27 ivan
+# *** empty log message ***
+#
+# Revision 1.11 1999/01/17 03:11:52 ivan
+# remove preliminary completehost changes
+#
+# Revision 1.10 1998/12/16 06:05:38 ivan
+# add table cust_main_invoice
+#
+# Revision 1.9 1998/12/15 04:36:29 ivan
# s/croak/die/; #oops
#
# Revision 1.8 1998/12/15 04:33:27 ivan
# s/croak/die/; #oops
#
# Revision 1.8 1998/12/15 04:33:27 ivan
@@
-171,7
+186,7
@@
foreach (qw(svc_acct svc_acct_sm svc_domain)) {
#important
$dbdef->save($dbdef_file);
#important
$dbdef->save($dbdef_file);
-FS::Record::reload_dbdef($dbdef_file);
+
&
FS::Record::reload_dbdef($dbdef_file);
###
# create 'em
###
# create 'em
@@
-219,9
+234,23
@@
SC SD TN TX TT UT VT VI VA WA WV WI WY AE AA AP
die $error if $error;
}
die $error if $error;
}
-#
ISO 2-letter country codes (same as country TLDs) except US
+#
AU "offical" state codes ala mark.williamson@ebbs.com.au (Mark Williamson)
foreach ( qw(
foreach ( qw(
-AF AL DZ AS AD AO AI AQ AG AR AM AW AU AT AZ BS BH BD BB BY BE BZ BJ BM BT BO
+VIC NSW NT QLD TAS ACT WA SA
+) ) {
+ my($cust_main_county)=create FS::cust_main_county({
+ 'state' => $_,
+ 'tax' => 0,
+ 'country' => 'AU',
+ });
+ my($error);
+ $error=$cust_main_county->insert;
+ die $error if $error;
+}
+
+#ISO 2-letter country codes (same as country TLDs) except US and AU
+foreach ( qw(
+AF AL DZ AS AD AO AI AQ AG AR AM AW AT AZ BS BH BD BB BY BE BZ BJ BM BT BO
BA BW BV BR IO BN BG BF BI KH CM CA CV KY CF TD CL CN CX CC CO KM CG CK CR CI
HR CU CY CZ DK DJ DM DO TP EC EG SV GQ ER EE ET FK FO FJ FI FR FX GF PF TF GA
GM GE DE GH GI GR GL GD GP GU GT GN GW GY HT HM HN HK HU IS IN ID IR IQ IE IL
BA BW BV BR IO BN BG BF BI KH CM CA CV KY CF TD CL CN CX CC CO KM CG CK CR CI
HR CU CY CZ DK DJ DM DO TP EC EG SV GQ ER EE ET FK FO FJ FI FR FX GF PF TF GA
GM GE DE GH GI GR GL GD GP GU GT GN GW GY HT HM HN HK HU IS IN ID IR IQ IE IL
@@
-338,9
+367,9
@@
sub tables_hash_hack {
'columns' => [
'custnum', 'int', '', '',
'agentnum', 'int', '', '',
'columns' => [
'custnum', 'int', '', '',
'agentnum', 'int', '', '',
- 'titlenum', 'int', 'NULL', '',
+
#
'titlenum', 'int', 'NULL', '',
'last', 'varchar', '', $char_d,
'last', 'varchar', '', $char_d,
- 'middle', 'varchar', 'NULL', $char_d,
+
#
'middle', 'varchar', 'NULL', $char_d,
'first', 'varchar', '', $char_d,
'ss', 'char', 'NULL', 11,
'company', 'varchar', 'NULL', $char_d,
'first', 'varchar', '', $char_d,
'ss', 'char', 'NULL', 11,
'company', 'varchar', 'NULL', $char_d,
@@
-348,7
+377,7
@@
sub tables_hash_hack {
'address2', 'varchar', 'NULL', $char_d,
'city', 'varchar', '', $char_d,
'county', 'varchar', 'NULL', $char_d,
'address2', 'varchar', 'NULL', $char_d,
'city', 'varchar', '', $char_d,
'county', 'varchar', 'NULL', $char_d,
- 'state', 'varchar', '
',
$char_d,
+ 'state', 'varchar', '
NULL',
$char_d,
'zip', 'varchar', '', 10,
'country', 'char', '', 2,
'daytime', 'varchar', 'NULL', 20,
'zip', 'varchar', '', 10,
'country', 'char', '', 2,
'daytime', 'varchar', 'NULL', 20,
@@
-368,12
+397,23
@@
sub tables_hash_hack {
'index' => [ ['last'], ],
},
'index' => [ ['last'], ],
},
+ 'cust_main_invoice' => {
+ 'columns' => [
+ 'destnum', 'int', '', '',
+ 'custnum', 'int', '', '',
+ 'dest', 'varchar', '', $char_d,
+ ],
+ 'primary_key' => 'destnum',
+ 'unique' => [ [] ],
+ 'index' => [ ['custnum'], ],
+ },
+
'cust_main_county' => { #county+state+country are checked off the
#cust_main_county for validation and to provide
# a tax rate.
'columns' => [
'taxnum', 'int', '', '',
'cust_main_county' => { #county+state+country are checked off the
#cust_main_county for validation and to provide
# a tax rate.
'columns' => [
'taxnum', 'int', '', '',
- 'state', 'char', 'NULL', $char_d,
+ 'state', '
var
char', 'NULL', $char_d,
'county', 'varchar', 'NULL', $char_d,
'country', 'char', '', 2,
'tax', 'real', '', '', #tax %
'county', 'varchar', 'NULL', $char_d,
'country', 'char', '', 2,
'tax', 'real', '', '', #tax %
@@
-410,7
+450,7
@@
sub tables_hash_hack {
'address1', 'varchar', '', $char_d,
'address2', 'varchar', 'NULL', $char_d,
'city', 'varchar', '', $char_d,
'address1', 'varchar', '', $char_d,
'address2', 'varchar', 'NULL', $char_d,
'city', 'varchar', '', $char_d,
- 'state', '
char', '', 2
,
+ 'state', '
varchar', '', $char_d
,
'zip', 'varchar', '', 10,
'country', 'char', '', 2,
'trancode', 'int', '', '',
'zip', 'varchar', '', 10,
'country', 'char', '', 2,
'trancode', 'int', '', '',
@@
-483,15
+523,15
@@
sub tables_hash_hack {
'index' => [ [] ],
},
'index' => [ [] ],
},
- 'part_title' => {
- 'columns' => [
- 'titlenum', 'int', '', '',
- 'title', 'varchar', '', $char_d,
- ],
- 'primary_key' => 'titlenum',
- 'unique' => [ [] ],
- 'index' => [ [] ],
- },
+
#
'part_title' => {
+
#
'columns' => [
+
#
'titlenum', 'int', '', '',
+
#
'title', 'varchar', '', $char_d,
+
#
],
+
#
'primary_key' => 'titlenum',
+
#
'unique' => [ [] ],
+
#
'index' => [ [] ],
+
#
},
'pkg_svc' => {
'columns' => [
'pkg_svc' => {
'columns' => [
@@
-530,7
+570,7
@@
sub tables_hash_hack {
'columns' => [
'popnum', 'int', '', '',
'city', 'varchar', '', $char_d,
'columns' => [
'popnum', 'int', '', '',
'city', 'varchar', '', $char_d,
- 'state', '
char', '', 2
,
+ 'state', '
varchar', '', $char_d
,
'ac', 'char', '', 3,
'exch', 'char', '', 3,
#rest o' number?
'ac', 'char', '', 3,
'exch', 'char', '', 3,
#rest o' number?