bacula-backup/edit_director.cgi

   1 #!/usr/local/bin/perl
   2 # Show the global director configuration
   3
   4 require './bacula-backup-lib.pl';
   5 &ReadParse();
   6 $conf = &get_director_config();
   7 $director = &find("Director", $conf);
   8 $director || &error($text{'director_enone'});
   9 $mems = $director->{'members'};
  10
  11 @messages = map { $n=&find_value("Name", $_->{'members'}) }
  12                 &find("Messages", $conf);
  13
  14 &ui_print_header(undef, $text{'director_title'}, "", "director");
  15
  16 print &ui_form_start("save_director.cgi", "post");
  17 print &ui_table_start($text{'director_header'}, "width=100%", 4);
  18
  19 $name = &find_value("Name", $mems);
  20 print &ui_table_row($text{'director_name'},
  21                     &ui_textbox("name", $name, 20));
  22
  23 $port = &find_value("DIRport", $mems);
  24 print &ui_table_row($text{'director_port'},
  25                     &ui_textbox("port", $port, 6));
  26
  27 $jobs = &find_value("Maximum Concurrent Jobs", $mems);
  28 print &ui_table_row($text{'director_jobs'},
  29                     &ui_opt_textbox("jobs", $jobs, 6, $text{'default'}));
  30
  31 $messages = &find_value("Messages", $mems);
  32 print &ui_table_row($text{'director_messages'},
  33         &ui_select("messages", $messages,
  34                 [ [ "", "&lt;$text{'default'}&gt;" ],
  35                   map { [ $_ ] } @messages ], 1, 0, 1));
  36
  37 $dir = &find_value("WorkingDirectory", $mems);
  38 print &ui_table_row($text{'director_dir'},
  39                     &ui_textbox("dir", $dir, 60)." ".
  40                     &file_chooser_button("dir", 1), 3);
  41
  42 # SSL options
  43 &show_tls_directives($director);
  44
  45 print &ui_table_end();
  46 print &ui_form_end([ [ "save", $text{'save'} ] ]);
  47
  48 &ui_print_footer("", $text{'index_return'});
  49