dnsadmin/slave_form.cgi

   1 #!/usr/local/bin/perl
   2 # slave_form.cgi
   3 # A form for creating a new slave zone
   4
   5 require './dns-lib.pl';
   6 %access = &get_module_acl();
   7 $access{'slave'} || &error("You are not allowed to create slave zones");
   8 &header("Create Slave Zone", "");
   9 print &ui_hr();
  10
  11 print "<form action=create_slave.cgi>\n";
  12 print "<input type=hidden name=type value=\"$lctype\">\n";
  13 print "<table border width=100%>\n";
  14 print "<tr> <td $tb><b>New slave zone options</b></td> </tr>\n";
  15 print "<tr> <td $cb><table width=100%>\n";
  16
  17 print "<tr> <td><b>Zone type</b></td>\n";
  18 print "<td colspan=3><input type=radio name=rev value=0 checked>\n";
  19 print "Forward (Names to Addresses)\n";
  20 print "&nbsp;&nbsp;<input type=radio name=rev value=1>\n";
  21 print "Reverse (Addresses to Names)</td> </tr>\n";
  22
  23 print "<tr> <td><b>Domain name / Network</b></td>\n";
  24 print "<td colspan=3><input name=zone size=40></td> </tr>\n";
  25
  26 print "<tr> <td><b>Records file</b></td> <td colspan=3>\n";
  27 print "<input type=radio name=file_def value=1> None\n";
  28 print "<input type=radio name=file_def value=2 checked> Automatic\n";
  29 print "<input type=radio name=file_def value=0>\n";
  30 print "<input name=file size=30>",&file_chooser_button("file"),"</td> </tr>\n";
  31
  32 print "<tr> <td valign=top><b>Master servers</b></td> <td colspan=3>\n";
  33 print "<textarea name=masters rows=4 cols=30></textarea></td> </tr>\n";
  34
  35 print "</table></td></tr></table><br>\n";
  36 print "<input type=submit value=\"Create Zone\"></form>\n";
  37
  38 print &ui_hr();
  39 &footer("", "zone list");
  40