"Fossies" - the Fresh Open Source Software Archive

Member "webbind_0.98/showzone.php" (5 Jan 2002, 19309 Bytes) of package /linux/misc/dns/old/WeBBind_0.98.tar:


The requested HTML page contains a <FORM> tag that is unusable on "Fossies" in "automatic" (rendered) mode so that page is shown as HTML source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    1 <?
    2 require("htmlcommon.php");
    3 require("parser.php");
    4 
    5 //Elabora per ogni file dns trovato e genera html output
    6 //
    7 function ModifyZone($RECORD_SERIAL,$RECORD_NS,$RECORD_DELEGATION,$RECORD_MX,$RECORD_A,$RECORD_CNAME,$RECORD_PTR,$otherinfo,$idserver,$dnsfile,$rdonly,$user)
    8 {
    9     require("global.php");
   10     
   11     $server = $servername[$idserver];
   12     $zonename = explode("/", $dnsfile);
   13     $ZONENAME = strtoupper(end($zonename));
   14     $newserial = ($RECORD_SERIAL + 1);
   15 
   16     HTMLheader();
   17     StatusBar($zflto);
   18 
   19     Banner("<font face=\"Verdana\" size=2>"."<CENTER>"."Working on "."<MARQUEE BEHAVIOR=ALTERNATE SCROLLDELAY=10 SCROLLAMOUNT=2>".$ZONENAME."</MARQUEE>"."</CENTER>"."</FONT>",$user,$server);
   20 
   21         print("<center><table BORDER COLS=1 WIDTH=\"100%\" >\n");
   22         print("<tr>\n");
   23         print("<td BGCOLOR=\"#990000\">\n");
   24         print("<center>\n");
   25         print("<font face=\"Verdana\" size=2 font color=\"#FFFFFF\"><B>$ZONENAME</B></font></center>\n");
   26         print("</td>\n");
   27         print("</tr>\n");
   28         print("</table></center>\n");
   29 
   30         print("<center><table BORDER COLS=3 WIDTH=\"100%\" >\n");
   31         print("<form method=\"post\" action=\"writezone.php\">\n");
   32 
   33         print("<tr BGCOLOR=\"#990000\">\n");
   34         print("<td>\n");
   35         print("<center><font face=\"Verdana\" size=2 font color=\"#FFFFFF\"><B>Record Type</B></font></center>\n");
   36         print("</td>\n");
   37         print("<td>\n");
   38         print("<center><font face=\"Verdana\" size=2 font color=\"#FFFFFF\"><B>Current Value</B></font></center>\n");
   39         print("</td>\n");
   40         print("<td>\n");
   41         print("<center><font face=\"Verdana\" size=2 font color=\"#FFFFFF\"><B>New Value</B></font></center>\n");
   42         print("</td>\n");
   43     print("</tr>\n");
   44 
   45         print("<tr BGCOLOR=\"#990000\">\n");
   46         print("<td>\n");
   47         print("<center><font face=\"Verdana\" size=2 font color=\"#FFFFFF\"><B>       .        </B></font></center>\n");
   48         print("</td>\n");
   49         print("<td>\n");
   50         print("<center><font face=\"Verdana\" size=2 font color=\"#FFFFFF\"><B>       .        </B></font></center>\n");
   51         print("</td>\n");
   52         print("<td>\n");
   53         print("<center><font face=\"Verdana\" size=2 font color=\"#FFFFFF\"><B>       .        </B></font></center>\n");
   54         print("</td>\n");
   55         print("</tr>\n");
   56 //SERIAL
   57     print("<tr BGCOLOR=\"#FFFFFF\">\n");
   58         print("<td BGCOLOR=\"#990000\">\n");
   59         print("<center><font face=\"Verdana\" size=1 font color=\"#FFFFFF\"><B>Serial Number</B></font></center>\n");
   60         print("</td>\n");
   61         print("<td BGCOLOR=\"#FFFFFF\">\n");
   62         print("<center><font face=\"Verdana\" size=1 font color=\"#990000\"><B>$RECORD_SERIAL</B></font></center>\n");
   63         print("</td>\n");
   64         print("<td>\n");
   65         print("<CENTER><INPUT type=\"TEXT\" name=\"oserial\" maxlength=\"10\" value=\"$newserial\" size=10></CENTER>\n");
   66         print("</td>\n");
   67     print("</tr>\n");
   68 //NAME SERVERS
   69   for ($i = 0; $i < (count ($RECORD_NS)); $i++) {
   70     print("<tr BGCOLOR=\"#FFFFFF\">\n");
   71         print("<td BGCOLOR=\"#990000\">\n");
   72         print("<center><font face=\"Verdana\" size=1 font color=\"#FFFFFF\"><B>Name Server (NS)</B></font></center>\n");
   73         print("</td>\n");
   74         print("<td BGCOLOR=\"#FFFFFF\">\n");
   75         print("<center><font face=\"Verdana\" size=1 font color=\"#990000\"><B>$RECORD_NS[$i]</B></font></center>\n");
   76         print("</td>\n");
   77         print("<td>\n");
   78         print("<CENTER><INPUT type=\"TEXT\" name=\"nameserver[$i]\" value=\"$RECORD_NS[$i]\" size=30></CENTER>\n");
   79         print("</td>\n");
   80         print("</tr>\n");
   81   }
   82         print("<tr BGCOLOR=\"#FFFFFF\">\n");
   83         print("<td BGCOLOR=\"#990000\">\n");
   84         print("<center><font face=\"Verdana\" size=1 font color=\"#FFFFFF\"><B>Name Server (NS) (Add New)</B></font></center>\n");
   85         print("</td>\n");
   86         print("<td BGCOLOR=\"#FFFFFF\">\n");
   87         print("<center><font face=\"Verdana\" size=1 font color=\"#990000\"><B></B></font></center>\n");
   88         print("</td>\n");
   89         print("<td>\n");
   90         print("<CENTER><INPUT type=\"TEXT\" name=\"nameservernew\" value=\"\" size=30></CENTER>\n");
   91         print("</td>\n");
   92         print("</tr>\n");
   93 
   94 //IF IN-ADDR.ARPA ZONES DON'T SHOW "A"/"MX"/etc. FIELDS
   95 if (! $RECORD_PTR) {
   96 
   97 //MX RECORDS
   98         print("<tr BGCOLOR=\"#FFFFFF\">\n");
   99         print("<td BGCOLOR=\"#DCDCDC\">\n");
  100         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  101         print("</td>\n");
  102         print("<td BGCOLOR=\"#DCDCDC\">\n");
  103         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  104         print("</td>\n");
  105         print("<td BGCOLOR=\"#DCDCDC\">\n");
  106         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  107         print("</td>\n");
  108         print("</tr>\n");
  109 //MX RECORDS
  110 
  111   for ($i = 0; $i < (count ($RECORD_MX)); $i++) {
  112   //$distvalue = split("(   +)|( +)",$RECORD_MX[$i]);
  113   $distvalue = split("(".chr(32)."+)|(".chr(9)."+)",$RECORD_MX[$i]);
  114 
  115     print("<tr BGCOLOR=\"#FFFFFF\">\n");
  116         print("<td BGCOLOR=\"#990000\">\n");
  117         print("<center><font face=\"Verdana\" size=1 font color=\"#FFFFFF\"><B>Mail Exchanger (MX)</B></font></center>\n");
  118         print("</td>\n");
  119         print("<td BGCOLOR=\"#FFFFFF\">\n");
  120         print("<center><font face=\"Verdana\" size=1 font color=\"#990000\"><B>$RECORD_MX[$i]</B></font></center>\n");
  121         print("</td>\n");
  122         print("<td>\n");
  123         print("<CENTER><INPUT type=\"TEXT\" name=\"mailxhost[$i]\" value=\"$distvalue[0]\" size=10>\n");
  124     print("<INPUT type=\"TEXT\" name=\"mailxvalue[$i]\" value=\"$distvalue[1]\" size=5>\n");
  125         print("<INPUT type=\"TEXT\" name=\"mailxrecord[$i]\" value=\"$distvalue[2]\" size=20></CENTER>\n");
  126         print("</td>\n");
  127         print("</tr>\n");
  128   }
  129         print("<tr BGCOLOR=\"#FFFFFF\">\n");
  130         print("<td BGCOLOR=\"#990000\">\n");
  131         print("<center><font face=\"Verdana\" size=1 font color=\"#FFFFFF\"><B>Mail Exchanger (MX) (Add New)</B></font></center>\n");
  132         print("</td>\n");
  133         print("<td BGCOLOR=\"#FFFFFF\">\n");
  134         print("<center><font face=\"Verdana\" size=1 font color=\"#990000\"><B></B></font></center>\n");
  135         print("</td>\n");
  136         print("<td>\n");
  137         print("<CENTER><INPUT type=\"TEXT\" name=\"mailxhostnew\" value=\"\" size=10 >\n");
  138         print("<INPUT type=\"TEXT\" name=\"mailxvaluenew\" value=\"\" size=5 >\n");
  139         print("<INPUT type=\"TEXT\" name=\"mailxrecordnew\" value=\"\" size=20></CENTER>\n");
  140         print("</td>\n");
  141         print("</tr>\n");
  142 
  143 //A RECORDS
  144         print("<tr BGCOLOR=\"#FFFFFF\">\n");
  145         print("<td BGCOLOR=\"#DCDCDC\">\n");
  146         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  147         print("</td>\n");
  148         print("<td BGCOLOR=\"#DCDCDC\">\n");
  149         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  150         print("</td>\n");
  151         print("<td BGCOLOR=\"#DCDCDC\">\n");
  152         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  153         print("</td>\n");
  154         print("</tr>\n");
  155 //A RECORDS
  156 
  157   for ($i = 0; $i < (count ($RECORD_A)); $i++) {
  158   $distvalue = explode(" ",$RECORD_A[$i]);
  159 
  160         print("<tr BGCOLOR=\"#FFFFFF\">");
  161         print("<td BGCOLOR=\"#990000\">");
  162         print("<center><font face=\"Verdana\" size=1 font color=\"#FFFFFF\"><B>Address Record (A)</B></font></center>\n");
  163         print("</td>\n");
  164         print("<td BGCOLOR=\"#FFFFFF\">\n");
  165         print("<center><font face=\"Verdana\" size=1 font color=\"#990000\"><B>$distvalue[0] &nbsp&nbsp A &nbsp&nbsp $distvalue[1]</B></font></center>\n");
  166         print("</td>\n");
  167         print("<td>\n");
  168         print("<CENTER><INPUT type=\"TEXT\" name=\"ahost[$i]\" value=\"$distvalue[0]\" size=15>\n");
  169         print("<INPUT type=\"TEXT\" name=\"aip[$i]\" value=\"$distvalue[1]\" size=15></CENTER>\n");
  170         print("</td>\n");
  171         print("</tr>\n");
  172   }
  173         print("<tr BGCOLOR=\"#FFFFFF\">\n");
  174         print("<td BGCOLOR=\"#990000\">\n");
  175         print("<center><font face=\"Verdana\" size=1 font color=\"#FFFFFF\"><B>Address Record (A) (Add New)</B></font></center>\n");
  176         print("</td>\n");
  177         print("<td BGCOLOR=\"#FFFFFF\">\n");
  178         print("<center><font face=\"Verdana\" size=1 font color=\"#990000\"><B></B></font></center>\n");
  179         print("</td>\n");
  180         print("<td>\n");
  181         print("<CENTER><INPUT type=\"TEXT\" name=\"ahostnew\" value=\"\" size=15 >\n");
  182         print("<INPUT type=\"TEXT\" name=\"aipnew\" value=\"\" size=15></CENTER>\n");
  183         print("</td>\n");
  184         print("</tr>\n");
  185 
  186 //CNAME RECORDS
  187         print("<tr BGCOLOR=\"#FFFFFF\">\n");
  188         print("<td BGCOLOR=\"#DCDCDC\">\n");
  189         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  190         print("</td>\n");
  191         print("<td BGCOLOR=\"#DCDCDC\">\n");
  192         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  193         print("</td>\n");
  194         print("<td BGCOLOR=\"#DCDCDC\">\n");
  195         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  196         print("</td>\n");
  197         print("</tr>\n");
  198 //CNAME RECORDS
  199 
  200   for ($i = 0; $i < (count ($RECORD_CNAME)); $i++) {
  201   $distvalue = explode(" ",$RECORD_CNAME[$i]);
  202 
  203         print("<tr BGCOLOR=\"#FFFFFF\">\n");
  204         print("<td BGCOLOR=\"#990000\">\n");
  205         print("<center><font face=\"Verdana\" size=1 font color=\"#FFFFFF\"><B>Canonical Name (CNAME)</B></font></center>\n");
  206         print("</td>\n");
  207         print("<td BGCOLOR=\"#FFFFFF\">\n");
  208         print("<center><font face=\"Verdana\" size=1 font color=\"#990000\"><B>$distvalue[0] &nbsp&nbsp CNAME &nbsp&nbsp $distvalue[1]</B></font></center>\n");
  209         print("</td>\n");
  210         print("<td>\n");
  211         print("<CENTER><INPUT type=\"TEXT\" name=\"cnamehost[$i]\" value=\"$distvalue[0]\" size=15>\n");
  212         print("<INPUT type=\"TEXT\" name=\"cnamevalue[$i]\" value=\"$distvalue[1]\" size=20></CENTER>\n");
  213         print("</td>\n");
  214         print("</tr>\n");
  215   }
  216         print("<tr BGCOLOR=\"#FFFFFF\">\n");
  217         print("<td BGCOLOR=\"#990000\">\n");
  218         print("<center><font face=\"Verdana\" size=1 font color=\"#FFFFFF\"><B>Canonical Name (CNAME) (Add New)</B></font></center>\n");
  219         print("</td>\n");
  220         print("<td BGCOLOR=\"#FFFFFF\">\n");
  221         print("<center><font face=\"Verdana\" size=1 font color=\"#990000\"><B></B></font></center>\n");
  222         print("</td>\n");
  223         print("<td>\n");
  224         print("<CENTER><INPUT type=\"TEXT\" name=\"cnamehostnew\" value=\"\" size=15 >\n");
  225         print("<INPUT type=\"TEXT\" name=\"cnamevaluenew\" value=\"\" size=20></CENTER>\n");
  226         print("</td>\n");
  227         print("</tr>\n");
  228 }
  229 
  230 if ($RECORD_PTR) {
  231 //PTR RECORDS
  232         print("<tr BGCOLOR=\"#FFFFFF\">\n");
  233         print("<td BGCOLOR=\"#DCDCDC\">\n");
  234         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  235         print("</td>\n");
  236         print("<td BGCOLOR=\"#DCDCDC\">\n");
  237         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  238         print("</td>\n");
  239         print("<td BGCOLOR=\"#DCDCDC\">\n");
  240         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  241         print("</td>\n");
  242         print("</tr>\n");
  243 //PTR RECORDS
  244             
  245   for ($i = 0; $i < (count ($RECORD_PTR)); $i++) {
  246   $distvalue = explode(" ",$RECORD_PTR[$i]);
  247 
  248             if ($distvalue[0]) {
  249                 $checkchange = $distvalue[0];
  250             }
  251 
  252 
  253         print("<tr BGCOLOR=\"#FFFFFF\">\n");
  254         print("<td BGCOLOR=\"#990000\">\n");
  255         print("<center><font face=\"Verdana\" size=1 font color=\"#FFFFFF\"><B>PTR</B></font></center>\n");
  256         print("</td>\n");
  257         print("<td BGCOLOR=\"#FFFFFF\">\n");
  258         print("<center><font face=\"Verdana\" size=1 font color=\"#990000\"><B>$distvalue[0] &nbsp&nbsp PTR &nbsp&nbsp $distvalue[1]</B></font></center>\n");
  259         print("</td>\n");
  260             if ($distvalue[0]) {
  261         print("<td ALIGN=\"right\">\n");
  262         print("<INPUT type=\"TEXT\" name=\"ptrip[$i]\" value=\"$distvalue[0]\" size=5>\n");
  263         print("<INPUT type=\"TEXT\" name=\"ptrhost[$i]\" value=\"$distvalue[1]\" size=30>\n");
  264         print("</td>\n");
  265         print("</tr>\n");
  266             } else {
  267         print("<td ALIGN=\"right\">\n");
  268         print("<INPUT type=\"TEXT\" name=\"ptrhost[$i]\" value=\"$distvalue[1]\" size=30>\n");
  269         print("</td>\n");
  270         print("</tr>\n");
  271             }
  272 
  273 //ADDNEWEXISTENTIP
  274             if ($checkchange) {
  275         print("<tr BGCOLOR=\"#FFFFFF\">\n");
  276         print("<td BGCOLOR=\"#990000\">\n");
  277         print("<center><font face=\"Verdana\" size=1 font color=\"#FFFFFF\"><B>PTR</B></font></center>\n");
  278         print("</td>\n");
  279         print("<td BGCOLOR=\"#990000\">\n");
  280         print("<center><font face=\"Verdana\" size=1 font color=\"#FFFFFF\"><B>Add New FQDN at IP $checkchange</B></font></center>\n");
  281         print("</td>\n");
  282         print("<td ALIGN=\"right\">\n");
  283         print("<INPUT type=\"TEXT\" name=\"ptrhostnew[$i]\" value=\"\" size=30>\n");
  284         print("</td>\n");
  285         print("</tr>\n");
  286             $checkchange = "" ;
  287             }
  288 //ADDNEWEXISTENTIP
  289 
  290 
  291   }
  292 
  293 //ADDNEW
  294         print("<tr BGCOLOR=\"#FFFFFF\">\n");
  295         print("<td BGCOLOR=\"#DCDCDC\">\n");
  296         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  297         print("</td>\n");
  298         print("<td BGCOLOR=\"#DCDCDC\">\n");
  299         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  300         print("</td>\n");
  301         print("<td BGCOLOR=\"#DCDCDC\">\n");
  302         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  303         print("</td>\n");
  304         print("</tr>\n");
  305 //ADDNEW
  306         print("<tr BGCOLOR=\"#FFFFFF\">\n");
  307         print("<td BGCOLOR=\"#990000\">\n");
  308         print("<center><font face=\"Verdana\" size=1 font color=\"#FFFFFF\"><B>PTR (Add New)
  309 </B></font></center>\n");
  310         print("</td>\n");
  311         print("<td BGCOLOR=\"#FFFFFF\">\n");
  312         print("<center><font face=\"Verdana\" size=1 font color=\"#990000\"><B>Add New IP and FQDN</B></font></center>\n");
  313         print("</td>\n");
  314         print("<td>\n");
  315         print("<CENTER><INPUT type=\"TEXT\" name=\"ptripnnew\" value=\"\" size=5 >\n");
  316         print("<INPUT type=\"TEXT\" name=\"ptrhostnnew\" value=\"\" size=30></CENTER>\n");
  317         print("</td>\n");
  318         print("</tr>\n");
  319 
  320 
  321 }
  322 
  323 
  324 //DELEGATION RECORDS
  325         print("<tr BGCOLOR=\"#FFFFFF\">\n");
  326         print("<td BGCOLOR=\"#DCDCDC\">\n");
  327         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  328         print("</td>\n");
  329         print("<td BGCOLOR=\"#DCDCDC\">\n");
  330         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  331         print("</td>\n");
  332         print("<td BGCOLOR=\"#DCDCDC\">\n");
  333         print("<font color=\"#DCDCDC\"><B>.</B></font>\n");
  334         print("</td>\n");
  335         print("</tr>\n");
  336 //DELEGATION RECORDS
  337 
  338 
  339   for ($i = 0; $i < (count ($RECORD_DELEGATION)); $i++) {
  340   $distvalue = explode(" ",$RECORD_DELEGATION[$i]);
  341 
  342         print("<tr BGCOLOR=\"#FFFFFF\">\n");
  343         print("<td BGCOLOR=\"#990000\">\n");
  344         print("<center><font face=\"Verdana\" size=1 font color=\"#FFFFFF\"><B>Zone Delegation (NS)</B></font></center>\n");
  345         print("</td>\n");
  346         print("<td BGCOLOR=\"#FFFFFF\">\n");
  347         print("<center><font face=\"Verdana\" size=1 font color=\"#990000\"><B>$distvalue[0] &nbsp&nbsp NS &nbsp&nbsp $distvalue[1]</B></font></center>\n");
  348         print("</td>\n");
  349         print("<td>\n");
  350         print("<CENTER><INPUT type=\"TEXT\" name=\"delegationzone[$i]\" value=\"$distvalue[0]\" size=10>\n");
  351         print("<INPUT type=\"TEXT\" name=\"delegationns[$i]\" value=\"$distvalue[1]\" size=30></CENTER>\n");
  352         print("</td>\n");
  353         print("</tr>\n");
  354   }
  355         print("<tr BGCOLOR=\"#FFFFFF\">\n");
  356         print("<td BGCOLOR=\"#990000\">\n");
  357         print("<center><font face=\"Verdana\" size=1 font color=\"#FFFFFF\"><B>Zone Delegation (NS) (Add New)</B></font></center>\n");
  358         print("</td>\n");
  359         print("<td BGCOLOR=\"#FFFFFF\">\n");
  360         print("<center><font face=\"Verdana\" size=1 font color=\"#990000\"><B></B></font></center>\n");
  361         print("</td>\n");
  362         print("<td>\n");
  363         print("<CENTER><INPUT type=\"TEXT\" name=\"delegationzonenew\" value=\"\" size=10 >\n");
  364         print("<INPUT type=\"TEXT\" name=\"delegationnsnew\" value=\"\" size=30></CENTER>\n");
  365         print("</td>\n");
  366         print("</tr>\n");
  367     print("</table></center>\n");
  368 
  369         print("<center><table BORDER COLS=1 WIDTH=\"100%\" >\n");
  370         print("<tr>\n");
  371         print("<td BGCOLOR=\"#990000\">\n");
  372         print("<center>\n");
  373         print("<font face=\"Verdana\" size=2 font color=\"#FFFFFF\"><B>Other Info (Read Only)</B></font></center>\n");
  374         print("</td>\n");
  375         print("</tr>\n");
  376     print("<td BGCOLOR=\"#FFFFFF\">\n");
  377     print("<center><font face=\"Verdana\" size=1 font color=\"#990000\"><B>$otherinfo</B></font></center>\n");
  378         print("</td>\n");
  379     print("</tr>\n");
  380         print("</table></center>\n");
  381 
  382   if ($rdonly != 1) {
  383         print("<center><table BORDER=0 COLS=2 WIDTH=\"100%\" >\n");
  384         print("<tr BGCOLOR=\"#C0C0C0\">\n");
  385 
  386         print("<td>\n");
  387         print("<center><INPUT type=\"SUBMIT\" value=\"                       Modify                         \"></center>\n");
  388         print("</td>\n");
  389         print("<td>\n");
  390         print("<center><INPUT type=\"RESET\"  value=\"                       Restore                        \"></center>\n");
  391         print("</td>\n");
  392         print("</tr>\n");
  393         print("</table></center>\n");
  394 
  395         print("<center><table BORDER=0 COLS=1 WIDTH=\"100%\" >\n");
  396         print("<tr BGCOLOR=\"#C0C0C0\">\n");
  397         print("<td>\n");
  398         print("<center><font face=\"Verdana\" size=2 font color=\"#FFFFFF\"><A HREF=\"$phpbindurl\">Return to Search Page</A></center>\n");
  399         print("</td>\n");
  400         print("</tr>\n");
  401         print("</table></center>\n");
  402 
  403     print("<INPUT type=\"HIDDEN\" name=\"filelocation\" value=\"$dnsfile\">\n");
  404     print("<INPUT type=\"HIDDEN\" name=\"idserver\" value=\"$idserver\">\n");
  405     print("<INPUT TYPE=\"HIDDEN\" NAME=\"username\" VALUE=\"$user\">\n");
  406         print("</form>\n");
  407   } else {
  408     print("<center><table BORDER=0 COLS=1 WIDTH=\"100%\" >\n");
  409         print("<tr BGCOLOR=\"#C0C0C0\">\n");
  410     print("<td>\n");
  411     print("<center><font face=\"Verdana\" size=2 font color=\"#FFFFFF\"><A HREF=\"$phpbindurl\">Return to Search Page</A></center>\n");
  412     print("</td>\n");
  413         print("</tr>\n");
  414         print("</table></center>\n");
  415     print("</form>\n");
  416   }
  417 }
  418 
  419 
  420 /*
  421     Get request from resultdomain.php form about view|modify zone.
  422 */
  423 
  424 
  425 if ( $zonechoose != "" ) {
  426     if (ereg("Read", $consulta)) {
  427             $readonly=1 ;
  428         } else {
  429             include("global.php");
  430             $zonelock=(end(explode("/", $zonechoose)));
  431             if ( file_exists("/tmp/$zonelock".".zonelock") && ( (time() - filemtime("/tmp/$zonelock".".zonelock")) < $zflto) ) {
  432                 HTMLHeader();
  433                 $wxzflto=( $zflto - (time() - filemtime("/tmp/$zonelock".".zonelock")) );
  434                 Banner("Another user already working on requested zone. <BR>Zone will be available in $wxzflto secs.<BR><BR><A HREF=\"$phpbindurl\">Back to Search Page</A>\n",$username,$servername[$serverchoose]);
  435                 print ("<BR><BR><BR><BR><HR>\n");
  436                 exit();
  437             }
  438             if ( file_exists("/tmp/$zonelock".".zonelock") ) { unlink ("/tmp/$zonelock".".zonelock"); }
  439             session_register("zonelock");
  440             touch("/tmp/$zonelock".".zonelock");
  441         }
  442     ParseZone ($username,$idserver,$zonechoose,$readonly) ;
  443     }
  444  
  445 ?>