Скрипт смены всех ящиков по умолчанию на :fail:

Technorati Теги: default,cpanel,mail

#!/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";