#
#	ファイル名を変更するプログラム
#
#		author	hitoshi-m
#

use strict;
use warnings;


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

my $DirectoryPath = 'C:\Users\kashiwa\Desktop';  #OSSのプロジェクトフォルダがある場所
my $ProjectName   = 'Eclipse';  #OSSのプロジェクト名


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


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

my $BugPath =  '';
my $ActPath =  '';


&main();
exit;


sub main {
	for(my $i=$Min; $i<$Max; $i++) {
		$BugPath = $DirectoryPath."/".$ProjectName."/bug_".$i."_".($i+1)."/";
		$ActPath = $DirectoryPath."/".$ProjectName."/activity_".$i."_".($i+1)."/";
		
		print "Changing File Name : ID=".($i*10000)."...\n";
		print "Bug Path : ".$BugPath."\n";
		print "Act Path : ".$ActPath."\n";
		
		for(my $j=0; $j<(($i+1)*10000); $j++) {
			rename($BugPath."show_bug.cgi%3Fid=".($j+1), $BugPath."show_bug.cgi_id=".($j+1));  # 変更前のファイル名と変更後のファイル名を記述する
			rename($ActPath."show_activity.cgi%3Fid=".($j+1), $ActPath."show_activity.cgi_id=".($j+1));  # 同上
		}
	}
}