vmchooser various changes:

 * changed default.desktop to call the binary
 * deleted vmchooser.sh (not needed any more,
 	as vmchooser binary reads from stage3 variables)
 	-> see Feature #429
 * added distro specific classes to copy default.desktop
 	distro specific ;-) - Feature #268
 

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2962 95ad53e4-c205-0410-b2fa-d234c58c8868

1 files changed, 64 insertions, 0 deletions

diff --git a/os-plugins/plugins/vmchooser/OpenSLX/Distro/Base.pm b/os-plugins/plugins/vmchooser/OpenSLX/Distro/Base.pm
new file mode 100644
index 00000000..ba8a32b0
--- /dev/null
+++ b/os-plugins/plugins/vmchooser/OpenSLX/Distro/Base.pm
@@ -0,0 +1,64 @@
+# 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/
+# -----------------------------------------------------------------------------
+# vmchooser/OpenSLX/Distro/Base.pm
+#    - provides base implementation of the Distro API for the vmchooser plugin.
+# -----------------------------------------------------------------------------
+package vmchooser::OpenSLX::Distro::Base;
+
+use strict;
+use warnings;
+
+our $VERSION = 1.01;        # API-version . implementation-version
+
+use File::Basename;
+use File::Path;
+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 copyDefaultSession
+{
+	my $self 	= shift;
+	my $pluginroot = shift;
+	
+	
+	# Take the default path of SuSE 
+	# (as we have the most experience with it)
+	if( -f "/etc/X11/sessions/default.desktop") {
+		rename("/etc/X11/sessions/default.desktop",
+		      "/etc/X11/sessions/default.desktop.back")
+	}
+	copyFile("$pluginroot/default.desktop","/etc/X11/sessions");
+	
+	return 1;
+}
\ No newline at end of file