source: system/generators/dns.php@ 112

<?php
include_once('/a/www/centrala/global.php');

$Serial = date('Ymds', time());
$ExternalServerName = 'gw-hajda.inext.cz'; 
$MinimumTime = 7200;
$RetryTime = 7200;
$ExpireTime = 2419200;
$RefreshTime = 28800;
$BaseDir = '/var/named/chroot/var/named/';
// === Local network DNS server ===

// Generate DNS records
$File = fopen($BaseDir.'internal/zdechov.net.zone', 'w');
fputs($File,'$ORIGIN zdechov.net.'."\n".
'$TTL 86400'."\n".
"zdechov.net.\tIN\tSOA\tcentrala.zdechov.net.\troot.centrala.zdechov.net.       (\n".
"\t\t\t".$Serial."\t; serial\n".
"\t\t\t".$RefreshTime."\t; refresh\n".
"\t\t\t".$RetryTime."\t; retry\n".
"\t\t\t".$ExpireTime."\t; expire\n".
"\t\t\t86400\t; ttl\n".
"\t\t\t)\n".
"\t\t\tTXT\t".'"community network ZdechovNET"'."\n".
"\t\t\tNS\tcentrala.zdechov.net.\n".
// "\t\tIN\tA\t192.168.0.1\n".
"\t\t\tMX\t10 mail.zdechov.net.\n");

$DbResult = $Database->select('hosts','*',' block < 2 AND IP <> ""');
while($Row = $DbResult->fetch_array())
{
  $Data = strtolower($Row['name']);
  if(strlen($Data)<8) $Data .= "\t";
  fputs($File, $Data."\tIN\tA\t".$Row['IP']."\n");
}

// External records in internal server
$DbResult = $Database->select('hosts','*','external_ip<>""');
while($Row = $DbResult->fetch_array())
{
  $Data = strtolower($Row['name']).'-ext';
  if(strlen($Data)<8) $Data .= "\t";
  fputs($File,$Data."\tIN\tA\t".$Row['external_ip']."\n");
}

$DbResult = $Database->select('network_dns_alias', '*');
while($Alias = $DbResult->fetch_array())
{
  $Data = strtolower($Alias['name']);
  if(strlen($Data)<8) $Data .= "\t";
  fputs($File, $Data."\tIN\tCNAME\t".$Alias['target']."\n");
}

fclose($File);

// Generate reverse DNS records
$Networks = array('192.168.0', '192.168.1', '192.168.2', '192.168.3', '192.168.4', '192.168.5', '192.168.6', '192.168.7');
foreach($Networks as $Network)
{
  $Parts = explode('.', $Network);
  $File = fopen($BaseDir.'internal/'.$Parts[2].'.'.$Parts[1].'.'.$Parts[0].'.in-addr.arpa.zone', 'w+');
  fputs($File,
  '$TTL 86400'."\n".
  "@\tIN\tSOA\tcentrala.zdechov.net.\troot.centrala.zdechov.net.        (\n".
  "\t\t\t\t".$Serial."\t; serial\n".
  "\t\t\t\t".$RefreshTime."\t; refresh\n".
  "\t\t\t\t".$RetryTime."\t; retry\n".
  "\t\t\t\t".$ExpireTime."\t; expire\n".
  "\t\t\t\t86400 ; ttl\n".
  "\t\t\t\t)\n".
  "@\tIN\tNS\tcentrala.zdechov.net.\n\n");
  $DbResult = $Database->select('hosts','*','IP LIKE "'.$Network.'%"');
  while($Row = $DbResult->fetch_array())
  {
    $IP = explode('.',$Row['IP']);
    fputs($File,$IP[3]."\tIN\tPTR\t".strtolower($Row['name']).".zdechov.net.\n");
  }
  fclose($File);
}

// Generate reverse DNS records
$Networks = array('85.92.50');
foreach($Networks as $Network)
{
  $Parts = explode('.', $Network);
  $File = fopen($BaseDir.'internal/'.$Parts[2].'.'.$Parts[1].'.'.$Parts[0].'.in-addr.arpa.zone', 'w+');
  fputs($File,
  '$TTL 86400'."\n".
  "@\tIN\tSOA\tcentrala.zdechov.net.\troot.centrala.zdechov.net.        (\n".
  "\t\t\t\t".$Serial."\t; serial\n".
  "\t\t\t\t".$RefreshTime."\t; refresh\n".
  "\t\t\t\t".$RetryTime."\t; retry\n".
  "\t\t\t\t".$ExpireTime."\t; expire\n".
  "\t\t\t\t86400 ; ttl\n".
  "\t\t\t\t)\n".
  "@\tIN\tNS\tcentrala.zdechov.net.\n\n");
  $DbResult = $Database->select('hosts','*','external_ip LIKE "'.$Network.'.%"');
  while($Row = $DbResult->fetch_array())
  {
    $IP = explode('.',$Row['external_ip']);
    fputs($File, $IP[3]."\tIN\tPTR\t".strtolower($Row['name'])."-ext.zdechov.net.\n");
  }
  fclose($File);
}

