mqueue
Upload User: shbosideng
Upload Date: 2013-05-04
Package Size: 1555k
Code Size: 0k
Category:

SNMP

Development Platform:

C/C++

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