/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
/* Helpskriptoj por kontrolo de formularo:                 */
/* kontrolas cxu formularero havas iun tekston aux ne (1), */
/* cxu retadreso almenaux similas al tia (2).              */
/* Returnas 'true' se jes.                                 */
/* La argumentoj estas stringoj en formo de                */
/* "document.formularo.formularero.value".                 */
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

//1
function cxu_io(f)  //Cxu oni skribis ion (aux nur blankan signon)?
{
  f = eval(f);
  if(f==null||f.length==0)  //Por ne provi malplenan 'string' en la suba 'if'
    return false;
  if(/\S/.test(f))
    return true;   //Almenaux unu neblanka litero ekzistas
  return false;
}

//2
function similas_al_retadres(f)
{
 f = eval(f);
 if(/[^@]+@\w+/.test(f))
   return true;          //Retadreso OK
 return false;
}