/[pxelator]/lib/PXElator/syslogd.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/syslogd.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 241 by dpavlin, Mon Aug 17 00:55:13 2009 UTC revision 363 by dpavlin, Sun Aug 30 11:20:18 2009 UTC
# Line 6  use strict; Line 6  use strict;
6  use IO::Socket;  use IO::Socket;
7  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
8  use CouchDB;  use CouchDB;
9    use File::Slurp;
10    
11  use server;  use server;
12    
# Line 48  sub message { Line 49  sub message {
49                          }                          }
50                  }                  }
51    
52                    $log->{tag} =~ s{^/.+/([^/]+)$}{$1};
53    
54                  if ( $log->{tag} =~ m{CRON}i && $buf =~ m{^\((\w+)\) (.+) \((.+)\)$} ) {                  if ( $log->{tag} =~ m{CRON}i && $buf =~ m{^\((\w+)\) (.+) \((.+)\)$} ) {
55                          $log->{cron} = {                          $log->{cron} = {
56                                  user => $1,                                  user => $1,
# Line 56  sub message { Line 59  sub message {
59                          };                          };
60                  }                  }
61    
62                    if ( $buf =~ m{(init|error|mount|smart|usb|fs)}i ) {
63                            $log->{category} = $1;
64                    }
65    
66                  $log->{message} = $buf;                  $log->{message} = $buf;
67          }          }
68    
69          warn "log ",dump( $log );          warn "log ",dump( $log );
70          CouchDB::audit( 'syslog', $log );          CouchDB::audit( $log->{tag}, $log );
71  }  }
72    
73  sub start {  sub start {
# Line 79  sub start { Line 86  sub start {
86          }          }
87  }  }
88    
89    sub install_local {
90            warn "# redirect local syslog to pxelator";
91            my $rsyslog = '/etc/rsyslog.d/pxelator.conf';
92            write_file $rsyslog, "*.*\t\@$server::ip\n";
93            system "( /etc/init.d/rsyslog stop ; sleep 2 ; /etc/init.d/rsyslog start ; rm $rsyslog ) &";
94    }
95    
96  1;  1;
Legend:
Removed from v.241  
changed lines
  Added in v.363
  ViewVC Help
Powered by ViewVC 1.1.26