home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / sources / wanted / 3759 < prev    next >
Encoding:
Text File  |  1992-07-27  |  3.9 KB  |  123 lines
  1. Xref: sparky comp.sources.wanted:3759 news.software.readers:1560 comp.lang.perl:4979 alt.sources:1770
  2. Path: sparky!uunet!dtix!darwin.sura.net!convex!convex!tchrist
  3. From: tchrist@convex.COM (Tom Christiansen)
  4. Newsgroups: comp.sources.wanted,news.software.readers,comp.lang.perl,alt.sources
  5. Subject: Re: Wanted: /bin/sh script for mantaining KILL files.
  6. Message-ID: <1992Jul27.154340.8482@news.eng.convex.com>
  7. Date: 27 Jul 92 15:43:40 GMT
  8. References: <1992Jul26.085354.2710@wybbs.mi.org>
  9. Sender: usenet@news.eng.convex.com (news access account)
  10. Reply-To: tchrist@convex.COM (Tom Christiansen)
  11. Followup-To: comp.sources.wanted,news.software.readers,comp.lang.perl,alt.sources.d
  12. Organization: CONVEX Realtime Development, Colorado Springs, CO
  13. Lines: 103
  14. Originator: tchrist@pixel.convex.com
  15. Nntp-Posting-Host: pixel.convex.com
  16. X-Disclaimer: This message was written by a user at CONVEX Computer
  17.               Corp. The opinions expressed are those of the user and
  18.               not necessarily those of CONVEX.
  19.  
  20. Archive-name: killkill
  21. Submitter: Tom Christiansen <tchrist@convex.com>
  22.  
  23. From the keyboard of an unknown person @wybbs.mi.org:
  24. :I would like to get my hands on a script to do
  25. :some or all of the following.
  26. : 
  27. :1> Look for all kill files over X-bytes in length
  28. :1a> trim the file down until it's under X-bytes, by removing
  29. :    the first line(s) of kill commands (leaving the
  30. :    THRU line intact.
  31. :2> Remove KILL files that are older than X-days since 
  32. :    last access.
  33. :3> Mail a report to the user on which files were cleaned
  34. :    up, and what was taken out, or which files were
  35. :    deleted.
  36. :4> Can be used either system-wide using cron, or
  37. :    on an individual basis, like in .profile
  38. : 
  39. :Ok, folks... that's what I would like. I would do
  40. :it myself, but I'm still not fluent in /bin/sh scripts
  41. :to get it to work. (Plus, looking at the script or
  42. :source if U care to make it compilable would be very
  43. :useful to show me how to incorporate routines into
  44. :other code as well.)
  45. : 
  46. :I am using SCO-Xenix SysV-386.
  47.  
  48. Here's a Perl solution.  I'll leave the running from cron
  49. or sending mail as an exercise for the reader.
  50.  
  51. --tom
  52.  
  53. #!/usr/bin/perl
  54. #
  55. # killkill -- maintain killfiles by size and age
  56. # tchrist@convex.com    Mon Jul 27 10:35:44 CDT 1992
  57. #
  58. # arguments are considered user names, defaulting
  59. # to the current user if not given.
  60. #
  61. # for all killfiles in a user's newsdirectory that are older than
  62. # $MAXDAYS, unlink them, or if bigger than $MAXSIZE, save the THRU line
  63. # and discard lines (oldest first) until size is under $MAXSIZE.  
  64. #
  65. # a killfile is defined by the pattern $KILLPAT; a newsdir is a
  66. # directory residing in ~$user/$NEWSDIR.
  67. #
  68. # print out each killfile found, and what if anything is done to it.
  69. # if $DEBUG is true, don't really touch any files.
  70.  
  71. require 'find.pl';
  72.  
  73. $MAXSIZE = 250;
  74. $MAXDAYS = 30;
  75. $KILLPAT = '^KILL$';
  76. $NEWSDIR = 'News';
  77. $DEBUG = 0;
  78.  
  79. if (@ARGV == 0) { # no args means default to current user
  80.     @ARGV = (       $ENV{USER}
  81.          || $ENV{LOGNAME}
  82.          || (getpwuid($>))[0]
  83.          || die "Cannot determine user for id $>"
  84.         );
  85. } 
  86.  
  87. print "$0: maxsize is $MAXSIZE, maxdays is $MAXDAYS, debug is $DEBUG\n";
  88.  
  89. while ($user = shift) {
  90.     $home = (getpwnam($user))[7];
  91.     $newsdir = "$home/$NEWSDIR";
  92.     next unless -d $newsdir;
  93.     &find($newsdir);
  94. } 
  95.  
  96. sub wanted {
  97.     /$KILLPAT/o || return;
  98.     $size = -s $_;
  99.     $age  = -M _;  
  100.     printf "%-50s  age = %5.1f   size = %d\n", $name, $age, $size;
  101.     if ($age > $MAXDAYS) {
  102.     print "\tunlinking $name\n";
  103.     unlink unless $DEBUG;
  104.     } elsif ($size > $MAXSIZE) {
  105.     print "\ttrimming $name\n";
  106.     unless ($DEBUG) {
  107.         ($thru, @lines) = `cat $name`;
  108.         shift @lines until length("$thru @lines") < $MAXSIZE;
  109.         open (KF, ">$name") || die "can't write $name: $!";
  110.         print KF $thru, @lines;
  111.         close KF || die "can't close $name: $!"
  112.     }
  113.     } 
  114. } 
  115. __END__
  116.  
  117.  
  118. -- 
  119.     Tom Christiansen      tchrist@convex.com      convex!tchrist
  120.  
  121.  
  122.     /earth is 98% full ... please delete anyone you can.
  123.