<h1> DNS Records for MLAB </h1>
<pre>
<?php
  // Vytáhni informace z DNS programem "host"
  if(isset($x)) unset($x);
  @Exec("host -a -l mlab.cz. ns.forpsi.cz",$x);
  //echo implode("\n",$x);
  
  // Ukousni začátek až po sekci odpovědi
  reset($x);
  while($y=each($x))
  {
    if(eregi(";; ANSWER SECTION:",$y[value])) break;
  }
  $x=array_slice($x,$y[key]+1);
  
  // Použij až po první prázdnou řádku
  reset($x);
  while($y=each($x))  
  {
    if(eregi("^$",$y[value])) break;
  }
  $x=array_slice($x,0,$y[key]);
  
  
  // Setřiď
  function sortf($a,$b)
  {
    $a=preg_split("/\s+/",$a,4);
    $b=preg_split("/\s+/",$b,4);
    return strcmp($b[3],$a[3]);
  }
  usort($x,"sortf");
  
  // Výsledek  
  $x=implode("\n",$x);
  if ($x=="") $x="No Data\n";
  echo $x;
?>
</pre>