## OpenCA - CA Command
## Written by Michael Bell for the OpenCA project 2001
## (c) Copyright 2001-2004 The OpenCA Project
##
##   File Name: nodeReceiveCSR
##     Version: $Revision: 1.5.2.2 $
##       Brief: import Requests
## Description: imports from a removable media

use strict;

sub cmdNodeReceiveCSR {

	print startLogPage ( gettext("Importing all requests from a lower level of the hierarchy ...") );

	my $tmp = createDirectory ();
	if (not eximIOReceive ($tmp)) {
		print addPreLogSection ("<FONT COLOR=#FF0000>".
			gettext ("Cannot extract archive from import device!").
			"</FONT>");
		print closeLogSection ();
		print closeLogPage ();
		return undef;
	}
	eximReceiveCSRs   ( $tmp );
	eximReceiveCommit ( $tmp );
	removeDirectory   ( $tmp );

	closePage ();

	return 1;
}

sub getParamsNodeReceiveCSR
{
    return eximMediaConfirm (@_);
}

1;
