fix quotations, RT#21103
[freeside.git] / bin / import-tax-rates
1 #!/usr/bin/perl -Tw
2
3 use strict;
4 use vars qw($opt_c $opt_p $opt_t $opt_d $opt_z $opt_f);
5 use vars qw($DEBUG);
6 use Getopt::Std;
7 use FS::UID qw(adminsuidsetup);
8 use FS::Conf;
9 use FS::tax_rate;
10 use FS::cust_tax_location;
11
12 getopts('c:p:t:d:z:f:');
13
14 my $user = shift or die &usage;
15 my $dbh = adminsuidsetup $user;
16
17 my ($format) = $opt_f =~ /^([-\w]+)$/;
18
19 my @list = (
20   'CODE',     $opt_c, \&FS::tax_class::batch_import,
21   'PLUS4',    $opt_p, \&FS::cust_tax_location::batch_import,
22   'ZIP',      $opt_z, \&FS::cust_tax_location::batch_import,
23   'TXMATRIX', $opt_t, \&FS::part_pkg_taxrate::batch_import,
24   'DETAIL',   $opt_d, \&FS::tax_rate::batch_import,
25 );
26
27 my $oldAutoCommit = $FS::UID::AutoCommit;
28 local $FS::UID::AutoCommit = 0;
29
30 my $error = '';
31
32 while(@list) {
33   my ($name, $file, $method) = splice(@list, 0, 3);
34
35   my $fh;
36
37   $file =~ /^([\s\d\w.]+)$/ or die "Illegal filename: $file\n";
38   $file = $1;
39
40   my $f = $format;
41   $f .= '-zip' if $name eq 'ZIP';
42
43   open $fh, '<', $file or die "can't open $name file: $!\n";
44   $error ||= &{$method}( { filehandle => $fh, 'format' => $f, } );
45
46   die "error while processing $file: $error" if $error;
47   close $fh;
48 }
49
50 if ($error) {
51   $dbh->rollback or die $dbh->errstr if $oldAutoCommit;
52 }else{
53   $dbh->commit or die $dbh->errstr if $oldAutoCommit;
54 }
55
56 sub usage { die "Usage:\nimport-tax-rates f FORMAT -c CODEFILE -p PLUS4FILE -z ZIPFILE -t TXMATRIXFILE -d DETAILFILE  user\n\n"; }