From 17c2790c1f442ee277f02b2462def8fc70eab3a7 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Sun, 31 Aug 2008 17:18:44 +0000
Subject: * some cleanup regarding log output

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2162 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 initramfs/OpenSLX/MakeInitRamFS/Engine.pm |  1 +
 installer/OpenSLX/OSExport/Engine.pm      | 18 +++++++++---------
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/initramfs/OpenSLX/MakeInitRamFS/Engine.pm b/initramfs/OpenSLX/MakeInitRamFS/Engine.pm
index b5401acd..0defe111 100644
--- a/initramfs/OpenSLX/MakeInitRamFS/Engine.pm
+++ b/initramfs/OpenSLX/MakeInitRamFS/Engine.pm
@@ -89,6 +89,7 @@ sub execute
 
     $self->_collectCMDs();
 
+    vlog(1, _tr("creating initramfs '%s' ...", $self->{'initramfs'}));
     $self->_executeCMDs() unless $dryRun;
 
     return;
diff --git a/installer/OpenSLX/OSExport/Engine.pm b/installer/OpenSLX/OSExport/Engine.pm
index 60777f07..251869e0 100644
--- a/installer/OpenSLX/OSExport/Engine.pm
+++ b/installer/OpenSLX/OSExport/Engine.pm
@@ -116,6 +116,14 @@ sub exportVendorOS
 {
     my $self = shift;
 
+    vlog(
+        1,
+        _tr(
+            "vendor-OS from '%s' will be exported to '%s'",
+            $self->{'vendor-os-path'},
+            $self->{'exporter'}->{'export-path'}
+        )
+    );
     if (!$self->{'exporter'}->checkRequirements($self->{'vendor-os-path'})) {
         die _tr(
             "clients wouldn't be able to access the exported root-fs!\nplease "
@@ -237,17 +245,9 @@ sub _initialize
     }
     $self->{'exporter'} = $exporter;
 
-    # setup source and target paths:
     $self->{'vendor-os-path'} =
       "$openslxConfig{'private-path'}/stage1/$vendorOSName";
-    vlog(
-        1,
-        _tr(
-            "vendor-OS from '%s' will be exported to '%s'",
-            $self->{'vendor-os-path'},
-            $exporter->{'export-path'}
-        )
-    );
+
     return;
 }
 
-- 
cgit v1.2.3-55-g7522