[ViewVC] Annotation of: cvsroot/COMP/SCRAM/src/scramdatestamp

#
# Check a product composition file to see if any of its components have 
# changed
# 

use FileHandle;

my $datefile=shift @ARGV;
my $productfile=shift @ARGV;
my @depfiles=@ARGV;
$self={};
        # get dates in our dependency list
        foreach $file ( @depfiles ) {
         if ( -e $file ) {
            $self->{moddate}{$file}=(stat($file))[9];
         }
        }

        # create a new dependencyfile
        $fh=FileHandle->new();
        open ($fh, ">".$datefile );
        foreach $file ( @depfiles ) {
        #print $file." ".$self->{moddate}{$file}."\n";
          print $fh $file."\n";
          print $fh $self->{moddate}{$file}."\n";
        }
        close $fh;
Revision:	1.2
Committed:	Mon Aug 28 08:35:13 2000 UTC (24 years, 8 months ago) by williamc
Branch:	MAIN
Changes since 1.1:	+27 -0 lines
Log Message:	remove Interface.pm
#	User	Rev	Content
1	williamc	1.2	#
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;