fix translation escaping
[freeside.git] / bin / restore-ship_company
1 #!/usr/bin/perl
2
3 use FS::UID 'adminsuidsetup';
4 use FS::Record qw(qsearch qsearchs dbh);
5 use FS::cust_main;
6 my $user = shift or die "Usage: 
7   restore-ship_company username [ max-age ]
8 ";
9 adminsuidsetup($user);
10
11 $FS::UID::AutoCommit = 1;
12 local $FS::cust_main::import = 1;
13
14 my $days = shift || 30;
15 my $time = time - (86400*$days); # by default, only restore within the last
16                                  # 30 days
17 foreach my $cust_main (qsearch('cust_main', { ship_company => '' })) {
18   my $custnum = $cust_main->custnum;
19   my $last_h = qsearchs({
20       table     => 'h_cust_main',
21       extra_sql => " WHERE custnum = $custnum".
22                    " AND ship_company IS NOT NULL".
23                    " AND history_date >= $time",
24       order_by  => " ORDER BY history_date DESC LIMIT 1",
25   });
26   next if !$last_h;
27   print "$custnum\t".$last_h->ship_company."\n";
28   $cust_main->set('ship_company' => $last_h->ship_company);
29   my $error = $cust_main->replace;
30   warn "Error setting service company for customer #$custnum:\n  $error\n"
31     if $error;
32 }