diff options
author | Andinus <andinus@nand.sh> | 2020-11-25 21:48:09 +0530 |
---|---|---|
committer | Andinus <andinus@nand.sh> | 2020-11-25 21:48:09 +0530 |
commit | 6cb36c2aafc96e98945f6589d5eb8f3f794deeb7 (patch) | |
tree | d715529c3b40f1c98157e9c00acaf05679c2306d /draco.pl | |
parent | c52d2400b43d29422f59fc091222dcea8f3a1b97 (diff) | |
download | draco-6cb36c2aafc96e98945f6589d5eb8f3f794deeb7.tar.gz |
Remove created_utc property from each comment
It was already included but some people might need the raw value so we include that too. It's included in brackets after parsed value.
Diffstat (limited to 'draco.pl')
-rwxr-xr-x | draco.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/draco.pl b/draco.pl index ee21f06..d3aa5c1 100755 --- a/draco.pl +++ b/draco.pl @@ -364,10 +364,9 @@ sub print_comment_chain { print ":PROPERTIES:\n"; print ":CREATED_UTC: ", Time::Piece->strptime($comment_data->{created_utc}, '%s') - ->strftime('%+'), "\n"; - foreach my $detail (qw( created_utc author permalink upvote_ratio - ups downs score edited stickied - controversiality )) { + ->strftime('%+'), " (=$comment_data->{created_utc}=)\n"; + foreach my $detail (qw( author permalink upvote_ratio ups downs + score edited stickied controversiality )) { print ":${detail}: =$comment_data->{$detail}=\n" if scalar $comment_data->{$detail}; } |