#!/usr/bin/perl

# <short description of program>

    use strict;
    use warnings;
    #use v5.10;

    use LWP::Simple;
    use JSON::XS;
    use POSIX;

    use Data::Dumper;
    #use Devel::Comments;           # uncomment this during development to enable the ### debugging statements
    
# testing only
#@ARGV = ("https://www.reddit.com/r/AskHistorians/comments/73a4m6/when_and_why_was_white_cemented_as_the_english/");

my $url = shift
    or die "Specify the URL of the story.\n";

my $orig_url = $url;
$url =~ s#/$##;
$url .= ".json";

my $json_unparsed = LWP::Simple::get($url);
#print $json_unparsed;
my $json = decode_json($json_unparsed);

#print Dumper $json;



my $meta = $json->[0]{data}{children}[0]{data};
my $created = strftime("%b %Y", localtime($meta->{created_utc}));
#my $story_title = $json->[0]{data}{children}[0]{data}{title};
#my $subreddit   = $json->[0]{data}{children}[0]{data}{subreddit};

print "<li><a href='$orig_url'>$meta->{title}</a>\n";
print "        <span>[$meta->{subreddit}, $meta->{num_comments} comments, $created]\n";