Gecko [ biogenelab.eu ]

Name	Size	Permission
a2disconf	13.84 KB	-rwxr-xr-x
a2dismod	13.84 KB	-rwxr-xr-x
a2dissite	13.84 KB	-rwxr-xr-x
a2enconf	13.84 KB	-rwxr-xr-x
a2enmod	13.84 KB	-rwxr-xr-x
a2ensite	13.84 KB	-rwxr-xr-x
a2query	9.66 KB	-rwxr-xr-x
accessdb	10.13 KB	-rwxr-xr-x
accton	10.2 KB	-rwxr-xr-x
acpid	46.8 KB	-rwxr-xr-x
add-shell	695 B	-rwxr-xr-x
addgnupghome	3.05 KB	-rwxr-xr-x
addgroup	33.66 KB	-rwxr-xr-x
adduser	33.66 KB	-rwxr-xr-x
amavis-mc	18.73 KB	-rwxr-xr-x
amavis-services	33.4 KB	-rwxr-xr-x
amavisd-agent	13.11 KB	-rwxr-xr-x
amavisd-nanny	11.72 KB	-rwxr-xr-x
amavisd-new	1.46 MB	-rwxr-xr-x
amavisd-new-cronjob	825 B	-rwxr-xr-x
amavisd-release	12.32 KB	-rwxr-xr-x
amavisd-signer	36.85 KB	-rwxr-xr-x
amavisd-snmp-subagent	52.97 KB	-rwxr-xr-x
amavisd-snmp-subagent-zmq	52.42 KB	-rwxr-xr-x
amavisd-status	14 KB	-rwxr-xr-x
amavisd-submit	9.09 KB	-rwxr-xr-x
apache2	650.93 KB	-rwxr-xr-x
apache2ctl	6.25 KB	-rwxr-xr-x
apachectl	6.25 KB	-rwxr-xr-x
applygnupgdefaults	2.21 KB	-rwxr-xr-x
arp	54.38 KB	-rwxr-xr-x
arpd	39.11 KB	-rwxr-xr-x
arping	30.48 KB	-rwxr-xr-x
aspell-autobuildhash	13.09 KB	-rwxr-xr-x
atd	21.88 KB	-rwxr-xr-x
biosdecode	18.76 KB	-rwxr-xr-x
check_forensic	952 B	-rwxr-xr-x
chgpasswd	57.3 KB	-rwxr-xr-x
chpasswd	49.36 KB	-rwxr-xr-x
chroot	34.6 KB	-rwxr-xr-x
cpgr	51.48 KB	-rwxr-xr-x
cppw	51.48 KB	-rwxr-xr-x
cron	43.36 KB	-rwxr-xr-x
dbconfig-generate-include	11.63 KB	-rwxr-xr-x
dbconfig-load-include	5.57 KB	-rwxr-xr-x
delgroup	15.43 KB	-rwxr-xr-x
deluser	15.43 KB	-rwxr-xr-x
dmidecode	98.43 KB	-rwxr-xr-x
dovecot	82.05 KB	-rwxr-xr-x
dpkg-divert	135.23 KB	-rwxr-xr-x
dpkg-preconfigure	3.52 KB	-rwxr-xr-x
dpkg-reconfigure	4.23 KB	-rwxr-xr-x
dpkg-statoverride	58.84 KB	-rwxr-xr-x
dump-acct	18.46 KB	-rwxr-xr-x
dump-utmp	14.4 KB	-rwxr-xr-x
e2freefrag	10.18 KB	-rwxr-xr-x
e4defrag	26.47 KB	-rwxr-xr-x
fdformat	10.21 KB	-rwxr-xr-x
filefrag	14.25 KB	-rwxr-xr-x
groupadd	57.36 KB	-rwxr-xr-x
groupdel	53.23 KB	-rwxr-xr-x
groupmod	67.73 KB	-rwxr-xr-x
grpck	53.35 KB	-rwxr-xr-x
grpconv	49.23 KB	-rwxr-xr-x
grpunconv	49.23 KB	-rwxr-xr-x
grub-bios-setup	751.6 KB	-rwxr-xr-x
grub-install	943.7 KB	-rwxr-xr-x
grub-macbless	739.26 KB	-rwxr-xr-x
grub-mkconfig	7.78 KB	-rwxr-xr-x
grub-mkdevicemap	188.83 KB	-rwxr-xr-x
grub-probe	749.2 KB	-rwxr-xr-x
grub-reboot	4.01 KB	-rwxr-xr-x
grub-set-default	3.48 KB	-rwxr-xr-x
httxt2dbm	9.96 KB	-rwxr-xr-x
iconvconfig	30.46 KB	-rwxr-xr-x
install-sgmlcatalog	4.44 KB	-rwxr-xr-x
invoke-rc.d	15.01 KB	-rwxr-xr-x
ip6tables-apply	6.85 KB	-rwxr-xr-x
iptables-apply	6.85 KB	-rwxr-xr-x
irqbalance	43.07 KB	-rwxr-xr-x
ispell-autobuildhash	15.25 KB	-rwxr-xr-x
laptop-detect	2.53 KB	-rwxr-xr-x
ldattach	22.35 KB	-rwxr-xr-x
locale-gen	1.5 KB	-rwxr-xr-x
logrotate	62.92 KB	-rwxr-xr-x
logwatch	57.19 KB	-rwxr-xr-x
make-ssl-cert	3.69 KB	-rwxr-xr-x
mkinitramfs	9.15 KB	-rwxr-xr-x
mklost+found	10.2 KB	-rwxr-xr-x
mount.davfs	123.61 KB	-rwsr-xr-x
mysqld	11.32 MB	-rwxr-xr-x
newusers	77.86 KB	-rwxr-xr-x
nfacct	14.2 KB	-rwxr-xr-x
nfnl_osf	14.18 KB	-rwxr-xr-x
nologin	5.87 KB	-rwxr-xr-x
ownership	10.13 KB	-rwxr-xr-x
p0f-analyzer	23.34 KB	-rwxr-xr-x
pam-auth-update	19.02 KB	-rwxr-xr-x
pam_getenv	2.82 KB	-rwxr-xr-x
pam_timestamp_check	10.2 KB	-rwxr-xr-x
paperconfig	4.07 KB	-rwxr-xr-x
php5dismod	6.21 KB	-rwxr-xr-x
php5enmod	6.21 KB	-rwxr-xr-x
php5query	5.05 KB	-rwxr-xr-x
pma-configure	299 B	-rwxr-xr-x
pma-secure	157 B	-rwxr-xr-x
postalias	17.87 KB	-rwxr-xr-x
postcat	17.94 KB	-rwxr-xr-x
postconf	163.38 KB	-rwxr-xr-x
postdrop	13.99 KB	-r-xr-sr-x
postfix	13.95 KB	-rwxr-xr-x
postfix-add-filter	4.88 KB	-rwxr-xr-x
postfix-add-policy	3.81 KB	-rwxr-xr-x
postkick	9.87 KB	-rwxr-xr-x
postlock	9.87 KB	-rwxr-xr-x
postlog	10.05 KB	-rwxr-xr-x
postmap	17.87 KB	-rwxr-xr-x
postmulti	30.26 KB	-rwxr-xr-x
postqueue	13.95 KB	-r-xr-sr-x
postsuper	26.26 KB	-rwxr-xr-x
posttls-finger	33.95 KB	-rwxr-xr-x
pwck	49.3 KB	-rwxr-xr-x
pwconv	45.17 KB	-rwxr-xr-x
pwunconv	36.36 KB	-rwxr-xr-x
qmqp-sink	13.87 KB	-rwxr-xr-x
qmqp-source	17.88 KB	-rwxr-xr-x
qshape	12.55 KB	-rwxr-xr-x
readprofile	14.33 KB	-rwxr-xr-x
remove-default-ispell	2.86 KB	-rwxr-xr-x
remove-default-wordlist	2.86 KB	-rwxr-xr-x
remove-shell	749 B	-rwxr-xr-x
rmail	13.87 KB	-rwxr-xr-x
rmt	54.91 KB	-rwxr-xr-x
rmt-tar	54.91 KB	-rwxr-xr-x
rsyslogd	563.81 KB	-rwxr-xr-x
rtcwake	26.42 KB	-rwxr-xr-x
sa	35.39 KB	-rwxr-xr-x
safe_finger	10.3 KB	-rwxr-xr-x
select-default-ispell	1.83 KB	-rwxr-xr-x
select-default-wordlist	1.82 KB	-rwxr-xr-x
sendmail	26.05 KB	-rwxr-xr-x
service	9.37 KB	-rwxr-xr-x
setvesablank	10.07 KB	-rwxr-xr-x
slapacl	1.21 MB	-rwxr-xr-x
slapadd	1.21 MB	-rwxr-xr-x
slapauth	1.21 MB	-rwxr-xr-x
slapcat	1.21 MB	-rwxr-xr-x
slapd	1.21 MB	-rwxr-xr-x
slapdn	1.21 MB	-rwxr-xr-x
slapindex	1.21 MB	-rwxr-xr-x
slappasswd	1.21 MB	-rwxr-xr-x
slapschema	1.21 MB	-rwxr-xr-x
slaptest	1.21 MB	-rwxr-xr-x
smtp-sink	30.8 KB	-rwxr-xr-x
smtp-source	21.89 KB	-rwxr-xr-x
spamd	127.49 KB	-rwxr-xr-x
split-logfile	2.36 KB	-rwxr-xr-x
sshd	760.63 KB	-rwxr-xr-x
tarcat	936 B	-rwxr-xr-x
tcpd	10.12 KB	-rwxr-xr-x
tcpdchk	22.42 KB	-rwxr-xr-x
tcpdmatch	18.33 KB	-rwxr-xr-x
tcptraceroute	1.45 KB	-rwxr-xr-x
tcptraceroute.db	1.45 KB	-rwxr-xr-x
traceroute	67.37 KB	-rwxr-xr-x
try-from	10.06 KB	-rwxr-xr-x
tunelp	14.22 KB	-rwxr-xr-x
tzconfig	106 B	-rwxr-xr-x
umount.davfs	10.21 KB	-rwxr-xr-x
update-alternatives	46.43 KB	-rwxr-xr-x
update-ca-certificates	4.85 KB	-rwxr-xr-x
update-catalog	9.15 KB	-rwxr-xr-x
update-default-aspell	1 KB	-rwxr-xr-x
update-default-ispell	9.68 KB	-rwxr-xr-x
update-default-wordlist	7.5 KB	-rwxr-xr-x
update-dictcommon-aspell	1 KB	-rwxr-xr-x
update-dictcommon-hunspell	782 B	-rwxr-xr-x
update-grub	64 B	-rwxr-xr-x
update-grub2	64 B	-rwxr-xr-x
update-icon-caches	617 B	-rwxr-xr-x
update-info-dir	1.65 KB	-rwxr-xr-x
update-initramfs	8.76 KB	-rwxr-xr-x
update-locale	2.99 KB	-rwxr-xr-x
update-mime	8.84 KB	-rwxr-xr-x
update-passwd	30.31 KB	-rwxr-xr-x
update-pciids	2.84 KB	-rwxr-xr-x
update-python-modules	19.33 KB	-rwxr-xr-x
update-rc.d	11.72 KB	-rwxr-xr-x
update-xmlcatalog	16.28 KB	-rwxr-xr-x
upgrade-from-grub-legacy	1.49 KB	-rwxr-xr-x
useradd	118.69 KB	-rwxr-xr-x
userdel	81.92 KB	-rwxr-xr-x
usermod	122.5 KB	-rwxr-xr-x
validlocale	1.73 KB	-rwxr-xr-x
vcstime	6.06 KB	-rwxr-xr-x
vigr	59.73 KB	-rwxr-xr-x
vipw	59.73 KB	-rwxr-xr-x
visudo	2.2 MB	-rwxr-xr-x
vpddecode	14.26 KB	-rwxr-xr-x
vsftpd	156.32 KB	-rwxr-xr-x
zabbix_agentd	527.59 KB	-rwxr-xr-x
zic	42.36 KB	-rwxr-xr-x

