PAL.C.T MINI SHELL
#!/usr/bin/perl
# Save email notification settings
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './webminlog-lib.pl';
our (%text, %gconfig, %access, %in, $config_file);
&ReadParse();
&error_setup($text{'notify_err'});
$access{'notify'} || &error($text{'notify_ecannot'});
if ($in{'notify'}) {
$in{'email'} =~ /\S/ || &error($text{'notify_eemail'});
$gconfig{'logemail'} = $in{'email'};
}
else {
delete($gconfig{'logemail'});
}
if ($in{'mods_all'}) {
delete($gconfig{'logmodulesemail'});
}
else {
$in{'mods'} || &error($text{'notify_emods'});
$gconfig{'logmodulesemail'} = join(" ", split(/\0/, $in{'mods'}));
}
if ($in{'users_all'}) {
delete($gconfig{'logusersemail'});
}
else {
$in{'users'} || &error($text{'notify_eusers'});
$gconfig{'logusersemail'} = join(" ", split(/\0/, $in{'users'}));
}
$gconfig{'logemailusub'} = $in{'usub'};
$gconfig{'logemailmsub'} = $in{'msub'};
&lock_file($config_file);
&save_module_config(\%gconfig, "");
&unlock_file($config_file);
&webmin_log("notify");
&redirect("");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`