скрин:
В файле /etc/exim.pl находится следующий код:
touch /etc/spamdisable
mv /etc/chkserv.d/spamd ~/
service exim restart
service chkservd restart
rm /etc/spamdisable
mv ~/spamd /etc/chkserv.d/
service exim restart
service chkservd restart
#!/usr/bin/perl
print "Converting all domain Default Accounts to :fail: ...";
opendir (DIR, "/etc/valiases/") or die;
while (my $file = readdir (DIR)) {
if ($file =~ /^./) {next}
open (IN,
"/etc/valiases/$file" ) or die;
my @data = ;
close (IN);
open (OUT, ">/etc/valiases/$file") or die;
foreach my $line (@data) {
if ($line =~ /^*:/) {
print OUT "*: :fail:n";
} else {
print OUT $line;
}
}
close (OUT);
}
print "Done!n";