Code Editor : amavisd-nanny

#!/usr/bin/perl -T

#------------------------------------------------------------------------------
# This is amavisd-nanny, a program to show the status
# and keep an eye on the health of child processes in amavisd-new.
#
# Author: Mark Martinec <Mark.Martinec@ijs.si>
#
# Copyright (c) 2004-2014, Mark Martinec
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright notice,
#    this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright notice,
#    this list of conditions and the following disclaimer in the documentation
#    and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS
# BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#
# The views and conclusions contained in the software and documentation are
# those of the authors and should not be interpreted as representing official
# policies, either expressed or implied, of the Jozef Stefan Institute.

# (the above license is the 2-clause BSD license, also known as
#  a "Simplified BSD License", and pertains to this program only)
#
# Patches and problem reports are welcome.
# The latest version of this program is available at:
#   http://www.ijs.si/software/amavisd/
#------------------------------------------------------------------------------

use strict;
use re 'taint';
use warnings;
no warnings 'uninitialized';

use Errno qw(ESRCH ENOENT);
use POSIX qw(strftime);
use Time::HiRes ();
use BerkeleyDB;

use vars qw($VERSION);  $VERSION = 1.401;

my($idlettl) = 3*60*60; # idle children are sent a SIGTERM
                        #   after this many seconds
