mirror of
https://github.com/webmin/webmin.git
synced 2025-08-17 19:06:28 +00:00
12 lines
278 B
Perl
Executable File
12 lines
278 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# switch_skill.cgi
|
|
# Change the skill level of the current user
|
|
|
|
require './web-lib.pl';
|
|
&init_config();
|
|
&ReadParse();
|
|
$gconfig{'skill_'.$base_remote_user} = $in{'skill'};
|
|
&write_file("$config_directory/config", \%gconfig);
|
|
&redirect("/?cat=$in{'cat'}");
|
|
|