#!/usr/bin/perl
#none
#window test timeout=180

use strict;
#use LWP::Simple;

my $gCSSCheckerURL		= 'http://jigsaw.w3.org/css-validator/validator?';
my $gCSSCheckerOption	= 'warning=2&profile=css2&usermedium=all';
my $gCSSTextParam		= '&text=';

#
&run();
#
sub run
{
	my $fileName	= $ARGV[0];

	open( FILE, "$fileName" );
	my @cssLines	= <FILE>;
	close( FILE );

	foreach my $line ( @cssLines )
	{
		#必要ないスペースを削ってurlを短くしてみる
		$line =~ s/\r\n//g;
		$line =~ tr/ \t/ /s;
		
		$line	= &URLEncode( $line );
	}
	
	my $sendCSS	= join( '', @cssLines );
	my $url	= $gCSSCheckerURL . $gCSSCheckerOption . $gCSSTextParam . $sendCSS ;
	system( "open '$url'" );
	
	#print $url;
}

sub URLEncode
{
	my $inText = shift;
	$inText =~ s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge;
	$inText =~ s/\s/+/g;
	return $inText
}