ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/Scram/ScramFunctions.pm
(Generate patch)

Comparing COMP/SCRAM/src/Scram/ScramFunctions.pm (file contents):
Revision 1.10 by williamc, Wed Nov 15 10:08:27 2000 UTC vs.
Revision 1.13 by sashby, Mon Jun 18 15:19:51 2001 UTC

# Line 33 | Line 33 | require 5.004;
33  
34   @ISA=qw(Utilities::Verbose);
35  
36 < sub new {
37 <        my $class=shift;
38 <        $self={};
39 <        bless $self, $class;
40 <        # -- default settings
41 <        $self->{cachedir}=$ENV{HOME}."/.scramrc/globalcache";
42 <        $self->{scramprojectsdbdir}=$ENV{SCRAM_LOOKUPDB};
43 <        ($self->{scram_top})=( $ENV{SCRAM_HOME}=~/(.*)\//) ;
44 <
45 <        return $self;
46 < }
36 > sub new
37 >   {
38 >   my $class=shift;
39 >   $self={};
40 >   bless $self, $class;
41 >   # -- default settings
42 >   $self->{cachedir}=$ENV{HOME}."/.scramrc/globalcache";
43 >   $self->{scramprojectsdbdir}=$ENV{SCRAM_LOOKUPDB};
44 >   ($self->{scram_top})=( $ENV{SCRAM_HOME}=~/(.*)\//) ;
45 >  
46 >   return $self;
47 >   }
48  
49   sub classverbose {
50          my $self=shift;
# Line 240 | Line 241 | sub addareatoDB {
241          $self->scramprojectdb()->addarea($tagname,$version,$area);
242   }
243  
243 – sub spawnversion {
244 –        my $self=shift;
245 –        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;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines