tacitochaves

## email-exists.pl
#!/usr/bin/env perl

use strict;
use warnings;

use LWP;

# emailhippo
https://portal.emailhippo.com/Account/Login

## auth.json
{
  "message": "success"
}

## user.json
{
    "nome"   : "Tácito Régis Fernandes Chaves",
    "email"  : "tacito.ma@hotmail.com",
    "perfil" : "admin"
}

## json.data
[{"y":"223","name":"Grupo de OperaÃ§Ã£o Service Desk - SESMA","drilldown":"Grupo de OperaÃ§Ã£o Service Desk - SESMA"},{"y":"56","name":"Grupo Especialista da Cibernix Tecnologia","drilldown":"Grupo Especialista da Cibernix Tecnologia"},{"y":"191","name":"Postmaster","drilldown":"Postmaster"}]

## cad_cli.html
<!DOCTYPE html>
<html>
<head>
  <meta charset="utf-8">
  <title>Tela de Cadastro de Cliente - Pessoa Física</title>
  <style>
    * {
      padding: 0;
      margin: 0;
    }

## tabs.html
<!DOCTYPE html>
<html>
<head>
  <script src="//code.jquery.com/jquery.min.js"></script>
  <link href="//netdna.bootstrapcdn.com/twitter-bootstrap/2.3.2/css/bootstrap-combined.min.css" rel="stylesheet" type="text/css" />
  <script src="//netdna.bootstrapcdn.com/twitter-bootstrap/2.3.2/js/bootstrap.min.js"></script>
  <meta charset="utf-8">
  <title>Tabs an Bootstrap</title>
</head>
<body>

## table.html
<!DOCTYPE html>
<html>
<head>
  <meta charset="utf-8">
  <title>JS Bin</title>
  <style>
    table {
      margin-top: 50px;
      font-family: Verdana, Arial;
      font-size: 12px;

## grid.html
<!DOCTYPE html>
<html>
<head>
  <meta charset="utf-8">
  <title>Exemplo de GRID na mão</title>
  <style>
    * {
      margin: 0;
      padding: 0;
    }

## by-location.pl
#!/usr/bin/env perl
#
# Organization hosts monitored in SESMA
#
# Author: Tácito Chaves - 2014-11-19
# e-mail: chaves@tchaves.com.br
# skype: tacito.chaves

use strict;
#use warnings;

## Ping.pm
package Ping;

use strict;
use warnings;

sub new {
    my $class = shift;
    my $self = { _ip => shift, };
    bless $self, $class;
    return $self;
	#!/usr/bin/env perl

	use strict;
	use warnings;

	use LWP;

	# emailhippo
	https://portal.emailhippo.com/Account/Login
	{
	"nome" : "Tácito Régis Fernandes Chaves",
	"email" : "tacito.ma@hotmail.com",
	"perfil" : "admin"
	}
	<!DOCTYPE html>
	<html>
	<head>
	<meta charset="utf-8">
	<title>Tela de Cadastro de Cliente - Pessoa Física</title>
	<style>
	* {
	padding: 0;
	margin: 0;
	}
	#!/usr/bin/env perl
	#
	# Organization hosts monitored in SESMA
	#
	# Author: Tácito Chaves - 2014-11-19
	# e-mail: chaves@tchaves.com.br
	# skype: tacito.chaves

	use strict;
	#use warnings;
	package Ping;

	use strict;
	use warnings;

	sub new {
	my $class = shift;
	my $self = { _ip => shift, };
	bless $self, $class;
	return $self;