#!c:\perl\bin\perl
###################################################
#  RAID utility CGI Program                       #
#       SAN Project                               #
#                 Copy right. 2005  Hitachi.Lmt.  #
###################################################
#
# RAID 500
# History  :Version       :DATE        : Coder       : Patch No
#          :50-04-28/00-01:2005.09.09  : H.Yasukawa  : USE22225809 PORT80 Block
#
# filename         :chgenv.pl
# 
# Augument 
#       $ARGV[0] : itemno
#       $ARGV[1] : value
#
# Document
# Change value on env.csv parameter.

require "sjschgenv.pl";
$itemno = $ARGV[0] ;
$env_http = $ARGV[1] ;
&chgenv($itemno,$env_http);
