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

Comparing COMP/SCRAM/src/scramdatestamp (file contents):
Revision 1.1 by williamc, Wed Dec 1 15:14:55 1999 UTC vs.
Revision 1.2 by williamc, Mon Aug 28 08:35:13 2000 UTC

# Line 0 | Line 1
1 + #
2 + # Check a product composition file to see if any of its components have
3 + # changed
4 + #
5 +
6 + use FileHandle;
7 +
8 + my $datefile=shift @ARGV;
9 + my $productfile=shift @ARGV;
10 + my @depfiles=@ARGV;
11 + $self={};
12 +        # get dates in our dependency list
13 +        foreach $file ( @depfiles ) {
14 +         if ( -e $file ) {
15 +            $self->{moddate}{$file}=(stat($file))[9];
16 +         }
17 +        }
18 +
19 +        # create a new dependencyfile
20 +        $fh=FileHandle->new();
21 +        open ($fh, ">".$datefile );
22 +        foreach $file ( @depfiles ) {
23 +        #print $file." ".$self->{moddate}{$file}."\n";
24 +          print $fh $file."\n";
25 +          print $fh $self->{moddate}{$file}."\n";
26 +        }
27 +        close $fh;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines