bin/bind.export

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use File::Path;
   5 use File::Rsync;
   6 use Net::SSH qw(ssh);
   7 use FS::UID qw(adminsuidsetup datasrc);
   8 use FS::Record qw(qsearch qsearchs);
   9 use FS::part_export;
  10 use FS::cust_pkg;
  11 use FS::cust_svc;
  12 use FS::svc_domain;
  13
  14 my $user = shift or die &usage;
  15 adminsuidsetup $user;
  16
  17 my $spooldir = "/usr/local/etc/freeside/export.". datasrc. "/bind";
  18 mkdir $spooldir unless -d $spooldir;
  19
  20 my @exports = qsearch('part_export', { 'exporttype' => 'bind' } );
  21 my @sexports = qsearch('part_export', { 'exporttype' => 'bind_slave' } );
  22
  23 my $rsync = File::Rsync->new({
  24   rsh     => 'ssh',
  25 #  dry_run => 1,
  26 });
  27
  28 foreach my $export ( @exports ) {
  29
  30   my $machine = $export->machine;
  31   my $prefix = "$spooldir/$machine";
  32
  33   #prevent old domain files from piling up
  34   #rmtree "$prefix" or die "can't rmtree $prefix.db: $!";
  35
  36   mkdir $prefix unless -d $prefix;
  37
  38   open(NAMED_CONF,">$prefix/named.conf")
  39     or die "can't open $prefix/named.conf: $!";
  40
  41   open(CONF_HEADER,"<$prefix/named.conf.HEADER"); #or die
  42   while (<CONF_HEADER>) { print NAMED_CONF $_; }
  43   close CONF_HEADER;
  44
  45   my $zonepath = $export->option('zonepath');
  46   $zonepath =~ s/\/$//;
  47
  48   #false laziness with  freeside-sqlradius-reset and shell.export
  49   my @svc_domain =
  50     map { qsearchs('svc_domain', { 'svcnum' => $_->svcnum } ) }
  51       map { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
  52         grep { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
  53           $export->export_svc;
  54
  55   foreach my $svc_domain ( @svc_domain ) {
  56     my $domain = $svc_domain->domain;
  57     my @masters = qsearch('domain_record', {
  58       'svcnum' => $svc_domain->svcnum,
  59       'rectype' => '_mstr',
  60     } );
  61     if ( @masters ) {
  62       my $masters = join('; ', map { $_->recdata } @masters );
  63
  64       print NAMED_CONF <<END;
  65 zone "$domain" {
  66         type slave;
  67         file "db.$domain";
  68         masters { $masters; };
  69 };
  70
  71 END
  72
  73     } else {
  74
  75       print NAMED_CONF <<END;
  76 zone "$domain" {
  77         type master;
  78         file "$zonepath/db.$domain";
  79 };
  80
  81 END
  82
  83       open (DB_MASTER,">$prefix/db.$domain")
  84         or die "can't open $prefix/db.$domain: $!";
  85
  86       my @domain_records =
  87         qsearch('domain_record', { 'svcnum' => $svc_domain->svcnum } );
  88       foreach my $domain_record (
  89         sort { $b->rectype cmp $a->rectype } @domain_records
  90       ) {
  91         #if ( $domain_record->rectype eq 'SOA' ) {
  92         #  print DB_MASTER join("\t", $domain_record-> reczone
  93         #} else {
  94           print DB_MASTER join("\t",
  95             map { $domain_record->getfield($_) }
  96               qw( reczone recaf rectype recdata )
  97           ), "\n";
  98         #}
  99       }
 100
 101       close DB_MASTER;
 102
 103     }
 104
 105   }
 106
 107   $rsync->exec( {
 108     src       => "$prefix/",
 109     recursive => 1,
 110     dest      => "root\@$machine:$zonepath/",
 111     exclude   => [qw( *.import named.conf.HEADER named.conf )],
 112   } ) or die "rsync to $machine failed: ". join(" / ", $rsync->err);
 113  # warn $rsync->out;
 114
 115   $rsync->exec( {
 116     src     => "$prefix/named.conf",
 117     dest    => "root\@$machine:". $export->option('named_conf'),
 118   } ) or die "rsync to $machine failed: ". join(" / ", $rsync->err);
 119 #  warn $rsync->out;
 120
 121   ssh("root\@$machine", 'ndc reload');
 122
 123 }
 124
 125 close NAMED_CONF;
 126
 127 foreach my $sexport ( @sexports ) { #false laziness with above
 128
 129   my $machine = $sexport->machine;
 130   my $prefix = "$spooldir/$machine";
 131
 132   #prevent old domain files from piling up
 133   #rmtree "$prefix" or die "can't rmtree $prefix.db: $!";
 134
 135   mkdir $prefix unless -d $prefix;
 136
 137   open(NAMED_CONF,">$prefix/named.conf")
 138     or die "can't open $prefix/named.conf: $!";
 139
 140   open(CONF_HEADER,"<$prefix/named.conf.HEADER"); #or die
 141   while (<CONF_HEADER>) { print NAMED_CONF $_; }
 142   close CONF_HEADER;
 143
 144   my $masters = $sexport->option('master');
 145
 146   #false laziness with  freeside-sqlradius-reset
 147   my @svc_domain =
 148     map { qsearchs('svc_domain', { 'svcnum' => $_->svcnum } ) }
 149       map { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
 150         grep { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
 151           $sexport->export_svc;
 152
 153   foreach my $svc_domain ( @svc_domain ) {
 154     my $domain = $svc_domain->domain;
 155     print NAMED_CONF <<END;
 156 zone "$domain" {
 157         type slave;
 158         file "db.$domain";
 159         masters { $masters; };
 160 };
 161
 162 END
 163
 164   }
 165
 166   $rsync->exec( {
 167     src     => "$prefix/named.conf",
 168     dest    => "root\@$machine:". $sexport->option('named_conf'),
 169   } ) or die "rsync to $machine failed: ". join(" / ", $rsync->err);
 170 #  warn $rsync->out;
 171
 172   ssh("root\@$machine", 'ndc reload');
 173
 174 }
 175 close NAMED_CONF;
 176
 177 # -----
 178
 179 sub usage {
 180   die "Usage:\n  bind.export user\n";
 181 }
 182