PAL.C.T MINI SHELL
#!/usr/bin/perl
# Update the theme overlay
require "virtual-server-theme/virtual-server-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'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`