#!/usr/bin/perl
#-------------------
# upgrade
# 2023.05.22 wgetޥɥѥ򥳥եǽ
#-------------------
$manager = $ARGV[0];
$release = "2.3.1";

# ѥ᡼
open(CONFIG,"/opt/proscan/agent/conf/psmt_agent.conf");
while(<CONFIG>) {
    chomp;
    next if /^#/ || /^$/;
    ($name,$value) = split(/=/,$_);
    eval("\$$name = $value");
}
close(CONFIG);

$agent_pkg_file = "/opt/proscan/agent/download/agent_pkg_${release}.tar.gz";
$get_manager_pass = "/opt/proscan/agent/bin/agent -p";
$agent_replace = "/opt/proscan/agent/bin/agent_replace.sh";
$agent_replace_copy = "/tmp/agent_replace.sh";

# wgetޥɤΥѥ
$wget = "/usr/bin/wget";
$wget = $WGET if $WGET;
$wget_opt = "-q -O $agent_pkg_file";

# ФΥɥ쥹
$manager = "$MANAGER" unless $manager;
$port = "$PORT";

# ФΥCGI̾
$cgi = "/cgi-bin/download.cgi";
$cgi_param = "file=agent_pkg_${release}.tar.gz&mode=common";
$url = "http://$manager:$port$cgi";

$pass = `$get_manager_pass $manager`;
$post_data = "--post-data='pass=$pass&$cgi_param'";

umask(077);

print("$wget $wget_opt $post_data $url\n");
system("$wget $wget_opt $post_data '$url'");

exit(1) unless ( -f $agent_pkg_file );
exit(1) if ( -z $agent_pkg_file );

print("cp -p $agent_replace /tmp\n");
system("cp -p $agent_replace /tmp");
print("$agent_replace_copy $agent_pkg_file\n");
system("$agent_replace_copy $agent_pkg_file");

exit($?);
