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 |
|
|
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; |