my($activettl) = 10*60; # stuck active children are sent a SIGTERM
                        #   after this many seconds

my($dbfile) = 'nanny.db';
my($db_home) =  # DB databases directory
  defined $ENV{'AMAVISD_DB_HOME'} ? $ENV{'AMAVISD_DB_HOME'} : '/var/lib/amavis/db';
my($wakeuptime) = 2;  # -w, sleep time in seconds, may be fractional
my($repeatcount);     # -c, repeat count (when defined)

sub fmt_age($$$) {
  my($t,$state_bar,$idling) = @_;
  $t = int($t);
  my($char) = $idling ? '.' : '=';
  my($bar_l) = $idling ? $t : length($state_bar);
  my($bar) = substr( ($char x 9 . ':') x 3 . $char x 5, 0,$bar_l);
  if (!$idling) {
    $state_bar = substr($state_bar,0,length($bar)-2) . substr($state_bar,-1,1)
                 . '>'  if length($state_bar) > length($bar);
    for my $j (0 .. length($bar)-1) {
      substr($bar,$j,1) = substr($state_bar,$j,1)
        if substr($bar,$j,1) eq '=' && substr($state_bar,$j,1) ne ' ';
    }
  }
  my($s) = $t % 60;  $t = int($t/60);
  my($m) = $t % 60;  $t = int($t/60);
  my($h) = $t % 24;  $t = int($t/24);
  my($d) = $t;
  my($str) = sprintf("%d:%02d:%02d", $h,$m,$s);
  $str = (!$d ? "  " : sprintf("%dd",$d)) . $str;
  $str . ' ' . $bar;
};

