#
#	バッチファイルを自動生成するプログラム
#
#		author	hitoshi-m
#
#		◇入力
#			なし(プログラムファイルに直接記述する)
#
#		◇出力
#			バッチファイル
#
#		◇使用法
#			コマンドラインで、以下のコマンドをたたく(要 Perl 5 以上)
#			> perl [プログラム名].pl
#

use strict;
use warnings;


##############
#    入力    #
##############

my $ProgramPath = 'F:\HOME\Users\2012_Student\Kashiwa_Yutaro\HTML_DATA\Eclipse_2012_6\Account_Extract.pl';  # 変換プログラムの絶対PATH
#my $InfoFile    = 'F:\HOME\Users\2012_Student\Kashiwa_Yutaro\HTML_DATA\Eclipse_2012_6';  # バグ情報のHTMLの絶対PATH
#my $DataFile    = 'F:\HOME\Users\2012_Student\Kashiwa_Yutaro\HTML_DATA\Eclipse_2012_6';  # 活動履歴の絶対HTMLのPATH
my $InfoFile    = 'F:\HOME\Users\2012_Student\Kashiwa_Yutaro\HTML_DATA\Eclipse_2012_6';
my $DataFile    = 'F:\HOME\Users\2012_Student\Kashiwa_Yutaro\HTML_DATA\Eclipse_2012_6';  
my $Min = 0;  # 取得したいバグ情報のIDの上二桁（開始番号）
my $Max = 39;  # 取得したいバグ情報のIDの上二桁（終了番号）


##############
#  変数宣言  #
##############

my $BatFileName = '';
my $InfoFilePath = '';
my $DataFilePath = '';

&main();
exit;


sub main {
	$BatFileName = "Extract_Account".$Min."_".$Max."\.bat";
	open(OUTFILE, ">$BatFileName") or die "cannot open savefile.\n";
	
	for(my $i=$Min; $i<$Max; $i++) {
		for(my $j=($i*10000); $j<(($i+1)*10000); $j++) {
			$InfoFilePath = $InfoFile."\\bug_".$i."_".($i+1)."\\show_bug\.cgi_id=".($j+1);
			$DataFilePath = $DataFile."\\activity_".$i."_".($i+1)."\\show_activity\.cgi_id=".($j+1);
			
			print OUTFILE join ('',"perl $ProgramPath $InfoFilePath $DataFilePath\n");
		}
	}
	
	print OUTFILE join ('',"pause");
	close(OUTFILE);
}