| 9 |
|
# |
| 10 |
|
# Interface |
| 11 |
|
# --------- |
| 12 |
< |
# new() : A new toolbox object |
| 12 |
> |
# new(ConfigArea,archstring) : A new toolbox object |
| 13 |
|
# tools() : return a list of tools (name,version) pairs |
| 14 |
|
# defaultversion(tool) : return the default version of the specified tool |
| 15 |
|
# setdefault(tool,version) : set the default version of a given tool (permanant) |
| 39 |
|
my $area=shift; |
| 40 |
|
my $self={}; |
| 41 |
|
bless $self, $class; |
| 42 |
+ |
$self->{arch}=shift; |
| 43 |
|
$self->init($area); |
| 44 |
|
#$self->verbosity(1); |
| 45 |
|
return $self; |
| 52 |
|
my $config=$top."/".$area->configurationdir(); |
| 53 |
|
$self->{urlhandler}=URL::URLhandler->new($area->cache()); |
| 54 |
|
$self->{toolfiledir}="$top/.SCRAM/ToolFiles"; |
| 55 |
< |
$self->{datastore}=$top."/.SCRAM/".$ENV{SCRAM_ARCH}; |
| 55 |
> |
$self->{datastore}=$top."/.SCRAM/".$self->{arch}; |
| 56 |
|
#$self->{datastore}=$area->archdir(); |
| 57 |
|
$self->{tooladmin}=$self->{datastore}."/admin"; |
| 58 |
|
AddDir::adddir($self->{toolfiledir}); |
