#!/usr/bin/perl -w

use lib "/pub/p/e/perl/lib/site_perl";
use lib "/pub/m/r/mradwin/private/lib/perl5/site_perl";

use strict;
use XML::Simple;
use Unicode::String qw(utf8 latin1);

my $xml;

{
    local($/) = undef;
    $xml = <>;
}

my $info = XML::Simple::XMLin($xml);
my $data = $info->{body}->{outline};

my @list = sort bytitle @$data;

for my $item (@list)
{
    my $title = $item->{title};
    my $h_url = $item->{htmlUrl};
    my $x_url = $item->{xmlUrl};
    my $descr = $item->{description};

    my $u = utf8($title);
    print qq[<a title="$descr" href="$h_url">], $u->latin1, qq[</a><br />\n];
}

sub bytitle {
    my $c = lc($a->{title});
    my $d = lc($b->{title});

    $c =~ s/^the //;
    $d =~ s/^the //;

    $c cmp $d;
}