mrtg/mqueue

   1 #!/usr/local/bin/perl
   2 # simple mqueue done with find2perl
   3
   4 $hostname = "terror.hungry.com";
   5
   6 require "find.pl";
   7 # Traverse desired filesystems
   8 $counter = 0;
   9 &find('/var/spool/mqueue/');
  10 sub wanted {
  11     /^qf.*$/ &&
  12 $counter++;
  13 }
  14 chomp $counter;
  15 print "0\n$counter\n1\n$hostname\n";