dhcpd/edit_zones.cgi

   1 #!/usr/bin/perl
   2 # $Id: edit_zones.cgi,v 1.4 2005/04/16 14:30:21 jfranken Exp $
   3 # File added 2005-04-15 by Johannes Franken <jfranken@jfranken.de>
   4 # Distributed under the terms of the GNU General Public License, v2 or later
   5 #
   6 # * Edit or create zone directives (pass to save_zones.cgi)
   7
   8 require './dhcpd-lib.pl';
   9 require './params-lib.pl';
  10 &ReadParse();
  11 $conf = &get_config();
  12 $in{'new'} || (($par, $zone) = &get_branch('zone'));
  13 $sconf = $zone->{'members'};
  14
  15 # display
  16 &ui_print_header(undef, $in{'new'} ? $text{'zone_crheader'} : $text{'zone_eheader'}, "");
  17
  18 print "<form action=save_zones.cgi method=post>\n";
  19 print "<table border width=100%>\n";
  20 print "<tr $tb> <td><b>$text{'zone_tabhdr'}</b></td> </tr>\n";
  21 print "<tr $cb> <td><table width=100%>\n";
  22
  23 print "<tr> <td><b>$text{'zone_desc'}</b></td>\n";
  24 printf "<td colspan=3><input name=desc size=60 value='%s'></td> </tr>\n",
  25         $zone ? &html_escape($zone->{'comment'}) : "";
  26
  27 print "<tr> <td><b>$text{'zone_name'}</b></td>\n";
  28 printf "<td colspan=3><input name=name size=60 value='%s'></td> </tr>\n",
  29         $zone ? &html_escape($zone->{'value'}) : "";
  30
  31 print "<tr> <td><b>$text{'zone_primary'}</b></td>\n";
  32 printf "<td colspan=3><input name=primary size=15 value='%s'></td> </tr>\n",
  33         $zone ? &html_escape(find_value("primary",$zone->{'members'})) : "";
  34
  35
  36 print "<tr>\n";
  37 @keys = sort { $a->{'values'}->[0] cmp $b->{'values'}->[0] } (find("key", $conf));
  38 print "<td valign=top align=left><b>$text{'zone_tsigkey'}</b></td>\n";
  39 print "<td><select name=key size=1>\n";
  40 local $keyname=find_value("key",$zone->{'members'});
  41 foreach $k (@keys) {
  42         $curkeyname=$k->{'values'}->[0];
  43         printf "<option value=\"%s\" %s>%s</option>\n",
  44                 $curkeyname,
  45                 (!$in{'new'} &&  $curkeyname eq $keyname ? "selected" : ""),
  46                 $curkeyname;
  47         }
  48 print "</select></td>\n";
  49
  50
  51
  52
  53 print "</table></td></tr>\n";
  54 print "</table>\n";
  55
  56 print "<table width=100%><tr>\n";
  57 if (!$in{'new'}) {
  58         print "<input type=hidden name=idx value=\"$in{'idx'}\">\n";
  59         print "<td align=left><input type=submit value=\"$text{'save'}\"></td>\n";
  60         print "<td align=right><input type=submit name=delete ", "value=\"$text{'delete'}\"></td>\n";
  61 }
  62 else {
  63         print "<td align=left><input type=hidden name=new value=1>\n";
  64         print "<input type=submit value=\"$text{'create'}\"></td>\n";
  65 }
  66 print "</tr></table>\n";
  67
  68 print "</form>\n";
  69 &ui_print_footer("", $text{'zone_return'});