7 |
## Created On : Tue Aug 20 12:15:44 1996 |
## Created On : Tue Aug 20 12:15:44 1996 |
8 |
## |
## |
9 |
## Last Modified By : Ulrich Pfeifer |
## Last Modified By : Ulrich Pfeifer |
10 |
## Last Modified On : Sun Nov 12 18:18:18 2000 |
## Last Modified On : Fri Dec 29 12:55:10 2000 |
11 |
## |
## |
12 |
## Copyright (c) 1996-1997, Ulrich Pfeifer |
## Copyright (c) 1996-1997, Ulrich Pfeifer |
13 |
## |
## |
88 |
; |
; |
89 |
|
|
90 |
$answer = $WAIT::Config->{WAIT_home}; |
$answer = $WAIT::Config->{WAIT_home}; |
91 |
$answer = '' unless $answer && -d $answer; |
#$answer = '' unless $answer && -d $answer; |
92 |
$answer = prompt("WAIT database directory?", $answer) unless $use_defaults; |
$answer = prompt("WAIT database directory?", $answer) unless $use_defaults; |
93 |
|
|
94 |
mkpath($answer) unless $answer && -d $answer; # dies if it can't |
#mkpath($answer) unless $answer && -d $answer; # dies if it can't |
95 |
$WAIT::Config->{WAIT_home} = $answer; |
$WAIT::Config->{WAIT_home} = $answer; |
96 |
|
|
97 |
|
|