| 241 |
|
$self->scramprojectdb()->addarea($tagname,$version,$area); |
| 242 |
|
} |
| 243 |
|
|
| 244 |
– |
sub spawnversion { |
| 245 |
– |
my $self=shift; |
| 246 |
– |
my $version=shift; |
| 244 |
|
|
| 245 |
< |
my $rv=0; |
| 246 |
< |
my $thisversion=$self->getversion(); |
| 247 |
< |
if ( defined $version ) { |
| 248 |
< |
if ( $version ne $thisversion ) { |
| 249 |
< |
# first try to use the correct version |
| 250 |
< |
if ( -d $self->{scram_top}."/".$version ) { |
| 251 |
< |
$ENV{SCRAM_HOME}=$self->{scram_top}."/".$version; |
| 252 |
< |
$ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/src"; |
| 253 |
< |
$self->verbose("Spawning SCRAM version $version"); |
| 254 |
< |
my $rv=system("scram", @_)/256; |
| 255 |
< |
exit $rv; |
| 256 |
< |
} |
| 257 |
< |
else { # if not then simply warn |
| 258 |
< |
print "******* Warning : scram version inconsistent ********\n"; |
| 259 |
< |
print "This version: $thisversion; Required version: $version\n"; |
| 260 |
< |
print "*****************************************************\n"; |
| 261 |
< |
print "\n"; |
| 262 |
< |
} |
| 263 |
< |
} |
| 264 |
< |
} |
| 265 |
< |
else { |
| 266 |
< |
$self->error("Undefined value for version requested"); |
| 267 |
< |
$rv=1; |
| 268 |
< |
} |
| 269 |
< |
return $rv; |
| 270 |
< |
} |
| 245 |
> |
sub removeareafromDB |
| 246 |
> |
{ |
| 247 |
> |
############################################################### |
| 248 |
> |
# removearefromDB() # |
| 249 |
> |
############################################################### |
| 250 |
> |
# modified : Thu Jun 14 10:46:22 2001 / SFA # |
| 251 |
> |
# params : projectname, projectversion # |
| 252 |
> |
# : # |
| 253 |
> |
# : # |
| 254 |
> |
# : # |
| 255 |
> |
# function : Remove project <projectname> from DB file. # |
| 256 |
> |
# : # |
| 257 |
> |
# : # |
| 258 |
> |
############################################################### |
| 259 |
> |
my $self=shift; |
| 260 |
> |
my $projname=shift; |
| 261 |
> |
my $version=shift; |
| 262 |
> |
|
| 263 |
> |
# -- Remove from the DB: |
| 264 |
> |
$self->scramprojectdb()->removearea($projname,$version); |
| 265 |
> |
} |
| 266 |
> |
|
| 267 |
> |
|
| 268 |
> |
sub spawnversion |
| 269 |
> |
{ |
| 270 |
> |
my $self=shift; |
| 271 |
> |
my $version=shift; |
| 272 |
> |
my $rv=0; |
| 273 |
> |
|
| 274 |
> |
my $thisversion=$self->getversion(); |
| 275 |
> |
|
| 276 |
> |
if ( defined $version ) |
| 277 |
> |
{ |
| 278 |
> |
if ( $version ne $thisversion ) |
| 279 |
> |
{ |
| 280 |
> |
# first try to use the correct version |
| 281 |
> |
if ( -d $self->{scram_top}."/".$version ) |
| 282 |
> |
{ |
| 283 |
> |
$ENV{SCRAM_HOME}=$self->{scram_top}."/".$version; |
| 284 |
> |
$ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/src"; |
| 285 |
> |
$self->verbose("Spawning SCRAM version $version"); |
| 286 |
> |
my $rv=system("scram", @_)/256; |
| 287 |
> |
exit $rv; |
| 288 |
> |
} |
| 289 |
> |
else |
| 290 |
> |
{ # if not then simply warn |
| 291 |
> |
print "******* Warning : scram version inconsistent ********\n"; |
| 292 |
> |
print "This version: $thisversion; Required version: $version\n"; |
| 293 |
> |
print "*****************************************************\n"; |
| 294 |
> |
print "\n"; |
| 295 |
> |
} |
| 296 |
> |
} |
| 297 |
> |
} |
| 298 |
> |
else |
| 299 |
> |
{ |
| 300 |
> |
$self->error("Undefined value for version requested"); |
| 301 |
> |
$rv=1; |
| 302 |
> |
} |
| 303 |
> |
return $rv; |
| 304 |
> |
} |
| 305 |
|
|
| 306 |
|
sub globalcache { |
| 307 |
|
my $self=shift; |
