From c377a8ed4970cd5d9da4cf956ede3e02427cfcbe Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Mon, 25 Jun 2018 18:07:28 -0400 Subject: sbosrcarch: STATUS timestamps again --- sbosrcarch | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'sbosrcarch') diff --git a/sbosrcarch b/sbosrcarch index aaab775..43ccd00 100755 --- a/sbosrcarch +++ b/sbosrcarch @@ -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 <