Lines Matching refs:queues
3 # Move old mail messages between queues by calling re-mqueue.pl.
50 use vars qw(@queues $subqbase @ages $remqueue $lockfile);
53 if ($#queues < 1) {
54 print "$progname: there must be at least two queues\n";
58 if ($#ages != ($#queues - 1)) {
59 print "$progname: wrong number of ages (should be one less than number of queues)\n";
78 for (my $n = $#queues - 1; $n >= 0; $n--) {
90 opendir(DIR, $queues[$n])
91 or die "Can't open $queues[$n]: $!";
93 &$remsub("$queues[$n]/$subdir", "$queues[$n+1]/$subdir",
99 &$remsub($queues[$n], $queues[$n+1], $ages[$n]);