// === External network DNS server ===

// Generate DNS records
$File = fopen($BaseDir.'external/zdechov.net.zone', 'w');
$Header = '$ORIGIN zdechov.net.'."\n".
'$TTL 86400'."\n".
"zdechov.net.\tIN\tSOA\t".$ExternalServerName.".\troot.centrala.zdechov.net.    (\t\n".
"\t\t\t".$Serial."\t; serial\n".
"\t\t\t".$RefreshTime."\t; refresh\n".
"\t\t\t".$RetryTime."\t; retry\n".
"\t\t\t".$ExpireTime."\t; expire\n".
"\t\t\t86400\t; ttl\n".
"\t\t\t)\n".
"\t\t\tTXT\t".'"community network ZdechovNET"'."\n".
"\t\t\tNS\t".$ExternalServerName.".\n".
"\t\t\tNS\tplandsfeld.avonet.cz.\n".
"\t\tIN\tA\t81.2.194.142\n".
"\t\t\tMX\t10 mail.zdechov.net.\n";

fputs($File, $Header);

$DbResult = $Database->select('hosts','*','external_ip<>""');
while($Row = $DbResult->fetch_array())
{
  $Data = strtolower($Row['name']);
  if(strlen($Data)<8) $Data .= "\t";
  fputs($File,$Data."\tIN\tA\t".$Row['external_ip']."\n");
}

$DbResult = $Database->query("SELECT network_dns_alias.* FROM  `network_dns_alias` JOIN  `hosts`  ON network_dns_alias.target LIKE hosts.name AND hosts.external_ip != ''");
while($Alias = $DbResult->fetch_array())
{
  $Data = strtolower($Alias['name']);
  if(strlen($Data) < 8) $Data .= "\t";
  fputs($File, $Data."\tIN\tCNAME\t".$Alias['target']."\n");
}

fclose($File);

// Generate reverse DNS records
$Networks = array('85.92.50', '81.2.194', '193.86.238', '212.111.4');
foreach($Networks as $Network)
{
  $Parts = explode('.', $Network);
  $File = fopen($BaseDir.'external/'.$Parts[2].'.'.$Parts[1].'.'.$Parts[0].'.in-addr.arpa.zone', 'w+');
  fputs($File,
  '$TTL 86400'."\n".
  "@\tIN\tSOA\t".$ExternalServerName.".\troot.centrala.zdechov.net.     (\n".
  "\t\t\t\t".$Serial."\t; serial\n".
  "\t\t\t\t".$RefreshTime."\t; refresh\n".
  "\t\t\t\t".$RetryTime."\t; retry\n".
  "\t\t\t\t".$ExpireTime."\t; expire\n".
  "\t\t\t\t86400 ; ttl\n".
  "\t\t\t\t)\n".
  "@\tIN\tNS\t".$ExternalServerName.".\n\n".
  "\t\t\tNS\tplandsfeld.avonet.cz.\n");

  $DbResult = $Database->select('hosts','*','external_ip LIKE "'.$Network.'.%"');
  while($Row = $DbResult->fetch_array())
  {
    $IP = explode('.',$Row['external_ip']);
    fputs($File, $IP[3]."\tIN\tPTR\t".strtolower($Row['name']).".zdechov.net.\n");
  }
  fclose($File);
}

// === CZFree network DNS server ===
$Domain = 'zdechov.zlin.czf';
$Nameserver = 'centrala';

// Generate DNS records
$File = fopen($BaseDir.'czfree/zdechov.zlin.czf.zone', 'w');
$File2 = fopen($BaseDir.'internal/zdechov.zlin.czf.zone', 'w');

$Header = '$ORIGIN zdechov.zlin.czf.'."\n".
'$TTL 86400'."\n".
$Domain.".\tIN\tSOA\t".$Nameserver.".".$Domain.".\troot.".$Nameserver.".".$Domain."     (\n".
"\t\t\t".$Serial."\t; serial\n".
"\t\t\t".$RefreshTime."\t; refresh\n".
"\t\t\t".$RetryTime."\t; retry\n".
"\t\t\t".$ExpireTime."\t; expire\n".
"\t\t\t86400\t; ttl\n".
"\t\t\t)\n".
"\t\t\tTXT\t".'"Community network ZdechovNET"'."\n".
"\t\t\tNS\t".$Nameserver.".".$Domain.".\n".
"\t\t\tNS\tserver.zlin.czf.\n";
"\t\t\tMX\t10 mail.".$Domain.".\n";

