From 6a11137ad53a15990c1ae60c6adcb4b75463bc6a Mon Sep 17 00:00:00 2001
From: Dirk von Suchodoletz
Date: Thu, 28 May 2009 21:04:33 +0000
Subject: Next steps onto the new WAN boot configuration environment ...

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2897 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 boot-env/preboot/http-server/user_settings.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'boot-env/preboot/http-server/user_settings.pl')

diff --git a/boot-env/preboot/http-server/user_settings.pl b/boot-env/preboot/http-server/user_settings.pl
index 3469dce0..b92027e9 100755
--- a/boot-env/preboot/http-server/user_settings.pl
+++ b/boot-env/preboot/http-server/user_settings.pl
@@ -42,8 +42,10 @@ die "must give 'system' ($system), 'client' ($client) and 'preboot_id' ($preboot
 my $webPath = "$openslxConfig{'public-path'}/preboot";
 my $src = "$webPath/client-config/$system/$prebootID.tgz";
 my $destPath = "$webPath/$prebootID/client-config/$system";
-mkpath($destPath);
-system(qq{cp $src $destPath/$client.tgz});
+mkpath($destPath/$client);
+system(qq{tar -xz $src -C $destPath/$client/});
+system(qq{cd $destPath/$client; tar -czf $destPath/$client.tgz *});
+unlink("$destPath/$client");
 
 print
     $cgi->header(-charset => 'iso8859-1'),
-- 
cgit v1.2.3-55-g7522