man/save_check.cgi

   1 #!/usr/local/bin/perl
   2 # save_check.cgi
   3 # Save the list of search types that are allowed for searches made
   4 # from help_search_link()
   5
   6 require './man-lib.pl';
   7 &ReadParse();
   8 &lock_file("$module_config_directory/config");
   9 @check = split(/\0/, $in{'check'});
  10 if (!@check) {
  11         $config{'check'} = 'NONE';
  12         }
  13 elsif (@check == $in{'count'}) {
  14         $config{'check'} = '';
  15         }
  16 else {
  17         $config{'check'} = join(" ", @check);
  18         }
  19 &write_file("$module_config_directory/config", \%config);
  20 &unlock_file("$module_config_directory/config");
  21 &redirect("");
  22