#!/usr/local/perl
eval "exec /afs/net/tools/@sys/perl -S $0 $*"
    if $running_under_some_shell;
			# this emulates #! processing on NIH machines.
			# (remove #! line above if indigestible)

#   This perl script is designed to find lost queue files on a mailhub

	opendir(QUEUEDIR, ".");
	$qffile = 0;
	while ($_ = readdir(QUEUEDIR)) {
		if (/^qf/) {
			$qffile++;
		} else {
			next;
		}
		s/^qf//;
		$file{$_} = 1;
	}
	closedir(QUEUEDIR);

	opendir(QUEUEDIR, ".");
	while ($_ = readdir(QUEUEDIR)) {
		if (! /^[dlntx]f/) {
			next;
		}
		$suffix = $_;
		$suffix =~ s/^.f//;
		if (! $file{$suffix}) {
			printf("%10s", $_);
			if (++$num > 6) {
				print "\n";
				$num = 0;
			}
		}
	}
	closedir(QUEUDIR);		
	print "\n";