home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / live / usr / sbin / syslog-facility < prev    next >
Encoding:
Text File  |  1999-01-20  |  3.9 KB  |  141 lines
  1. #! /usr/bin/perl -w
  2.  
  3. # Copyright 1998 Hertzog Raphaδl
  4. # You can use this script under the term of the GPL v2 or later.
  5.  
  6. # This program is free software; you can redistribute it and/or modify
  7. # it under the terms of the GNU General Public License as published by
  8. # the Free Software Foundation; either version 2 of the License, or
  9. # (at your option) any later version.
  10. # 
  11. # This program is distributed in the hope that it will be useful,
  12. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. # GNU General Public License for more details.
  15. # 
  16. # You should have received a copy of the GNU General Public License
  17. # along with this program; if not, write to the Free Software
  18. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA.
  19.  
  20. my $conf_file = '/etc/syslog.conf';
  21.  
  22. ## BUGS :
  23. #  . This script doesn't know about multi-lines configuration (ie with '\')
  24. #  . With a line like that "mail,local0.* /anything" 
  25. #    "syslog-facility remove local0" would remove the entire line
  26. #    => should not be a problem since lines installed by this script
  27. #    cannot use such syntax
  28. ##
  29.  
  30. ## Nothing to modify after this line ##
  31.  
  32. my $command = lc(shift);
  33.  
  34. usage() if ($command !~ /^(?:set|remove)$/); 
  35. usage() if (not scalar(@ARGV));
  36.  
  37. if ($command eq "set")
  38. {
  39.     usage() if (int(scalar(@ARGV) / 2) != scalar(@ARGV) / 2);
  40.     # find a free localx facility
  41.     my $facility = get_first_free_facility();
  42.     # if none stop immediately
  43.     if ($facility eq "none") {
  44.     print "none\n";
  45.     exit 1;
  46.     }
  47.     # ok append the lines asked
  48.     open (CONF, ">>$conf_file") || 
  49.         die "Can't open $conf_file in write mode: $!\n";
  50.     my ($pri,$file,$line);
  51.     while (defined($pri = shift)) {
  52.     $file = shift;
  53.     $line = "";
  54.     foreach (split(/;/,$pri)) {
  55.         $_ =~ s/all/*/g;
  56.         $line .= ";" if ($line);
  57.         $line .= "$facility.$_";
  58.     }
  59.     $line .= "\t\t$file\n";
  60.     print CONF $line;
  61.     }
  62.     close CONF;
  63.     print "$facility\n";
  64.     exit 0;
  65.  
  66. } elsif ($command eq "remove") {
  67.  
  68.     my $facility = lc(shift);
  69.     my ($left,$file,$line);
  70.     open (CONF, $conf_file) || die "Can't open $conf_file: $!\n";
  71.     open (CONFNEW, ">$conf_file.new")  || 
  72.     die "Can't open $conf_file.new in write mode: $!\n";
  73.     while (defined($_=<CONF>)) {
  74.     # Write all "simple" lines like empty lines and comments
  75.     if (/^\s*$/ or /^\s*#/ or /\\$/) {
  76.         print CONFNEW $_;
  77.         next;
  78.     }
  79.     # Otherwise look if the facility to remove appears in the line
  80.     if (/^\s*(\S+)\s+(\S+)\s*/) {
  81.         $left = $1; $file = $2; chomp $file;
  82.         # It doesn't appers => write
  83.         if ($left !~ /$facility/i) {
  84.         print CONFNEW $_;
  85.         next;
  86.         }
  87.         # It appears => write a new line without the localx facility
  88.         $line = "";
  89.         foreach (split(/;/,$left)) {
  90.         if (not /$facility/i) {
  91.             $line .= ";" if ($line);
  92.             $line .= $_;
  93.         }
  94.         }
  95.         next if ($line eq "");
  96.         $line .= "\t\t$file\n";
  97.         print CONFNEW $line;
  98.     }
  99.     }
  100.     close CONFNEW;
  101.     close CONF;
  102.     rename ("$conf_file.new", "$conf_file");
  103. }
  104.  
  105. sub get_first_free_facility {
  106.  
  107.     my @facility = (0) x 8;
  108.     my ($left,$fac);
  109.     open(CONF, $conf_file) || die "Can't open $conf_file: $!\n";
  110.     while(defined($_=<CONF>))
  111.     {
  112.     next if (/^\s*$/);
  113.     next if (/^\s*#/);
  114.         next if (/\\$/);
  115.     next if (not /^\s*(\S+)\s+(\S+)\s*$/);
  116.     $left = $1;
  117.     foreach $fac (split(/;/,$left)) {
  118.         $facility[$1]++ if ($fac =~ /local(\d)/i);
  119.     }
  120.     }
  121.     foreach $fac (0..7)    {
  122.     return "local$fac" if ($facility[$fac] == 0);
  123.     }
  124.     return "none";
  125. }
  126.  
  127. sub usage {
  128.  
  129.     die  "syslog-facility - Copyright (c) 1998 Hertzog Raphaδl\n"
  130.     ."Usage : $0 set <set_of_priority> <logfile> ... \n"
  131.     ."        it returns the 'LOCALx' string you have the right to use.\n"
  132.     ."        $0 remove <facility>\n"
  133.     ."Example: $0 set all /var/log/all\n"
  134.     ."         $0 set all\\;\\!=info /var/log/all-without-info\n"
  135.     ."         $0 set =err /var/log/errors =warning /var/log/warn\n"
  136.     ."         $0 remove LOCAL1\n";   
  137. }
  138.  
  139.  
  140.  
  141.