bin/add-history-records.pl

   1 #!/usr/bin/perl
   2
   3
   4 use strict;
   5 use FS::UID qw(adminsuidsetup);
   6 use FS::Record qw(qsearchs qsearch);
   7 use FS::svc_domain;
   8 use FS::h_svc_domain;
   9 use FS::domain_record;
  10 use FS::h_domain_record;
  11
  12 use Data::Dumper;
  13
  14 adminsuidsetup(shift);
  15
  16
  17 my $svcnum = shift;
  18
  19 my $svc_domain = qsearchs('svc_domain', { svcnum => $svcnum }) or die "no svcnum '$svcnum'";
  20
  21 my $h_svc_domain = qsearchs(
  22   'h_svc_domain',
  23   { 'svcnum' => $svc_domain->svcnum },
  24   FS::h_svc_domain->sql_h_searchs(time),
  25 );
  26
  27 unless ($h_svc_domain) {
  28   print $svc_domain->_h_statement('insert', 1) . "\n";
  29 }
  30
  31 foreach my $rec ($svc_domain->domain_record) {
  32   my $h_rec =  qsearchs(
  33     'h_domain_record',
  34     { 'svcnum' => $svc_domain->svcnum },
  35     FS::h_domain_record->sql_h_searchs(time),
  36   );
  37
  38   #print Dumper($h_rec);
  39
  40   unless ($h_rec) {
  41     print $rec->_h_statement('insert', 1) . "\n";
  42   }
  43
  44 }
  45