diff options
author | Sebastian | 2010-04-09 11:29:49 +0200 |
---|---|---|
committer | Sebastian | 2010-04-09 11:29:49 +0200 |
commit | 064469b5a21c617010554d3df5f27f924169f4b5 (patch) | |
tree | 0bec0d96d8ccffd8c66c02c8a33310aa1eee4e73 /os-plugins | |
parent | h2ph was executed on every loadperlheader call making demuxer really slow.. (diff) | |
download | core-064469b5a21c617010554d3df5f27f924169f4b5.tar.gz core-064469b5a21c617010554d3df5f27f924169f4b5.tar.xz core-064469b5a21c617010554d3df5f27f924169f4b5.zip |
added rsyslog (setup of configuration still missing)
Diffstat (limited to 'os-plugins')
-rw-r--r-- | os-plugins/plugins/syslog/OpenSLX/Distro/Base.pm | 15 | ||||
-rw-r--r-- | os-plugins/plugins/syslog/OpenSLX/OSPlugin/syslog.pm | 37 |
2 files changed, 43 insertions, 9 deletions
diff --git a/os-plugins/plugins/syslog/OpenSLX/Distro/Base.pm b/os-plugins/plugins/syslog/OpenSLX/Distro/Base.pm index 25be964c..654d755e 100644 --- a/os-plugins/plugins/syslog/OpenSLX/Distro/Base.pm +++ b/os-plugins/plugins/syslog/OpenSLX/Distro/Base.pm @@ -53,6 +53,7 @@ sub runlevelInfo my %nameMap = ( 'syslogd' => 'sysklogd', 'syslog-ng' => 'syslog-ng', + 'rsyslog' => 'rsyslog', ); my $rlInfo = { scriptName => $nameMap{$kind}, @@ -71,6 +72,20 @@ sub getPackageName my %nameMap = ( 'syslogd' => 'sysklogd', 'syslog-ng' => 'syslog-ng', + 'rsyslog' => 'rsyslog', + ); + return $nameMap{$name}; +} + +sub getBinaryName +{ + my $self = shift; + my $name = shift; + + my %nameMap = ( + 'syslogd' => 'sysklogd', + 'syslog-ng' => 'syslog-ng', + 'rsyslog' => 'rsyslogd', ); return $nameMap{$name}; } diff --git a/os-plugins/plugins/syslog/OpenSLX/OSPlugin/syslog.pm b/os-plugins/plugins/syslog/OpenSLX/OSPlugin/syslog.pm index e3935fc7..2952f2e7 100644 --- a/os-plugins/plugins/syslog/OpenSLX/OSPlugin/syslog.pm +++ b/os-plugins/plugins/syslog/OpenSLX/OSPlugin/syslog.pm @@ -68,9 +68,9 @@ sub getAttrInfo description => unshiftHereDoc(<<' End-of-Here'), kind of syslog to use \(syslogd-ng or old-style syslog\) End-of-Here - content_regex => qr{^(syslog-ng|syslog)$}, - content_descr => 'allowed: syslogd-ng, syslog', - default => 'syslog-ng', + content_regex => qr{^(syslog-ng|syslogd|rsyslog)$}, + content_descr => 'allowed: syslog-ng, syslogd, rsyslog', + default => 'rsyslog', }, 'syslog::host' => { applies_to_systems => 1, @@ -126,19 +126,27 @@ sub installationPhase my $engine = $self->{'os-plugin-engine'}; - if ($self->{kind} eq 'syslog-ng' && !isInPath('syslog-ng')) { + if ($self->{kind} eq 'rsyslog' && !isInPath($self->{distro}->getBinaryName('rsyslog'))) { $engine->installPackages($self->{distro}->getPackageName('syslog-ng')); } + + if ($self->{kind} eq 'syslog-ng' && !isInPath('syslog-ng')) { + $engine->installPackages($self->{distro}->getPackageName($self->{distro}->getBinaryName('syslog-ng'))); + } + # not sure if we ever should setup this service - if ($self->{kind} eq 'syslogd' && !isInPath('syslog')) { + if ($self->{kind} eq 'syslogd' && !isInPath($self->{distro}->getBinaryName('syslogd'))) { $engine->installPackages($self->{distro}->getPackageName('syslogd')); } if (!$self->{kind}) { - if (qx{which syslog-ng}) { + if (qx{which $self->{distro}->getBinaryName('rsyslog')}) { + $self->{kind} = 'rsyslog'; + } + elsif (qx{which $self->{distro}->getBinaryName('syslog-ng')}) { $self->{kind} = 'syslog-ng'; } - elsif (qx{which syslogd}) { + elsif (qx{which $self->{distro}->getBinaryName('syslogd')}) { $self->{kind} = 'syslogd'; } else { @@ -150,7 +158,10 @@ sub installationPhase } # start to actually do something - according to current stage1 attributes - if ($self->{kind} eq 'syslog-ng') { + if ($self->{kind} eq 'rsyslog') { + $self->_setupRsyslog($self->{attrs}); + } + elsif ($self->{kind} eq 'syslog-ng') { $self->_setupSyslogNG($self->{attrs}); } elsif ($self->{kind} eq 'syslogd') { @@ -158,7 +169,7 @@ sub installationPhase } else { die _tr( - 'unknown kind "%s" given, only "syslog-ng" and "syslogd" are supported!', + 'unknown kind "%s" given, only "rsyslog", "syslog-ng" and "syslogd" are supported!', $self->{kind} ); } @@ -174,6 +185,14 @@ sub removalPhase return; } +sub _setupRsyslog +{ + my $self = shift; + my $attrs = shift; + + return; +} + sub _setupSyslogNG { my $self = shift; |