Bug#307213: rest of queues

[jidanni]

Oops. This version now gets all queues:

#!/usr/bin/perl
# atq-verbose -- else no way to tell which file is which atq job
# Copyright       : http://www.fsf.org/copyleft/gpl.html
# Author          : Dan Jacobson http://jidanni.org/
# Created On      : Wed Jan 30 02:52:56 2008
# Last Modified On: Fri Mar  7 06:23:15 2008
# Update Count    : 71
#http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=307213
use strict;
use warnings FATAL => 'all';
chdir "/var/spool/cron/atjobs" or die $!;
my ( %date, %file );
for ( glob "*" ) {
    /^.(.....)(........)$/ or die $!;
    $date{$1} = $2;
    $file{$1} = $_;
}
for ( sort { $date{$a} cmp $date{$b} } keys %date ) {
    print $file{$_}, " ", hex $_, " ", scalar localtime( 60 * hex $date{$_} ),
      "\n";
}



-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]