#!c:\perl\bin\perl
###################################################
#  RAID utility CGI Program                       # 
#       SAN Project                               # 
#                 Copy right. 2006  Hitachi.Ltd.  # 
###################################################
#
# History  :Version       :DATE           : Coder        : Patch No
# RAID 500
#          :50-09-00/00-05:2006.09.15  : T.Harada  : USSO2227412
#          :50-09-00/00-05:2006.10.05  :T.Harada   : USSO2227440
#
# filename         :RWCXP
# 
# Augument () 
#
# Document

#requirepɃJgfBNgړ #
chdir("..");
require 'sceCom.cgi';
require 'SSOSubroutine.cgi';

require "nameplate.cgi";
require "message.cgi";
&message();
require 'cgi-lib.cgi';
&ReadParse(*in); 

#p[^󂯎 #
$SSOUserID=$in{'SSOuserid'};
$UA=$in{'UA'};
$HashOneTimeKey=$in{'onetimekey_s'};


##########################
#                        #
#p[^mF          #
#                        #
##########################
if($SSOUserID eq "" || $UA eq "" || $HashOneTimeKey  eq ""){
	require 'sjserror.cgi';
	$error_id1=190;
	$error_id2=5000;
	$error_message=$message[$error_id1][$error_id2];
	&sjserror($error_id1,$error_id2,$error_message);
}
##########################
#                        #
#HP CO ł邩̔  #
#                        #
##########################
require 'oem.cgi';
$oemtype=&oem("type");
require 'lmcpt.cgi';
$lmcpt_type=&lmcpt();
# For HP foreign (XP**)
unless( $oemtype== 2 && $lmcpt_type==1){
	require 'sjserror.cgi';
	$error_id1=190;
	$error_id2=5000;
	$error_message=$message[$error_id1][$error_id2];
	&sjserror($error_id1,$error_id2,$error_message);
}

########################
#                      #
#OCʂֈړ    #
#                      #
########################

#HTTPł̃ANZXHTTPSւ̃ANZXɕύXB #

if($ENV{'SERVER_PORT'} != 443){
	#SSL check
	require "sjs0100.cgi";
	$srvssl=sjs0100() ;
	#SSLNȂhttps

	if ($srvssl == 1)
	{
		#SSO[UGR[h USSO2227440 #
		$SSOUserID = &EncodeCharacter($SSOUserID);

print <<END_OF_REDI_0;
Location: https://$ENV{"HTTP_HOST"}/Proxy/RWCXP?SSOuserid=$SSOUserID&UA=$UA&onetimekey_s=$HashOneTimeKey


END_OF_REDI_0
		exit ;
	#SSLNĂȂȂG[ʂ #
	}else{
		require 'sjserror.cgi';
		$error_id1=290;
		$error_id2=56000;
		$error_message=$message[$error_id1][$error_id2];
		&sjserror($error_id1,$error_id2,$error_message);
		exit ;
	}
}else{

	do "sjc1000.cgi";
}
exit;

