change dir structure

1 files changed, 0 insertions, 712 deletions

diff --git a/os-plugins/plugins/desktop/OpenSLX/OSPlugin/desktop.pm b/os-plugins/plugins/desktop/OpenSLX/OSPlugin/desktop.pm
deleted file mode 100644
index 7d496483..00000000
--- a/os-plugins/plugins/desktop/OpenSLX/OSPlugin/desktop.pm
+++ /dev/null
@@ -1,712 +0,0 @@
-# Copyright (c) 2008..2010 - 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/
-# -----------------------------------------------------------------------------
-# desktop.pm
-#    - implementation of the 'desktop' plugin, which installs  
-#     all needed information for a displaymanager and for the desktop. 
-# -----------------------------------------------------------------------------
-package OpenSLX::OSPlugin::desktop;
-
-use strict;
-use warnings;
-
-use base qw(OpenSLX::OSPlugin::Base);
-
-use File::Basename;
-use File::Path;
-
-use OpenSLX::Basics;
-use OpenSLX::Utils;
-
-sub new
-{
-    my $class = shift;
-
-    my $self = {
-        name => 'desktop',
-    };
-
-    my $localGDMThemesDir 
-        = "$openslxConfig{'config-path'}/plugins/desktop/themes/gdm";
-    mkpath($localGDMThemesDir) unless -e $localGDMThemesDir;
-    my $localKDMThemesDir 
-        = "$openslxConfig{'config-path'}/plugins/desktop/themes/kdm";
-    mkpath($localKDMThemesDir) unless -e $localKDMThemesDir;
-
-    return bless $self, $class;
-}
-
-sub getInfo
-{
-    my $self = shift;
-
-    return {
-        description => unshiftHereDoc(<<'        End-of-Here'),
-            Sets a desktop and creates needed configs, theme can be set as well.
-        End-of-Here
-        precedence => 40,
-        # not really required e.g. for modern autoconfiguring systems like Ubuntu
-        # 10.04
-        # required => [ qw( xserver ) ],
-    };
-}
-
-sub getAttrInfo
-{
-    my $self = shift;
-
-    return {
-        # stage3
-        'desktop::active' => {
-            applies_to_systems => 1,
-            applies_to_clients => 1,
-            description => unshiftHereDoc(<<'            End-of-Here'),
-                should the 'desktop'-plugin be executed during boot?
-            End-of-Here
-            content_regex => qr{^(0|1)$},
-            content_descr => '1 means active - 0 means inactive',
-            default => '1',
-        },
-        'desktop::kind' => {
-            applies_to_systems => 1,
-            applies_to_clients => 1,
-            description => unshiftHereDoc(<<'            End-of-Here'),
-                which desktop environment shall be used: gnome, kde, or xfce?
-            End-of-Here
-            content_regex => qr{^(gnome|kde|xfce)$},
-            content_descr => '"gnome", "kde" or "xfce"',
-            default => undef,
-        },
-        'desktop::manager' => {
-            applies_to_systems => 1,
-            applies_to_clients => 1,
-            description => unshiftHereDoc(<<'            End-of-Here'),
-                which display manager to start: gdm, kdm or xdm?
-            End-of-Here
-            content_regex => qr{^(gdm|kdm|xdm)$},
-            content_descr => '"gdm", "kdm" or "xdm"',
-            default => undef,
-        },
-        'desktop::mode' => {
-            applies_to_systems => 1,
-            applies_to_clients => 1,
-            description => unshiftHereDoc(<<'            End-of-Here'),
-                which type of operation mode shall be activated:
-                    workstattion, kiosk or chooser?
-            End-of-Here
-            content_regex => qr{^(workstation|kiosk|chooser)$},
-            content_descr => '"workstation", "kiosk" or "chooser"',
-            default => 'workstation',
-        },
-        'desktop::theme' => {
-            applies_to_systems => 1,
-            applies_to_clients => 1,
-            description => unshiftHereDoc(<<'            End-of-Here'),
-                name of the theme to apply to the desktop (unset for no theme)
-            End-of-Here
-            content_descr => 'one of the entries in "supported_themes"',
-            default => 'openslx',
-        },
-        'desktop::allowshutdown' => {
-            applies_to_systems => 1,
-            applies_to_clients => 1,
-            description => unshiftHereDoc(<<'            End-of-Here'),
-                allow shutdown of the SLX client via gdm/kdm. "none" disables
-                this functionality, "root" allows only the sysadmin and
-                "users" means free4all.
-            End-of-Here
-            content_regex => qr{^(none|root|users)$},
-            content_descr => 'possible entries "none", "root" or "users"',
-            default => 'users',
-        },
-        'desktop::rootlogin' => {
-            applies_to_systems => 1,
-            applies_to_clients => 1,
-            description => unshiftHereDoc(<<'            End-of-Here'),
-                allow the system administrator to logon to the graphical
-                user interface (1 allow, 0 disallow).
-            End-of-Here
-            content_descr => '1 means allowed - 0 means forbidden',
-            content_regex => qr{^(0|1)$},
-            default => '1',
-        },
-        # kiosk mode just has the option to logon user nobody
-        #'desktop::auto-login' => {
-        #    applies_to_systems => 1,
-        #    applies_to_clients => 1,
-        #    description => unshiftHereDoc(<<'            End-of-Here'),
-        #        set an arbitrary user which is logged in automatically into
-        #        the graphical user interface (none disables, default).
-        #    End-of-Here
-        #    content_descr => 'none disables - <user> logins in that userid',
-        #    default => 'none',
-        #},
-
-        # stage1
-        'desktop::gdm' => {
-            applies_to_vendor_os => 1,
-            description => unshiftHereDoc(<<'            End-of-Here'),
-                should gdm be available (installed in vendor-OS)?
-            End-of-Here
-            content_regex => qr{^0|1$},
-            content_descr => '"0", "1" or "-" (for unset)',
-            default => undef,
-        },
-        'desktop::gnome' => {
-            applies_to_vendor_os => 1,
-            description => unshiftHereDoc(<<'            End-of-Here'),
-                should gnome be available (installed in vendor-OS)?
-            End-of-Here
-            content_regex => qr{^0|1$},
-            content_descr => '"0", "1" or "-" (for unset)',
-            default => undef,
-        },
-        'desktop::kde' => {
-            applies_to_vendor_os => 1,
-            description => unshiftHereDoc(<<'            End-of-Here'),
-                should kde be available (installed in vendor-OS)?
-            End-of-Here
-            content_regex => qr{^0|1$},
-            content_descr => '"0", "1" or "-" (for unset)',
-            default => undef,
-        },
-        'desktop::kdm' => {
-            applies_to_vendor_os => 1,
-            description => unshiftHereDoc(<<'            End-of-Here'),
-                should kdm be available (installed in vendor-OS)?
-            End-of-Here
-            content_regex => qr{^0|1$},
-            content_descr => '"0", "1" or "-" (for unset)',
-            default => undef,
-        },
-        'desktop::supported_themes' => {
-            applies_to_vendor_os => 1,
-            description => unshiftHereDoc(<<'            End-of-Here'),
-                name of all themes that shall be installed in vendor-OS (such
-                that they can be selected via 'desktop::theme' in stage 3).
-            End-of-Here
-            content_descr => 'a comma-separated list of theme names',
-            default => undef,
-        },
-        'desktop::xdm' => {
-            applies_to_vendor_os => 1,
-            description => unshiftHereDoc(<<'            End-of-Here'),
-                should xdm be available (installed in vendor-OS)?
-            End-of-Here
-            content_regex => qr{^0|1$},
-            content_descr => '"0", "1" or "-" (for unset)',
-            default => undef,
-        },
-        'desktop::xfce' => {
-            applies_to_vendor_os => 1,
-            description => unshiftHereDoc(<<'            End-of-Here'),
-                should xfce be available (installed in vendor-OS)?
-            End-of-Here
-            content_regex => qr{^0|1$},
-            content_descr => '"0", "1" or "-" (for unset)',
-            default => undef,
-        },
-    };
-}
-
-sub getDefaultAttrsForVendorOS
-{
-    my $self         = shift;
-    my $vendorOSName = shift;
-
-    my $attrs = $self->getAttrInfo();
-    
-    if ($vendorOSName =~ m{kde}) {
-        $attrs->{'desktop::manager'}->{default} = 'kdm';
-        $attrs->{'desktop::kind'}->{default} = 'kde';
-    }
-    elsif ($vendorOSName =~ m{gnome}) {
-        $attrs->{'desktop::manager'}->{default} = 'gdm';
-        $attrs->{'desktop::kind'}->{default} = 'gnome';
-    }
-    elsif ($vendorOSName =~ m{xfce}) {
-        $attrs->{'desktop::manager'}->{default} = 'xdm';
-        $attrs->{'desktop::kind'}->{default} = 'xcfe';
-    }
-    else {
-        $attrs->{'desktop::manager'}->{default}
-            = $self->{distro}->getDefaultDesktopManager();
-        $attrs->{'desktop::kind'}->{default}
-            = $self->{distro}->getDefaultDesktopKind();
-    }
-    return $attrs;
-}
-
-sub checkStage3AttrValues
-{
-    my $self          = shift;
-    my $stage3Attrs   = shift;
-    my $vendorOSAttrs = shift;
-    
-    my @problems;
-
-    my $manager = $stage3Attrs->{'desktop::manager'} || '';
-    if ($manager eq 'kdm') {
-        if (!defined $vendorOSAttrs->{'desktop::kdm'} 
-        || $vendorOSAttrs->{'desktop::kdm'} == 1) {
-            if (!$self->{distro}->isKDMInstalled()) {
-                push @problems, _tr(
-                    "KDM is not installed in vendor-OS, so using it as desktop manager wouldn't work!"
-                );
-            }
-        }
-        elsif ($vendorOSAttrs->{'desktop::kdm'} == 0) {
-            push @problems, _tr(
-                "desktop::kdm is 0, so using KDM as desktop manager is not allowed for this vendor-OS!"
-            );
-        }
-    }
-    elsif ($manager eq 'gdm') {
-        if (!defined $vendorOSAttrs->{'desktop::gdm'}
-        || $vendorOSAttrs->{'desktop::gdm'} == 1) {
-            if (!$self->{distro}->isGDMInstalled()) {
-                push @problems, _tr(
-                    "GDM is not installed in vendor-OS, so using it as desktop manager wouldn't work!"
-                );
-            }
-        }
-        elsif ($vendorOSAttrs->{'desktop::gdm'} == 0) {
-            push @problems, _tr(
-                "desktop::gdm is 0, so using GDM as desktop manager is not allowed for this vendor-OS!"
-            );
-        }
-    }
-    elsif ($manager eq 'xdm') {
-        if (!defined $vendorOSAttrs->{'desktop::xdm'}
-        || $vendorOSAttrs->{'desktop::xdm'} == 1) {
-            if (!$self->{distro}->isXDMInstalled()) {
-                push @problems, _tr(
-                    "XDM is not installed in vendor-OS, so using it as desktop manager wouldn't work!"
-                );
-            }
-        }
-        elsif ($vendorOSAttrs->{'desktop::xdm'} == 0) {
-            push @problems, _tr(
-                "desktop::xdm is 0, so using XDM as desktop manager is not allowed for this vendor-OS!"
-            );
-        }
-    }
-
-    my $kind = $stage3Attrs->{'desktop::kind'} || '';
-    if ($kind eq 'kde') {
-        if (!defined $vendorOSAttrs->{'desktop::kde'}
-        || $vendorOSAttrs->{'desktop::kde'} == 1) {
-            if (!$self->{distro}->isKDEInstalled()) {
-                push @problems, _tr(
-                    "KDE is not installed in vendor-OS, so using it as desktop kind wouldn't work!"
-                );
-            }
-        }
-        elsif ($vendorOSAttrs->{'desktop::kde'} == 0) {
-            push @problems, _tr(
-                "desktop::kde is 0, so using KDE as desktop kind is not allowed for this vendor-OS!"
-            );
-        }
-    }
-    elsif ($kind eq 'gnome') {
-        if (!defined $vendorOSAttrs->{'desktop::gnome'}
-        || $vendorOSAttrs->{'desktop::gnome'} == 1) {
-            if (!$self->{distro}->isGNOMEInstalled()) {
-                push @problems, _tr(
-                    "GNOME is not installed in vendor-OS, so using it as desktop kind wouldn't work!"
-                );
-            }
-        }
-        elsif ($vendorOSAttrs->{'desktop::gnome'} == 0) {
-            push @problems, _tr(
-                "desktop::gnome is 0, so using GNOME as desktop kind is not allowed for this vendor-OS!"
-            );
-        }
-    }
-    elsif ($kind eq 'xfce') {
-        if (!defined $vendorOSAttrs->{'desktop::xfce'}
-        || $vendorOSAttrs->{'desktop::xfce'} == 1) {
-            if (!$self->{distro}->isXFCEInstalled()) {
-                push @problems, _tr(
-                    "XFCE is not installed in vendor-OS, so using it as desktop kind wouldn't work!"
-                );
-            }
-        }
-        elsif ($vendorOSAttrs->{'desktop::xfce'} == 0) {
-            push @problems, _tr(
-                "desktop::xfce is 0, so using XFCE as desktop kind is not allowed for this vendor-OS!"
-            );
-        }
-    }
-
-    my @supportedThemes 
-        = split ',', $vendorOSAttrs->{'desktop::supported_themes'} || '';
-    my $theme = $stage3Attrs->{'desktop::theme'};
-    if (defined $theme && !grep { $_ eq $theme } @supportedThemes) {
-        push @problems, _tr(
-            "desktop::theme '%s' does not refer to a supported theme!\nSupported themes are: %s",
-            $theme, $vendorOSAttrs->{'desktop::supported_themes'} || ''
-        );
-    }
-
-    return if !@problems;
-
-    return \@problems;
-}
-
-sub installationPhase
-{
-    my $self = shift;
-    my $info = shift;
-    
-    $self->{pluginRepositoryPath} = $info->{'plugin-repo-path'};
-    $self->{pluginTempPath}       = $info->{'plugin-temp-path'};
-    $self->{openslxBasePath}      = $info->{'openslx-base-path'};
-    $self->{openslxConfigPath}    = $info->{'openslx-config-path'};
-    $self->{attrs}                = $info->{'plugin-attrs'};
-    
-    # We are going to change some of the stage1 attributes during installation
-    # (basically we are filling the ones that are not defined). Since the result
-    # of these changes might change between invocations, we do not want to store
-    # the resulting values, but we want to store the original (undef).
-    # In order to do so, we copy all stage1 attributes directly into the
-    # object hash and change them there.
-    $self->{gdm}   = $self->{attrs}->{'desktop::gdm'};
-    $self->{kdm}   = $self->{attrs}->{'desktop::kdm'};
-    $self->{xdm}   = $self->{attrs}->{'desktop::xdm'};
-    $self->{gnome} = $self->{attrs}->{'desktop::gnome'};
-    $self->{kde}   = $self->{attrs}->{'desktop::kde'};
-    $self->{xcfe}  = $self->{attrs}->{'desktop::xfce'};
-    $self->{supported_themes}  = $self->{attrs}->{'desktop::supported_themes'};
-    
-    $self->_installRequiredPackages();
-    $self->_fillUnsetStage1Attrs();
-    $self->_ensureSensibleStage3Attrs();
-
-    # start to actually do something - according to current stage1 attributes
-    if ($self->{gdm}) {
-        $self->_setupGDM();
-    }
-    if ($self->{kdm}) {
-        $self->_setupKDM();
-    }
-    if ($self->{xdm}) {
-        $self->_setupXDM();
-    }
-    $self->_setupSupportedThemes();
-
-    return;
-}
-
-sub removalPhase
-{
-    my $self = shift;
-    my $info = shift;
-    
-    return;
-}
-
-sub copyRequiredFilesIntoInitramfs
-{
-    my $self                = shift;
-    my $targetPath          = shift;
-    my $attrs               = shift;
-    my $makeInitRamFSEngine = shift;
-    
-    my $desktopTheme = $attrs->{'desktop::theme'} || '<none>';
-
-    vlog(1, _tr("desktop-plugin: desktop=%s", $desktopTheme));
-
-    return;
-}
-
-sub _installRequiredPackages
-{
-    my $self  = shift;
-
-    my $engine = $self->{'os-plugin-engine'};
-    
-    if ($self->{'gnome'} && !$self->{distro}->isGNOMEInstalled()) {
-        $self->{distro}->installGNOME();
-    }
-    if ($self->{'gdm'} && !$self->{distro}->isGDMInstalled()) {
-        $self->{distro}->installGDM();
-    }
-    if ($self->{'kde'} && !$self->{distro}->isKDEInstalled()) {
-        $self->{distro}->installKDE();
-    }
-    if ($self->{'kdm'} && !$self->{distro}->isKDMInstalled()) {
-        $self->{distro}->installKDM();
-    }
-    if ($self->{'xfce'} && !$self->{distro}->isXFCEInstalled()) {
-        $self->{distro}->installXFCE();
-    }
-    if ($self->{'xdm'} && !$self->{distro}->isXDMInstalled()) {
-        $self->{distro}->installXDM();
-    }
-
-    return 1;
-}
-
-sub _fillUnsetStage1Attrs
-{
-    my $self = shift;
-
-    if (!defined $self->{'gnome'}) {
-        $self->{'gnome'} = $self->{distro}->isGNOMEInstalled();
-    }
-    if (!defined $self->{'gdm'}) {
-        $self->{'gdm'} = $self->{distro}->isGDMInstalled();
-    }
-    if (!defined $self->{'kde'}) {
-        $self->{'kde'} = $self->{distro}->isKDEInstalled();
-    }
-    if (!defined $self->{'kdm'}) {
-        $self->{'kdm'} = $self->{distro}->isKDMInstalled();
-    }
-    if (!defined $self->{'xfce'}) {
-        $self->{'xfce'} = $self->{distro}->isXFCEInstalled();
-    }
-    if (!defined $self->{'xdm'}) {
-        $self->{'xdm'} = $self->{distro}->isXDMInstalled();
-    }
-    if (!defined $self->{'supported_themes'}) {
-        $self->{attrs}->{'desktop::supported_themes'} 
-            = $self->{'supported_themes'} 
-            = join ",", $self->_getAvailableThemes();
-    }
-
-    return 1;
-}
-
-sub _ensureSensibleStage3Attrs
-{
-    my $self = shift;
-
-    # check if current desktop kind is enabled at all and select another
-    # one, if it isn't
-    my $kind = $self->{attrs}->{'desktop::kind'} || '';
-    if (!$self->{$kind}) {
-        my @desktops = map { $self->{$_} ? $_ : () } qw( gnome kde xfce );
-        if (!@desktops) {
-            die _tr(
-                "no desktop kind is possible, plugin 'desktop' wouldn't work!"
-            );
-        }
-        vlog(0, _tr("selecting %s as desktop kind\n", $desktops[0]));
-        $self->{attrs}->{'desktop::kind'} = $desktops[0];
-    }
-
-    # check if current desktop manager is enabled at all and select another
-    # one, if it isn't
-    my $manager = $self->{attrs}->{'desktop::manager'} || '';
-    if (!$self->{$manager}) {
-        my @managers = map { $self->{$_} ? $_ : () } qw( kdm gdm xdm );
-        if (!@managers) {
-            die _tr(
-                "no desktop manager is possible, plugin 'desktop' wouldn't work!"
-            );
-        }
-        vlog(0, _tr("selecting %s as desktop manager\n", $managers[0]));
-        $self->{attrs}->{'desktop::manager'} = $managers[0];
-    }
-
-    # check if current theme is supported at all and select another one, if it
-    # isn't
-    my $theme = $self->{attrs}->{'desktop::theme'} || '';
-    my @supportedThemes = split ",", $self->{'supported_themes'} || '';
-    if (!grep { $_ eq $theme } @supportedThemes) {
-        if (!@supportedThemes) {
-            vlog( 0, _tr("no themes are supported, using no theme!"));
-            $self->{attrs}->{'desktop::theme'} = undef;
-        }
-        else {
-            vlog(0, _tr("selecting %s as theme\n", $supportedThemes[0]));
-            $self->{attrs}->{'desktop::theme'} = $supportedThemes[0];
-        }
-    }
-
-    return 1;
-}
-
-sub _setupGDM
-{
-    my $self = shift;
-    
-    my $repoPath = $self->{pluginRepositoryPath};
-    mkpath([ 
-        "$repoPath/gdm/workstation",
-        "$repoPath/gdm/kiosk",
-        "$repoPath/gdm/chooser",
-    ]);
-    
-    $self->_setupGDMScript();
-
-    my $configHash = $self->{distro}->GDMConfigHashForWorkstation();
-    $self->_writeConfigHash($configHash, "$repoPath/gdm/workstation/gdm.conf");
-    
-    $configHash = $self->{distro}->GDMConfigHashForKiosk();
-    $self->_writeConfigHash($configHash, "$repoPath/gdm/kiosk/gdm.conf");
-
-    $configHash = $self->{distro}->GDMConfigHashForChooser();
-    $self->_writeConfigHash($configHash, "$repoPath/gdm/chooser/gdm.conf");
-
-    return;
-}
-
-sub _setupGDMScript
-{
-    my $self = shift;
-    
-    my $repoPath = $self->{pluginRepositoryPath};
-    my $script = $self->{distro}->setupGDMScript($repoPath);
-
-    spitFile("$repoPath/gdm/desktop.sh", $script);
-
-    return;
-}
-
-sub _setupKDM
-{
-    my $self = shift;
-
-    my $repoPath = $self->{pluginRepositoryPath};
-    mkpath([ 
-        "$repoPath/kdm/workstation",
-        "$repoPath/kdm/kiosk",
-        "$repoPath/kdm/chooser",
-    ]);
-    
-    $self->_setupKDMScript();
-
-    my $configHash = $self->{distro}->KDMConfigHashForWorkstation();
-    $self->_writeConfigHash($configHash, "$repoPath/kdm/workstation/kdmrc");
-    
-    $configHash = $self->{distro}->KDMConfigHashForKiosk();
-    $self->_writeConfigHash($configHash, "$repoPath/kdm/kiosk/kdmrc");
-
-    $configHash = $self->{distro}->KDMConfigHashForChooser();
-    $self->_writeConfigHash($configHash, "$repoPath/kdm/chooser/kdmrc");
-
-    return;
-}
-
-sub _setupKDMScript
-{
-    my $self = shift;
-    
-    my $repoPath = $self->{pluginRepositoryPath};
-    my $script = $self->{distro}->setupKDMScript($repoPath);
-
-    spitFile("$repoPath/kdm/desktop.sh", $script);
-
-    return;
-}
-
-sub _setupXDM
-{
-    my $self = shift;
-}
-
-sub _writeConfigHash
-{
-    my $self = shift;
-    my $hash = shift || {};
-    my $file = shift;
-    
-    my $content = '';
-    for my $domain (sort keys %$hash) {
-        $content .= "[$domain]\n";
-        for my $key (sort keys %{$hash->{$domain}}) {
-            my $value 
-                = defined $hash->{$domain}->{$key} 
-                    ? $hash->{$domain}->{$key}
-                    : '';
-            $content .= "$key=$value\n";
-        }
-        $content .= "\n";
-    }
-    spitFile($file, $content);
-
-    return;
-}
-
-sub _setupSupportedThemes
-{
-    my $self = shift;
-
-    my $supportedThemes = $self->{attrs}->{'desktop::supported_themes'} || '';
-    my @supportedThemes = split m{\s*,\s*}, $supportedThemes;
-    return if !@supportedThemes;
-
-    # Every theme is copied from the folder where it is found first, such that
-    # themes in the config folder will be preferred to a theme with the same
-    # name living in the base folder
-    my @themeBaseDirs = (
-        "$self->{openslxConfigPath}/plugins/desktop/themes",
-        "$self->{openslxBasePath}/lib/plugins/desktop/themes",
-    );
-    THEME:
-    for my $theme (@supportedThemes) {
-        THEME_DIR:
-        foreach my $themeBaseDir (@themeBaseDirs) {
-            my $gdmThemeDir = "$themeBaseDir/gdm/$theme";
-            my $kdmThemeDir = "$themeBaseDir/kdm/$theme";
-            next THEME_DIR if !-d $gdmThemeDir && !-d $kdmThemeDir;
-                # any of both dirs is enough
-
-            # copy theme into plugin-repo folder
-            vlog(1, "installing theme '$theme'...");
-            my $gdmThemeTargetPath = "$self->{pluginRepositoryPath}/themes/gdm";
-            mkpath($gdmThemeTargetPath);
-            slxsystem(
-                "cp -a $gdmThemeDir $gdmThemeTargetPath/$theme 2>/dev/null"
-            ) == 0
-                or die _tr('unable to copy GDM-theme %s (%s)', $theme, $!);
-            my $kdmThemeTargetPath = "$self->{pluginRepositoryPath}/themes/kdm";
-            mkpath($kdmThemeTargetPath);
-            slxsystem(
-                "cp -a $kdmThemeDir $kdmThemeTargetPath/$theme 2>/dev/null"
-            ) == 0
-                or die _tr('unable to copy KDM-theme %s (%s)', $theme, $!);
-            next THEME;
-        }
-        warn _tr('theme "%s" not found - skipped!', $theme);
-    }
-
-    return;
-}
-
-sub _getAvailableThemes
-{
-    my $self = shift;
-
-    my %availableThemes;
-
-    # return all themes found in any of these two folders
-    my @themeBaseDirs = (
-        "$self->{openslxConfigPath}/plugins/desktop/themes",
-        "$self->{openslxBasePath}/lib/plugins/desktop/themes",
-    );
-    for my $themeBaseDir (@themeBaseDirs) {
-        my @foundGDMThemes 
-            = map { basename $_ } grep { -d $_ } glob("$themeBaseDir/gdm/*");
-        @availableThemes{@foundGDMThemes} = ();
-        my @foundKDMThemes 
-            = map { basename $_ } grep { -d $_ } glob("$themeBaseDir/kdm/*");
-        @availableThemes{@foundKDMThemes} = ();
-    }
-
-    vlog(1, _tr("available themes: %s", join ",", keys %availableThemes));
-
-    return keys %availableThemes;
-}
-
-1;