#!/usr/bin/perl -w

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

use strict;

my $agent = new LWP::UserAgent;

# Program čte parametry příkazového řádku, což jsou URL's
sub callback { print "@_\n"; }

for my $url (@ARGV) {
	print STDERR "Will fetch $url.\n";
	my $extor = new HTML::LinkExtor( \&callback );

	# Agentovi zavoláme metodu request, té dáme objekt
	# HTTP::Request (který zde na místě vytváříme "konstruktorem"
	# new) a callback funkci (zde anonymní funkce), která bude
	# volána vždy když přijdou nějaká data; tato callback funkce
	# volá metodu parse objektu $extor, a ta zase volá callback
	# funkci pro každý link, který najde
	my $response = $agent->request(
		HTTP::Request->new(GET => $url),
		sub { $extor->parse($_[0]) }
		);
	my $base = $response->base;
	print "Base was $base.\n";
	### @imgs = map { $_ = url($_, $base)->abs; } @imgs;
}