pserver/save_sync.cgi

   1 #!/usr/local/bin/perl
   2 # save_sync.cgi
   3 # Save unix-CVS synchronization options
   4
   5 require './pserver-lib.pl';
   6 $access{'passwd'} || &error($text{'passwd_ecannot'});
   7 &ReadParse();
   8
   9 if ($in{'sync_mode'} == 0) {
  10         delete($config{'sync_user'});
  11         }
  12 else {
  13         defined(getpwnam($in{'sync_user'})) || &error($text{'save_eunix'});
  14         $config{'sync_user'} = $in{'sync_user'};
  15         }
  16 $config{'sync_create'} = $in{'sync_create'};
  17 $config{'sync_modify'} = $in{'sync_modify'};
  18 $config{'sync_delete'} = $in{'sync_delete'};
  19 &write_file("$module_config_directory/config", \%config);
  20 &redirect("");
  21