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

use strict;
use warnings;


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

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


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

my $FileName = '';
my $Bug=0;
my $Act=0;
my $n=0;
my $m=0;
&main();
exit;


sub main {
		open(BUG,"<LostBugHTML.txt") or die "cannot open readfile.\n";
		$FileName = "GetLostBugHTML\.sh";
		open(OUTFILE, ">$FileName") or die "cannot open savefile.\n";
		while(<BUG>) {
			$Bug= trim($_);
			print OUTFILE join ('',"wget --no-check-certificate --load-cookies=cookies.txt ".		$URL."show_activity.cgi?id=".($Bug)."\n");  # cookieをかませて，HTMLファイルをダウンロードする
		print OUTFILE join ('',"sleep 3\n");  # 3秒間待機する
		}
		close(BUG);
		close(OUTFILE);
	

		open(ACT,"<LostActHTML.txt") or die "cannot open readfile.\n";
		$FileName = "GetLostActHTML\.sh";
		open(OUTFILE, ">$FileName") or die "cannot open savefile.\n";
		while(<ACT>) {
			$Act = trim($_);
			print OUTFILE join ('',"wget --no-check-certificate --load-cookies=cookies.txt ".$URL."show_activity.cgi?id=".($Act)."\n");  # cookieをかませて，HTMLファイルをダウンロードする
			print OUTFILE join ('',"sleep 3\n");  # 3秒間待機する	
		}
		close(ACT);
		close(OUTFILE);
	}

sub trim {
	my $result = $_[0];
	
	if(defined $result) {
		$result =~ s/\r//;    # 復帰
		$result =~ s/\n//;    # 改行
		$result =~ s/^\s*//;  # 先頭の空白
		$result =~ s/\s*$//;  # 末尾の空白
	} else {
		$result = '';
	}
	
	if($result eq '') {
		$result = 'null';
	}
	
	return $result;
}