#
#	シェルスクリプト(Linux用)を自動生成するプログラム
#
#		author	hitoshi-m
#
#		abstract	3秒間隔でBugzillaにアクセスして，「wget」コマンドを利用して，HTMLをダウンロードする．
#

use strict;
use warnings;


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

my $Project = 'Eclipse';
my $URL = 'https://bugs.eclipse.org/bugs/';

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


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

my $FileName = '';

&main();
exit;


sub main {
	for(my $i=$Min; $i<$Max; $i++) {
		my $FileName = "GetBugHTMLFrom".$Project."_".$i."_".($i+1)."\.sh";
		open(OUTFILE, ">$FileName") or die "cannot open savefile.\n";
		
		for(my $j=($i*10000); $j<(($i+1)*10000); $j++) {
			print OUTFILE join ('',"wget --no-check-certificate --load-cookies=cookies.txt ".$URL."show_bug.cgi?id=".($j+1)."\n");  # cookieをかませて，HTMLファイルをダウンロードする
			print OUTFILE join ('',"sleep 3\n");  # 3秒間待機する
		}
		
		close(OUTFILE);
	}
}