* added support for creating the squashfs only if the vendor-OS has been

  changed since the last export. 
  'Changed' in this context means that the vendor-OS has been re-installed, 
  updated, re-cloned or had a chrooted shell invoked.

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

1 files changed, 16 insertions, 0 deletions

diff --git a/installer/OpenSLX/OSSetup/Engine.pm b/installer/OpenSLX/OSSetup/Engine.pm
index 1bfdcbaf..d6731275 100644
--- a/installer/OpenSLX/OSSetup/Engine.pm
+++ b/installer/OpenSLX/OSSetup/Engine.pm
@@ -216,6 +216,7 @@ sub installVendorOS
 	vlog(0, _tr("Vendor-OS '%s' installed succesfully.\n",
 				$self->{'vendor-os-name'}));
 
+	$self->touchVendorOS();
 	$self->addInstalledVendorOSToConfigDB();
 }
 
@@ -282,6 +283,7 @@ sub cloneVendorOS
 					$self->{'vendor-os-name'}));
 	}
 
+	$self->touchVendorOS();
 	$self->addInstalledVendorOSToConfigDB();
 }
 
@@ -300,6 +302,8 @@ sub updateVendorOS
 		$self->changePersonalityIfNeeded();
 		$self->updateStage1D();
 	});
+
+	$self->touchVendorOS();
 	vlog(0, _tr("Vendor-OS '%s' updated succesfully.\n",
 				$self->{'vendor-os-name'}));
 }
@@ -319,6 +323,8 @@ sub startChrootedShellForVendorOS
 		$self->changePersonalityIfNeeded();
 		$self->startChrootedShellInStage1D();
 	});
+
+	$self->touchVendorOS();
 	vlog(0, _tr("Chrooted shell for vendor-OS '%s' has been closed.\n",
 				$self->{'vendor-os-name'}));
 }
@@ -498,6 +504,16 @@ sub createVendorOSPath
 	}
 }
 
+sub touchVendorOS
+{
+	my $self = shift;
+
+	# touch root folder, as we are using this folder to determine the
+	# 'age' of the vendor-OS when trying to determine whether or not we
+	# need to re-export this vendor-OS:
+	slxsystem("touch $self->{'vendor-os-path'}");
+}
+
 sub createPackager
 {
 	my $self = shift;