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 : Fri Dec 29 12:55:10 2000 |
## Last Modified On : Fri Dec 29 14:14:54 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 |
|
|
173 |
## write config |
## write config |
174 |
my $configpmdir = MM->catdir('lib', 'WAIT'); |
my $configpmdir = MM->catdir('lib', 'WAIT'); |
175 |
mkpath $configpmdir; |
mkpath $configpmdir; |
176 |
my $configpm = MM->catfile('lib', 'WAIT', 'Config.pm/' ); |
my $configpm = MM->catfile('lib', 'WAIT', 'Config.pm' ); |
177 |
|
|
178 |
open FH, "> $configpm" or die "Couldn't write open $configpm: $!\n"; |
open FH, "> $configpm" or die "Couldn't write open $configpm: $!\n"; |
179 |
print FH qq[\$WAIT::Config = \{\n]; |
print FH qq[\$WAIT::Config = \{\n]; |