diff options
author | Sebastian Schmelzer | 2010-09-02 17:50:49 +0200 |
---|---|---|
committer | Sebastian Schmelzer | 2010-09-02 17:50:49 +0200 |
commit | 416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5 (patch) | |
tree | 4715f7d742fec50931017f38fe6ff0a89d4ceccc /os-plugins/plugins/sysrqshutdown/OpenSLX/OSPlugin/sysrqshutdown.pm | |
parent | Fix for the problem reported on the list (sed filter forgotten for the (diff) | |
download | core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.tar.gz core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.tar.xz core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.zip |
change dir structure
Diffstat (limited to 'os-plugins/plugins/sysrqshutdown/OpenSLX/OSPlugin/sysrqshutdown.pm')
-rw-r--r-- | os-plugins/plugins/sysrqshutdown/OpenSLX/OSPlugin/sysrqshutdown.pm | 101 |
1 files changed, 0 insertions, 101 deletions
diff --git a/os-plugins/plugins/sysrqshutdown/OpenSLX/OSPlugin/sysrqshutdown.pm b/os-plugins/plugins/sysrqshutdown/OpenSLX/OSPlugin/sysrqshutdown.pm deleted file mode 100644 index 9800c203..00000000 --- a/os-plugins/plugins/sysrqshutdown/OpenSLX/OSPlugin/sysrqshutdown.pm +++ /dev/null @@ -1,101 +0,0 @@ -# Copyright (c) 2007 - 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/ -# ----------------------------------------------------------------------------- -# sysrqshutdown.pm -# - implementation of the 'sysrqshutdow' plugin, which replaces the shutdown -# binary through a SYSRQ shutdown script -# ----------------------------------------------------------------------------- -package OpenSLX::OSPlugin::sysrqshutdown; - -use strict; -use warnings; - -use base qw(OpenSLX::OSPlugin::Base); - -use File::Path; - -use OpenSLX::Basics; -use OpenSLX::Utils; - -sub new -{ - my $class = shift; - - my $self = { - name => 'sysrqshutdown', - }; - - return bless $self, $class; -} - -sub getInfo -{ - my $self = shift; - - return { - description => unshiftHereDoc(<<' End-of-Here'), - Replaces the shutdown binary through a SYSRQ shutdown script - End-of-Here - precedence => 10, - }; -} - -sub getAttrInfo -{ - my $self = shift; - - return { - 'sysrqshutdown::active' => { - applies_to_systems => 1, - applies_to_clients => 1, - description => unshiftHereDoc(<<' End-of-Here'), - should the 'sysrqshutdown'-plugin be activated? - End-of-Here - content_regex => qr{^(0|1)$}, - content_descr => '1 means active - 0 means inactive', - default => '1', - }, - - }; -} - -sub installationPhase -{ - my $self = shift; - my $info = shift; - - if (! -e "/sbin/shutdown.slxorig") { - # copy files - my $openslxBasePath = $info->{'openslx-base-path'}; - my $pluginName = $self->{'name'}; - my $pluginBasePath - = "$openslxBasePath/lib/plugins/$pluginName/files"; - - system("mv /sbin/shutdown /sbin/shutdown.slxorig"); - system("cp -p $pluginBasePath/shutdown /sbin/"); - chmod 0755, "/sbin/shutdown"; - } - - return; -} - -sub removalPhase -{ - my $self = shift; - my $info = shift; - - if (-e "/sbin/shutdown.slxorig") { - system("mv /sbin/shutdown.slxorig /sbin/shutdown"); - } - - return; -} - -1; |