3 use FS::UID qw(adminsuidsetup);
4 use FS::Record qw(qsearch qsearchs fields);
8 #cust_pkg pkgnum 240133 241206 replace_old
9 #cust_svc svcnum 31102 32083 delete
10 #svc_acct svcnum 37162 37652 delete
11 my($user, $table, $pkey, $start, $end, $action) = @ARGV;
13 adminsuidsetup $user or die;
15 #eval "use FS::h_$table;";
17 eval "use FS::$table;";
20 my @history = grep { $_->historynum <= $end } qsearch("h_$table", { 'historynum' => { op=>'>=', value=>$start }, history_action => $action } );
23 foreach my $h (@history) {
25 if ( $action eq 'replace_old' ) {
26 my $old = qsearchs($table, { $pkey => $h->get($pkey) } );
27 unless ( $old ) { die "can't find $table $pkey ". $h->get($pkey). "\n"; }
28 my $new = "FS::$table"->new( { map { $_ => $h->get($_) } fields($table) } );
29 $error = $new->replace($old);
30 } elsif ( $action eq 'delete' ) {
31 next if $seen{$h->get($pkey)}++;
32 my $new = "FS::$table"->new( { map { $_ => $h->get($_) } fields($table) } );
33 $error = $new->insert;
35 die "unknown action $action\n";