diff options
author | B. Watson <yalhcru@gmail.com> | 2018-06-25 18:12:40 -0400 |
---|---|---|
committer | B. Watson <yalhcru@gmail.com> | 2018-06-25 18:12:40 -0400 |
commit | d53e1d76806405bb9df8d86f6e0478f4660e2ca2 (patch) | |
tree | a99e8dcbb17a84a634414dcc1b7640d8a895807b /sbosrcarch | |
parent | eda14e4bd7fa47ad8a5df76a63b4939f8df65a5a (diff) | |
download | sbostuff-d53e1d76806405bb9df8d86f6e0478f4660e2ca2.tar.gz |
sbosrcarch: STATUS timestamps, add day-of-week
Diffstat (limited to 'sbosrcarch')
-rwxr-xr-x | sbosrcarch | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -1706,13 +1706,16 @@ sub write_status_file { my $content = shift; init_git(); - chomp(my $logline = `TZ=UTC git log --date=format-local:'%Y-%m-%d %H:%M:%S %Z' --pretty=format:'%h %cd: %an, %s' -n1`); + + # git is lovely, but all those options mean it takes a minute to + # find what you wanted in the man page... + chomp(my $logline = `TZ=UTC git log --date=format-local:'%a %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(my $fh, '>', "STATUS") or return; - chomp(my $timestamp = `TZ=UTC date '+%Y-%m-%d %H:%M:%S %Z'`); + chomp(my $timestamp = `TZ=UTC date '+%a %Y-%m-%d %H:%M:%S %Z'`); print $fh <<EOF; Status report for sbosrcarch archive |