#
#	コピペ用シェルスクリプト(Linux用)を自動生成するプログラム
#
#		author	hitoshi-m
#
#		abstract	不具合票取得スクリプトを自動で階層別に移動させる．
#

use strict;
use warnings;


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

my $Project = 'Eclipse';

my $Min = 0;  # 取得したいバグ情報のIDの上二桁（開始番号）
my $Max = 40;  # 取得したいバグ情報のIDの上二桁（終了番号）


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

my $FileName = '';

&main();
exit;


sub main {
	$FileName = "MoveScript\.bat";
	open(OUTFILE, ">$FileName") or die "cannot open savefile.\n";
	
	for(my $i=$Min; $i<$Max; $i++) {
		print OUTFILE join ('',"mkdir bug_".$i."_".($i+1)."\n");  # bugフォルダを作成する
		print OUTFILE join ('',"cp cookies.txt bug_".$i."_".($i+1)."\n");  # bugフォルダにクッキーファイルをコピーする
		print OUTFILE join ('',"move GetBugHTMLFrom".$Project."_".$i."_".($i+1)."\.sh bug_".$i."_".($i+1)."\n");  # bugファイル取得スクリプトを移動させる
		
		print OUTFILE join ('',"mkdir activity_".$i."_".($i+1)."\n");  # activityフォルダを作成する
		print OUTFILE join ('',"cp cookies.txt activity_".$i."_".($i+1)."\n");  # activityフォルダにクッキーファイルをコピーする
		print OUTFILE join ('',"move GetActHTMLFrom".$Project."_".$i."_".($i+1)."\.sh activity_".$i."_".($i+1)."\n");  # activityファイル取得スクリプトを移動させる
		
		print OUTFILE join ('',"\n");
	}
	
	close(OUTFILE);
}