diff options
author | B. Watson <yalhcru@gmail.com> | 2018-06-25 18:07:28 -0400 |
---|---|---|
committer | B. Watson <yalhcru@gmail.com> | 2018-06-25 18:07:28 -0400 |
commit | c377a8ed4970cd5d9da4cf956ede3e02427cfcbe (patch) | |
tree | a969435448b1ac45a6897e984e07e13f5a4fab74 | |
parent | 0779c6bfa40cb39361c47f019962571ad6eb5a33 (diff) | |
download | sbostuff-c377a8ed4970cd5d9da4cf956ede3e02427cfcbe.tar.gz |
sbosrcarch: STATUS timestamps again
-rwxr-xr-x | sbosrcarch | 8 |
1 files changed, 2 insertions, 6 deletions
@@ -1706,16 +1706,12 @@ sub write_status_file { my $content = shift; init_git(); - #open my $fh, "git log --date=format:%Y%m%d --pretty=format:'%h %ci: %an, %s' -n1|" or die "$!"; - open my $fh, "TZ=UTC git log --date=format-local:'%Y-%m-%d %H:%M:%S %Z' --pretty=format:'%h %cd: %an, %s' -n1" or die "$!"; - my $logline = <$fh>; - close $fh; + chomp(my $logline = `TZ=UTC git log --date=format-local:'%Y-%m-%d %H:%M:%S %Z' --pretty=format:'%h %cd: %an, %s' -n1`; chdir($archivedir) or die "$archivedir: $!"; rename("STATUS", "STATUS.old"); # ignore errors - open($fh, '>', "STATUS") or return; + open(my $fh, '>', "STATUS") or return; - #chomp(my $timestamp = `date '+%Y-%m-%d %H:%M:%S %z'`); chomp(my $timestamp = `TZ=UTC date '+%Y-%m-%d %H:%M:%S %Z'`); print $fh <<EOF; |