home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / live / usr / sbin / syslogd-listfiles < prev    next >
Text File  |  1999-01-20  |  3KB  |  102 lines
  1. #! /usr/bin/perl
  2.  
  3. # This program is free software; you can redistribute it and/or modify
  4. # it under the terms of the GNU General Public License as published by
  5. # the Free Software Foundation; either version 2 of the License, or
  6. # (at your option) any later version.
  7. # 
  8. # This program is distributed in the hope that it will be useful,
  9. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. # GNU General Public License for more details.
  12. # 
  13. # You should have received a copy of the GNU General Public License
  14. # along with this program; if not, write to the Free Software
  15. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA.
  16.  
  17. # Tue Jan 13 01:47:57 MET 1998: Martin Schulze <joey@infodrom.north.de>
  18. #    Fixed typo.
  19. #
  20. #    Modified logfile detection routine to take care of double
  21. #    listed logfiles.  It does this by using a hash instead of
  22. #    immediate printout.  Thanks to Roman Hodek <roman@debian.org>
  23. #    for providing an appropriate patch.
  24.  
  25. $conf = "/etc/syslog.conf";
  26. $opt_daily = 1;
  27. $opt_all = 0;
  28. $opt_auth = 0;
  29. $opt_news = 0;
  30.  
  31. sub usage
  32. {
  33.     print STDERR
  34. "
  35. Debian GNU/Linux syslogd-listfiles =VER=.  Copyright (C) 1997
  36. Martin Schulze.  This is free software; see the GNU General Public Licence
  37. version 2 or later for copying conditions.  There is NO warranty.
  38.  
  39. Usage: syslogd-listfiles <options>
  40. Options: -f file    specifies another syslog.conf file
  41.          -a | --all    list all files (including news)
  42.          --auth        list all files containing auth.<some prio>
  43.          --news        include news logfiles, too
  44.          -w | --weekly    use weekly pattern instead of daily
  45. ";
  46. }
  47.  
  48. while (@ARGV) {
  49.     $_=shift(@ARGV);
  50.     if (m/^-f$/) {
  51.     $conf = shift(@ARGV);
  52.     } elsif (m/^--weekly|-w$/) {
  53.     $opt_daily = 0;
  54.     } elsif (m/^(-a|--all)$/) {
  55.     $opt_all = 1;
  56.     } elsif (m/^--auth$/) {
  57.     $opt_auth = 1;
  58.     } elsif (m/^--news$/) {
  59.     $opt_news = 1;
  60.     } else {
  61.     &usage();exit (0);
  62.     }
  63. }
  64.  
  65. open (C, $conf) || die "Can't open $conf, $!";
  66. while (<C>) {
  67.     next if (/^(\#|$)/);
  68.     chop;
  69.  
  70.     s/\s*(\S.*)$/$1/ if ($line);
  71.  
  72.     $line .= $_;
  73.     chop ($line) if (/\\$/);
  74.     if (!/\\$/) {
  75.     $line =~ s/\s+/\t/;
  76.     $line =~ s/\t-/\t/;
  77.     push (@lines, $line) if ($line =~ /\t\/(?!dev\/)/);
  78.     $line = "";
  79.     }
  80. }
  81. close (C);
  82.  
  83. foreach $line (@lines) {
  84.     ($pat,$file) = split (/\t/,$line);
  85.  
  86.     # handled by news.daily from INN
  87.     next if (!$opt_news && ($pat =~ /news\.(crit|err|notice)/));
  88.  
  89.     if ($opt_all) {
  90.     $output{$file} = 1;
  91.     } elsif ($opt_auth) {
  92.     $output{$file} = 1 if ($pat =~ /auth[^\.]*\.(?!none).*/);
  93.     } else {
  94.     $i = ($pat =~ /\*\.\*/);
  95.     $output{$file} = 1 if (($i && $opt_daily) || (!$i && !$opt_daily));
  96.     }
  97. }
  98.  
  99. foreach $file (keys (%output)) {
  100.     print $file . "\n";
  101. }
  102.