# main program starts here
  my($normal_termination) = 0;
  $SIG{INT} = sub { die "\n" };  # do the END code block when interrupted
  while (@ARGV) {
    my($opt) = shift @ARGV;
    my($val) = shift @ARGV;
    if ($opt eq '-w' && $val =~ /^\+?\d+(?:\.\d*)?\z/) { $wakeuptime = $val }
    elsif ($opt eq '-c' && $val =~ /^[+-]?\d+\z/) { $repeatcount = $val }
    else {
      print <<'EOD';
States legend:
  A  accepted a connection
  b  begin with a protocol for accepting a request
  m  'MAIL FROM' smtp command started a new transaction in the same session
  d  transferring data from MTA to amavisd
  =  content checking just started
  G  generating and verifying unique mail_id
  D  decoding of mail parts
  V  virus scanning
  S  spam scanning
  P  pen pals database lookup and updates
  r  preparing results
  Q  quarantining and preparing/sending notifications
  F  forwarding mail to MTA
  .  content checking just finished
  sp space indicates idle (elapsed bar is showing dots)

EOD
      die "Usage: $0 [-c <count>] [-w <wait-interval>]\n";
    }
  }
  print <<'EOD';
process-id task-id     elapsed in    elapsed-bar (dots indicate idle)
           or state   idle or busy
EOD