fputs($File, $Header);

$Header = '$ORIGIN zdechov.zlin.czf.'."\n".
'$TTL 86400'."\n".
$Domain.".\tIN\tSOA\t".$Nameserver.".".$Domain.".\troot.".$Nameserver.".".$Domain."     (\n".
"\t\t\t".$Serial."\t; serial\n".
"\t\t\t".$RefreshTime."\t; refresh\n".
"\t\t\t".$RetryTime."\t; retry\n".
"\t\t\t".$ExpireTime."\t; expire\n".
"\t\t\t)\n".
"\t\t\tTXT\t".'"Community network ZdechovNET"'."\n".
"\t\t\tNS\t".$Nameserver.".".$Domain.".\n".
"\t\t\tNS\tserver.zlin.czf.\n";
"\t\t\tMX\t10 mail.".$Domain.".\n";
fputs($File2, $Header);

$DbResult = $Database->select('hosts','*','czfree_ip<>""');
while($Row = $DbResult->fetch_array())
{
  $Data = strtolower($Row['name']);
  if(strlen($Data) < 8) $Data .= "\t";
  fputs($File,$Data."\tIN\tA\t".$Row['czfree_ip']."\n");
  fputs($File2,$Data."\tIN\tA\t".$Row['IP']."\n");
  $Data = strtolower($Row['name'].'-ext');
  if(strlen($Data) < 8) $Data .= "\t"; 
  fputs($File2, $Data."\tIN\tA\t".$Row['czfree_ip']."\n");
}

$DbResult = $Database->query("SELECT network_dns_alias.* FROM  `network_dns_alias` JOIN  `hosts`  ON network_dns_alias.target LIKE hosts.name AND hosts.czfree_ip != ''");
while($Alias = $DbResult->fetch_array())
{
  $Data = $Alias['name'];
  if(strlen($Data)<8) $Data .= "\t";
  fputs($File, $Data."\tIN\tCNAME\t".$Alias['target']."\n");
  fputs($File2, $Data."\tIN\tCNAME\t".$Alias['target']."\n");
}
fclose($File);
fclose($File2);

// Generate reverse DNS records
$Nameserver = 'centrala';
$Networks = array('10.144.200');
foreach($Networks as $Network)
{
  $Parts = explode('.', $Network);
  $File = fopen($BaseDir.'czfree/'.$Parts[2].'.'.$Parts[1].'.'.$Parts[0].'.in-addr.arpa.zone', 'w+');
  $File2 = fopen($BaseDir.'internal/'.$Parts[2].'.'.$Parts[1].'.'.$Parts[0].'.in-addr.arpa.zone', 'w+');
  $Nameserver = 'centrala';
  $Header = '$TTL 86400'."\n".
  "@\tIN\tSOA\t".$Nameserver.".".$Domain.".\troot.".$Nameserver.".".$Domain.".  (\n".
  "\t\t\t\t".$Serial."\t; serial\n".
  "\t\t\t\t".$RefreshTime."\t; refresh\n".
  "\t\t\t\t".$RetryTime."\t; retry\n".
  "\t\t\t\t".$ExpireTime."\t; expire\n".
  "\t\t\t\t86400 ; ttl\n".
  "\t\t\t\t)\n".
  "@\tIN\tNS\t".$Nameserver.".".$Domain.".\n".
  "\tIN\tNS\tserver.zlin.czf.\n\n";
  fputs($File, $Header);

  $Nameserver = 'centrala-ext';
  $Header = '$TTL 86400'."\n".
  "@\tIN\tSOA\t".$Nameserver.".".$Domain.".\troot.".$Nameserver.".".$Domain.".  (\n".
  "\t\t\t\t".$Serial."\t; serial\n".
  "\t\t\t\t".$RefreshTime."\t; refresh\n".
  "\t\t\t\t".$RetryTime."\t; retry\n".
  "\t\t\t\t".$ExpireTime."\t; expire\n".
  "\t\t\t\t86400 ; ttl\n".
  "\t\t\t\t)\n".
  "@\tIN\tNS\t".$Nameserver.".".$Domain.".\n";
  "\tIN\tNS\tserver.zlin.czf.\n\n";

  fputs($File2, $Header);

  $DbResult = $Database->select('hosts','*','czfree_ip <> ""');
  while($Row = $DbResult->fetch_array())
  {
    $IP = explode('.',$Row['czfree_ip']);
    fputs($File, $IP[3]."\tIN\tPTR\t".strtolower($Row['name']).".".$Domain.".\n");
    fputs($File2, $IP[3]."\tIN\tPTR\t".strtolower($Row['name']).'-ext'.".".$Domain.".\n");
  }
  fclose($File);
  fclose($File2);
}
?>