sub scripts
{
	($formname,$required,$password,$emailchk,$chkforword,$selection,$radio,$checkbox) = @_;
	@required = split(/,/,$required);
	@selection = split(/,/,$selection);
	@radio = split(/,/,$radio);
	@checkbox  = split(/,/,$checkbox);
		 my	$reqfields = "";
			foreach(@required)
			{
			$reqfields.= "if(valid){chk(document.$formname.$_,\"Please specify value for this field\");}";				
			}
			if($password ne "")
			{
				($pwd1,$pwd2)=split(/:/,$password);
			
				$password="
					if(valid){chk(document.$formname.$pwd1,\"Please specify your Password\");}
					if(valid){chk(document.$formname.$pwd2,\"Please confirm your Password\");}
					if(valid){
						if(document.$formname.$pwd1.value == document.$formname.$pwd2.value)
							valid=true;
				   		else
					   	{
							alert(\"Please Check your password\");
							var cp=document.$formname.$pwd2;
							cp.value=\"\";
							cp.focus();
							valid=false;
						}
						      }";
			
			}
		
			
			if($emailchk ne "")
			{
				@emails = split(/,/,$emailchk);
				
				$emailchk="";
				foreach(@emails)
				{			
				$emailchk.="
				var e=document.$formname.$_;
				if(valid){
				var strS=document.$formname.$_.value;
				var blnB=/^\\w+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}|[0-9]{1,3})(\\]?)\$\/.test(strS);
				if(blnB) { valid=true;}
				else { alert(\"Please specify valid Email-Id\");valid=false;e.focus();}}";
				}			
			}
			if($chkforword ne "")
			{
				$chkforword="
				if(valid){
					var thischk = document.$formname.$chkforword;
					var chkW = /^(\\w+[^\\s+])+\$/.test(thischk.value);
					if(chkW){valid =true;}
					else{alert(\"Please specify valid value\");valid=false;thischk.focus();}
			 }	
			";
		}
		
		if($selection[0] ne "")
		{
			$selectfn="
				function chksel(fieldvalue, msg) 
				{
					if(fieldvalue==\"\")	
					{
					   	 alert(msg); valid = false;
					}
				}
			
			";
			foreach(@selection)
			{
			$selectchk.="if(valid){chksel(document.$formname.$_.options[document.$formname.$_.selectedIndex].value,\"Please select an option from the list\");}";			}
		}

		if($radio[0] ne "")
		{
		$radiofn="
			function rdchk(field,msg)
			{
				var exist=0;
				if(field.checked) exist=1;
				for(var i=0;i<field.length;i++){
				if(field[i].checked)
				{
					exist=1;
					break;
				 }
														 }
				if(exist==0)
				{
					alert(msg);
					valid=false;
				}	
			}
			";
			foreach(@radio)
			{
				$radiochk.= "if(valid){						
				rdchk(document.$formname.$_,\"Please check one of the options\");}";
			}
		}
		
		if($checkbox[0] ne "")
		{
			$chkfn="
			function chek(field,msg)
			{
				var exist=0;
				for(var i=0;i<field.length;i++){
				if(field[i].checked)
				{
					exist=1;
					break;
				 }
														 }
				if(exist==0)
				{
					alert(msg);
					valid=false;
				}	
			}
			";
			foreach(@checkbox)
			{
			$checkchk.="if(valid){chek(document.$formname.$_,\"Please check one of the options\");}";
			}
		}
			#print "Require fields: $reqfields";
		print "
		<script language='javascript'>
		var valid=true;
		function validate(frm)
		{
		valid=true;
		$reqfields
		$chkforword
		$password
		$emailchk
		$selectchk
		$radiochk
		$chekchk
		if(valid)
			 return(true);	
		else
			return(false);
		}
				
		function chk(fieldvalue, msg) 
		{ 
				var thisfield=fieldvalue;
				fieldvalue=fieldvalue.value;
				 re = /\s+/ig;
				 fieldvalue = fieldvalue.replace(re, \"\");	 
			if (fieldvalue == \"\")  
			 {
			   if (valid)  
			  { 
			   	 alert(msg);
		         thisfield.value=\"\";
				 thisfield.focus();
				 valid = false;
				 return(1);
			  }  
			 }
			 else
			  {
			  	return(1);
			  }
		
		} 
		$selectfn
		$radiofn
		$chekfn
</script>";
}