From 0df64e6c3d3771140b91fd0df128f8dda1f131ac Mon Sep 17 00:00:00 2001 From: Oliver Tappe Date: Wed, 20 Jun 2007 19:08:58 +0000 Subject: * 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 --- installer/OpenSLX/OSSetup/Engine.pm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'installer/OpenSLX/OSSetup/Engine.pm') 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; -- cgit v1.2.3-55-g7522