Perl写的CA认证程序

				
								
				// -------------------------------------------------------
				// Javascript 0.2 - OpenCA Software
				//
				// Copyright (c) by Massimiliano Pala and OpenCA group
				// All rights Reserver
				// 
				// -------------------------------------------------------
				
				function selectDB( cmd ) {
				
					var wh = 150;
					var ww = 300;
					var h  = (screen.height-wh)/2;
					var w  = (screen.width-ww)/2;
					var par = "width=" + ww + ",height=" + wh + ",screenx=" +
											w + ",screeny=" + h;
					var msgWindow = window.open("getDB.html", cmd , par);
				
					document.forms[0].cmd.value = cmd;
				
					msgWindow.focus();
				
					return false;
				}
				
				
				//-->