Detalhes

Categoria: Perl e CGI

Atualização: Quinta, 20 Novembro 2008 11:37

Autor: vovó Vicki

Acessos: 9934

A subrotina checaEmail

A subrotina checaEmail() faz a validação de um endereço de e-mail. É uma rotina pequena e, por isso mesmo, limitada. Esta rotina não verifica a existência do endereço de e-mail, ela apenas checa se há erros de sintaxe.

A subrotina é chamada com um parâmetro, o valor do campo email do formulário. Este parâmetro é obtido através de um shift e atribuído à variável $temp1. A seguir são retirados todos os caracteres "_" e "-" e verifica-se se $temp1 possui um caracter "@".

Caso não exista a arroba, atribui-se à variável $alert uma string contendo o código HTML de uma tabela com um aviso e força-se o retorno com valor zero, o mesmo que falso. Caso contrário, o valor de retorno é 1 ou verdadeiro.

Analisando a chamada a esta subrotina, if (!&checaEmail($FORM{'email'})) { &fazMaster($alert); } verifica-se que, caso a subrotina checaMail() retornar falso, imediatamente é chamada a subrotina fazMaster() carregando a variável $alert contendo a string com o código HTML. A rotina fazMaster utilizará $alert para dar a mensagem de erro e encerra a execução do script. Se não forem encontrados erros, a subrotina fazMaster() nem é chamada e o script vai para a próxima checagem.

A subrotina checaComent

A subrotina checaComent() checa se o campo comentário do formulário está vazio. No mesmo estilo da chamada anterior, se a subrotina checaComent() retornar falso, a subrotina fazMaster() é chamada com a variável $alert contendo a mensagem de erro e encerrra a execução do script; se retornar verdadeiro, o script continua sua execução sem desvios.