blob: abe58fe8331ae4cff5f6a21a9416f885b42b2f20 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/env perl
use warnings;
use strict;
my ($file,$step) = @ARGV;
$step = "*" unless defined($step);
die("fix-info.perl file [step]") unless defined($file);
die("file not found") unless -e $file;
die("full path!") unless $file =~ /^\//;
my @filestat = stat($file);
my $newtime = $filestat[9];
open(LS,"ls steps/$step/*INFO|") || die;
while(my $info = <LS>) {
chop($info);
my @INFO = `cat $info`;
my $changed = 0;
foreach (@INFO) {
if (/$file .*\[/) {
$changed++;
s/($file) (.*\[)\d+/$1 $2$newtime/g;
}
}
if ($changed) {
print "updating $info\n";
open(INFO,">$info");
foreach (@INFO) { print INFO $_; }
close(INFO);
}
}
close(LS);
|