diff options
author | Sebastian Schmelzer | 2009-04-15 17:46:32 +0200 |
---|---|---|
committer | Sebastian Schmelzer | 2009-04-15 17:46:32 +0200 |
commit | 7151386e73003fa97726a1aaf5f48f506025f97a (patch) | |
tree | 5d5eed740c2537d0e282a6c4610a3af8d7c2d12d /os-plugins/plugins/profile/OpenSLX/Distro/Base.pm | |
parent | Installation of Suse 1x.x and Ubuntu 8.x and 9.04 updated. (diff) | |
download | core-7151386e73003fa97726a1aaf5f48f506025f97a.tar.gz core-7151386e73003fa97726a1aaf5f48f506025f97a.tar.xz core-7151386e73003fa97726a1aaf5f48f506025f97a.zip |
added basic support for per distro .gconf / .kde dirs *experimental*
git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2815 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'os-plugins/plugins/profile/OpenSLX/Distro/Base.pm')
-rw-r--r-- | os-plugins/plugins/profile/OpenSLX/Distro/Base.pm | 82 |
1 files changed, 82 insertions, 0 deletions
diff --git a/os-plugins/plugins/profile/OpenSLX/Distro/Base.pm b/os-plugins/plugins/profile/OpenSLX/Distro/Base.pm new file mode 100644 index 00000000..3b5508dc --- /dev/null +++ b/os-plugins/plugins/profile/OpenSLX/Distro/Base.pm @@ -0,0 +1,82 @@ +# 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/ +# ----------------------------------------------------------------------------- +# profile/OpenSLX/Distro/Base.pm +# - provides base implementation of the Distro API for the profile plugin. +# ----------------------------------------------------------------------------- +package profile::OpenSLX::Distro::Base; + +use strict; +use warnings; + +our $VERSION = 1.01; # API-version . implementation-version + +use File::Basename; + +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; + + return 1; +} + +sub getXsessionDPath +{ + my $self = shift; + + return "/etc/X11/Xsession.d/10slx-home_env"; +} + + +sub getProfileDPAth +{ + my $self = shift; + + return "/etc/profile.d/slx-kdehome.sh"; +} + +sub getKdeHome +{ + my $self = shift; + + return ".openslx/unknown/kde"; +} + +sub getGconfPathConfig +{ + my $self = shift; + + return "/etc/gconf/2/path"; +} + + +sub getGconfHome +{ + my $self = shift; + + return ".openslx/unknown/gconf"; +} + + +1; |