mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
34 lines
908 B
Perl
Executable File
34 lines
908 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Update the theme overlay
|
|
|
|
require "gray-theme/gray-theme-lib.pl";
|
|
&ReadParse();
|
|
($gtheme) = split(/\s+/, $gconfig{'theme'});
|
|
|
|
# Get and modify the user
|
|
&foreign_require("acl", "acl-lib.pl");
|
|
($user) = grep { $_->{'name'} eq $base_remote_user } &acl::list_users();
|
|
$user || &error($text{'overlay_euser'});
|
|
if ($in{'overlay'}) {
|
|
$user->{'theme'} = $current_theme;
|
|
}
|
|
elsif ($gtheme eq $current_theme) {
|
|
# No need for user-specific theme
|
|
delete($user->{'theme'});
|
|
}
|
|
$user->{'overlay'} = $in{'overlay'};
|
|
&acl::modify_user($user->{'name'}, $user);
|
|
|
|
# Refresh the page
|
|
&ui_print_header(undef, $text{'overlay_title'}, "");
|
|
|
|
print $text{'overlay_webmin'},"<br>\n";
|
|
&reload_miniserv();
|
|
print $text{'overlay_done'},"<p>\n";
|
|
|
|
print $text{'overlay_refresh'},"<br>\n";
|
|
print &js_redirect("/", "top");
|
|
print $text{'overlay_done'},"<p>\n";
|
|
|
|
&ui_print_footer("right.cgi", $text{'right_return'});
|