| 38 |
|
# linkto(location) : link the current area to that at location |
| 39 |
|
# unlinkarea() : destroy link (autosave) |
| 40 |
|
# linkarea([ConfigArea]) : link the current area to the apec Area Object |
| 41 |
+ |
# archname() : get/set a string to indicate architecture |
| 42 |
+ |
# archdir() : return the location of the administration arch dep |
| 43 |
+ |
# directory |
| 44 |
|
# - temporary |
| 45 |
|
# align() : adjust hard paths to suit local loaction |
| 46 |
|
|
| 239 |
|
return $rv?$thispath:undef; |
| 240 |
|
} |
| 241 |
|
|
| 242 |
+ |
sub archname { |
| 243 |
+ |
my $self=shift; |
| 244 |
+ |
if ( @_ ) { |
| 245 |
+ |
$self->{archname}=shift; |
| 246 |
+ |
} |
| 247 |
+ |
return $self->{archname}; |
| 248 |
+ |
} |
| 249 |
+ |
|
| 250 |
+ |
sub archdir { |
| 251 |
+ |
my $self=shift; |
| 252 |
+ |
if ( @_ ) { |
| 253 |
+ |
$self->{archdir}=shift; |
| 254 |
+ |
} |
| 255 |
+ |
if ( ! defined $self->{archdir} ) { |
| 256 |
+ |
if ( defined $self->{archname} ) { |
| 257 |
+ |
$self->{archdir}=$self->location()."/".$self->{admindir}."/". |
| 258 |
+ |
$self->{archname}; |
| 259 |
+ |
} |
| 260 |
+ |
else { |
| 261 |
+ |
$self->error("ConfigArea : cannot create arch directory - ". |
| 262 |
+ |
"architecture name not set") |
| 263 |
+ |
} |
| 264 |
+ |
} |
| 265 |
+ |
return $self->{archdir}; |
| 266 |
+ |
} |
| 267 |
+ |
|
| 268 |
|
sub satellite { |
| 269 |
|
my $self=shift; |
| 270 |
|
|
| 283 |
|
|
| 284 |
|
# -- link it to this area |
| 285 |
|
$sat->linkarea($self); |
| 286 |
+ |
|
| 287 |
+ |
# -- save it |
| 288 |
+ |
$sat->save(); |
| 289 |
|
|
| 290 |
+ |
return $sat; |
| 291 |
|
} |
| 292 |
|
|
| 293 |
|
sub copy { |
