$mail="0" if (!($mail =~ /.*\\@.*\\..*/));
if ($FORM{url} ne "http:\\/\\/") {
$url=$FORM{url};
} else {
$url="0";
}
$url="0" if (!($url =~ /.*\\:.*\\..*/ ));
$text_len = length ($text);
if ($text_len > $max_record_size) {&error;}
if ($text=~/\\S{$max_word_lenth,}/)