/[scripts]/trunk/atq.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /trunk/atq.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 125 - (hide annotations)
Tue Dec 29 13:03:45 2009 UTC (13 years, 1 month ago) by dpavlin
File MIME type: text/plain
File size: 394 byte(s)
dump atq output *together* with commands which will be executed

1 dpavlin 125 #!/usr/bin/perl
2    
3     use warnings;
4     use strict;
5    
6     use File::Slurp;
7    
8     # from at.c "%c%5lx%8lx"
9    
10     foreach my $file ( glob '/var/spool/cron/atjobs/*' ) {
11    
12     my $cmd = read_file $file;
13    
14     $file =~ s{^.+/([^/]+)$}{$1} || die "can't strip path";
15    
16     my $queue = substr $file, 0, 1;
17     my $jobno = hex substr $file, 1, 5;
18     my $timer = hex substr $file, 6;
19    
20     print "## $file -> $queue $jobno $timer\n$cmd\n";
21    
22     }

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26