* OSPlugin::Engine now provides a real support interface for plugins, which

  can be used to get info about the vendor-OS and distro, install/uninstall 
  packages, download files (and more stuff to come).
* Adjusted OSSetup::Engine and OSSetup::MetaPackager to the demands of the
  new support interface.

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

1 files changed, 21 insertions, 5 deletions

diff --git a/installer/OpenSLX/OSSetup/MetaPackager/apt.pm b/installer/OpenSLX/OSSetup/MetaPackager/apt.pm
index 5cfd2655..137bab5e 100644
--- a/installer/OpenSLX/OSSetup/MetaPackager/apt.pm
+++ b/installer/OpenSLX/OSSetup/MetaPackager/apt.pm
@@ -61,7 +61,8 @@ sub initPackageSources
 		END-OF-HERE
 		spitFile('/etc/kernel-img.conf', $kernelConfig);
 	}
-	return;
+
+	return 1;
 }
 
 sub setupPackageSource
@@ -89,10 +90,11 @@ sub setupPackageSource
 
 sub installSelection
 {
-	my $self = shift;
+	my $self         = shift;
 	my $pkgSelection = shift;
+	my $doRefresh    = shift || 0;
 
-	if (slxsystem("apt-get -y update")) {
+	if ($doRefresh && slxsystem("apt-get -y update")) {
 		die _tr("unable to update repository info (%s)\n", $!);
 	}
 	if ('/var/cache/debconf/slx-defaults.dat') {
@@ -105,7 +107,20 @@ sub installSelection
 	}
 	delete $ENV{DEBCONF_DB_FALLBACK};
 	delete $ENV{DEBIAN_FRONTEND};
-	return;
+
+	return 1;
+}
+
+sub removeSelection
+{
+	my $self         = shift;
+	my $pkgSelection = shift;
+
+	if (slxsystem("apt-get -y remove $pkgSelection")) {
+		die _tr("unable to remove selection (%s)\n", $!);
+	}
+
+	return 1;
 }
 
 sub updateBasicVendorOS
@@ -118,7 +133,8 @@ sub updateBasicVendorOS
 	if (slxsystem("apt-get -y upgrade")) {
 		die _tr("unable to update this vendor-os (%s)\n", $!);
 	}
-	return;
+
+	return 1;
 }
 
 1;
\ No newline at end of file