switch_skill.cgi

   1 #!/usr/local/bin/perl
   2 # switch_skill.cgi
   3 # Change the skill level of the current user
   4
   5 require './web-lib.pl';
   6 &init_config();
   7 &ReadParse();
   8 $gconfig{'skill_'.$base_remote_user} = $in{'skill'};
   9 &write_file("$config_directory/config", \%gconfig);
  10 &redirect("/?cat=$in{'cat'}");
  11