home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / tutorial / eg / dfbitch < prev    next >
Encoding:
Text File  |  1990-11-16  |  2.7 KB  |  110 lines
  1. #!/usr/bin/perl 
  2. #
  3. # diskfull - check for "full" disks, mailing top users about the problem
  4. # tom christiansen, 9-sep-90
  5. #
  6. # "full" is defined as having more than $MIN_FREE percent usesd,
  7. # unless the file system is mentioned in the $EXCEPT file, which
  8. # should consist of ordered pairs of filesystems and minfree values.
  9.  
  10. $MIN_FREE  = 97;    # unless in EXCEPT file, want this much free
  11. $MIN_WHINE = 5;     # don't whine at someone with less than this %
  12.  
  13. $EXCEPT    = '/usr/adm/etc/capacities';
  14.  
  15. chop($hostname = `hostname`);
  16.  
  17. &read_exceptions;
  18.  
  19. open(DF, "df -t 4.2|");
  20. $_ = <DF>;         # skip header
  21. while ( <DF> ) {
  22.     chop;
  23.     ($disk, $kbytes, $used, $avail, $capacity, $mpnt) = split;
  24.     $capacity =~ s/%//;
  25.     if ( $capacity > (defined($Max{$mpnt}) ? $Max{$mpnt} : $MIN_FREE)) {
  26.     &too_full($mpnt, $used, $capacity);
  27.     } 
  28. } 
  29. close DF;
  30. exit;
  31.  
  32. # ---------------------------------------------------------------------------
  33.  
  34. sub read_exceptions {
  35.     local($fs, $min_free);
  36.     # global $EXCEPT %Max
  37.  
  38.     if (-e $EXCEPT) {
  39.     open EXCEPT || die "can't open $EXCEPT: $!";
  40.     while ( <EXCEPT> ) {
  41.         next if /^\s*#/ || /^\s*$/;
  42.         chop;
  43.         ($fs, $min_free) = split(' ');
  44.         if ($fs =~ /^min_?free/i) {
  45.         $MIN_FREE = $min_free;
  46.         } else {
  47.         $Max{$fs} = $min_free;
  48.         } 
  49.     } 
  50.     close EXCEPT;
  51.     } 
  52. }
  53.  
  54. # ---------------------------------------------------------------------------
  55.  
  56. sub too_full {
  57.     local($fs, $kused, $percen) = @_;
  58.     local($_, $used, $user, $anon, @anon, @lines, @allusers, @abusers);
  59.  
  60.     open (QUOT, "/usr/etc/quot $fs|");
  61.     $_ = <QUOT>;  # skip header
  62.  
  63.     while ( <QUOT> ) {
  64.     push(@lines, $_);
  65.     chop;
  66.     ($used, $user) = split(' ');
  67.     if ($user =~ /^#/) {
  68.         push(@anon, $user);
  69.         $anon =+ $used;
  70.         next;
  71.     } 
  72.     push(@allusers, $user);
  73.     push(@abusers, $user)     unless $used/$kused < ($MIN_WHINE/100);
  74.     } 
  75.     close QUOT;
  76.     die "couldn't run quot on $fs" if $? || $#allusers < 0;
  77.  
  78.     $rcpts = join(", ", ($#abusers < 0) ? @allusers : @abusers);
  79.  
  80.     if (0 && $anon) { # maybe someday
  81.     print "Should remind root that $anon kbytes on $fs are used by ";
  82.     print "defunct users ", join(', ', @anon), "\n";
  83.     } 
  84.  
  85.     open (MAIL, "| /usr/lib/sendmail -oi -t");
  86.     select(MAIL);
  87.  
  88.     print <<EOM;
  89. From: the Disk Monitor Daemon ($0) <daemon>
  90. To: $rcpts
  91. Cc: root
  92. Subject: $fs on $hostname is $percen% full
  93.  
  94. Each of you is taking up at least $MIN_WHINE% of the space on $hostname:$fs.
  95. Please do what you can to reduce this.  You might consider simply removing
  96. extraneous files, moving some files to other filesystems, compressing them, 
  97. or backing them up on tape and then deleting them.
  98.  
  99. your friend, the daemon
  100.  
  101. PS: here are the exact totals in kilobytes for top users:
  102.  
  103. EOM
  104.  
  105.     print @lines[0..$#abusers];
  106.     print "\n";
  107.     close MAIL;
  108.     select(STDOUT);
  109. } 
  110.