#!/usr/bin/perl -w

use strict;

# Comprueba los enlaces locales de una página web

my ($fichero, $dir);
my $prog = `basename $0`; chop $prog;

foreach $fichero (@ARGV) {
	open F, $fichero || die "No puedo abrir $fichero\n";
	$dir = `dirname $fichero`; chop $dir;

	while (<F>) {
		if (/href="?((\w|\$|\.|\/)*)/) {
			my $enlace = $1;
			# Nos saltamos los enlaces que no sean locales
			next if ($enlace =~ /^((f|ht)tp|mailto)$/ || !$enlace);
			next if ($enlace eq "/zoso/cgi");
			print "$prog: enlace roto en $fichero: `$enlace'\n" if (! -f "$dir/$enlace");
		}
	}

	close F;
}