mirror of
https://github.com/moparisthebest/curl
synced 2024-08-13 17:03:50 -04:00
Match file times occurring in the morning.
This commit is contained in:
parent
3fef839f75
commit
09fd3b4935
@ -60,19 +60,19 @@ elsif ($ARGV[0] eq "postprocess")
|
|||||||
# or may be unsupported on some platforms (e.g. Windows)
|
# or may be unsupported on some platforms (e.g. Windows)
|
||||||
|
|
||||||
my $newfile = $logfile . ".new";
|
my $newfile = $logfile . ".new";
|
||||||
open(OUT, ">$newfile") || die "$!";
|
|
||||||
open(IN, "<$logfile") || die "$!";
|
open(IN, "<$logfile") || die "$!";
|
||||||
|
open(OUT, ">$newfile") || die "$!";
|
||||||
while (<IN>) {
|
while (<IN>) {
|
||||||
s/^(.)(..).(..).(..).(.{4}?).{6}?.{6}?(.{12}?)/\1\2?\3?\4?\5 U U\6/;
|
s/^(.)(..).(..).(..).(.{4}?).{6}?.{6}?(.{12}?)/\1\2?\3?\4?\5 U U\6/;
|
||||||
if ($1 eq "d") {
|
if ($1 eq "d") {
|
||||||
# Erase inodes, size, mode, time fields for directories
|
# Erase inodes, size, mode, time fields for directories
|
||||||
s/^.{14}?(.{12}?).{11}? ... .\d \d\d:\d\d/d????????? N\1 N ??? N NN:NN/;
|
s/^.{14}?(.{12}?).{11}? ... .\d .\d:\d\d/d????????? N\1 N ??? N NN:NN/;
|
||||||
}
|
}
|
||||||
print OUT $_;
|
print OUT $_;
|
||||||
}
|
}
|
||||||
|
|
||||||
close(IN);
|
|
||||||
close(OUT);
|
close(OUT);
|
||||||
|
close(IN);
|
||||||
|
|
||||||
unlink $logfile;
|
unlink $logfile;
|
||||||
rename $newfile, $logfile;
|
rename $newfile, $logfile;
|
||||||
|
Loading…
Reference in New Issue
Block a user