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

$| = 1;


    $ENV{'upgrade'} = 1;
    $ENV{'alias'} = $cgiVars{'alias'};
    $ENV{'dir'} = $cgiVars{'dir'};
    $ENV{'password'} = $cgiVars{'password'};
open(CGI, "./sec-migrate |") or
        print "<FONT COLOR=\"red\">[Error]Can't run sec-migrate: $!.</FONT>\n";
    while (<CGI>) {
        print;
    }
    close(CGI);
