#!/opt/dev/perl/bin/perl -w

use strict;
use warnings;

use WWW::Mechanize;
use Data::Dumper;
use Test::More qw(no_plan);

my $verbose = 1;

my %files = (
	"index.html.mas" => 1,
	"gm_dictionary.html.mas" => 1,
	"ff_extensions.html.mas" => 1, 
	"review_beyondjava.html.mas" => 1,
	"review_mythicalmanmonth.html.mas" => 1,
	"minute_guide_cvs.html.mas" => 1,
	"switch_dvorak.html.mas" => 1,
	"create_lamp.html.mas" => 1,
	"perl_packages.html.mas" => 1,
	"mechanize_hotjobs.html.mas" => 1,
	"submit_site.html.mas" => 1,
	"setup_validator.html.mas" => 1,
	);
my @list;
my $site = 'http://www.yuonlamp.com/';
my $validator = "http://www.yuonlamp.com/w3c-validator/";
foreach my $file (keys %files)  {
	my $f = $file;
	$f =~ s/\.mas$//;
	$f = $site . $f;
	push @list, $f;
}

my $agent = WWW::Mechanize->new(autocheck => 1);

foreach my $url (@list) {
	print "checking $url\n" if $verbose;
	$agent->get($validator);
	$agent->field("uri", $url);
	$agent->submit();
	ok($agent->status() == 200);
	if (!ok($agent->content() =~ /congratulations/i)) {
		print "$url check failed!\n";
	}
}