bacula-backup/edit_sdirector.cgi

   1 #!/usr/local/bin/perl
   2 # Show the details of one file daemon director
   3
   4 require './bacula-backup-lib.pl';
   5 &ReadParse();
   6 $conf = &get_storage_config();
   7 @sdirectors = &find("Director", $conf);
   8
   9 if ($in{'new'}) {
  10         &ui_print_header(undef, $text{'sdirector_title1'}, "");
  11         $mems = [ ];
  12         $sdirector = { 'members' => $mems };
  13         }
  14 else {
  15         &ui_print_header(undef, $text{'sdirector_title2'}, "");
  16         $sdirector = &find_by("Name", $in{'name'}, \@sdirectors);
  17         $sdirector || &error($text{'sdirector_egone'});
  18         $mems = $sdirector->{'members'};
  19         }
  20
  21 # Show details
  22 print &ui_form_start("save_sdirector.cgi", "post");
  23 print &ui_hidden("new", $in{'new'}),"\n";
  24 print &ui_hidden("old", $in{'name'}),"\n";
  25 print &ui_table_start($text{'sdirector_header'}, "width=100%", 4);
  26
  27 # Director name
  28 print &ui_table_row($text{'sdirector_name'},
  29         &ui_textbox("name", $name=&find_value("Name", $mems), 40), 3);
  30
  31 # Password for remote
  32 print &ui_table_row($text{'sdirector_pass'},
  33         &ui_textbox("pass", $pass=&find_value("Password", $mems), 60), 3);
  34
  35 # Monitor mode
  36 print &ui_table_row($text{'sdirector_monitor'},
  37         &bacula_yesno("monitor", "Monitor", $mems));
  38
  39 &show_tls_directives($sdirector);
  40
  41 # All done
  42 print &ui_table_end();
  43 if ($in{'new'}) {
  44         print &ui_form_end([ [ "create", $text{'create'} ] ]);
  45         }
  46 else {
  47         print &ui_form_end([ [ "save", $text{'save'} ],
  48                              [ "delete", $text{'delete'} ] ]);
  49         }
  50 &ui_print_footer("list_sdirectors.cgi", $text{'sdirectors_return'});
  51