bin/reassemble_taxes

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use FS::UID qw(adminsuidsetup);
   5 use FS::Conf;
   6
   7 my $user = shift or die &usage;
   8 my $dir = shift or die &usage;
   9
  10
  11 adminsuidsetup $user;
  12
  13 my $conf = new FS::Conf;
  14
  15 chdir $dir or die "can't change to $dir: $!\n";
  16 die "pmzclfull.zip already exists\n" if -f 'pmzclfull.zip';
  17
  18 die "direct download of tax data not enabled\n"
  19   unless $conf->exists('taxdatadirectdownload');
  20 my ( $urls, $username, $secret, $states ) =
  21   $conf->config('taxdatadirectdownload');
  22 die "No tax download URL provided.  ".
  23     "Did you set the taxdatadirectdownload configuration value?\n"
  24   unless $urls;
  25
  26 my @filelist = qw( code.dbf detail.dbf geocode.dbf npanxx.dbf plus4.dbf
  27   txmatrix.dbf zip.dbf );
  28
  29 system('zip', "-P", $secret, 'pmzclfull.zip', @filelist) == 0
  30   or die "zip failed\n";
  31
  32 sub usage {
  33   die "Usage:\n\n  reassemble_taxes user dir\n";
  34 }
  35