chiark / gitweb /
some fixes; debug for missing
[inn-innduct.git] / contrib / backlogstat.in
1 #!/usr/bin/perl
2 # fixscript will replace this line with require innshellvars.pl
3
4 # backlogstat - display backlog to sites
5 # based on bklog by bill davidsen <davidsen@tmr.com>
6
7 # breaks if backlog-directory in innfeed.conf is not "innfeed"
8 my $dir = "$inn::pathspool/innfeed";
9 my $Revision = '1.8';
10
11 use strict;
12 use warnings;
13
14 use Getopt::Std;
15 use vars qw($opt_H $opt_h $opt_n $opt_t $opt_k $opt_S $opt_d);
16 $| = 1;
17
18 # option processing
19 &getopts('HhntkS:d:') || &Usage;
20 &Usage if $opt_h;
21
22 # open the directory;
23 $dir = $opt_d if $opt_d;
24 print "$opt_d\n";
25 chdir($dir) or die "Can't cd to $dir";
26 opendir(DIR, ".") or die "Can't open dir";
27
28 my %nodes;
29 while (my $name = readdir(DIR)) {
30         # must be a file, correct name, non-zero size
31         my $size;
32         next unless -f $name;
33         next unless ($size = -s $name);
34         next unless $name =~ m/.*\.(in|out)put/;
35         my $io = $1;
36         (my $nodename = $name) =~ s/\..*//;
37
38         # check for only some sites wanted
39         next if ($opt_S && $nodename !~ /^${opt_S}.*/);
40         # here we do the counts if asked
41         if ($opt_n) {
42                 # open the file and count lines
43                 if (open(IN, "<$name")) {
44                         if ($name =~ m/.*\.input/) {
45                                 my $offset = <IN> + 0;
46                                 seek(IN, $offset, 0);
47                         }
48                         $size = 0;
49                         for ($size = 0; <IN> ; ++$size) {};
50                         close IN;
51                 }
52         } else {
53                 # get the offset on .input files
54                 if ($name =~ m/.*\.input/ && open(IN, "<$name")) {
55                         my $offset = <IN> + 0;
56                         $size -= $offset;
57                         close IN;
58                 }
59         }                       
60         $nodes{$nodename} = () unless defined $nodes{$nodename};
61         $nodes{$nodename}->{$io} = ( $opt_k ? $size / 1024 : $size );
62 }
63 closedir DIR;
64
65 # output the data for each node
66 if (my $numnodes = keys %nodes) {
67         if ($opt_H) {
68                 if ($opt_n) {
69                         print "  <---------- posts ----------->\n";
70                 } else {
71                         print "  <---------- bytes ----------->\n";
72                 }
73         }
74         my $ofmt;
75         if ($opt_k) {
76                 print "  input(k)  output(k)   total(k) Feed Name\n" if $opt_H;
77                 $ofmt = ( $opt_n ? "%10.2f" : "%10.1f" );
78         } else {
79                 print "     input     output      total Feed Name\n" if $opt_H;
80                 $ofmt = "%10d";
81         }
82         for my $node (sort keys %nodes) {
83                 my $hash = $nodes{$node};
84                 my $size_in = $hash->{in} || 0;
85                 my $size_out = $hash->{out} || 0;
86                 my $size_tot = $size_in + $size_out;
87                 printf "${ofmt} ${ofmt} ${ofmt} %s\n",
88                         $size_in, $size_out, $size_tot, $node;
89         }
90 } else {
91         print "NO backlog!\n";
92 }
93
94 exit 0;
95
96 sub Usage
97 {
98         print "\n"
99         . "bklog - print innfeed backlog info - v$Revision\n"
100         . "\n"
101         . "Format:\n"
102         . "  bklog [ options ]\n"
103         . "\n"
104         . "Options:\n"
105         . "  -H     output a header at the top of the output\n"
106         . "  -k     scale all numbers in k (1024) units\n"
107         . "  -n     count number of arts, not bytes of backlog filesize\n"
108         . "         Note: this may be SLOW for large files!\n"
109         . "  -Sxx   Display only site names starting with xx\n"
110         . "  -d dir Use \"dir\" instead of \$pathspool/innfeed\n"
111         . "\n"
112         . "  -h     HELP - this is all, you got it!\n"
113         . "\n";
114
115         exit 1;
116 }
117
118