daily pastebin goal
49%
SHARE
TWEET

Untitled

a guest Jan 13th, 2018 63 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. <%@LANGUAGE="PerlScript" CODEPAGE="65001"%>
  2. <!--#include file="../ImovelManager.aspl" -->
  3. <%
  4.     use strict;
  5.     use warnings 'all';
  6.    
  7.     use base 'ASP4::FormHandler';
  8.     use vars __PACKAGE__->VARS;
  9.    
  10.     $Response->{CodePage} = 65001;
  11.     $Response->{charset}="utf-8";
  12.    
  13.     my $site = new ImovelManager($Request, $Response, $Server);
  14.  
  15.     my $cpf = $site->Post("cpf");
  16.     my $senha = $site->Post("senha");
  17.    
  18.     if(defined($cpf) && defined($senha))
  19.     {
  20.         $site->ProcessaSICADI($cpf,$senha);
  21.     }
  22. %>
RAW Paste Data
Top