bacula-backup/edit_file.cgi

   1 #!/usr/local/bin/perl
   2 # Show the global file daemon configuration
   3
   4 require './bacula-backup-lib.pl';
   5 &ReadParse();
   6 $conf = &get_file_config();
   7 $file = &find("FileDaemon", $conf);
   8 $file || &error($text{'file_enone'});
   9 $mems = $file->{'members'};
  10
  11 &ui_print_header(undef, $text{'file_title'}, "", "file");
  12
  13 print &ui_form_start("save_file.cgi", "post");
  14 print &ui_table_start($text{'file_header'}, "width=100%", 4);
  15
  16 $name = &find_value("Name", $mems);
  17 print &ui_table_row($text{'file_name'},
  18                     &ui_textbox("name", $name, 20));
  19
  20 $port = &find_value("FDport", $mems);
  21 print &ui_table_row($text{'file_port'},
  22                     &ui_textbox("port", $port, 6));
  23
  24 $jobs = &find_value("Maximum Concurrent Jobs", $mems);
  25 print &ui_table_row($text{'file_jobs'},
  26                     &ui_opt_textbox("jobs", $jobs, 6, $text{'default'}));
  27
  28 $dir = &find_value("WorkingDirectory", $mems);
  29 print &ui_table_row($text{'file_dir'},
  30                     &ui_textbox("dir", $dir, 60)." ".
  31                     &file_chooser_button("dir", 1), 3);
  32
  33 # SSL options
  34 &show_tls_directives($file);
  35
  36 print &ui_table_end();
  37 print &ui_form_end([ [ "save", $text{'save'} ] ]);
  38
  39 &ui_print_footer("", $text{'index_return'});
  40