frox/save_general.cgi

   1 #!/usr/local/bin/perl
   2 # Save general options
   3
   4 require './frox-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'general_err'});
   7 $conf = &get_config();
   8
   9 &save_user($conf, "User");
  10 &save_group($conf, "Group");
  11 &save_textbox($conf, "WorkingDir", \&check_dir);
  12 &save_yesno($conf, "DontChroot");
  13 &save_opt_textbox($conf, "LogLevel", \&check_level);
  14 &save_opt_textbox($conf, "PidFile", \&check_pidfile);
  15
  16 &lock_file($config{'frox_conf'});
  17 &flush_file_lines();
  18 &unlock_file($config{'frox_conf'});
  19 &webmin_log("general");
  20 &redirect("");
  21
  22 sub check_dir
  23 {
  24 return -d $_[0] ? undef : $text{'general_edir'};
  25 }
  26
  27 sub check_level
  28 {
  29 return $_[0] =~ /^\d+$/ ? undef : $text{'general_elevel'};
  30 }
  31
  32 sub check_pidfile
  33 {
  34 return $_[0] =~ /^\/\S+$/ ? undef : $text{'general_epidfile'};
  35 }