#!/usr/bin/perl -w
use strict;
use HTML::TreeBuilder;
use LWP::Simple;

sub get_most_voted ($);

my $saints_html = get "http://www.perlmonks.org/index.pl?"
    . "node=saints%20in%20our%20book";

my $saints_tree = HTML::TreeBuilder->new_from_content($saints_html);
my $table =
    $saints_tree->look_down('_tag' => 'table', 'width' => '70%');
my @rows = $table->look_down('_tag' => 'tr',
    sub {$_[0]->look_down('_tag' => 'td')->as_text !~ /^#$/});

for (@rows) {
    my ($rank, $name, $xp, $writeups, $level, $leveln) =
        $_->look_down('_tag','td');
    printf "[%s] \n", $name->as_text;
    # printf "( XP %d, writeups %d)\n",  $xp->as_text, $writeups->as_text;
    my $wu = $writeups->as_HTML;
    $wu =~ s/createtime%20DESC/hr/;
    $wu =~ s/&/&/g;
    my $address = "http://www.perlmonks.org";
    if ($wu =~ /href="([^"]+)"/) {
        $address .= $1;
        $address .= "&length=10";
    };
    get_most_voted( $address );
}

$saints_tree->delete;

sub get_most_voted ($) {
    my $address = shift;
    my $nodes_page = get $address;
    my $nodes_tree = HTML::TreeBuilder->new_from_content($nodes_page);
    my $nodes_table =
        $nodes_tree->look_down('_tag' => 'table', 'id' => 'writeups');
    my @writeups =
        $nodes_table->look_down('_tag' => 'tr',
        sub {$_[0]->look_down('_tag' => 'td')->as_text !~ /^Node ID$/} );
    print "<ul> ";
    for (@writeups) {
        my ($node_id, $node_title, $node_date) =
            $_->look_down('_tag' => 'td');
        printf "<li>[id://%d]</li> ", $node_id->as_text;
        #printf "<!--%s--!>\n ", $node_title->as_text;
    }
    print "</ul>\n";
    $nodes_tree->delete;
};