//---------------------------------------------------------------------------------------------------


//функция проверки формата email
//вход: строка с email
//выход: true или false - верен формат или нет
function checkmail( email )
{
	if( email.length > 0 ) {
		//проверка: @ только один
		first_at_place = email.indexOf("@");
		last_at_place = email.lastIndexOf("@");
		if( (first_at_place-last_at_place)!=0 ) return false;
		//проверка: подстрока до @ - длина >0
		str_before_at = email.substr(0,first_at_place);
		if( str_before_at.length < 1 ) return false;
		//проверка: подстрока после @ - длина >2
		str_after_at = email.substr(first_at_place+1);
		if( str_after_at.length < 3 ) return false;
		//проверка: во второй части - как минимум одна точка, до первой точки и после последней точки длина подстрок > 0
		first_point_place = str_after_at.indexOf(".");
		if( first_point_place == 0 ) return false;
		last_point_place = str_after_at.lastIndexOf(".");
		str_before_point = str_after_at.substr(0,first_point_place);
		if( str_before_point.length < 1 ) return false;
		str_after_point = str_after_at.substr(last_point_place+1);
		if( str_after_point.length < 1 ) return false;
		//подстрока до @ - в ней могут быть только A-Za-z0-9_-.
		counter = str_before_at.length;
		for(i=0;i<counter;i++) {
			chr = str_before_at.charCodeAt(i);
			if( !(chr>64&&chr<91) && !(chr>96&&chr<123) && !(chr>47&&chr<58) && chr!=95 && chr!=45 && chr!=46 ) return false;
		}
		//подстрока после @ - длина >0, в ней могут быть A-Za-z0-9-.
		counter = str_after_at.length;
		for(i=0;i<counter;i++) {
			chr = str_after_at.charCodeAt(i);
			if( !(chr>64&&chr<91) && !(chr>96&&chr<123) && !(chr>47&&chr<58) && chr!=46 && chr!=45 ) return false;
		}
	} else return false;
	return true;
}


//---------------------------------------------------------------------------------------------------