summary refs log tree commit diff stats
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};
     }