Viewing file:  save_overlay.cgi (902 B) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/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'});
|