5 use FS::UID qw(adminsuidsetup);
6 use FS::Record qw(qsearchs qsearch);
10 use FS::h_domain_record;
14 adminsuidsetup(shift);
19 my $svc_domain = qsearchs('svc_domain', { svcnum => $svcnum }) or die "no svcnum '$svcnum'";
21 my $h_svc_domain = qsearchs(
23 { 'svcnum' => $svc_domain->svcnum },
24 FS::h_svc_domain->sql_h_searchs(time),
27 unless ($h_svc_domain) {
28 print $svc_domain->_h_statement('insert', 1) . "\n";
31 foreach my $rec ($svc_domain->domain_record) {
34 { 'svcnum' => $svc_domain->svcnum },
35 FS::h_domain_record->sql_h_searchs(time),
38 #print Dumper($h_rec);
41 print $rec->_h_statement('insert', 1) . "\n";