my(%waittime); # associative array on pid
  my($env,$db,$old_db_inode,@dbstat,$cursor);
  my(%proc_last_timestamp, %proc_state_bars);
  for (;;) {
    last  if defined $repeatcount && $repeatcount <= 0;
    @dbstat = stat("$db_home/$dbfile");
    my($errn) = @dbstat ? 0 : 0+$!;
    $errn==0 || $errn==ENOENT  or die "stat $db_home/$dbfile: $!";
    if (defined $db && $old_db_inode != $dbstat[1]) {
      $db->db_close==0 or die "BDB db_close error: $BerkeleyDB::Error $!";
      undef $db;
      printf STDERR ("Reopening nanny database %s/%s\n", $db_home,$dbfile);
    }
    if (!defined $db && $errn==0) {
      $old_db_inode = $dbstat[1];
      $env = BerkeleyDB::Env->new(
        -Home => $db_home, -Flags => DB_INIT_CDB | DB_INIT_MPOOL,
        -ErrFile => \*STDOUT, -Verbose => 1);
      defined $env or die "BDB no env: $BerkeleyDB::Error $!";
      $db = BerkeleyDB::Hash->new(-Filename => $dbfile, -Env => $env);
      defined $db or die "BDB no dbN 1: $BerkeleyDB::Error $!";
    }
    $| = 0;
    my(%proc_timestamp, %proc_state, %proc_task_id);
    my($stat,$key,$val); my($now);
    my($eval_stat,$interrupt); $interrupt = '';
    if (!defined $db) {
      printf STDERR ("No nanny database %s/%s; waiting...\n",
                     $db_home,$dbfile);
    } else {
      $repeatcount--  if defined $repeatcount && $repeatcount > 0;
      print "\n";
      my($h1) = sub { $interrupt = $_[0] };
      local(@SIG{qw(INT HUP TERM TSTP QUIT ALRM USR1 USR2)}) = ($h1) x 8;
      eval {
        $cursor = $db->db_cursor;  # obtain read lock
        defined $cursor or die "db_cursor error: $BerkeleyDB::Error";
        $now = Time::HiRes::time; local($1,$2);
        my($now_utc_iso8601) = strftime("%Y%m%dT%H%M%S",gmtime(int($now)));
        while ( ($stat=$cursor->c_get($key,$val,DB_NEXT)) == 0 ) {
          if ($val !~ /^(\d+(?:\.\d*)?) (.*?) *\z/s) {
            print STDERR "Bad db entry: $key, $val\n";
          } else {
            $proc_timestamp{$key} = $1; my($task_id) = $2;
            $proc_state{$key} = $1  if $task_id =~ s/^([^0-9])//;
            $proc_task_id{$key} = $task_id;
            if (!exists $proc_state_bars{$key}) {  # new process appeared
              $proc_last_timestamp{$key} = $proc_timestamp{$key};
              $proc_state_bars{$key} = '';
            }
          }
        }
        $stat==DB_NOTFOUND  or die "c_get: $BerkeleyDB::Error $!";
        $cursor->c_close==0 or die "c_close error: $BerkeleyDB::Error";
        $cursor = undef;
      };
      my($eval_stat) = $@;
      if (defined $db) {
        $cursor->c_close  if defined $cursor;  # unlock, ignoring status
        $cursor = undef;
      }
    }
    if ($interrupt ne '') { kill($interrupt,$$) }  # resignal, ignoring status
    elsif ($eval_stat ne '') { chomp($eval_stat); die "BDB $eval_stat\n" }
    for my $key (keys(%proc_state_bars)) {  # remove old entries
      if (!exists($proc_timestamp{$key})) {
        delete $proc_timestamp{$key};
        delete $proc_task_id{$key};
        delete $proc_state_bars{$key};
      }
    }
    my(@to_be_removed,@killed);
    for my $pid (sort {$a<=>$b} keys %proc_timestamp) {
      $proc_state{$pid} = ' '  if $proc_state{$pid} eq '';
      my($idling) = $proc_task_id{$pid} eq '' &&
                    $proc_state{$pid} =~ /^[. ]?\z/s;
      my($age) = $now - $proc_timestamp{$pid};
      if ($idling) { $proc_state_bars{$pid} = '' }
      else {
        $proc_state_bars{$pid} = ''
          if $proc_timestamp{$pid} ne $proc_last_timestamp{$pid};
        my($len) = int($age+0.5);
        $len = 1  if $len < 1;
        my($str) = $proc_state_bars{$pid};
        if ($len > length($str)) {  # replicate last character to desired size
          my($ch) = $str eq '' ? '=' : substr($str,-1,1);
          $str .= $ch x ($len - length($str));
        }
        substr($str,$len-1,1) = $proc_state{$pid};
        $proc_state_bars{$pid} = $str;
      }
      $proc_last_timestamp{$pid} = $proc_timestamp{$pid};
      my($ttl) = $idling ? $idlettl : $activettl;
      my($n) = kill(0,$pid);  # test if the process is still there
      if ($n == 0 && $! != ESRCH) {
        die "Can't check the process $pid: $!";
      } elsif ($n == 0) {  # ESRCH means there is no such process
        printf STDERR ("PID %s: %-11s went away %s\n",
                       $pid, $proc_task_id{$pid} || $proc_state{$pid},
                       fmt_age($age, $proc_state_bars{$pid}, $idling) );
        push(@to_be_removed, $pid);
      } elsif ($age <= $ttl) {     # all ok
        printf STDERR ("PID %s: %-11s %s\n",
                       $pid, $proc_task_id{$pid} || $proc_state{$pid},
                       fmt_age($age, $proc_state_bars{$pid}, $idling) );
      } else {                                            # send a SIGTERM
        printf STDERR ("PID %s: %-11s terminated %s\n",
                       $pid, $proc_task_id{$pid} || $proc_state{$pid},
                       fmt_age($age, $proc_state_bars{$pid}, $idling) );
        if (kill('TERM',$pid) || $! == ESRCH) { push(@killed,$pid) }
        else { warn "Can't SIGTERM $pid: $!" }
      }
    }
    if (@to_be_removed) {
      local($SIG{'INT'}) = 'IGNORE';
      $cursor = $db->db_cursor(DB_WRITECURSOR);  # obtain a write lock
      defined $cursor or die "BDB db_cursor error: $BerkeleyDB::Error";
      for my $key (@to_be_removed) {
        my($val); my($stat) = $cursor->c_get($key,$val,DB_SET);
        $stat==0 || $stat==DB_NOTFOUND
          or die "BDB c_get: $BerkeleyDB::Error, $!.";
        if ($stat==0) {  # remove existing entry
          $cursor->c_del==0 or die "BDB c_del: $BerkeleyDB::Error, $!.";
        }
      }
      $cursor->c_close==0 or die "BDB c_close error: $BerkeleyDB::Error";
      $cursor = undef;
    }
    my($delay) = 1;  # seconds
    while (@killed) {
      Time::HiRes::sleep($delay); $delay = 2;
      for my $pid (@killed) {
        $waittime{$pid}++;
        printf STDERR ("PID %s: sending SIGKILL in %d s\n",
                       $pid, 30-$waittime{$pid});
        if ($waittime{$pid} > 30) {  # send a SIGKILL
          kill('KILL',$pid) or $! == ESRCH or warn "Can't SIGKILL $pid: $!";
          $waittime{$pid} = 0;
        } elsif (kill(0,$pid)) {  # process is still there
        } elsif ($! != ESRCH) {   # problem?
          warn "Can't check process $pid: $!";
        } else {                  # no longer around
          printf STDERR ("PID %s: %-11s successfully killed\n", $pid);
          delete($waittime{$pid});
          $pid = undef;
        }
      }
      @killed = grep {defined} @killed;
      printf STDERR ("Waiting for the process to terminate: %s\n",
                     join(', ',@killed))  if @killed;
    }
    $| = 1;
    last  if defined $repeatcount && $repeatcount <= 0;
    Time::HiRes::sleep($wakeuptime)  if $wakeuptime > 0;
  } # forever
  $normal_termination = 1;

END {
  if (defined $db) {
    $cursor->c_close  if defined $cursor;  # ignoring status
    $db->db_close==0 or die "BDB db_close error: $BerkeleyDB::Error $!";
  }
  print STDERR "exited\n"  if !$normal_termination;
}

${this.title}

Code Editor : amavisd-nanny