mirror of
https://github.com/webmin/webmin.git
synced 2025-07-21 23:40:34 +00:00
14 lines
299 B
Perl
Executable File
14 lines
299 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# switch_skill.cgi
|
|
# Change the skill level of the current user
|
|
|
|
BEGIN { push(@INC, "."); };
|
|
use WebminCore;
|
|
|
|
&init_config();
|
|
&ReadParse();
|
|
$gconfig{'skill_'.$base_remote_user} = $in{'skill'};
|
|
&write_file("$config_directory/config", \%gconfig);
|
|
&redirect("/?cat=$in{'cat'}");
|
|
|