2 // vim: set binary noeol et sw=4 sts=4 :
5 // Lucarella, Schein, Arena
7 // Creado: Leandro Lucarella (dom may 1 00:46:42 ART 2005)
11 require_once 'lib/pagina.php';
13 // Devuelve 1 si el campo f tiene más de max caracteres, -1 si tiene menos
14 // de min caracteres y 0 si está entre max y min. Si max o min es negativo,
15 // no se chequea por un máximo o mínimo respectivamente.
16 function min_max_cant($f, $min, $max)
18 if ($min >= 0 && strlen($f) < $min) return -1;
19 if ($max >= 0 && strlen($f) > $max) return 1;
25 if (preg_match('/^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$/', $f)) return true;
29 // Verifica si el campo f está vacío, dando un error con el nombre n si lo está.
30 function check_vacio($f, $n)
34 error("Falta ingresar el campo $n!");
40 // Verifica si el campo f tiene entre max y min caracteres (ver min_max_cant).
41 // Si hay un error se usa el nombre de campo n para el mensaje.
42 function check_min_max_cant($f, $n, $min, $max)
44 switch (min_max_cant($f, $min, $max))
47 error("El campo $n debe tener a lo sumo $max caracteres!");
50 error("El campo $n debe tener al menos $min caracteres!");
56 // Verifica si los campos f1 y f2 son iguales. Si no lo son se usa el nombrei
57 // n para el mensaje de error.
58 function check_iguales($f1, $f2, $n)
62 error("No coinciden los valores del campo $n!");
68 // Verifica si los campos f1 y f2 son iguales. Si no lo son se usa el nombrei
69 // n para el mensaje de error.
70 function check_email($f, $n)
74 error("$f no es una dirección de e-mail válida!");