PAL.C.T MINI SHELL
#!/usr/bin/perl
#
# Authentic Theme (https://github.com/authentic-theme/authentic-theme)
# Copyright Ilia Rostovtsev <ilia@virtualmin.com>
# Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE)
#
use strict;
our (%in, $current_theme, $config_directory, $get_user_level, %theme_text, $has_usermin, $has_usermin_conf_dir);
do("$ENV{'THEME_ROOT'}/authentic-lib.pl");
&webmin_user_is_admin() ||
&error($theme_text{'theme_error_access_not_root_user'});
theme_make_config_dir();
my $ls = "logo.png";
my $lr = "/$current_theme/$ls";
my $lsw = "logo_welcome.png";
my $lw = "/$current_theme/$lsw";
if ($in{'authenticated_logo'} eq "1" &&
length $in{'authenticated_logo_file'})
{
unlink_file($config_directory . $lr);
write_file_contents($config_directory . $lr, $in{'authenticated_logo_file'});
if ($has_usermin) {
unlink_file($has_usermin_conf_dir . $lr);
write_file_contents($has_usermin_conf_dir . $lr, $in{'authenticated_logo_file'});
}
} elsif ($in{'authenticated_logo'} ne "1") {
unlink_file($config_directory . $lr);
if ($has_usermin) {
unlink_file($has_usermin_conf_dir . $lr);
}
}
if ($in{'unauthenticated_logo'} eq "1" &&
length $in{'unauthenticated_logo_file'})
{
unlink_file($config_directory . $lw);
write_file_contents($config_directory . $lw, $in{'unauthenticated_logo_file'});
if ($has_usermin) {
unlink_file($has_usermin_conf_dir . $lw);
write_file_contents($has_usermin_conf_dir . $lw, $in{'unauthenticated_logo_file'});
}
} elsif ($in{'unauthenticated_logo'} ne "1") {
unlink_file($config_directory . $lw);
if ($has_usermin) {
unlink_file($has_usermin_conf_dir . $lw);
}
}
redirect("settings-logos.cgi?saved=1");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`