Changeset 117 for system


Ignore:
Timestamp:
Dec 3, 2008, 11:35:37 AM (16 years ago)
Author:
george
Message:
  • Upraveno: Hlavní DNS server přejmenován na ns1.zdechov.net(centrala) a přidán sekundární DNS server ns2.zdechov.net(tv).
File:
1 edited

Legend:

Unmodified
Added
Removed
  • system/generators/dns.php

    r116 r117  
    33
    44$Serial = date('Ymds', time());
    5 $ExternalServerName = 'gw-hajda.inext.cz';
    65$MinimumTime = 7200;
    76$RetryTime = 7200;
    87$ExpireTime = 2419200;
    98$RefreshTime = 28800;
     9$MinimumTime = 10800;
    1010$BaseDir = '/var/named/chroot/var/named/';
    1111// === Local network DNS server ===
     
    1515fputs($File,'$ORIGIN zdechov.net.'."\n".
    1616'$TTL 86400'."\n".
    17 "zdechov.net.\tIN\tSOA\tcentrala.zdechov.net.\troot.centrala.zdechov.net.       (\n".
    18 "\t\t\t".$Serial."\t; serial\n".
    19 "\t\t\t".$RefreshTime."\t; refresh\n".
    20 "\t\t\t".$RetryTime."\t; retry\n".
    21 "\t\t\t".$ExpireTime."\t; expire\n".
    22 "\t\t\t86400\t; ttl\n".
     17"zdechov.net.\tIN\tSOA\tns1.zdechov.net.\troot.zdechov.net.     (\n".
     18"\t\t\t".$Serial."\t; serial\n".
     19"\t\t\t".$RefreshTime."\t; refresh\n".
     20"\t\t\t".$RetryTime."\t; retry\n".
     21"\t\t\t".$ExpireTime."\t; expire\n".
     22"\t\t\t".$MinimumTime."\t; minimum\n".
    2323"\t\t\t)\n".
    2424"\t\t\tTXT\t".'"community network ZdechovNET"'."\n".
    25 "\t\t\tNS\tcentrala.zdechov.net.\n".
     25"\t\t\tNS\tns1.zdechov.net.\n".
     26"\t\t\tNS\tns2.zdechov.net.\n".
    2627// "\t\tIN\tA\t192.168.0.1\n".
    2728"\t\t\tMX\t10 mail.zdechov.net.\n");
     
    3132{
    3233  $Data = strtolower($Row['name']);
    33   if(strlen($Data)<8) $Data .= "\t";
     34  if(strlen($Data) < 8) $Data .= "\t";
    3435  fputs($File, $Data."\tIN\tA\t".$Row['IP']."\n");
    3536}
     
    4041{
    4142  $Data = strtolower($Row['name']).'-ext';
    42   if(strlen($Data)<8) $Data .= "\t";
     43  if(strlen($Data) < 8) $Data .= "\t";
    4344  fputs($File,$Data."\tIN\tA\t".$Row['external_ip']."\n");
    4445}
     
    4849{
    4950  $Data = strtolower($Alias['name']);
    50   if(strlen($Data)<8) $Data .= "\t";
     51  if(strlen($Data) < 8) $Data .= "\t";
    5152  fputs($File, $Data."\tIN\tCNAME\t".$Alias['target']."\n");
    5253}
     
    6263  fputs($File,
    6364  '$TTL 86400'."\n".
    64   "@\tIN\tSOA\tcentrala.zdechov.net.\troot.centrala.zdechov.net.        (\n".
    65   "\t\t\t\t".$Serial."\t; serial\n".
    66   "\t\t\t\t".$RefreshTime."\t; refresh\n".
    67   "\t\t\t\t".$RetryTime."\t; retry\n".
    68   "\t\t\t\t".$ExpireTime."\t; expire\n".
    69   "\t\t\t\t86400 ; ttl\n".
    70   "\t\t\t\t)\n".
    71   "@\tIN\tNS\tcentrala.zdechov.net.\n\n");
     65  "@\tIN\tSOA\tns1.zdechov.net.\troot.zdechov.net.      (\n".
     66  "\t\t\t\t".$Serial."\t; serial\n".
     67  "\t\t\t\t".$RefreshTime."\t; refresh\n".
     68  "\t\t\t\t".$RetryTime."\t; retry\n".
     69  "\t\t\t\t".$ExpireTime."\t; expire\n".
     70  "\t\t\t\t".$MinimumTime."\t; minimum\n".
     71  "\t\t\t\t)\n".
     72  "@\tIN\tNS\tns1.zdechov.net.\n".
     73  "\tIN\tNS\tns2.zdechov.net.\n\n");
    7274  $DbResult = $Database->select('hosts','*','IP LIKE "'.$Network.'%"');
    7375  while($Row = $DbResult->fetch_array())
     
    8789  fputs($File,
    8890  '$TTL 86400'."\n".
    89   "@\tIN\tSOA\tcentrala.zdechov.net.\troot.centrala.zdechov.net.        (\n".
    90   "\t\t\t\t".$Serial."\t; serial\n".
    91   "\t\t\t\t".$RefreshTime."\t; refresh\n".
    92   "\t\t\t\t".$RetryTime."\t; retry\n".
    93   "\t\t\t\t".$ExpireTime."\t; expire\n".
    94   "\t\t\t\t86400 ; ttl\n".
    95   "\t\t\t\t)\n".
    96   "@\tIN\tNS\tcentrala.zdechov.net.\n\n");
     91  "@\tIN\tSOA\tns1.zdechov.net.\troot.zdechov.net.      (\n".
     92  "\t\t\t\t".$Serial."\t; serial\n".
     93  "\t\t\t\t".$RefreshTime."\t; refresh\n".
     94  "\t\t\t\t".$RetryTime."\t; retry\n".
     95  "\t\t\t\t".$ExpireTime."\t; expire\n".
     96  "\t\t\t\t".$MinimumTime."\t; minimum\n".
     97  "\t\t\t\t)\n".
     98  "@\tIN\tNS\tns1.zdechov.net.\n".
     99  "\tIN\tNS\tns2.zdechov.net.\n\n");
    97100  $DbResult = $Database->select('hosts','*','external_ip LIKE "'.$Network.'.%"');
    98101  while($Row = $DbResult->fetch_array())
     
    110113$Header = '$ORIGIN zdechov.net.'."\n".
    111114'$TTL 86400'."\n".
    112 "zdechov.net.\tIN\tSOA\t".$ExternalServerName.".\troot.centrala.zdechov.net.    (\t\n".
    113 "\t\t\t".$Serial."\t; serial\n".
    114 "\t\t\t".$RefreshTime."\t; refresh\n".
    115 "\t\t\t".$RetryTime."\t; retry\n".
    116 "\t\t\t".$ExpireTime."\t; expire\n".
    117 "\t\t\t86400\t; ttl\n".
     115"zdechov.net.\tIN\tSOA\tns1.zdechov.net.\troot.zdechov.net.     (\t\n".
     116"\t\t\t".$Serial."\t; serial\n".
     117"\t\t\t".$RefreshTime."\t; refresh\n".
     118"\t\t\t".$RetryTime."\t; retry\n".
     119"\t\t\t".$ExpireTime."\t; expire\n".
     120"\t\t\t".$MinimumTime."\t; minimum\n".
    118121"\t\t\t)\n".
    119122"\t\t\tTXT\t".'"community network ZdechovNET"'."\n".
    120 "\t\t\tNS\t".$ExternalServerName.".\n".
     123"\t\t\tNS\tns1.zdechov.net.\n".
    121124"\t\t\tNS\tplandsfeld.avonet.cz.\n".
    122125"\t\tIN\tA\t81.2.194.142\n".
     126"\t\t\tNS\tns2.zdechov.net.\n".
    123127"\t\t\tMX\t10 mail.zdechov.net.\n";
    124128
     
    151155  fputs($File,
    152156  '$TTL 86400'."\n".
    153   "@\tIN\tSOA\t".$ExternalServerName.".\troot.centrala.zdechov.net.     (\n".
    154   "\t\t\t\t".$Serial."\t; serial\n".
    155   "\t\t\t\t".$RefreshTime."\t; refresh\n".
    156   "\t\t\t\t".$RetryTime."\t; retry\n".
    157   "\t\t\t\t".$ExpireTime."\t; expire\n".
    158   "\t\t\t\t86400 ; ttl\n".
    159   "\t\t\t\t)\n".
    160   "@\tIN\tNS\t".$ExternalServerName.".\n\n".
    161   "\t\t\tNS\tplandsfeld.avonet.cz.\n");
     157  "@\tIN\tSOA\tns1.zdechov.net.\troot.zdechov.net.      (\n".
     158  "\t\t\t\t".$Serial."\t; serial\n".
     159  "\t\t\t\t".$RefreshTime."\t; refresh\n".
     160  "\t\t\t\t".$RetryTime."\t; retry\n".
     161  "\t\t\t\t".$ExpireTime."\t; expire\n".
     162  "\t\t\t\t".$MinimumTime."\t; minimum\n".
     163  "\t\t\t\t)\n".
     164  "@\tIN\tNS\tns1.zdechov.net.\n\n".
     165  "\t\t\tNS\tplandsfeld.avonet.cz.\n".
     166  "\t\t\tNS\tns2.zdechov.net.\n");
    162167
    163168  $DbResult = $Database->select('hosts','*','external_ip LIKE "'.$Network.'.%"');
     
    172177// === CZFree network DNS server ===
    173178$Domain = 'zdechov.zlin.czf';
    174 $Nameserver = 'centrala';
    175179
    176180// Generate DNS records
     
    180184$Header = '$ORIGIN zdechov.zlin.czf.'."\n".
    181185'$TTL 86400'."\n".
    182 $Domain.".\tIN\tSOA\t".$Nameserver.".".$Domain.".\troot.".$Nameserver.".".$Domain."     (\n".
    183 "\t\t\t".$Serial."\t; serial\n".
    184 "\t\t\t".$RefreshTime."\t; refresh\n".
    185 "\t\t\t".$RetryTime."\t; retry\n".
    186 "\t\t\t".$ExpireTime."\t; expire\n".
    187 "\t\t\t86400\t; ttl\n".
     186$Domain.".\tIN\tSOA\tns1.".$Domain.".\troot.".$Domain." (\n".
     187"\t\t\t".$Serial."\t; serial\n".
     188"\t\t\t".$RefreshTime."\t; refresh\n".
     189"\t\t\t".$RetryTime."\t; retry\n".
     190"\t\t\t".$ExpireTime."\t; expire\n".
     191"\t\t\t".$MinimumTime."\t; minimum\n".
    188192"\t\t\t)\n".
    189193"\t\t\tTXT\t".'"Community network ZdechovNET"'."\n".
    190 "\t\t\tNS\t".$Nameserver.".".$Domain.".\n".
     194"\t\t\tNS\tns1.".$Domain.".\n".
     195"\t\t\tNS\tns2.".$Domain.".\n".
    191196"\t\t\tNS\tserver.zlin.czf.\n";
    192197"\t\t\tMX\t10 mail.".$Domain.".\n";
     
    196201$Header = '$ORIGIN zdechov.zlin.czf.'."\n".
    197202'$TTL 86400'."\n".
    198 $Domain.".\tIN\tSOA\t".$Nameserver.".".$Domain.".\troot.".$Nameserver.".".$Domain."     (\n".
    199 "\t\t\t".$Serial."\t; serial\n".
    200 "\t\t\t".$RefreshTime."\t; refresh\n".
    201 "\t\t\t".$RetryTime."\t; retry\n".
    202 "\t\t\t".$ExpireTime."\t; expire\n".
    203 "\t\t\t86400\t; ttl\n".
     203$Domain.".\tIN\tSOA\tns1.".$Domain.".\troot.".$Domain." (\n".
     204"\t\t\t".$Serial."\t; serial\n".
     205"\t\t\t".$RefreshTime."\t; refresh\n".
     206"\t\t\t".$RetryTime."\t; retry\n".
     207"\t\t\t".$ExpireTime."\t; expire\n".
     208"\t\t\t".$MinimumTime."\t; minimum\n".
    204209"\t\t\t)\n".
    205210"\t\t\tTXT\t".'"Community network ZdechovNET"'."\n".
    206 "\t\t\tNS\t".$Nameserver.".".$Domain.".\n".
     211"\t\t\tNS\tns1.".$Domain.".\n".
     212"\t\t\tNS\tns2.".$Domain.".\n".
    207213"\t\t\tNS\tserver.zlin.czf.\n";
    208214"\t\t\tMX\t10 mail.".$Domain.".\n";
     
    225231{
    226232  $Data = $Alias['name'];
    227   if(strlen($Data)<8) $Data .= "\t";
     233  if(strlen($Data) < 8) $Data .= "\t";
    228234  fputs($File, $Data."\tIN\tCNAME\t".$Alias['target']."\n");
    229235  fputs($File2, $Data."\tIN\tCNAME\t".$Alias['target']."\n");
     
    233239
    234240// Generate reverse DNS records
    235 $Nameserver = 'centrala';
    236241$Networks = array('10.144.200');
    237242foreach($Networks as $Network)
     
    242247  $Nameserver = 'centrala';
    243248  $Header = '$TTL 86400'."\n".
    244   "@\tIN\tSOA\t".$Nameserver.".".$Domain.".\troot.".$Nameserver.".".$Domain.".  (\n".
    245   "\t\t\t\t".$Serial."\t; serial\n".
    246   "\t\t\t\t".$RefreshTime."\t; refresh\n".
    247   "\t\t\t\t".$RetryTime."\t; retry\n".
    248   "\t\t\t\t".$ExpireTime."\t; expire\n".
    249   "\t\t\t\t86400 ; ttl\n".
    250   "\t\t\t\t)\n".
    251   "@\tIN\tNS\t".$Nameserver.".".$Domain.".\n".
     249  "@\tIN\tSOA\tns1.".$Domain.".\troot.".$Domain.".      (\n".
     250  "\t\t\t\t".$Serial."\t; serial\n".
     251  "\t\t\t\t".$RefreshTime."\t; refresh\n".
     252  "\t\t\t\t".$RetryTime."\t; retry\n".
     253  "\t\t\t\t".$ExpireTime."\t; expire\n".
     254  "\t\t\t\t".$MinimumTime."\t; minimum\n".
     255  "\t\t\t\t)\n".
     256  "@\tIN\tNS\tns1.".$Domain.".\n".
     257  "@\tIN\tNS\tns2.".$Domain.".\n".
    252258  "\tIN\tNS\tserver.zlin.czf.\n\n";
    253259  fputs($File, $Header);
     
    255261  $Nameserver = 'centrala-ext';
    256262  $Header = '$TTL 86400'."\n".
    257   "@\tIN\tSOA\t".$Nameserver.".".$Domain.".\troot.".$Nameserver.".".$Domain.".  (\n".
    258   "\t\t\t\t".$Serial."\t; serial\n".
    259   "\t\t\t\t".$RefreshTime."\t; refresh\n".
    260   "\t\t\t\t".$RetryTime."\t; retry\n".
    261   "\t\t\t\t".$ExpireTime."\t; expire\n".
    262   "\t\t\t\t86400 ; ttl\n".
    263   "\t\t\t\t)\n".
    264   "@\tIN\tNS\t".$Nameserver.".".$Domain.".\n";
     263  "@\tIN\tSOA\tns1.".$Domain.".\troot.".$Domain.".      (\n".
     264  "\t\t\t\t".$Serial."\t; serial\n".
     265  "\t\t\t\t".$RefreshTime."\t; refresh\n".
     266  "\t\t\t\t".$RetryTime."\t; retry\n".
     267  "\t\t\t\t".$ExpireTime."\t; expire\n".
     268  "\t\t\t\t".$MinimumTime."\t; minimum\n".
     269  "\t\t\t\t)\n".
     270  "@\tIN\tNS\tns1.".$Domain.".\n";
     271  "@\tIN\tNS\tns2.".$Domain.".\n";
    265272  "\tIN\tNS\tserver.zlin.czf.\n\n";
    266273
Note: See TracChangeset for help on using the changeset viewer.