sshd/save_sync.cgi

   1 #!/usr/local/bin/perl
   2 # save_sync.cgi
   3 # Save options for the automatic setting up of SSH for new users
   4
   5 require './sshd-lib.pl';
   6 &ReadParse();
   7 &lock_file("$module_config_directory/config");
   8 $config{'sync_create'} = $in{'create'};
   9 $config{'sync_auth'} = $in{'auth'};
  10 $config{'sync_pass'} = $in{'pass'};
  11 $config{'sync_type'} = $in{'type'};
  12 #$config{'sync_gnupg'} = $in{'gnupg'};
  13 &write_file("$module_config_directory/config", \%config);
  14 &unlock_file("$module_config_directory/config");
  15 &redirect("");