Quel est l'équivalent postfix de sendmail -bp
?
Réponses
Trop de publicités?
Jörg W Mittag
Points
1677
searchercam2001
Points
1
AlexC
Points
686
Voici ce que j'utilise, tiré de la liste de diffusion de postfix. J'ai enlevé le nom de l'auteur, au cas où il ne le voudrait pas ici (vous pouvez le voir à la source). Il n'affiche que les totaux.
#!/usr/bin/env perl
# postfix queue/s size
# author:
# source: http://tech.groups.yahoo.com/group/postfix-users/message/255133
use strict;
use warnings;
use Symbol;
sub count {
my ($dir) = @_;
my $dh = gensym();
my $c = 0;
opendir($dh, $dir) or die "$0: opendir: $dir: $!\n";
while (my $f = readdir($dh)) {
if ($f =~ m{^[A-F0-9]{5,}$}) {
++$c;
} elsif ($f =~ m{^[A-F0-9]$}) {
$c += count("$dir/$f");
}
}
closedir($dh) or die "closedir: $dir: $!\n";
return $c;
}
my $qdir = `postconf -h queue_directory`;
chomp($qdir);
chdir($qdir) or die "$0: chdir: $qdir: $!\n";
printf "Incoming: %d\n", count("incoming");
printf "Active: %d\n", count("active");
printf "Deferred: %d\n", count("deferred");
printf "Bounced: %d\n", count("bounce");
printf "Hold: %d\n", count("hold");
printf "Corrupt: %d\n", count("corrupt");
EDIT : Correction d'une coquille à la ligne 26.
soupy1976
Points
141
- Réponses précédentes
- Plus de réponses