diff options
Diffstat (limited to 'src/os-plugins/plugins/kiosk/OpenSLX')
8 files changed, 395 insertions, 0 deletions
diff --git a/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Base.pm b/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Base.pm new file mode 100644 index 00000000..8f7e506d --- /dev/null +++ b/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Base.pm @@ -0,0 +1,65 @@ +# Copyright (c) 2009 - 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/ +# ----------------------------------------------------------------------------- +# kiosk/OpenSLX/Distro/Base.pm +# - provides base implementation of the Distro API for the kiosk plugin. +# ----------------------------------------------------------------------------- +package kiosk::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 getKgettySetupScript +{ + my $self = shift; + + my $script = unshiftHereDoc(<<" End-of-Here"); + #!/bin/sh + # written by OpenSLX-plugin 'kiosk' + + kgettyCmd=\$1 + sed -i /mnt/etc/inittab \\ + -e "s,^\(1:[^:]*:respawn\):.*tty1,\\1:\$kgettyCmd," + + End-of-Here + + return $script; + +} + + +1; diff --git a/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Debian.pm b/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Debian.pm new file mode 100644 index 00000000..08bb18e7 --- /dev/null +++ b/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Debian.pm @@ -0,0 +1,32 @@ +# Copyright (c) 2009 - 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/ +# ----------------------------------------------------------------------------- +# kiosk/OpenSLX/Distro/Debian.pm +# - provides Debian-specific overrides of the Distro API for the kiosk +# plugin. +# ----------------------------------------------------------------------------- +package kiosk::OpenSLX::Distro::Debian; + +use strict; +use warnings; + +use base qw(kiosk::OpenSLX::Distro::Base); + +use OpenSLX::Basics; +use OpenSLX::Utils; + +################################################################################ +### interface methods +################################################################################ + + + + +1; diff --git a/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Fedora.pm b/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Fedora.pm new file mode 100644 index 00000000..2b9f8ff5 --- /dev/null +++ b/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Fedora.pm @@ -0,0 +1,32 @@ +# Copyright (c) 2009 - 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/ +# ----------------------------------------------------------------------------- +# kiosk/OpenSLX/Distro/Fedora.pm +# - provides Fedora-specific overrides of the Distro API for the kiosk +# plugin. +# ----------------------------------------------------------------------------- +package kiosk::OpenSLX::Distro::Fedora; + +use strict; +use warnings; + +use base qw(kiosk::OpenSLX::Distro::Base); + +use OpenSLX::Basics; +use OpenSLX::Utils; + +################################################################################ +### interface methods +################################################################################ + + + + +1; diff --git a/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Gentoo.pm b/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Gentoo.pm new file mode 100644 index 00000000..c3133f07 --- /dev/null +++ b/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Gentoo.pm @@ -0,0 +1,32 @@ +# Copyright (c) 2009 - 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/ +# ----------------------------------------------------------------------------- +# kiosk/OpenSLX/Distro/Gentoo.pm +# - provides Gentoo-specific overrides of the Distro API for the kiosk +# plugin. +# ----------------------------------------------------------------------------- +package kiosk::OpenSLX::Distro::Gentoo; + +use strict; +use warnings; + +use base qw(kiosk::OpenSLX::Distro::Base); + +use OpenSLX::Basics; +use OpenSLX::Utils; + +################################################################################ +### interface methods +################################################################################ + + + + +1; diff --git a/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Scilin.pm b/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Scilin.pm new file mode 100644 index 00000000..7423a3b8 --- /dev/null +++ b/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Scilin.pm @@ -0,0 +1,32 @@ +# Copyright (c) 2009 - 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/ +# ----------------------------------------------------------------------------- +# kiosk/OpenSLX/Distro/Scilin.pm +# - provides Scilin-specific overrides of the Distro API for the kiosk +# plugin. +# ----------------------------------------------------------------------------- +package kiosk::OpenSLX::Distro::Scilin; + +use strict; +use warnings; + +use base qw(kiosk::OpenSLX::Distro::Base); + +use OpenSLX::Basics; +use OpenSLX::Utils; + +################################################################################ +### interface methods +################################################################################ + + + + +1; diff --git a/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Suse.pm b/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Suse.pm new file mode 100644 index 00000000..587d6db3 --- /dev/null +++ b/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Suse.pm @@ -0,0 +1,32 @@ +# Copyright (c) 2009 - 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/ +# ----------------------------------------------------------------------------- +# kiosk/OpenSLX/Distro/Suse.pm +# - provides Suse-specific overrides of the Distro API for the kiosk +# plugin. +# ----------------------------------------------------------------------------- +package kiosk::OpenSLX::Distro::Suse; + +use strict; +use warnings; + +use base qw(kiosk::OpenSLX::Distro::Base); + +use OpenSLX::Basics; +use OpenSLX::Utils; + +################################################################################ +### interface methods +################################################################################ + + + + +1; diff --git a/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Ubuntu.pm b/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Ubuntu.pm new file mode 100644 index 00000000..b8fcb25b --- /dev/null +++ b/src/os-plugins/plugins/kiosk/OpenSLX/Distro/Ubuntu.pm @@ -0,0 +1,47 @@ +# Copyright (c) 2009 - 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/ +# ----------------------------------------------------------------------------- +# kiosk/OpenSLX/Distro/Ubuntu.pm +# - provides Debian-specific overrides of the Distro API for the kiosk +# plugin. +# ----------------------------------------------------------------------------- +package kiosk::OpenSLX::Distro::Ubuntu; + +use strict; +use warnings; + +use base qw(kiosk::OpenSLX::Distro::Base); + +use OpenSLX::Basics; +use OpenSLX::Utils; + +################################################################################ +### interface methods +################################################################################ + +sub getKgettySetupScript +{ + my $self = shift; + + my $script = unshiftHereDoc(<<" End-of-Here"); + #!/bin/sh + # written by OpenSLX-plugin 'kiosk' + + kgettyCmd=\$1 + sed -i /mnt/etc/event.d/tty1 \\ + -e "s,exec.*,exec \$kgettyCmd," + + End-of-Here + + return $script; + +} + +1; diff --git a/src/os-plugins/plugins/kiosk/OpenSLX/OSPlugin/kiosk.pm b/src/os-plugins/plugins/kiosk/OpenSLX/OSPlugin/kiosk.pm new file mode 100644 index 00000000..bfeeae0a --- /dev/null +++ b/src/os-plugins/plugins/kiosk/OpenSLX/OSPlugin/kiosk.pm @@ -0,0 +1,123 @@ +# Copyright (c) 2009 - 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/ +# ----------------------------------------------------------------------------- +# kiosk.pm +# ----------------------------------------------------------------------------- +package OpenSLX::OSPlugin::kiosk; + +use strict; +use warnings; + +use base qw(OpenSLX::OSPlugin::Base); + +use File::Path; + +use OpenSLX::Basics; +use OpenSLX::Utils; + +################################################################################ +# if you have any questions regarding the concept of OS-plugins and their +# implementation, please drop a mail to: ot@openslx.com, or join the IRC-channel +# '#openslx' (on freenode). +################################################################################ +sub new +{ + my $class = shift; + + my $self = { + name => 'kiosk', + }; + + mkpath("$openslxConfig{'config-path'}/plugins/kiosk/profiles"); + + return bless $self, $class; +} + +sub getInfo +{ + my $self = shift; + + return { + description => unshiftHereDoc(<<' End-of-Here'), + kiosk plugin .. + End-of-Here + precedence => 50, + }; +} + +sub getAttrInfo +{ + my $self = shift; + + return { + # attribute 'active' is mandatory for all plugins + 'kiosk::active' => { + applies_to_systems => 1, + applies_to_clients => 1, + description => unshiftHereDoc(<<' End-of-Here'), + should the 'kiosk'-plugin be executed during boot? + End-of-Here + content_regex => qr{^(0|1)$}, + content_descr => '1 means active - 0 means inactive', + default => '1', + }, + 'kiosk::profile' => { + applies_to_systems => 1, + applies_to_clients => 1, + description => unshiftHereDoc(<<' End-of-Here'), + should the 'kiosk'-plugin setup a specific profile for the + kiosk user? (profile data should be placed in + /etc/opt/openslx/plugins/kiosk/profiles/<profilename>/) + End-of-Here + #content_regex => qr{^(0|1)$}, + content_descr => 'name of profile', + default => 'plain', + }, + }; +} + +sub installationPhase +{ + my $self = shift; + my $info = shift; + + my $pluginRepoPath = $info->{'plugin-repo-path'}; + my $pluginTempPath = $info->{'plugin-temp-path'}; + my $openslxBasePath = $info->{'openslx-base-path'}; + my $openslxConfigPath = $info->{'openslx-config-path'}; + my $attrs = $info->{'plugin-attrs'}; + + my $filesDir = "$openslxBasePath/lib/plugins/kiosk/files"; + + copyFile("$filesDir/kgetty","$pluginRepoPath"); + + system(qq{cp -r $filesDir/profiles/* $openslxConfig{'config-path'}/plugins/kiosk/profiles/}); + + my $scriptpath = "$pluginRepoPath/setup.kgetty"; + my $script = $self->{distro}->getKgettySetupScript(); + + spitFile($scriptpath, $script); + chmod (0744, "$scriptpath"); + + return; +} + +sub removalPhase +{ + my $self = shift; + my $info = shift; + + my $pluginRepoPath = $info->{'plugin-repo-path'}; + my $pluginTempPath = $info->{'plugin-temp-path'}; + + return; +} + +1; |