// JavaScript Document

function isInteger(s)
{   var i;
    for (i = 0; i < s.length; i++)
    {   
        // Check that current character is number.
        var c = s.charAt(i);
        if (((c < "0") || (c > "9"))) return false;
    }
    // All characters are numbers.
    return true;
}

function verifyEmail(str) {
	if(!str.match(/^[\w]{1}[\w\.\-_]*@[\w]{1}[\w\-_\.]*\.[\w]{2,6}$/i)) { 
            return false; 
	}
	return true; 
} 

function isUrl(s) {
	var regexp = /(ftp|http|https):\/\/(\w+:{0,1}\w*@)?(\S+)(:[0-9]+)?(\/|\/([\w#!:.?+=&%@!\-\/]))?/
	return regexp.test(s);
}


function Trim(s) 
{
	// Remove leading spaces and carriage returns
	while ((s.substring(0,1) == ' ') || (s.substring(0,1) == '\n') || (s.substring(0,1) == '\r'))
	{ s = s.substring(1,s.length); }
	
	// Remove trailing spaces and carriage returns
	while ((s.substring(s.length-1,s.length) == ' ') || (s.substring(s.length-1,s.length) == '\n') || (s.substring(s.length-1,s.length) == '\r'))
	{ s = s.substring(0,s.length-1); }
	
	return s;
} 
function checkform (member)
{
   if (Trim(member.account_email.value) != "" ) {
   
	  if (verifyEmail(member.account_email.value) == false) {
			alert("Invalid e-mail address: Please enter a valid registered e-mail address.");
			member.account_email.focus();
			return false;
	  }
   }
  if (Trim(member.link_title.value) == "") {
    alert( "Please enter Link Title." );
    member.link_title.focus();
    return false ;
  }
   if (Trim(member.email.value) == "" ) {
    alert( "Please enter Email Address." );
    member.email.focus();
    return false ;
  }
  if (verifyEmail(member.email.value) == false) {
        alert("Invalid e-mail address: Please enter a valid e-mail address.");
		member.email.focus();
        return false;
  }
  if (Trim(member.website.value) == "") {
    alert( "Please enter Website Address." );
    member.website.focus();
    return false ;
   }
   if (!isUrl(member.website.value)) {
    alert( "Please enter Proper Website Address.(Enter Url including 'Ftp | http | https')" );
    member.website.focus();
    return false ;
   }
    if (Trim(member.pr_rating.value) == "") {
    alert( "Please enter PR Rating." );
    member.pr_rating.focus();
    return false ;
   }
   if (!isInteger(member.pr_rating.value)) {
    alert( "Please enter Proper PR Rating." );
    member.pr_rating.focus();
    return false ;
   }
    if (isInteger(member.pr_rating.value) && (member.pr_rating.value <= 3)) {
    alert( "Please enter Proper PR Rating above 3." );
    member.pr_rating.focus();
    return false ;
   }
    if (isInteger(member.pr_rating.value) && (member.pr_rating.value > 10)) {
    alert( "Please enter Proper PR Rating below 10." );
    member.pr_rating.focus();
    return false ;
   }
   if (Trim(member.category.value) == "") {
    alert( "Please enter Category." );
    member.category.focus();
    return false ;
   }
    if (Trim(member.description.value) == "") {
    alert( "Please enter Description." );
    member.description.focus();
    return false ;
   }
   return true;
}
