#  Hitachi SVP                               
#  Apache Install tool for Hitachi SVP
#       All Rights Reserved, Copyright (C) 2019 Hitachi, Ltd.
#
# History  :Version    :DATE        : Coder        : Patch No
# Hitachi SVP 
#          :01-00      :2019.08.28  : J.Okuno      : #82714 (Apache2.4.39 is supported)
#
#
# Document
# VC++Runtime version fix
#


$REGKEY = "";
$ARGV_VALUE = 1;

if (@ARGV == $ARGV_VALUE)			#引数の数が合っているかチェック
{
	if (-e $ARGV[0])	#一つ目の引数のファイルが存在するかチェック
	{
		$REGKEY = &RuntimeRegkeyGet($ARGV[0]);
	}
}

print STDOUT $REGKEY;

sub RuntimeRegkeyGet {
	my $REGKEY_TMP = "";
	my $REGKEY_RUNTIME = "";

	open($REGKEY_LIST,"< $ARGV[0]");	#読み込みファイル

	#一行ずつ読みこむ
	while(my $line = readline $REGKEY_LIST)
	{
		if ( $line =~ /\QHKEY_LOCAL_MACHINE\E/)
		{
			$REGKEY_TMP = $line;		#レジストリキー仮取得
		}
	    elsif ( $line =~ /\QMicrosoft Visual C++ 2017 Redistributable (x64)\E/)
		{
			#Microsoft Visual C++ 再頒布可能パッケージがあった場合、While文から抜ける。
			$REGKEY_RUNTIME = $REGKEY_TMP;
			last;
		}
		else
		{
		}
	}
	close(REGKEY_LIST);

	return $REGKEY_RUNTIME;
}