net/edit_ipnode.cgi

   1 #!/usr/local/bin/perl
   2 # edit_ipnode.cgi
   3 # Edit or create a ipnode address
   4
   5 require './net-lib.pl';
   6 $access{'ipnodes'} == 2 || &error($text{'ipnodes_ecannot'});
   7 &ReadParse();
   8 if ($in{'new'}) {
   9         &ui_print_header(undef, $text{'ipnodes_create'}, "");
  10         }
  11 else {
  12         &ui_print_header(undef, $text{'ipnodes_edit'}, "");
  13         @ipnodes = &list_ipnodes();
  14         $h = $ipnodes[$in{'idx'}];
  15         }
  16
  17 # Form start
  18 print &ui_form_start("save_ipnode.cgi");
  19 print &ui_hidden("new", $in{'new'});
  20 print &ui_hidden("idx", $in{'idx'});
  21 print &ui_table_start($text{'ipnodes_detail'}, undef, 2);
  22
  23 # IPv6 address
  24 print &ui_table_row($text{'ipnodes_ip'},
  25         &ui_textbox("address", $h->{'address'}, 30));
  26
  27 # Hostnames for address
  28 print &ui_table_row($text{'ipnodes_host'},
  29         &ui_textarea("ipnodes", join("\n", @{$h->{'ipnodes'}}), 5, 50));
  30
  31 # End of the form
  32 print &ui_table_end();
  33 if ($in{'new'}) {
  34         print &ui_form_end([ [ undef, $text{'create'} ] ]);
  35         }
  36 else {
  37         print &ui_form_end([ [ undef, $text{'save'} ],
  38                              [ "delete", $text{'delete'} ] ]);
  39         }
  40
  41 &ui_print_footer("list_ipnodes.cgi", $text{'ipnodes_return'});
  42