getdb.scp

Perl写的CA认证程序

<!---

// -------------------------------------------------------
// Javascript 0.2 - OpenCA Software
//
// Copyright (c) by Massimiliano Pala and OpenCA group
// All rights Reserver
// 
// -------------------------------------------------------

function do_ok() {

	var tmp;
	var sel, myInput;

	myInput  = document.forms[0].type;
	sel = myInput.selectedIndex;
	tmp = myInput.options[sel].value;

	if( sel >= 0 ) {
		parent.opener.document.forms[0].dataType.value =
	 			myInput.options[sel].value;	
		parent.opener.document.forms[0].submit();
	} else {
		alert( "No selection Made");
		parent.opener.document.forms[0].reset();

		return false;
	}

   	window.close();
}

function do_canc() {
	window.close(); 
}

function init() {
	focus();
}

// -->