<%perl>
my $erro = undef;
my ($username, $userid) = $m->comp("/_shared/procs/users/login/user_check.m",  realm=>'mensagens');

if ($userid){

	if ($categoria){
		
		if ($assunto){
			
			if ($mensagem){
				
				# no err
				
			}else{
		
				$erro = 'empty_msg';
				
			}
				
		}else{
	
			$erro = 'empty_subject';
			
		}
	
	}else{
	
		$erro = 'empty_cat';
			
	}

}else{

	$erro = 'uid';
	
}

return $erro;
</%perl>
<%ARGS>
$assunto=>undef
$mensagem=>undef
$categoria=>undef
</%ARGS>
