PAL.C.T MINI SHELL
$force_load_features = 1; # so that the latest feature-* files are used
$done_virtual_server_lib_funcs = 0;
do 'virtual-server-lib.pl';
sub module_install
{
&foreign_require("cron", "cron-lib.pl");
local $need_restart;
# If Webmin version has a copy of webmincron.pl that is too old, copy over
# fixed version
if (&get_webmin_version() < 1.615) {
local $src = "$module_root_directory/webmincron-fixed.pl";
local $dst = &module_root_directory("webmincron")."/webmincron.pl";
local @srcst = stat($src);
local @dstst = stat($dst);
if ($srcst[7] != $dstst[7]) {
©_source_dest($src, $dst);
}
}
# Convert all existing cron jobs to WebminCron, except existing backups
foreach my $script (@all_cron_commands) {
if ($script ne $backup_cron_cmd) {
&convert_cron_script($script);
}
}
# Convert all templates to plans, if needed
local @oldplans = &list_plans(1);
if (!@oldplans) {
&convert_plans();
}
# Remember the first version we installed, to avoid showing new features
# from before it
$config{'first_version'} ||= &get_base_module_version();
# Make sure the remote.cgi page is accessible in non-session mode
local %miniserv;
&get_miniserv_config(\%miniserv);
local @sa = split(/\s+/, $miniserv{'sessiononly'});
if (&indexof("/$module_name/remote.cgi", @sa) < 0) {
# Need to add
push(@sa, "/$module_name/remote.cgi");
$miniserv{'sessiononly'} = join(" ", @sa);
&put_miniserv_config(\%miniserv);
}
# Setup the default templates
foreach my $tf (@all_template_files) {
&ensure_template($tf);
}
# Perform a module config check, to ensure that quota and interface settings
# are correct.
&set_all_null_print();
$cerr = &html_tags_to_text(&check_virtual_server_config());
#if ($cerr) {
# print STDERR "Warning: Module Configuration problem detected: $cerr\n";
# }
if ($virtualmin_pro) {
# Convert all existing domains with PHP to use new per-version .inis,
# if they don't exist yet
foreach my $d (&list_domains()) {
next if (!$d->{'web'} || !$d->{'dir'});
local $mode = &get_domain_php_mode($d);
next if ($mode eq "mod_php");
if (!-r "$d->{'home'}/etc/php4/php.ini" &&
!-r "$d->{'home'}/etc/php5/php.ini") {
&save_domain_php_mode($d, $mode);
}
}
}
# Set resellers on sub-servers
if (defined(&sync_parent_resellers)) {
&sync_parent_resellers();
}
# Force update of all Webmin users, to set new ACL options
&modify_all_webmin();
if ($virtualmin_pro) {
&modify_all_resellers();
}
# Setup the licence cron job
&setup_licence_cron();
# Fix up Procmail default delivery
if ($config{'spam'}) {
&setup_default_delivery();
}
# Enable logging in Procmail, if we are using it
if ($config{'spam'}) {
&enable_procmail_logging();
# And setup cron job to periodically process mail logs
# Disabled, as it is generating too much load on big sites
#local $job = &find_module_cron_job($maillog_cron_cmd);
#if (!$job) {
# # Create, and run for the first time
# $job = { 'mins' => int(rand()*60),
# 'hours' => '0',
# 'days' => '*',
# 'months' => '*',
# 'weekdays' => '*',
# 'user' => 'root',
# 'active' => 1,
# 'command' => $maillog_cron_cmd };
# &setup_cron_script($job);
# }
}
# Setup Cron job to periodically re-sync links in domains' spamassassin config
# directories, and to clean up old /tmp/clamav-* files
if ($config{'spam'}) {
&setup_spam_config_job();
}
# Fix up old procmail scripts that don't call the clam wrapper
if ($config{'virus'}) {
©_clam_wrapper();
&fix_clam_wrapper();
}
# Save the current default IP address if we don't currently know it
$config{'old_defip'} ||= &get_default_ip();
$config{'old_defip6'} ||= &get_default_ip6();
# Check if we have enough memory to preload
local $lowmem;
&foreign_require("proc", "proc-lib.pl");
if (defined(&proc::get_memory_info)) {
local ($real) = &proc::get_memory_info();
local $arch = &backquote_command("uname -m 2>/dev/null");
local $megs = $arch =~ /x86_64/ ? 512 : 384;
if ($real*1024 <= $megs*1024*1024) {
# Less that 384 M (or 512 M with 64-bit) .. don't preload
$lowmem = 1;
}
}
if (&running_in_zone() || &running_in_vserver()) {
# Assume that zones and vservers don't have a lot of memory
$lowmem = 1;
}
# Decide whether to preload, and then do it
if ($config{'preload_mode'} eq '') {
$config{'preload_mode'} = !$virtualmin_pro ? 0 :
$lowmem ? 0 : 2;
}
if ($gconfig{'no_virtualmin_preload'}) {
$config{'preload_mode'} = 0;
}
&save_module_config();
&update_miniserv_preloads($config{'preload_mode'});
$need_restart = 1 if ($config{'preload_mode'}); # To apply .pl changes
# Run in package eval mode, to avoid loading the same module twice
local %miniserv;
&get_miniserv_config(\%miniserv);
if ($virtualmin_pro && !$miniserv{'eval_package'}) {
$miniserv{'eval_package'} = 1;
$need_restart = 1;
}
&put_miniserv_config(\%miniserv);
# Restart Webmin if needed
if (&check_pid_file($miniserv{'pidfile'}) && $need_restart) {
&restart_miniserv();
}
# Setup lookup domain daemon
if ($config{'spam'} && !$config{'no_lookup_domain_daemon'}) {
&setup_lookup_domain_daemon();
}
# Add procmail rule to bounce messages if quota is full
if ($config{'spam'}) {
&setup_quota_full_bounce();
}
# Force a restart of Apache, to apply writelogs.pl changes
if ($config{'web'}) {
&require_apache();
&restart_apache();
}
# Make sure autoreply.pl exists
&set_alias_programs();
if ($virtualmin_pro && !$config{'done_fix_autoreplies'}) {
# Create links for existing autoreply aliases
foreach my $d (&list_domains()) {
if ($d->{'mail'}) {
&create_autoreply_alias_links($d);
}
}
$config{'done_fix_autoreplies'} = 1;
&save_module_config();
}
# If installing for the first time, enable backup of all features by default
local @doms = &list_domains();
if (!@doms && !defined($config{'backup_feature_all'})) {
$config{'backup_feature_all'} = 1;
&save_module_config();
}
# Build quick domain-lookup maps
&build_domain_maps();
# If supported by OpenSSH, create a group of users to deny SSH for
if (&foreign_installed("sshd") && !$config{'nodeniedssh'}) {
# Add to SSHd config
&foreign_require("sshd", "sshd-lib.pl");
local $conf = &sshd::get_sshd_config();
local @denyg = &sshd::find_value("DenyGroups", $conf);
local $commas = $sshd::version{'type'} eq 'ssh' &&
$sshd::version{'number'} >= 3.2;
if ($commas) {
@denyg = split(/,/, $denyg[0]);
}
if (&indexof($denied_ssh_group, @denyg) < 0) {
push(@denyg, $denied_ssh_group);
&sshd::save_directive("DenyGroups", $conf,
join($commas ? "," : " ", @denyg));
&flush_file_lines($sshd::config{'sshd_config'});
&sshd::restart_sshd();
}
# Create the actual group, if missing
&require_useradmin();
&obtain_lock_unix();
local @allgroups = &list_all_groups();
local ($group) = grep { $_->{'group'} eq $denied_ssh_group } @allgroups;
if (!$group) {
local (%gtaken, %ggtaken);
&build_group_taken(\%gtaken, \%ggtaken, \@allgroups);
$group = { 'group' => $denied_ssh_group,
'members' => '',
'gid' => &allocate_gid(\%gtaken) };
&foreign_call($usermodule, "set_group_envs", $group,
'CREATE_GROUP');
&foreign_call($usermodule, "making_changes");
&foreign_call($usermodule, "create_group", $group);
&foreign_call($usermodule, "made_changes");
}
&release_lock_unix();
}
&build_denied_ssh_group();
# Create the cron job for sending in script ratings
$job = { 'mins' => int(rand()*60),
'hours' => int(rand()*24),
'days' => '*',
'months' => '*',
'weekdays' => '*',
'user' => 'root',
'active' => 1,
'command' => $ratings_cron_cmd };
&setup_cron_script($job);
&execute_command($ratings_cron_cmd);
# Create the cron job for collecting system info
&setup_collectinfo_job();
# Decide if sub-domains should be allowed, by checking if any exist
if ($config{'allow_subdoms'} eq '') {
local @subdoms = grep { $_->{'subdom'} } &list_domains();
$config{'allow_subdoms'} = @subdoms ? 1 : 0;
&save_module_config();
}
# Create the cron job for killing orphan php*-cgi processes
if ($virtualmin_pro) {
local $job = &find_cron_script($fcgiclear_cron_cmd);
if (!$job) {
# Create, and run for the first time
$job = { 'mins' => '0',
'hours' => '*',
'days' => '*',
'months' => '*',
'weekdays' => '*',
'user' => 'root',
'active' => 1,
'command' => $fcgiclear_cron_cmd };
&setup_cron_script($job);
}
}
# Add ftp user to the groups for all domains that have FTP enabled
foreach my $d (&list_domains()) {
if ($d->{'ftp'}) {
local $ftp_user = &get_proftpd_user($d);
if ($ftp_user) {
&add_user_to_domain_group($d, $ftp_user, undef);
}
}
}
# Mark PHP wrappers as immutable
if (defined(&set_php_wrappers_writable) && &has_command("chattr")) {
foreach my $d (&list_domains()) {
if ($d->{'web'}) {
&set_php_wrappers_writable($d);
}
}
}
# Fix old PHP memory limit default
if ($config{'php_vars'} =~ /^memory_limit=32M/) {
$config{'php_vars'} = "+".$config{'php_vars'};
&save_module_config();
}
# Enable checking for latest scripts
if ($config{'scriptlatest_enabled'} eq '') {
$config{'scriptlatest_enabled'} = 1;
&save_module_config();
&setup_scriptlatest_job(1);
}
# Prevent an un-needed module config check
if (!$cerr) {
$config{'last_check'} = time()+1;
&lock_file($module_config_file);
&save_module_config();
&unlock_file($module_config_file);
&write_file("$module_config_directory/last-config", \%config);
}
# Make all domains' .acl files non-world-readable
foreach my $d (grep { !$_->{'parent'} && $_->{'webmin'} } &list_domains()) {
local @aclfiles = glob("$config_directory/*/$d->{'user'}.acl");
foreach my $f (@aclfiles) {
&set_ownership_permissions(undef, undef, 0600, $f);
}
}
# Make some module config files containing passwords non-world-readable.
# This is to fix an old Webmin bug that could expose passwords in
# /etc/webmin/*/config files
foreach my $m ("mysql", "postgresql", "ldap-client", "ldap-server",
"ldap-useradmin", $module_name) {
local $mdir = "$config_directory/$m";
if (-d $mdir) {
&set_ownership_permissions(undef, undef, 0711,
$mdir, "$mdir/config");
}
}
# Create API helper script /usr/bin/virtualmin
local @plugindirs = map { &module_root_directory($_) } @plugins;
&create_api_helper_command(\@plugindirs);
# If resource limits are supported, make sure the Apache user isn't limited
if (defined(&supports_resource_limits) &&
&supports_resource_limits()) {
&obtain_lock_unix();
&setup_apache_resource_unlimited();
&release_lock_unix();
}
# Create files listing all addresses in domain, for domains with mail
foreach my $d (@doms) {
if ($d->{'mail'} && !$d->{'alias'}) {
&create_everyone_file($d);
}
}
# Update IP list cache
&build_local_ip_list();
# Clear left-side links caches, in case new features are available
&clear_links_cache();
# Re-validate all HTML directories
foreach my $d (@doms) {
if ($d->{'web'} && !$d->{'alias'} && !$d->{'subdom'}) {
&find_html_cgi_dirs($d);
&save_domain($d);
}
}
# Fix up PID file path on Debian
if ($gconfig{'os_type'} eq 'debian-linux' && &foreign_check("bind8")) {
local %bconfig = &foreign_config("bind8");
if ($bconfig{'pid_file'}) {
$bconfig{'pid_file'} =
join(" ", &unique(split(/\s+/, $bconfig{'pid_file'}),
"/var/run/bind/run/named/named.pid"));
&save_module_config(\%bconfig, "bind8");
}
}
# If no domains yet, fix symlink perms in templates
if (!@doms && $config{'allow_symlinks'} ne '1') {
&fix_symlink_templates();
}
# Print warning if PHP or symlink settings have not been checked
local $warn;
if ($config{'allow_symlinks'} eq '') {
local @fixdoms = &fix_symlink_security(undef, 1);
$warn++ if (@fixdoms);
}
if ($config{'allow_modphp'} eq '') {
local @fixdoms = &fix_mod_php_security(undef, 1);
$warn++ if (@fixdoms);
}
if ($warn) {
print STDERR "WARNING: Potential security problems detected. Login to Virtualmin at\n";
print STDERR &get_virtualmin_url()," to fix them.\n";
}
# Fix rate limiting noauth setting
if (!&check_ratelimit() && &is_ratelimit_enabled()) {
my $conf = &get_ratelimit_config();
($noauth) = grep { $_->{'name'} eq 'noauth' } @$conf;
if (!$noauth) {
&save_ratelimit_directive($conf, undef,
{ 'name' => 'noauth',
'values' => [] });
&flush_file_lines(&get_ratelimit_config_file());
}
}
# Cache the DKIM status
if (!&check_dkim()) {
my $dkim = &get_dkim_config();
$config{'dkim_enabled'} = $dkim && $dkim->{'enabled'} ? 1 : 0;
&lock_file($module_config_file);
&save_module_config();
&unlock_file($module_config_file);
}
# If there are no domains yet, enable shared logrotate
if (!@doms && !$config{'logrotate_shared'}) {
$config{'logrotate_shared'} = 'yes';
&lock_file($module_config_file);
&save_module_config();
&unlock_file($module_config_file);
}
# Run any needed actions, like server restarts
&run_post_actions_silently();
# Record the install time for this version
local %itimes;
&read_file($install_times_file, \%itimes);
local $basever = &get_base_module_version();
if (!$itimes{$basever}) {
$itimes{$basever} = time();
&write_file($install_times_file, \%itimes);
}
&webmin_log("postinstall");
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`