5 use FS::UID qw(adminsuidsetup);
6 use FS::Record qw(qsearchs qsearch);
10 my @tables = qw(svc_acct svc_broadband svc_domain svc_external svc_forward svc_www cust_svc domain_record);
12 my $user = shift or die &usage;
13 my $dbh = adminsuidsetup($user);
15 my $dbdef = FS::Record::dbdef;
17 foreach my $table (@tables) {
19 my $h_table = 'h_' . $table;
23 eval "use FS::${table}";
25 eval "use FS::${h_table}";
28 print "Adding history records for ${table}...\n";
30 my $dbdef_table = $dbdef->table($table);
31 my $pkey = $dbdef_table->primary_key;
33 foreach my $rec (qsearch($table, {})) {
37 { $pkey => $rec->getfield($pkey) },
38 eval "FS::${h_table}->sql_h_searchs(time)",
42 my $h_insert_rec = $rec->_h_statement('insert', 1);
43 #print $h_insert_rec . "\n";
44 $dbh->do($h_insert_rec);
45 die $dbh->errstr if $dbh->err;
46 $dbh->commit or die $dbh->errstr;
55 print "History records inserted into $h_table: $cnt\n";
56 print " Total records in $table: $t_cnt\n";
63 die "Usage:\n add-history-records.pl user\n";