usermin/save_dav.cgi

   1 #!/usr/local/bin/perl
   2 # Save DAV server options
   3
   4 require './usermin-lib.pl';
   5 &error_setup($text{'dav_err'});
   6 &get_usermin_miniserv_config(\%miniserv);
   7 &ReadParse();
   8
   9 if ($in{'path_def'}) {
  10         delete($miniserv{'davpaths'});
  11         }
  12 else {
  13         $in{'path'} =~ /^\/\S/ || &error($text{'dav_epath'});
  14         $miniserv{'davpaths'} = $in{'path'};
  15         }
  16
  17 if ($in{'root_def'} == 0) {
  18         delete($miniserv{'dav_root'});
  19         }
  20 elsif ($in{'root_def'} == 1) {
  21         $miniserv{'dav_root'} = '*';
  22         }
  23 else {
  24         -d $in{'root'} || &error($text{'dav_eroot'});
  25         $miniserv{'dav_root'} = $in{'root'};
  26         }
  27
  28 if ($in{'users_def'}) {
  29         delete($miniserv{'dav_users'});
  30         }
  31 else {
  32         $in{'users'} =~ /\S/ || &error($text{'dav_eusers'});
  33         $miniserv{'dav_users'} = join(" ", split(/\s+/, $in{'users'}));
  34         }
  35
  36 if (!defined($miniserv{'dav_remoteuser'})) {
  37         $miniserv{'dav_remoteuser'} = 1;
  38         }
  39
  40 # Update config
  41 &lock_file($usermin_miniserv_config);
  42 &put_usermin_miniserv_config(\%miniserv);
  43 &unlock_file($usermin_miniserv_config);
  44 &restart_usermin_miniserv();
  45 &webmin_log("dav");
  46 &redirect("");
  47