40 |
|
my $self={}; |
41 |
|
bless $self, $class; |
42 |
|
$self->{arch}=shift; |
43 |
– |
$self->init($area); |
43 |
|
#$self->verbosity(1); |
44 |
+ |
$self->init($area); |
45 |
|
return $self; |
46 |
|
} |
47 |
|
|
50 |
|
my $area=shift; |
51 |
|
my $top=$area->location(); |
52 |
|
my $config=$top."/".$area->configurationdir(); |
53 |
< |
$self->{urlhandler}=URL::URLhandler->new($area->cache()); |
53 |
> |
|
54 |
> |
my $cache=$area->cache(); |
55 |
> |
if ( defined $cache ) { |
56 |
> |
$self->{urlhandler}=URL::URLhandler->new($cache); |
57 |
> |
} |
58 |
|
$self->{toolfiledir}="$top/.SCRAM/ToolFiles"; |
59 |
|
$self->{datastore}=$top."/.SCRAM/".$self->{arch}; |
60 |
|
#$self->{datastore}=$area->archdir(); |