diff options
author | Chris Young <chris@unsatisfactorysoftware.co.uk> | 2012-03-30 18:18:15 +0000 |
---|---|---|
committer | Chris Young <chris@unsatisfactorysoftware.co.uk> | 2012-03-30 18:18:15 +0000 |
commit | e30905be7505fc4ba7f01d496b59d56a6411431a (patch) | |
tree | 3c77a23b988af57d9585886b345afd1fa700ef71 /amiga/dist | |
parent | 5a42a7a791c8c0f267c4dbe07dff8455c3ad1235 (diff) | |
download | netsurf-e30905be7505fc4ba7f01d496b59d56a6411431a.tar.gz netsurf-e30905be7505fc4ba7f01d496b59d56a6411431a.tar.bz2 |
Use 'user' env-var to determine username
svn path=/trunk/netsurf/; revision=13778
Diffstat (limited to 'amiga/dist')
-rwxr-xr-x | amiga/dist/Install | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/amiga/dist/Install b/amiga/dist/Install index ccfa431d1..c3d5af2f1 100755 --- a/amiga/dist/Install +++ b/amiga/dist/Install @@ -363,7 +363,12 @@ (complete 15) -(set #options-exist (exists (tackon @default-dest "Users/Default/Choices"))) +(set #user (getenv "user")) +(if (= #user "") (set #user "Default")) + +(set #user-dir (tackon (tackon @default-dest "Users") #user)) +(set #user-options (tackon #user-dir "Choices")) +(set #options-exist (exists #user-options)) (set #searchengines-exist (exists (tackon @default-dest "Resources/SearchEngines"))) (set #aiss-theme "") @@ -518,12 +523,12 @@ ) ) - (makedir (tackon @default-dest "Users/Default")) + (makedir #user-dir) (textfile (prompt "Setting default options") (help @textfile-help) - (dest (tackon @default-dest "Users/Default/Choices")) + (dest #user-options) (append "theme:" #theme "\n") (append "use_pubscreen:Workbench\n") ) |