#!/usr/local/bin/perl

use LWP::UserAgent;
use HTML::LinkExtor;
use URI::URL;


sub parse_page
{


	my($url) = @_;

	my $ua = LWP::UserAgent->new;

	my @links = ();


	sub attachment_link_extractor
	{
		my ($tag, %attr) = @_;

		push(@links, values %attr)
			if (($tag eq 'a') &&
				($attr{href} =~ m/attachments/));
	}

	my $p = HTML::LinkExtor->new(\&attachment_link_extractor);

	$res = $ua->request(HTTP::Request->new(GET => $url),
				sub {$p->parse($_[0])});

	my $base = $res->base;

	@links = map
		{
			if ($_ =~ /^http/)
			{
				$_ = "/". url($_, $base)->rel;
			}
			else
			{
				$_ = $_;
			}
		} @links;

	$p->links;

	return(@links);

}