bin/add-history-records.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

#!/usr/bin/perl


use strict;
use FS::UID qw(adminsuidsetup);
use FS::Record qw(qsearchs qsearch);
use FS::svc_domain;
use FS::h_svc_domain;
use FS::domain_record;
use FS::h_domain_record;

use Data::Dumper;

adminsuidsetup(shift);


my $svcnum = shift;

my $svc_domain = qsearchs('svc_domain', { svcnum => $svcnum }) or die "no svcnum '$svcnum'";

my $h_svc_domain = qsearchs(
  'h_svc_domain',
  { 'svcnum' => $svc_domain->svcnum },
  FS::h_svc_domain->sql_h_searchs(time),
);

unless ($h_svc_domain) {
  print $svc_domain->_h_statement('insert', 1) . "\n";
}

foreach my $rec ($svc_domain->domain_record) {
  my $h_rec =  qsearchs(
    'h_domain_record',
    { 'svcnum' => $svc_domain->svcnum },
    FS::h_domain_record->sql_h_searchs(time),
  );

  #print Dumper($h_rec);

  unless ($h_rec) {
    print $rec->_h_statement('insert', 1) . "\n";
  }

}