#!perl
# Imports Keys and Certificates.
# Called by import.
#
BEGIN {
    @INC = ( '../../perl' );
}
use Cgi;
use BinUtil;

$| = 1;


if ($cgiVars{'version'} eq "3.6") {
    $ENV{'upgrade'} = 1;
    $ENV{'alias'} = $cgiVars{'alias'};
    $ENV{'dir'} = $cgiVars{'dir'};
    $ENV{'password'} = $cgiVars{'password'};
    open(CGI, "./sec-migrate |") or
        print "<FONT COLOR=\"red\">Can\'t run sec-migrate: $!.</FONT>\n";
    while (<CGI>) {
        print;
    }
    close(CGI);
} else {
    # copy alias files over
    BinUtil::copyFile("$cgiVars{'dir'}/alias/$cgiVars{'server'}-cert7.db",
                      "$ENV{'NETSITE_ROOT'}/alias/https-$cgiVars{'name'}-cert7.db");
    BinUtil::copyFile("$cgiVars{'dir'}/alias/$cgiVars{'server'}-key3.db",
                      "$ENV{'NETSITE_ROOT'}/alias/https-$cgiVars{'name'}-key3.db");
}
