4 use FS::UID 'adminsuidsetup';
8 my $user = shift or die "usage:\n standardize-locations user";
10 my $conf = FS::Conf->new;
11 my $method = $conf->config('address_standardize_method')
12 or die "No address standardization method configured.\n";
13 if ($method eq 'usps') {
14 # we're not supposed to do this
15 # (allow it anyway with a warning?)
16 die "USPS standardization does not allow batch processing.\n";
18 my $job = FS::queue->new({
19 job => 'FS::cust_location::process_standardize'
21 my $error = $job->insert('_JOB');
23 print "Address standardization job scheduled.\n";