webmin/change_lock.cgi

   1 #!/usr/local/bin/perl
   2 # Save file locking settings
   3
   4 require './webmin-lib.pl';
   5 &ReadParse();
   6
   7 # Validate inputs
   8 &error_setup($text{'lock_err'});
   9 if ($in{'lockmode'} >= 2) {
  10         @dirs = split(/\n+/, $in{'lockdirs'});
  11         foreach $d (@dirs) {
  12                 $d =~ /^\// || &error(&text('lock_edir', $d));
  13                 }
  14         @dirs || &error($text{'lock_edirs'});
  15         }
  16
  17 # Write out config
  18 &lock_file($config_file);
  19 $gconfig{'lockmode'} = $in{'lockmode'};
  20 $gconfig{'lockdirs'} = join("\t", @dirs);
  21 &save_module_config(\%gconfig, "");
  22 &unlock_file($config_file);
  23 &webmin_log("lock");
  24
  25 &redirect("");
  26