#!/usr/bin/perl
#none

use Encode qw(from_to);

my $inPathName = $ARGV[0];
&from_to( $inPATH, 'utf-8', 'euc-jp' );	#'shiftjis' 'utf-8'

my ( $inFolder, $inFile )			= $inPathName =~ m!(.*)/(.*?)$!;
my ( $gScriptFolder, $gScriptName ) = $0 =~ m!(.*)/(.+?)$!;

my $script =<<"END_SCRIPT";

tell application "Terminal"
activate
do script "echo start" in window 1
do script "cd '${inFolder}'" in window 1
do script "perl $gScriptFolder/checkHTMLAll.pl -printToFile" in window 1
end tell

END_SCRIPT


my @script 	= split("\n", $script );
foreach my $script ( @script )
{
	$script	=~ s/"/\\"/g;	#"
	&from_to( $script, 'euc-jp', 'shiftjis' );
	$script	= qq|-e "$script"|
}
$script	= join(' ', @script );
`osascript $script`;
#system( "osascript $script > /dev/null &" );