diff options
author | Dirk von Suchodoletz | 2009-05-28 23:04:33 +0200 |
---|---|---|
committer | Dirk von Suchodoletz | 2009-05-28 23:04:33 +0200 |
commit | 6a11137ad53a15990c1ae60c6adcb4b75463bc6a (patch) | |
tree | cc6b430d5acd2bebddf0a97725ca2cb3da641d83 /boot-env/preboot/http-server/user_settings.pl | |
parent | typo (diff) | |
download | core-6a11137ad53a15990c1ae60c6adcb4b75463bc6a.tar.gz core-6a11137ad53a15990c1ae60c6adcb4b75463bc6a.tar.xz core-6a11137ad53a15990c1ae60c6adcb4b75463bc6a.zip |
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
Diffstat (limited to 'boot-env/preboot/http-server/user_settings.pl')
-rwxr-xr-x | boot-env/preboot/http-server/user_settings.pl | 6 |
1 files changed, 4 insertions, 2 deletions
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'), |