<%@LANGUAGE="PerlScript" CODEPAGE="65001"%>
<!--#include file="../ImovelManager.aspl" -->
<%
    use strict;
    use warnings 'all';

    use base 'ASP4::FormHandler';
    use vars __PACKAGE__->VARS;

    $Response->{CodePage} = 65001;
    $Response->{charset}="utf-8";

    my $site = new ImovelManager($Request, $Response, $Server);

    my $cpf = $site->Post("cpf");
    my $senha = $site->Post("senha");

    if(defined($cpf) && defined($senha))
    {
        $site->ProcessaSICADI($cpf,$senha);
    }
%>