/[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 275 by dpavlin, Thu Aug 20 17:35:44 2009 UTC revision 482 by dpavlin, Sat Jan 23 18:31:14 2010 UTC
# Line 5  use strict; Line 5  use strict;
5    
6  use IO::Socket;  use IO::Socket;
7  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
8  use CouchDB;  use store;
9    use File::Slurp;
10    
11  use server;  use server;
12    
# Line 66  sub message { Line 67  sub message {
67          }          }
68    
69          warn "log ",dump( $log );          warn "log ",dump( $log );
70          CouchDB::audit( $log->{tag}, $log );          store::audit( $log->{tag}, $log );
71  }  }
72    
73  sub start {  sub start {
# Line 77  sub start { Line 78  sub start {
78                  ReuseAddr => 1,                  ReuseAddr => 1,
79          ) || die "can't listen to $port: $!";          ) || die "can't listen to $port: $!";
80    
81          CouchDB::audit('start', { port => $port });          store::audit('start', { port => $port });
82    
83          while(1) {          while(1) {
84                  message($sock);                  message($sock);
# Line 85  sub start { Line 86  sub start {
86          }          }
87  }  }
88    
89    sub install_local {
90            my $rsyslog = '/etc/rsyslog.d';
91            return unless -d $rsyslog;
92            $rsyslog .= '/pxelator.conf';
93            warn "# redirect local syslog to pxelator using $rsyslog";
94            write_file $rsyslog, "*.*\t\@$server::ip\n";
95            system "( /etc/init.d/rsyslog stop ; sleep 2 ; /etc/init.d/rsyslog start ; rm $rsyslog ) &";
96    }
97    
98  1;  1;
Legend:
Removed from v.275  
changed lines
  Added in v.482
  ViewVC Help
Powered by ViewVC 1.1.26