PAL.C.T MINI SHELL
#!/usr/bin/perl
# Attempt to install email ratelimiting package
require './virtual-server-lib.pl';
&can_edit_templates() || &error($text{'ratelimit_ecannot'});
&ui_print_header(undef, $text{'ratelimit_title4'}, "");
$cfile = &get_ratelimit_config_file();
$before = -e $cfile;
print &text('ratelimit_installing'),"<br>\n";
&$indent_print();
$ok = &install_ratelimit_package();
&$outdent_print();
print $ok ? $text{'ratelimit_installed'}
: $text{'ratelimit_installfailed'},"<p>\n";
# If config didn't exist before, remove any list and racl lines
# to disable default greylisting
if (!$before && $ok) {
print &text('ratelimit_clearing'),"<br>\n";
&lock_file(&get_ratelimit_config_file());
$conf = &get_ratelimit_config();
@copy = @$conf; # Make a copy because deleting changes $conf
foreach my $c (@copy) {
if ($c->{'name'} eq 'list' ||
$c->{'name'} eq 'racl' && $c->{'values'}->[1] ne 'default'||
$c->{'name'} eq 'acl' && $c->{'values'}->[1] ne 'default') {
&save_ratelimit_directive($conf, $c, undef);
}
}
($nospf) = grep { $_->{'name'} eq 'nospf' } @$conf;
if (!$nospf) {
&save_ratelimit_directive($conf, undef,
{ 'name' => 'nospf',
'values' => [] });
}
($noauth) = grep { $_->{'name'} eq 'noauth' } @$conf;
if (!$noauth) {
&save_ratelimit_directive($conf, undef,
{ 'name' => 'noauth',
'values' => [] });
}
&flush_file_lines();
&unlock_file(&get_ratelimit_config_file());
print $text{'setup_done'},"<p>\n";
}
&webmin_log("install", "ratelimit");
&ui_print_footer("ratelimit.cgi", $text{'ratelimit_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`