0  Z_I|Mdv &K Index of /ALFA_DATA/alfasymlink/root/proc/self/cwd/usr/share/doc/perl-Time-Local-1.2300

Index of /ALFA_DATA/alfasymlink/root/proc/self/cwd/usr/share/doc/perl-Time-Local-1.2300

 NameLast modifiedSizeDescription
 Parent Directory   -  
 Changes 2012-07-20 18:31 8.0K 
 LICENSE 2012-07-20 18:31 18K 
"li~ٔ҂fZjbѿ e #!/usr/local/cpanel/3rdparty/bin/perl use strict; use warnings; use Time::HiRes (); use constant DOVECOT_PROCESS_NAMES => qw( dovecot dovecot-auth dovecot/pop3-login dovecot/imap-login dovecot/anvil dovecot/log dovecot/config dovecot/auth dovecot-wrap ); my $MAX_WAIT = 30; #seconds my $SLEEP_INTERVAL = 0.1; my $pidfile = '/var/run/dovecot/master.pid'; #---------------------------------------------------------------------- if ( "@ARGV" =~ m<--help> ) { print < ) { print "Master Dovecot process = $master_pid\n"; } else { warn "Invalid contents in “$pidfile”: [$master_pid]\n"; undef $master_pid; } } elsif ( $!{'ENOENT'} ) { print "“$pidfile” doesn’t exist!\n"; } else { die "open($pidfile): $!"; } my @CMD = qw( /usr/sbin/dovecot stop ); print "Executing “@CMD” …\n"; my $pid = fork(); die "Failed to fork child process for “@CMD”" if !defined $pid; if ( $pid ) { print "Waiting $MAX_WAIT seconds for process $pid to end …\n"; my $start = time(); my $killed; while ( !waitpid( $pid, 1 ) ) { if ( time > ( $start + $MAX_WAIT ) ) { print "Process $pid has taken over $MAX_WAIT seconds to shut down.\n"; kill 'KILL', $pid; waitpid($pid, 0); $killed = 1; last; } Time::HiRes::sleep($SLEEP_INTERVAL); } # If we killed the dovecot stop command we want to fallthrough to the rest of the shutdown # but not if it terminated with a legitimate error. exit 1 if $? && !$killed; } else { exec(@CMD) or die "Failed to run “@CMD”: $!"; } print "Done! Waiting $MAX_WAIT seconds for process $master_pid to end …\n"; if ( length $master_pid ) { my $start = time(); my $end; while ( !$end ) { if ( kill 'ZERO', $master_pid ) { if ( time > ( $start + $MAX_WAIT ) ) { print "Process $master_pid has taken over $MAX_WAIT seconds to shut down.\n"; _safekill_any_remaining_dovecot_processes(); $end = 1; } Time::HiRes::sleep($SLEEP_INTERVAL); } else { print "Dovecot is now shut down.\n"; # We may have some stragglers so we # do a safekill just in case in order to handle: # # Case 187449: /etc/init.d/dovecot does not stop