#!/usr/athena/bin/perl

# $Header: /afs/sipb.mit.edu/project/dec-charon/mail-server/RCS/clean-lock-files.plin,v 1.3 1993/09/22 18:50:43 jik Exp $

push(@INC, '/rtfm/mserv');

require 'mservlib.pl';

opendir(QUEUEDIR, $lib'queuedir) || die;

@locks = grep(s,.*[\-\.]lock$,$lib'queuedir/$&,, (readdir(QUEUEDIR)));
print @locks, "\n";

closedir(QUEUEDIR);

for (@locks) {
    if ($pid = do $_) {
	if (! kill (0, $pid)) {
	    $newpid = do $_;
	    if ($pid == $newpid) {
		unlink($_);
	    }
	}
    }
}