#!/usr/bin/perl
=head1 NAME
update-data.pl - Updates data tables for Business::Shipping.
=head1 VERSION
$Revision: 1.2 $
=head1 SYNOPSIS
perl bin/update-data.pl --debug=0
=head1 DESCRIPTION
Downloads new data for offline tables. May need to be run as 'root' on your
system, if the support files are in a location accessible only to 'root'.
=head2 Command-line arguments
=over 4
=item * --debug=<1|0> -d<1|0>
Enable debug, trace, and error logging to STDERR.
=back
=head1 AUTHOR
Dan Browning <db@kavod.com>
Kavod Technologies http://www.kavod.com
=head1 COPYRIGHT AND LICENCE
Copyright (c) 2003-2004 Kavod Technologies, Dan Browning. All rights reserved.
Licensed under the GNU Public Licnese (GPL). See COPYING for more info.
=cut
use strict;
our $opt_d;
Getopt::Mixed::getOptions( 'd:i debug>d t:i' );
my %rr_params;
if ( $opt_d ) {
%rr_params = (
%rr_params,
event_handlers => {
debug => 'STDERR',
trace => 'STDERR',
error => 'croak',
}
);
}
my $rate_request = Business::Shipping->rate_request(
shipper => "Offline::UPS",
%rr_params,
);
$rate_request->auto_update();
1;
__END__