2015-05-17 16:04:04 +03:00
|
|
|
#!/usr/bin/env perl
|
2012-04-13 00:55:59 +04:00
|
|
|
|
2015-04-13 19:42:33 +03:00
|
|
|
use warnings;
|
2012-04-13 00:55:59 +04:00
|
|
|
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;
|
2015-05-17 16:04:04 +03:00
|
|
|
die("full path!") unless $file =~ /^\//;
|
2012-04-13 00:55:59 +04:00
|
|
|
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;
|
2015-05-17 16:04:04 +03:00
|
|
|
}
|
2012-04-13 00:55:59 +04:00
|
|
|
}
|
|
|
|
if ($changed) {
|
|
|
|
print "updating $info\n";
|
|
|
|
open(INFO,">$info");
|
|
|
|
foreach (@INFO) { print INFO $_; }
|
|
|
|
close(INFO);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
close(LS);
|
|
|
|
|