diff options
author | jeff <jeff> | 2009-12-21 14:36:50 +0000 |
---|---|---|
committer | jeff <jeff> | 2009-12-21 14:36:50 +0000 |
commit | 250e277720fbe288875736c7f5f957668f4c1880 (patch) | |
tree | 36d9a1084bcef8b3addbe3fb32be0edfe073f46c /bin/reassemble_taxes | |
parent | 45c6b7021b30c49742b578a2f3ba13fb35f5222c (diff) |
move cch conf into database and add a couple small tools for processing updates more manually
Diffstat (limited to 'bin/reassemble_taxes')
-rwxr-xr-x | bin/reassemble_taxes | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/bin/reassemble_taxes b/bin/reassemble_taxes new file mode 100755 index 0000000..001240b --- /dev/null +++ b/bin/reassemble_taxes @@ -0,0 +1,35 @@ +#!/usr/bin/perl -w + +use strict; +use FS::UID qw(adminsuidsetup); +use FS::Conf; + +my $user = shift or die &usage; +my $dir = shift or die &usage; + + +adminsuidsetup $user; + +my $conf = new FS::Conf; + +chdir $dir or die "can't change to $dir: $!\n"; +die "pmzclfull.zip already exists\n" if -f 'pmzclfull.zip'; + +die "direct download of tax data not enabled\n" + unless $conf->exists('taxdatadirectdownload'); +my ( $urls, $username, $secret, $states ) = + $conf->config('taxdatadirectdownload'); +die "No tax download URL provided. ". + "Did you set the taxdatadirectdownload configuration value?\n" + unless $urls; + +my @filelist = qw( code.dbf detail.dbf geocode.dbf npanxx.dbf plus4.dbf + txmatrix.dbf zip.dbf ); + +system('zip', "-P", $secret, 'pmzclfull.zip', @filelist) == 0 + or die "zip failed\n"; + +sub usage { + die "Usage:\n\n reassemble_taxes user dir\n"; +} + |