diff options
author | ivan <ivan> | 2007-02-09 04:54:09 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-02-09 04:54:09 +0000 |
commit | 94cf6eb75f11879269c1c6f3dc70547ef414acd6 (patch) | |
tree | 984af291823560f20251202ee2094013caeb7e0b | |
parent | 769ccaa51add3b87ca3aacc1f4792e06401e4627 (diff) |
quick hack to import rates for landel
-rwxr-xr-x | bin/import-county-tax-rates | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/bin/import-county-tax-rates b/bin/import-county-tax-rates new file mode 100755 index 000000000..05798c9a2 --- /dev/null +++ b/bin/import-county-tax-rates @@ -0,0 +1,30 @@ +#!/usr/bin/perl +# +# import-county-tax-rates username state country <filename.csv +# example: import-county-tax-rates ivan CA US <taxes.csv +# +# rates.csv: taxrate,county + +use FS::UID qw(adminsuidsetup); +use FS::cust_main_county; + +my $user = shift; +adminsuidsetup $user; + +my($state, $country) = (shift, shift); + +while (<>) { + my($tax, $county) = split(','); #half-ass CSV parser + + my $cust_main_county = new FS::cust_main_county { + 'county' => $county, + 'state' => $state, + 'country' => $country, + 'tax' => $tax, + }; + + my $error = $cust_main_county->insert; + #my $error = $cust_main_county->check; + die $error if $error; + +} |