switch_skill.cgi

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