apache/save_sync.cgi

   1 #!/usr/local/bin/perl
   2 # save_sync.cgi
   3 # Save user synchronisation options
   4
   5 require './apache-lib.pl';
   6 require './auth-lib.pl';
   7 &ReadParse();
   8 &allowed_auth_file($in{'file'}) || &error(&text('authu_ecannot', $in{'file'}));
   9 $in{'sync'} =~ s/\0/ /g;
  10 if ($in{'sync'}) {
  11         $config{"sync_$in{'file'}"} = $in{'sync'};
  12         }
  13 else {
  14         delete($config{"sync_$in{'file'}"});
  15         }
  16 &write_file("$module_config_directory/config", \%config);
  17 &redirect("list_authusers.cgi?file=$in{'file'}&url=".&urlize($in{'url'}));
  18