summaryrefslogtreecommitdiffstats
path: root/os-plugins/plugins/syslog/OpenSLX/Distro/Base.pm
diff options
context:
space:
mode:
Diffstat (limited to 'os-plugins/plugins/syslog/OpenSLX/Distro/Base.pm')
-rw-r--r--os-plugins/plugins/syslog/OpenSLX/Distro/Base.pm93
1 files changed, 0 insertions, 93 deletions
diff --git a/os-plugins/plugins/syslog/OpenSLX/Distro/Base.pm b/os-plugins/plugins/syslog/OpenSLX/Distro/Base.pm
deleted file mode 100644
index ed08c5f3..00000000
--- a/os-plugins/plugins/syslog/OpenSLX/Distro/Base.pm
+++ /dev/null
@@ -1,93 +0,0 @@
-# Copyright (c) 2008 - OpenSLX GmbH
-#
-# This program is free software distributed under the GPL version 2.
-# See http://openslx.org/COPYING
-#
-# If you have any feedback please consult http://openslx.org/feedback and
-# send your suggestions, praise, or complaints to feedback@openslx.org
-#
-# General information about OpenSLX can be found at http://openslx.org/
-# -----------------------------------------------------------------------------
-# syslog/OpenSLX/Distro/Base.pm
-# - provides base implementation of the Distro API for the syslog plugin.
-# -----------------------------------------------------------------------------
-package syslog::OpenSLX::Distro::Base;
-
-use strict;
-use warnings;
-
-our $VERSION = 1.01; # API-version . implementation-version
-
-use Scalar::Util qw( weaken );
-
-use OpenSLX::Basics;
-use OpenSLX::Utils;
-
-################################################################################
-### interface methods
-################################################################################
-sub new
-{
- my $class = shift;
- my $self = {};
- return bless $self, $class;
-}
-
-sub initialize
-{
- my $self = shift;
- $self->{engine} = shift;
- weaken($self->{engine});
- # avoid circular reference between plugin and its engine
-
- return 1;
-}
-
-sub runlevelInfo
-{
- my $self = shift;
- my $kind = shift;
-
- # most distros (well: Debian & Ubuntu) use a different initscript depending
- # on which version of syslog is installed ('syslogd', 'syslog-ng' or 'rsyslog')
- my %nameMap = (
- 'syslogd' => 'sysklogd',
- 'syslog-ng' => 'syslog-ng',
- 'rsyslog' => 'rsyslog',
- );
- my $rlInfo = {
- scriptName => $nameMap{$kind},
- startAt => 2,
- stopAt => 15,
- };
-
- return $rlInfo;
-}
-
-sub getPackageName
-{
- my $self = shift;
- my $name = shift;
-
- 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};
-}
-
-1;