summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndinus <andinus@nand.sh>2020-11-25 21:48:09 +0530
committerAndinus <andinus@nand.sh>2020-11-25 21:48:09 +0530
commit6cb36c2aafc96e98945f6589d5eb8f3f794deeb7 (patch)
treed715529c3b40f1c98157e9c00acaf05679c2306d
parentc52d2400b43d29422f59fc091222dcea8f3a1b97 (diff)
downloaddraco-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.
-rwxr-xr-xdraco.pl7
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};
}