From payback at hotmail.com.br  Mon Jan 11 11:26:57 2016
From: payback at hotmail.com.br (kleber caetano)
Date: Mon, 11 Jan 2016 17:26:57 -0200
Subject: [SP-pm] script perl no windows 10
Message-ID: <COL126-DS17DB8FE31F840F40B9D68292C90@phx.gbl>

Ol? Sr(s),

Migrei para o windows 10 e estou tendo um problema com um aplicativo em perl quando utilizo o edge ,
entretanto , quando utilizo o explorer 11 o aplicativo ? executado normalmente.

Nota[1] - Este aplicativo refere-se a um chat ( sala de reuni?o online ).

O problema ( no edge ) ocorre quando :

- Ele reenvia as mensagens ( atrav?s do comando <meta http-equiv="refresh" content="5,?todas"/> )  para 
  os participantes da sala de reuni?o ou seja n?o est? enviando nada.
- Quando ? encerrada a reuni?o , o aplicativo elimina os arquivos de trabalho , por?m , no edge isto 
  n?o est? acontecendo.   

Nota[2] - No explorer 11 estes problemas n?o ocorrem.

Nota[3] - O script em perl  foi desenvolvido por um amigo que conhecia bastante perl 
               entretanto meu conhecimento ? limitado. 

Nota[4] ? Estou trabalhando com ActivePerl-5.16.3.1603-MSWin32-x86-296746 

Nota[5] ? Caso considerem necess?rio , tenho como disponibilizar um link de acesso a este site sala.cgi

Nota[6] - Quando instalei o windows 10 , o reload autom?tico  funcionava , entretanto ,  
                ao realizar uma manuten??o grande ( nova vers?o acho ) o problema apareceu.
                O problema de n?o eliminar os arquivos tempor?rio de trabalho existem
                desde a instala??o inicial do windows 10

Nota[7] ? coloquei duas marcas no script onde eu acho que as fun??es s?o executadas:

######################### aqui elimina os arquivos de trabalho ###################################

##################### aqui reenvia mensagens para os participantes #############################

Algu?m sabe como resolver isto ?

Agrade?o a aten??o ,

kleber    

=================================================================================================
                                                         script em perl  ( sala.cgi )
=================================================================================================
#!perl
print "Content-type:text/html\n\n";
use CGI::Carp(fatalsToBrowser);

###############################################################################################
#                                     CONFIGURA??ES GERAIS                                                                                                            #
#                                                                                                                                                                                          #
$titulo = "Sala de Reuni?o Online";        # T?tulo do script                                                                                                #
$master = "master.log";                         # Arquivo tempor?rio a guardar primeiro usu?rio                                              #
$log    = "logs.log";                                # Arquivo tempor?rio de logs totais                                                                    #
$log2   = "logs2.log";                            # Arquivo tempor?rio de logs da sess?o                                                              #
$online = "online.log";                         # Arquivo tempor?rio com nomes dos usu?rios Online                                        #
$estilos= "estilos.css";                        # Arquivo com os estilos dentro da pasta modelos                                              #
$topo   = "topo.html";                         # Template do Topo                                                                                                #
$fim    = "fim.html";                           # Template do Fim                                                                                                   #
#                                                                                                                                                                                         #
#                                                                                                                                                                                         #
#                                     FIM DAS CONFIGURA??ES                                                                                                         #
###############################################################################################

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@conteudo = split(/&/, $buffer);
foreach $par (@conteudo) {
        ($campo, $valor) = split(/=/, $par);
        $valor =~ tr/+/ /;
        $valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $CAMPO{$campo} = $valor;
    }

$qs = "$ENV{QUERY_STRING}";
&data;
&style;
if ($qs eq ""){
print qq|
<BR><BR><BR><BR><BR><BR><BR>
|;
&topo;
print qq?
<script language="JavaScript">
<!--
altura = 690;
largura= 1090;
l = (screen.width - largura)/2;
t = (screen.height - altura - 50)/2; 
var flag = "";
var idioma=1;
var strCookie='payback';

function LerCookie(strCookie) {
    var strNomeIgual = strCookie + "=";
    var arrCookies = document.cookie.split(';');
    for(var i = 0; i < arrCookies.length; i++)
    {
        var strValorCookie = arrCookies[i];
        while(strValorCookie.charAt(0) == ' ')
        {
            strValorCookie = strValorCookie.substring(1, strValorCookie.length);
        }
        if(strValorCookie.indexOf(strNomeIgual) == 0)
        {
            var mensagem=strValorCookie.substring(strNomeIgual.length, strValorCookie.length);
            flag = mensagem;
            mensagem ='';
            return;
        }
    }
    alert ( '!!!! Erro cr?tico : N?o foi poss?vel restaurar ?rea de transfer?ncia' );
    top.location.href = "/payback/index.htm";   
};
function init(form) {
              LerCookie(strCookie);
              if (flag != null ) {
                 flag = flag.split('|'); 
                 document.form.login.value = flag[9];
              }
              document.form.tema.focus();
}
function Entra(form) {
        if (document.form.tema.value.length == 0)  {
            alert("O tema da reuni?o n?o foi informado");
            document.form.tema.focus();
            document.form.tema.select();
            return false;
        } 
        novajanela = window.open("", "entrar", "scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l); 
        return true;
}
function showSalaHelp() {
      altura1=400;
      largura1= 800;
      l1 = (screen.width - largura + 250)/2;
      t1 = (screen.height - altura + 250)/2;   
      var html = '<HTML><HEAD><TITLE></TITLE></HEAD>';
          html += '<BODY background="/reuniao/imagem/papel.jpg" TEXT="#000066"><br><table align=center><tr><td><h4><b>SALA &nbsp;  DE &nbsp;  REUNI?O &nbsp;  ONLINE &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></h4></td></tr></table><br><TABLE ALIGN=CENTER><font size=2><TR><TD><PRE><b>';                      
          html += '<li>O dado usu?rio deve ser ?nico por sala.';
          html += '<li>O dado tema da reuni?o ser? o ponto de encontro dos participantes na sala.<br>';
          html += '   Este texto n?o pode conter espa?o , por exemplo , informar Aquisi??o_de_Filial';
          html += '<li>O sistema diferencia letra mai?scula de min?scula para identifica??o da sala.';
          html += '<li>Cada sala ter? um ?nico tema n?o tendo limita??es de quantidade de aberturas de<br>';
          html += '   salas e participantes.<br>';
          html += '<li>O usu?rio que abrir a sala ou seja o primeiro a entrar receber? uma tarefa de<br>';
          html += '  encerrar a reuni?o ( bot?o especial ).<br>  Este usu?rio , ao sair da sala , provocar? a elimina??o dos arquivos que registram<br>  os textos digitados.<br>  Portanto , recomenda-se dar um tempo de poucos segundos antes de sair da sala.';
          html += '<li>Ao acionar o bat?o especial ENCERRAR REUNI?O , o texto REUNI?O FINALIZADA<br>';
          html += '   ? enviado ? sala e nenhuma nova mensagem ? registrada pelo sistema.';
          html += '<li>? recomend?vel que os participantes imprimam a ata de reuni?o ap?s esta a??o.<br>';
          html += '<li>Para ajuda de formata??o do texto mensagem , na sala de reuni?o , acionar a tecla F1';
          html += '<li>Os documentos enviados ao servidor para serem apresentados como anexo ,<br>  ser?o eliminados quando o sistema operacional for reinicializado.<br>';
          html += '  Nota - O documento apresentado como anexo  , para ser baixado no servidor , dever? ter<br>         no m?ximo 500 kbytes.';
          html += '</TABLE></FONT></B></PRE></BODY></HTML>';
          var newWindow = window.open("","","scrollbars=auto,height="+altura1+",width="+largura1+",top="+t1+",left="+l1);
          newWindow.document.write(html);
          newWindow.document.close();
          event.cancelBubble = true;
          return false;
}
//-->
</script>
<style type="text/css"><!--
.multi_bg { background-image : linear-gradient(to right, rgba(30, 75, 115, 0.5),  rgba(30, 75, 115, 0.5)); }
-->
</style>
</HEAD>
        <body onload="init(this.form)" onHelp="return showSalaHelp()" BGCOLOR="#ADB6C6" TEXT="#003366" class="multi_bg">
        <form action="?entra" method="POST" name="form" target="entrar" id="form" OnSubmit="return Entra(this)">
        <br>
        <strong><font color="#ffffff" size="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<label class='sombra'><b>Escolha um tema para entrar</label></font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="/reuniao/imagem/help.gif" onClick="showSalaHelp();document.form.tema.focus()" WIDTH="18" HEIGHT="18" style="cursor:pointer" title ="Ajuda do sistema">
        <br><br>
        <div align="center">
              <table>
                <tr> 
                   <!-- <td width="33%"><div align="right"><font class="sombra"><font color="#ffffff" size="2"><b>Usu&aacute;rio&nbsp;&nbsp;</b></font></div></td> --> 
                  <td><input type="hidden" name="login" class="campo" onFocus="document.form.tema.focus()" onHelp="return showSalaHelp()"></td>
                 </tr>
                <tr> 
                  <td><div align="right"><font class="sombra"><font color="#ffffff" size="2"><b>Tema&nbsp;&nbsp;</b></font></div></td>
                  <td><input name="tema" type="text" class="campo" id="tema" onHelp="return showSalaHelp()"></td>
                </tr>
              </table><br>
              <table>
             <tr>
                 <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
                 <td align="center" colspan=2><input type="submit" value="Entrar" class="botao" STYLE='cursor: pointer;font-weight:bold'></td>
            </tr>
             </table><br>
        </div>
?;&fim;}

if ($qs eq "entra"){
if ($CAMPO{login} eq ""){ 
print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|; 
&topo;
print qq|<br>Voc? deve digitar um nome de usu?rio antes de entrar na sala ! <br><br>
<div align="center">
<input type="button" class="botao2" onClick="javascript:windows.close()" value="Fechar Janela"><br>
</div>
|;
&fim;
}else{ 
if ($CAMPO{tema} eq "" ){   
print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;  
&topo;
print qq|<br>Voc? deve digitar um tema antes de entrar na sala ! <br><br>
<div align="center">
<input type="button" class="botao2" onClick="javascript:window.close()" value="Fechar Janela"><br>
</div>
|;
&fim;
}else{
if (-e "$CAMPO{tema}"."_"."$log"){ 
open(ONLINE,"$CAMPO{tema}_$online");
@online = <ONLINE>;
close(ONLINE);

foreach (@online){
chomp;
s/%//gi;
if ($CAMPO{login} eq "$_"){
$repetido = "1";
}else{
$repetido = "0";
}}
if ($repetido eq "1"){
print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;  
&topo;
print qq|<br>Este nome de usu?rio j? est? em uso! Por favor escolha outro.<br><br>
<div align="center">
<input type="button" class="botao2" onClick="javascript:window.close()" value="Fechar Janela"><br>
</div>
|;&fim;
}else{
open(MASTER,"$CAMPO{tema}_$master");
$master = <MASTER>;
close(MASTER);
chomp $master;
$master =~ s/%//gi;

if ($CAMPO{login} eq $master){$a = "1";} else {$a = "0";}
open(ONLINE,">>$CAMPO{tema}_$online");
print ONLINE qq|%$CAMPO{login}%\n|;
close(ONLINE);

open (SALA, ">>$CAMPO{tema}_$log");
print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
close(SALA);

open (SALA, ">>$CAMPO{tema}_$log2");
print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
close(SALA);

&topo;&msg;&fim;
}}else{

open(MASTER,">$CAMPO{tema}_$master");
print MASTER qq|%$CAMPO{login}%\n|;
close(MASTER);

open(ONLINE,">>$CAMPO{tema}_$online");
print ONLINE qq|%$CAMPO{login}%\n|;
close(ONLINE);

open (SALA, ">>$CAMPO{tema}_$log");
print SALA qq|<div align="center"><font class="texto"><h5>ATA DA REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
close(SALA);

open (SALA, ">>$CAMPO{tema}_$log2");
print SALA qq|<div align="center"><font class="texto"><h5>ATA DA REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
close(SALA);
$a = "1";
&topo;&msg;&fim;
}}}}

if ($qs eq "escreve2"){
$CAMPO{msg} =~ tr/+/ /;
$CAMPO{msg} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$CAMPO{tema} =~ tr/+/ /;
$CAMPO{tema} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($CAMPO{msg} eq ""){
print qq|
<script language="Javascript">
<!--
alert ('Mensagem n?o informada')
//-->
</script>
<body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
|;}else{

if ($CAMPO{msg} eq "REUNI?O FINALIZADA"){

open(LOG,">>$CAMPO{tema}"."_"."$log");
print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O FINALIZADA</b></font></div><br>\n|;
close(LOG);

open(LOG,">$CAMPO{tema}"."_"."$log2");
print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O FINALIZADA</b></font></div><br>\n|;
close(LOG);

print qq|
<body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
|;
}else{

open(LOG,"$CAMPO{tema}"."_"."$log");
@log = <LOG>;
close(LOG);
$r = "0";
foreach (@log){
chomp;
if($_ eq "<br><div align=\"center\"><font class=\"texto\"><b>REUNI?O FINALIZADA</b></font></div><br>"){
$r = "1";
}}

if ($r eq "1"){
print qq|
<body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
|;
}else{

open(LOG,">>$CAMPO{tema}"."_"."$log");
print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
close(LOG);
open(LOG,">>$CAMPO{tema}"."_"."$log2");
print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
close(LOG);
print qq|
<body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
|;}}}}

if ($qs =~ /imprimir/){
&imprimir;
}

if ($qs =~ /logout/){
&logout;
}

if ($qs =~ /principal/){
&principal;
}

if ($qs =~ /principal2/){
&principal2;
}

if ($qs =~ /todas/){
&todas;
}

sub data{
($seg,$min,$hr,$dia,$mes,$ano) = localtime();
if ($hr < "10"){$hr = "0$hr";}
if ($min < "10"){$min = "0$min";}
if ($seg < "10"){$seg = "0$seg";}

@mes = ("janeiro","fevereiro","mar?o","abril","maio","junho","julho","agosto","setembro","outubro","novembro","dezembro");
$ano = 1900+$ano;

$data  = "$hr:$min:$seg, $dia de @mes[$mes] de $ano";
}

sub fim{
open(FIM,"$fim");
@fim=<FIM>;
close(FIM);
print "@fim";
}

sub imprimir {
$qs =~ s/imprimir=//;
$qs =~ tr/+/ /;
$qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

open (LOG,"$qs"."_"."$log");
@log = <LOG>;
close(LOG);

print qq|
<html>
<head>
<title>$titulo</title>
@style
</head>
<body onload="this.window.print()">
@log
</body>
|;}

sub logout{
$qs =~ s/logout=//gi;
($login,$tema) = split (/-/,$qs);
$login =~ tr/+/ /;
$login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$tema =~ tr/+/ /;
$tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

open(LOG,">>$tema"."_"."$log2");
print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b> saiu da sala</b></font><br>\n|;
close(LOG);

open(LOG,">>$tema"."_"."$log");
print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b> saiu da sala</b></font><br>\n|;
close(LOG);

open(ONLINE,"$tema"."_"."$online");
@online = <ONLINE>;
close(ONLINE);

@on = @online;
foreach (@on){
chomp;
if ($_ =~ /%$login%/){
s/$_//;
}}

open(ONLINE,">$tema"."_"."$online");
print ONLINE qq|@on|;
close(ONLINE);

open(ONLINE,"$tema"."_"."$online");
@online = <ONLINE>;
close(ONLINE);

if (length ("@online") eq "0"){
unlink("$tema"."_"."$master");  ######################### aqui elimina os arquivos de trabalho ###################################
unlink("$tema"."_"."$online");  #################   n?o est? sendo executado no edge    ###########################################
unlink("$tema"."_"."$log2");
unlink("$tema"."_"."$log");
}else{}

print qq|
<html>
<head>
<title>$titulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
function Logout(){
this.window.close()
}
</script>
</head>
<body onload="javascript:Logout()">
</body>
</html>
|;}

sub msg{
$qs =~ tr/+/ /;
$qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
open (LOG, "$qs"."_"."$log2");
@log = <LOG>;
close(LOG);

$finalizado = "0";

foreach (@log){
chomp;
print $_;
if ($_ eq "REUNI?O FINALIZADA"){
$finalizado = "1";
}}

print qq|
<script language="JavaScript">
function Imprimir(){
altura =690;
largura= 1090;
l = (screen.width - largura)/2;
t = (screen.height - altura - 50)/2; 
window.open("?imprimir=$CAMPO{tema}","","scrollbars,height="+altura+",width="+largura+",top="+t+",left="+l); 
}
function unLoad(){
window.open("?logout=$CAMPO{login}-$CAMPO{tema}","","width=80,height=80")
}
</script>
<body onunLoad="unLoad()">
<table>
<tr><td>
<font class="texto1"><b> Usu?rio: $CAMPO{login}</b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</td><td>
&nbsp;<font class="texto1"><b> Tema: $CAMPO{tema}<br></b></font>
</td><td>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/calculadora.gif" onClick="calculadora()" WIDTH="18" HEIGHT="22" style="cursor:pointer" title ="Calculadora financeira">      
</td><td>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/Email.gif" onClick="email()" WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Correspond?ncia interna">      
</td><td>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/acessorio.gif" onClick="acessorio()" WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Acess?rios">      
</td><TD>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/alarme.gif" onClick="alarme()" WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Alarme">      
</td></tr></table>
<iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe" width="1010" height="480" style="overlap:auto"></iframe>
<iframe align="middle" src="?principal2=$CAMPO{tema}-$CAMPO{login}" name="iframe2" width="1010" height="75" style="overlap:auto"></iframe>
<table>
<tr>
<td><input type="button" class="botao" value="Ata de reuni?o" onClick="javascript:Imprimir()" STYLE='cursor:pointer;font-weight:bold'></td>
<td>&nbsp;</td>
<td><div align="right">
<input type="button" class="botao2" value="Sair da Sala" onClick="javascript:window.close()"  STYLE='cursor:pointer;font-weight:bold'></div></td>
<td>&nbsp;</td>
|;

if($a eq "1"){print qq|<td><div align="center">
<form name="form" method="post" action="?escreve2" target="iframe2">
            <input name="msg"    type="hidden" size="80" class="campo" value="REUNI?O FINALIZADA">
            <input name="login"  type="hidden" class="campo" value="$CAMPO{login}">
            <input name="tema"   type="hidden" class="campo" value="$CAMPO{tema}">
            <input type="submit" value="Encerrar Reuni?o" class="botao" STYLE='cursor: pointer;font-weight:bold'>          
</form>
</div>
</div></td></tr>|;}print qq|</table><br>|;}

sub principal{
$qs =~ s/principal=//;
$qs =~ tr/+/ /;
$qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

open (LOG, $qs."_".$log2);
@log = <LOG>;
close(LOG);

$finalizado = "0";

foreach (@log){
chomp;
if ($_ eq "REUNI?O FINALIZADA"){
$finalizado = "1";
}}
if ($finalizado eq "1"){print qq|
<font class="texto">
A REUNI?O FOI FINALIZADA. VOC? PODE IMPRIMIR OU VISUALIZAR O RELAT?RIO
</font>|;

}else{print qq|
<html>
<head>

@style
<script language="JavaScript">
<!--
   function scroll() {
     if( document.body && document.body.clientHeight ) {
       window.innerHeight = document.body.clientHeight
     }
     window.scrollTo( 0, (window.innerHeight/0.1) )
   }

    function focus(){
      document.form.msg.focus()
    }

    function enter(string){
             insertAtCaret(document.form.msg,string); 
             focus()
    }

   function insertAtCaret (textObj, textFeildValue) {
       if(document.all){ 
            if (textObj.createTextRange && textObj.caretPos) {
                var caretPos = textObj.caretPos;
                caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?textFeildValue + ' ' : textFeildValue;
            }else{
                textObj.value = textFeildValue;
            }
      }else{
            if(textObj.setSelectionRange){
               var rangeStart = textObj.selectionStart;
               var rangeEnd = textObj.selectionEnd;
               var tempStr1 = textObj.value.substring(0,rangeStart);
               var tempStr2 = textObj.value.substring(rangeEnd);
               textObj.value = tempStr1 + textFeildValue + tempStr2;
           }else{
               alert("Esta vers?o do navegador n?o suporta setSelectionRange");
           }
     }
  }

   function clear_field(){
      document.form.msg.value = ''
      document.form.msg.focus()
      document.form.msg.select() 
   }

   function anexar(){
             altura = 450;
             largura= 700;
             l = (screen.width - largura)/2;
             t = (screen.height - altura - 50)/2;              
             var html =  '<HTML><HEAD><TITLE></TITLE>'
                 html += '</HEAD><BODY background="/reuniao/imagem/papel.jpg"  TEXT="#000066">'
                 html += '<BR><BR><BR><table align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000">Apresentar documento como anexo</label></h3></th></tr></table><br><br>'
                 html += '<FORM NAME="anexo" METHOD="POST" ACTION="/reuniao/temp/upload.plx" ENCTYPE="multipart/form-data">'
                 html += '<br>'
                 html += '<TABLE align=center>'
                 html += '<tr>'
                 html += '<td><input type="file" name="arquivo" size="60" maxlength="90"></td>'
                 html += '</tr>'
                 html += '</table>'
                 html += '<br><br><br>'
                 html += '<TABLE align=center>'
                 html += '<tr>'
                 html += '<td bgcolor=#ADB6C6><input type="submit" value="    Processa    " style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
                 html += '</TR>'
                 html += '</table>'
                 html += '</form>'  
                 html += '</body>'
                 html += '</html>'
             var newWindow = window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
             newWindow.document.write(html)
             newWindow.document.close()
             focus()
             return false              
   }

   function publicar(){
             altura = 450;
             largura= 700;
             l = (screen.width - largura)/2;
             t = (screen.height - altura - 50)/2;              
             var html =  '<HTML><HEAD><TITLE></TITLE>'
                 html += '</HEAD><BODY background="/reuniao/imagem/papel.jpg"  TEXT="#ffffff">'
                 html += '<BR><BR><BR><table align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000">Ponto de publica??o web</label></h3></th></tr></table><br><br>'
                 html += '<FORM NAME="publica" METHOD="POST" ACTION="/reuniao/temp/publica.plx">'
                 html += '<br>'
                 html += '<TABLE align=center>'
                 html += '<tr>'
                 html += '<td><input type="text" name="http" size="60" maxlength="90" value = "http://"></td>'
                 html += '</tr>'
                 html += '</table>'
                 html += '<br><br><br>'
                 html += '<TABLE align=center>'
                 html += '<tr>'
                 html += '<td bgcolor=#ADB6C6><input type="submit" value="    Processa    " style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
                 html += '</TR>'
                 html += '</table>'
                 html += '</form>'  
                 html += '</body>'
                 html += '</html>'
             var newWindow = window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
             newWindow.document.write(html)
             newWindow.document.close()
             focus()
             return false              
   }

  function showMsgHelp() {
      alert("                            SALA DE REUNI?O ONLINE\\n\\nMensagem -> Campo alfa num?rico com tamanho de 300 caracteres e diferente de espa?o.\\n\\nNota - ? recomend?vel que uma linha de mensagem tenha no m?ximo 80 caracteres visando dar maior clareza no relat?rio ATA DE REUNI?O.\\n\\nTAGS ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\n<br> - Salto de linha\\n<p> - Salto de par?grafo\\n<b>texto</b> - Texto em negrito\\n<font size=4>texto</font> - Texto com fonte igual a 4 pixel\\n<font color=red>texto</font> - Texto com cor em vermelho\\n<i>texto</i> - Texto em it?lico\\n<u>texto</u> - Texto sublinhado\\n<sub>texto</sub> - Texto subscrito\\n<sup>texto</sup> - Texto sobrescrito\\n<ol><li>texto1<li>texto2<li>texto3</ol> - Lista num?rica dos textos\\n<li>texto1<li>texto2<li>texto3 - Marca??o dos textos\\n\\nNota - Os par?metros de formata??o de texto podem ser utilizados simultaneamente.\\n\\n                EXEMPLO DE UTILIZA??O\\n\\nOl? sr(s) , bom dia a todos<br>Vamos dicurtir a <font size=3 color=red><b>Aquisi??o do im?vel em S?o Paulo.</b></font><br>O Paulo vai nos descrever as alternativas que dispomos.\\n\\n\\nFUN??ES ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\nLimpa -      Move espa?o para o campo mensagem\\nLinha -       Move <br> para o campo mensagem para quebrar linha\\nLista -        Move marcador <li> para o campo mensagem com salto de linha\\nNum?rico Move marcador <ol> para o campo mensagem\\nCola -        Coloca texto da ?rea de transfer?ncia no campo mensagem\\nAnexa -     Disponibiliza documento como um anexo para apresenta??o\\nPublica -   Disponibiliza um link de acesso referente a uma publica??o na internet\\nReal?a -    Evid?ncia uma parte do texto selecionado no campo mensagem\\nSublinha - Real?a um texto selecionado no campo mensagem sublinhando-o")
      event.cancelBubble = true
      return false
  } 

//-->
</script>
</head>
<body>
@log
</body>
</html>|;
}}

sub principal2 {
$qs =~ s/principal2=//;
($tema,$login) = split (/-/,$qs);
$tema =~ tr/+/ /;
$tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$login =~ tr/+/ /;
$login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

print qq|
@style

<body  onLoad="document.form.msg.focus()" onHelp="return showMsgHelp()" class="table3" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
<table>
  <tr>
    <td> &nbsp;</td>
    <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/clear.png" onClick="clear_field()"   WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Limpar campo mensagem"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/linha.png" onClick="enter('<br>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Salto de linha"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/lista.gif" onClick="enter('<li>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Marcador de lista"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
    <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/nlist.gif" onClick="enter('<ol>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Marcador num?rico"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
    <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
    <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/anexo.png"   onClick="anexar()"      WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Anexar docto"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
    <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/wlink.gif"   onClick="publicar()"    WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Publicar um link da internet"  STYLE='cursor: hand; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
    <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/help.gif"    onClick="showMsgHelp()" WIDTH="18" HEIGHT="18" style="cursor:pointer" title ="Ajuda do sistema"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
</tr>
</table><br>
<table  align="center">
  <tr>
    <td class="texto"><form name="form" method="post" action="?escreve2">
          <div align="center"><b><font size=2><label class='sombra'>&nbsp; Mensagem &nbsp; </label></b></fonte> 
            <input name="msg"     type="text"      class="campo" size="120" maxlength="300" onHelp="return showMsgHelp()">
            <input name="login"   type="hidden"    class="campo" value="$login">
            <input name="tema"    type="hidden"    class="campo" value="$tema">
            <input type="submit"  value="Enviar"   class="botao" >              
          </div>
    </td>
  </tr>
</table>
</form>
</div>
</body>
|;}

sub style{
open(STYLE, "$estilos");
@style = <STYLE>;
close(STYLE);
}

sub todas{
$qs =~ s/todas=//;
$qs =~ tr/+/ /;
$qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

open (LOG, $qs."_".$log);
@log = <LOG>;
close(LOG);

print qq|
<meta http-equiv="refresh" content="5,?todas"/> ##################### aqui reenvia mensagens para os participantes #############################
@style
<script>
<!--
  function rolar() {
    if( document.body && document.body.clientHeight ) {
      window.innerHeight = document.body.clientHeight
    }
    window.scrollTo( 0, (window.innerHeight/0.1) );
  }
//-->
</script>
<body onLoad="javascript:rolar()">
@log|;}

sub topo{
open(TOPO,"$topo");
@topo=<TOPO>;
close(TOPO);
print "@topo";
}
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160111/71d8e501/attachment-0001.html>

From lucastiagodemoraes at gmail.com  Mon Jan 11 11:33:41 2016
From: lucastiagodemoraes at gmail.com (Lucas Moraes)
Date: Mon, 11 Jan 2016 17:33:41 -0200
Subject: [SP-pm] script perl no windows 10
In-Reply-To: <COL126-DS17DB8FE31F840F40B9D68292C90@phx.gbl>
References: <COL126-DS17DB8FE31F840F40B9D68292C90@phx.gbl>
Message-ID: <CAPpv0_oJAxED39CB8g8LwBr1No6j1UUOgMmyfwFwY1XjBCqEpQ@mail.gmail.com>

Aconselho voc? atualizar a pagina com javascript.

setInterval(function(){ window.location.href = '?todas' }, 5000);

Falou.

Em 11 de janeiro de 2016 17:26, kleber caetano <payback at hotmail.com.br>
escreveu:

> Ol? Sr(s),
>
> Migrei para o windows 10 e estou tendo um problema com um aplicativo em
> perl quando utilizo o edge ,
> entretanto , quando utilizo o explorer 11 o aplicativo ? executado
> normalmente.
>
> Nota[1] - Este aplicativo refere-se a um chat ( sala de reuni?o online ).
>
> O problema ( no edge ) ocorre quando :
>
> - Ele reenvia as mensagens ( atrav?s do comando <meta http-equiv="refresh"
> content="5,?todas"/> )  para
>   os participantes da sala de reuni?o ou seja n?o est? enviando nada.
> - Quando ? encerrada a reuni?o , o aplicativo elimina os arquivos de
> trabalho , por?m , no edge isto
>   n?o est? acontecendo.
>
> Nota[2] - No explorer 11 estes problemas n?o ocorrem.
>
> Nota[3] - O script em perl  foi desenvolvido por um amigo que conhecia
> bastante perl
>                entretanto meu conhecimento ? limitado.
>
> Nota[4] ? Estou trabalhando com ActivePerl-5.16.3.1603-MSWin32-x86-296746
>
> Nota[5] ? Caso considerem necess?rio , tenho como disponibilizar um link
> de acesso a este site sala.cgi
>
> Nota[6] - Quando instalei o windows 10 , o reload autom?tico  funcionava
> , entretanto ,
>                 ao realizar uma manuten??o grande ( nova vers?o acho ) o
> problema apareceu.
>                 O problema de n?o eliminar os arquivos tempor?rio de
> trabalho existem
>                 desde a instala??o inicial do windows 10
> Nota[7] ? coloquei duas marcas no script onde eu acho que as fun??es s?o
> executadas:
>
> ######################### aqui elimina os arquivos de trabalho
> ###################################
>
> ##################### aqui reenvia mensagens para os participantes
> #############################
>
> Algu?m sabe como resolver isto ?
>
> Agrade?o a aten??o ,
>
> kleber
>
>
> =================================================================================================
>                                                          script em perl  (
> sala.cgi )
>
> =================================================================================================
> #!perl
> print "Content-type:text/html\n\n";
> use CGI::Carp(fatalsToBrowser);
>
>
> ###############################################################################################
> #                                     CONFIGURA??ES
> GERAIS
> #
> #
> #
> $titulo = "Sala de Reuni?o Online";        # T?tulo do
> script
> #
> $master = "master.log";                         # Arquivo tempor?rio a
> guardar primeiro usu?rio                                              #
> $log    = "logs.log";                                # Arquivo tempor?rio
> de logs
> totais                                                                    #
> $log2   = "logs2.log";                            # Arquivo tempor?rio de
> logs da sess?o
> #
> $online = "online.log";                         # Arquivo tempor?rio com
> nomes dos usu?rios Online                                        #
> $estilos= "estilos.css";                        # Arquivo com os estilos
> dentro da pasta modelos                                              #
> $topo   = "topo.html";                         # Template do
> Topo
> #
> $fim    = "fim.html";                           # Template do
> Fim
> #
> #
> #
> #
> #
> #                                     FIM DAS
> CONFIGURA??ES
> #
>
> ###############################################################################################
>
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
> @conteudo = split(/&/, $buffer);
> foreach $par (@conteudo) {
>         ($campo, $valor) = split(/=/, $par);
>         $valor =~ tr/+/ /;
>         $valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>         $CAMPO{$campo} = $valor;
>     }
>
> $qs = "$ENV{QUERY_STRING}";
> &data;
> &style;
> if ($qs eq ""){
> print qq|
> <BR><BR><BR><BR><BR><BR><BR>
> |;
> &topo;
> print qq?
> <script language="JavaScript">
> <!--
> altura = 690;
> largura= 1090;
> l = (screen.width - largura)/2;
> t = (screen.height - altura - 50)/2;
> var flag = "";
> var idioma=1;
> var strCookie='payback';
>
> function LerCookie(strCookie) {
>     var strNomeIgual = strCookie + "=";
>     var arrCookies = document.cookie.split(';');
>     for(var i = 0; i < arrCookies.length; i++)
>     {
>         var strValorCookie = arrCookies[i];
>         while(strValorCookie.charAt(0) == ' ')
>         {
>             strValorCookie = strValorCookie.substring(1,
> strValorCookie.length);
>         }
>         if(strValorCookie.indexOf(strNomeIgual) == 0)
>         {
>             var mensagem=strValorCookie.substring(strNomeIgual.length,
> strValorCookie.length);
>             flag = mensagem;
>             mensagem ='';
>             return;
>         }
>     }
>     alert ( '!!!! Erro cr?tico : N?o foi poss?vel restaurar ?rea de
> transfer?ncia' );
>     top.location.href = "/payback/index.htm";
> };
> function init(form) {
>               LerCookie(strCookie);
>               if (flag != null ) {
>                  flag = flag.split('|');
>                  document.form.login.value = flag[9];
>               }
>               document.form.tema.focus();
> }
> function Entra(form) {
>         if (document.form.tema.value.length == 0)  {
>             alert("O tema da reuni?o n?o foi informado");
>             document.form.tema.focus();
>             document.form.tema.select();
>             return false;
>         }
>         novajanela = window.open("", "entrar",
> "scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l);
>
>         return true;
> }
> function showSalaHelp() {
>       altura1=400;
>       largura1= 800;
>       l1 = (screen.width - largura + 250)/2;
>       t1 = (screen.height - altura + 250)/2;
>       var html = '<HTML><HEAD><TITLE></TITLE></HEAD>';
>           html += '<BODY background="/reuniao/imagem/papel.jpg"
> TEXT="#000066"><br><table align=center><tr><td><h4><b>SALA &nbsp;  DE
> &nbsp;  REUNI?O &nbsp;  ONLINE
> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></h4></td></tr></table><br><TABLE
> ALIGN=CENTER><font size=2><TR><TD><PRE><b>';
>           html += '<li>O dado usu?rio deve ser ?nico por sala.';
>           html += '<li>O dado tema da reuni?o ser? o ponto de encontro dos
> participantes na sala.<br>';
>           html += '   Este texto n?o pode conter espa?o , por exemplo ,
> informar Aquisi??o_de_Filial';
>           html += '<li>O sistema diferencia letra mai?scula de min?scula
> para identifica??o da sala.';
>           html += '<li>Cada sala ter? um ?nico tema n?o tendo limita??es
> de quantidade de aberturas de<br>';
>           html += '   salas e participantes.<br>';
>           html += '<li>O usu?rio que abrir a sala ou seja o primeiro a
> entrar receber? uma tarefa de<br>';
>           html += '  encerrar a reuni?o ( bot?o especial ).<br>  Este
> usu?rio , ao sair da sala , provocar? a elimina??o dos arquivos que
> registram<br>  os textos digitados.<br>  Portanto , recomenda-se dar um
> tempo de poucos segundos antes de sair da sala.';
>           html += '<li>Ao acionar o bat?o especial ENCERRAR REUNI?O , o
> texto REUNI?O FINALIZADA<br>';
>           html += '   ? enviado ? sala e nenhuma nova mensagem ?
> registrada pelo sistema.';
>           html += '<li>? recomend?vel que os participantes imprimam a ata
> de reuni?o ap?s esta a??o.<br>';
>           html += '<li>Para ajuda de formata??o do texto mensagem , na
> sala de reuni?o , acionar a tecla F1';
>           html += '<li>Os documentos enviados ao servidor para serem
> apresentados como anexo ,<br>  ser?o eliminados quando o sistema
> operacional for reinicializado.<br>';
>           html += '  Nota - O documento apresentado como anexo  , para ser
> baixado no servidor , dever? ter<br>         no m?ximo 500 kbytes.';
>           html += '</TABLE></FONT></B></PRE></BODY></HTML>';
>           var newWindow =
> window.open("","","scrollbars=auto,height="+altura1+",width="+largura1+",top="+t1+",left="+l1);
>           newWindow.document.write(html);
>           newWindow.document.close();
>           event.cancelBubble = true;
>           return false;
> }
> //-->
> </script>
> <style type="text/css"><!--
> .multi_bg { background-image : linear-gradient(to right, rgba(30, 75, 115,
> 0.5),  rgba(30, 75, 115, 0.5)); }
> -->
> </style>
> </HEAD>
>         <body onload="init(this.form)" onHelp="return showSalaHelp()"
> BGCOLOR="#ADB6C6" TEXT="#003366" class="multi_bg">
>         <form action="?entra" method="POST" name="form" target="entrar"
> id="form" OnSubmit="return Entra(this)">
>         <br>
>         <strong><font color="#ffffff"
> size="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<label
> class='sombra'><b>Escolha um tema para
> entrar</label></font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img
> src="/reuniao/imagem/help.gif"
> onClick="showSalaHelp();document.form.tema.focus()" WIDTH="18" HEIGHT="18"
> style="cursor:pointer" title ="Ajuda do sistema">
>         <br><br>
>         <div align="center">
>               <table>
>                 <tr>
>                    <!-- <td width="33%"><div align="right"><font
> class="sombra"><font color="#ffffff"
> size="2"><b>Usu&aacute;rio&nbsp;&nbsp;</b></font></div></td> -->
>                   <td><input type="hidden" name="login" class="campo"
> onFocus="document.form.tema.focus()" onHelp="return showSalaHelp()"></td>
>                  </tr>
>                 <tr>
>                   <td><div align="right"><font class="sombra"><font
> color="#ffffff" size="2"><b>Tema&nbsp;&nbsp;</b></font></div></td>
>                   <td><input name="tema" type="text" class="campo"
> id="tema" onHelp="return showSalaHelp()"></td>
>                 </tr>
>               </table><br>
>               <table>
>              <tr>
>                  <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
>                  <td align="center" colspan=2><input type="submit"
> value="Entrar" class="botao" STYLE='cursor: pointer;font-weight:bold'></td>
>             </tr>
>              </table><br>
>         </div>
> ?;&fim;}
>
> if ($qs eq "entra"){
> if ($CAMPO{login} eq ""){
> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
> &topo;
> print qq|<br>Voc? deve digitar um nome de usu?rio antes de entrar na sala
> ! <br><br>
> <div align="center">
> <input type="button" class="botao2" onClick="javascript:windows.close()"
> value="Fechar Janela"><br>
> </div>
> |;
> &fim;
> }else{
> if ($CAMPO{tema} eq "" ){
> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
> &topo;
> print qq|<br>Voc? deve digitar um tema antes de entrar na sala ! <br><br>
> <div align="center">
> <input type="button" class="botao2" onClick="javascript:window.close()"
> value="Fechar Janela"><br>
> </div>
> |;
> &fim;
> }else{
> if (-e "$CAMPO{tema}"."_"."$log"){
> open(ONLINE,"$CAMPO{tema}_$online");
> @online = <ONLINE>;
> close(ONLINE);
>
> foreach (@online){
> chomp;
> s/%//gi;
> if ($CAMPO{login} eq "$_"){
> $repetido = "1";
> }else{
> $repetido = "0";
> }}
> if ($repetido eq "1"){
> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
> &topo;
> print qq|<br>Este nome de usu?rio j? est? em uso! Por favor escolha
> outro.<br><br>
> <div align="center">
> <input type="button" class="botao2" onClick="javascript:window.close()"
> value="Fechar Janela"><br>
> </div>
> |;&fim;
> }else{
> open(MASTER,"$CAMPO{tema}_$master");
> $master = <MASTER>;
> close(MASTER);
> chomp $master;
> $master =~ s/%//gi;
>
> if ($CAMPO{login} eq $master){$a = "1";} else {$a = "0";}
> open(ONLINE,">>$CAMPO{tema}_$online");
> print ONLINE qq|%$CAMPO{login}%\n|;
> close(ONLINE);
>
> open (SALA, ">>$CAMPO{tema}_$log");
> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
> close(SALA);
>
> open (SALA, ">>$CAMPO{tema}_$log2");
> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
> close(SALA);
>
> &topo;&msg;&fim;
> }}else{
>
> open(MASTER,">$CAMPO{tema}_$master");
> print MASTER qq|%$CAMPO{login}%\n|;
> close(MASTER);
>
> open(ONLINE,">>$CAMPO{tema}_$online");
> print ONLINE qq|%$CAMPO{login}%\n|;
> close(ONLINE);
>
> open (SALA, ">>$CAMPO{tema}_$log");
> print SALA qq|<div align="center"><font class="texto"><h5>ATA DA
> REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
> close(SALA);
>
> open (SALA, ">>$CAMPO{tema}_$log2");
> print SALA qq|<div align="center"><font class="texto"><h5>ATA DA
> REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
> close(SALA);
> $a = "1";
> &topo;&msg;&fim;
> }}}}
>
> if ($qs eq "escreve2"){
> $CAMPO{msg} =~ tr/+/ /;
> $CAMPO{msg} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> $CAMPO{tema} =~ tr/+/ /;
> $CAMPO{tema} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> if ($CAMPO{msg} eq ""){
> print qq|
> <script language="Javascript">
> <!--
> alert ('Mensagem n?o informada')
> //-->
> </script>
> <body
> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
> |;}else{
>
> if ($CAMPO{msg} eq "REUNI?O FINALIZADA"){
>
> open(LOG,">>$CAMPO{tema}"."_"."$log");
> print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O
> FINALIZADA</b></font></div><br>\n|;
> close(LOG);
>
> open(LOG,">$CAMPO{tema}"."_"."$log2");
> print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O
> FINALIZADA</b></font></div><br>\n|;
> close(LOG);
>
> print qq|
> <body
> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
> |;
> }else{
>
> open(LOG,"$CAMPO{tema}"."_"."$log");
> @log = <LOG>;
> close(LOG);
> $r = "0";
> foreach (@log){
> chomp;
> if($_ eq "<br><div align=\"center\"><font class=\"texto\"><b>REUNI?O
> FINALIZADA</b></font></div><br>"){
> $r = "1";
> }}
>
> if ($r eq "1"){
> print qq|
> <body
> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
> |;
> }else{
>
> open(LOG,">>$CAMPO{tema}"."_"."$log");
> print LOG qq|<font class="texto"><i>($data)</i> &nbsp;
> <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
> close(LOG);
> open(LOG,">>$CAMPO{tema}"."_"."$log2");
> print LOG qq|<font class="texto"><i>($data)</i> &nbsp;
> <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
> close(LOG);
> print qq|
> <body
> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
> |;}}}}
>
> if ($qs =~ /imprimir/){
> &imprimir;
> }
>
> if ($qs =~ /logout/){
> &logout;
> }
>
> if ($qs =~ /principal/){
> &principal;
> }
>
> if ($qs =~ /principal2/){
> &principal2;
> }
>
> if ($qs =~ /todas/){
> &todas;
> }
>
> sub data{
> ($seg,$min,$hr,$dia,$mes,$ano) = localtime();
> if ($hr < "10"){$hr = "0$hr";}
> if ($min < "10"){$min = "0$min";}
> if ($seg < "10"){$seg = "0$seg";}
>
> @mes =
> ("janeiro","fevereiro","mar?o","abril","maio","junho","julho","agosto","setembro","outubro","novembro","dezembro");
> $ano = 1900+$ano;
>
> $data  = "$hr:$min:$seg, $dia de @mes[$mes] de $ano";
> }
>
> sub fim{
> open(FIM,"$fim");
> @fim=<FIM>;
> close(FIM);
> print "@fim";
> }
>
> sub imprimir {
> $qs =~ s/imprimir=//;
> $qs =~ tr/+/ /;
> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>
> open (LOG,"$qs"."_"."$log");
> @log = <LOG>;
> close(LOG);
>
> print qq|
> <html>
> <head>
> <title>$titulo</title>
> @style
> </head>
> <body onload="this.window.print()">
> @log
> </body>
> |;}
>
> sub logout{
> $qs =~ s/logout=//gi;
> ($login,$tema) = split (/-/,$qs);
> $login =~ tr/+/ /;
> $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> $tema =~ tr/+/ /;
> $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>
> open(LOG,">>$tema"."_"."$log2");
> print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b> saiu
> da sala</b></font><br>\n|;
> close(LOG);
>
> open(LOG,">>$tema"."_"."$log");
> print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b> saiu
> da sala</b></font><br>\n|;
> close(LOG);
>
> open(ONLINE,"$tema"."_"."$online");
> @online = <ONLINE>;
> close(ONLINE);
>
> @on = @online;
> foreach (@on){
> chomp;
> if ($_ =~ /%$login%/){
> s/$_//;
> }}
>
> open(ONLINE,">$tema"."_"."$online");
> print ONLINE qq|@on|;
> close(ONLINE);
>
> open(ONLINE,"$tema"."_"."$online");
> @online = <ONLINE>;
> close(ONLINE);
>
> if (length ("@online") eq "0"){
> unlink("$tema"."_"."$master");  ######################### aqui elimina os
> arquivos de trabalho ###################################
> unlink("$tema"."_"."$online");  #################   n?o est? sendo
> executado no edge    ###########################################
> unlink("$tema"."_"."$log2");
> unlink("$tema"."_"."$log");
> }else{}
>
> print qq|
> <html>
> <head>
> <title>$titulo</title>
> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
> <script language="JavaScript">
> function Logout(){
> this.window.close()
> }
> </script>
> </head>
> <body onload="javascript:Logout()">
> </body>
> </html>
> |;}
>
> sub msg{
> $qs =~ tr/+/ /;
> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> open (LOG, "$qs"."_"."$log2");
> @log = <LOG>;
> close(LOG);
>
> $finalizado = "0";
>
> foreach (@log){
> chomp;
> print $_;
> if ($_ eq "REUNI?O FINALIZADA"){
> $finalizado = "1";
> }}
>
> print qq|
> <script language="JavaScript">
> function Imprimir(){
> altura =690;
> largura= 1090;
> l = (screen.width - largura)/2;
> t = (screen.height - altura - 50)/2;
> window.open("?imprimir=$CAMPO{tema}","","scrollbars,height="+altura+",width="+largura+",top="+t+",left="+l);
>
> }
> function unLoad(){
> window.open("?logout=$CAMPO{login}-$CAMPO{tema}","","width=80,height=80")
> }
> </script>
> <body onunLoad="unLoad()">
> <table>
> <tr><td>
> <font class="texto1"><b> Usu?rio:
> $CAMPO{login}</b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
> </td><td>
> &nbsp;<font class="texto1"><b> Tema: $CAMPO{tema}<br></b></font>
> </td><td>
> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
> src="/reuniao/imagem/calculadora.gif" onClick="calculadora()" WIDTH="18"
> HEIGHT="22" style="cursor:pointer" title ="Calculadora financeira">
> </td><td>
> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
> src="/reuniao/imagem/Email.gif" onClick="email()" WIDTH="24" HEIGHT="20"
> style="cursor:pointer" title ="Correspond?ncia interna">
> </td><td>
> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
> src="/reuniao/imagem/acessorio.gif" onClick="acessorio()" WIDTH="24"
> HEIGHT="20" style="cursor:pointer" title ="Acess?rios">
> </td><TD>
> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
> src="/reuniao/imagem/alarme.gif" onClick="alarme()" WIDTH="24" HEIGHT="20"
> style="cursor:pointer" title ="Alarme">
> </td></tr></table>
> <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe"
> width="1010" height="480" style="overlap:auto"></iframe>
> <iframe align="middle" src="?principal2=$CAMPO{tema}-$CAMPO{login}"
> name="iframe2" width="1010" height="75" style="overlap:auto"></iframe>
> <table>
> <tr>
> <td><input type="button" class="botao" value="Ata de reuni?o"
> onClick="javascript:Imprimir()"
> STYLE='cursor:pointer;font-weight:bold'></td>
> <td>&nbsp;</td>
> <td><div align="right">
> <input type="button" class="botao2" value="Sair da Sala"
> onClick="javascript:window.close()"
> STYLE='cursor:pointer;font-weight:bold'></div></td>
> <td>&nbsp;</td>
> |;
>
> if($a eq "1"){print qq|<td><div align="center">
> <form name="form" method="post" action="?escreve2" target="iframe2">
>             <input name="msg"    type="hidden" size="80" class="campo"
> value="REUNI?O FINALIZADA">
>             <input name="login"  type="hidden" class="campo"
> value="$CAMPO{login}">
>             <input name="tema"   type="hidden" class="campo"
> value="$CAMPO{tema}">
>             <input type="submit" value="Encerrar Reuni?o" class="botao"
> STYLE='cursor: pointer;font-weight:bold'>
> </form>
> </div>
> </div></td></tr>|;}print qq|</table><br>|;}
>
> sub principal{
> $qs =~ s/principal=//;
> $qs =~ tr/+/ /;
> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>
> open (LOG, $qs."_".$log2);
> @log = <LOG>;
> close(LOG);
>
> $finalizado = "0";
>
> foreach (@log){
> chomp;
> if ($_ eq "REUNI?O FINALIZADA"){
> $finalizado = "1";
> }}
> if ($finalizado eq "1"){print qq|
> <font class="texto">
> A REUNI?O FOI FINALIZADA. VOC? PODE IMPRIMIR OU VISUALIZAR O RELAT?RIO
> </font>|;
>
> }else{print qq|
> <html>
> <head>
>
> @style
> <script language="JavaScript">
> <!--
>    function scroll() {
>      if( document.body && document.body.clientHeight ) {
>        window.innerHeight = document.body.clientHeight
>      }
>      window.scrollTo( 0, (window.innerHeight/0.1) )
>    }
>
>     function focus(){
>       document.form.msg.focus()
>     }
>
>     function enter(string){
>              insertAtCaret(document.form.msg,string);
>              focus()
>     }
>
>    function insertAtCaret (textObj, textFeildValue) {
>        if(document.all){
>             if (textObj.createTextRange && textObj.caretPos) {
>                 var caretPos = textObj.caretPos;
>                 caretPos.text = caretPos.text.charAt(caretPos.text.length
> - 1) == ' ' ?textFeildValue + ' ' : textFeildValue;
>             }else{
>                 textObj.value = textFeildValue;
>             }
>       }else{
>             if(textObj.setSelectionRange){
>                var rangeStart = textObj.selectionStart;
>                var rangeEnd = textObj.selectionEnd;
>                var tempStr1 = textObj.value.substring(0,rangeStart);
>                var tempStr2 = textObj.value.substring(rangeEnd);
>                textObj.value = tempStr1 + textFeildValue + tempStr2;
>            }else{
>                alert("Esta vers?o do navegador n?o suporta
> setSelectionRange");
>            }
>      }
>   }
>
>    function clear_field(){
>       document.form.msg.value = ''
>       document.form.msg.focus()
>       document.form.msg.select()
>    }
>
>    function anexar(){
>              altura = 450;
>              largura= 700;
>              l = (screen.width - largura)/2;
>              t = (screen.height - altura - 50)/2;
>              var html =  '<HTML><HEAD><TITLE></TITLE>'
>                  html += '</HEAD><BODY
> background="/reuniao/imagem/papel.jpg"  TEXT="#000066">'
>                  html += '<BR><BR><BR><table
> align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px
> 4px #000, 0 0 0 #000, 2px 4px 6px #000">Apresentar documento como
> anexo</label></h3></th></tr></table><br><br>'
>                  html += '<FORM NAME="anexo" METHOD="POST"
> ACTION="/reuniao/temp/upload.plx" ENCTYPE="multipart/form-data">'
>                  html += '<br>'
>                  html += '<TABLE align=center>'
>                  html += '<tr>'
>                  html += '<td><input type="file" name="arquivo" size="60"
> maxlength="90"></td>'
>                  html += '</tr>'
>                  html += '</table>'
>                  html += '<br><br><br>'
>                  html += '<TABLE align=center>'
>                  html += '<tr>'
>                  html += '<td bgcolor=#ADB6C6><input type="submit"
> value="    Processa    " style="color: white; text-shadow: 1px 2px 4px
> #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
>                  html += '</TR>'
>                  html += '</table>'
>                  html += '</form>'
>                  html += '</body>'
>                  html += '</html>'
>              var newWindow =
> window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
>              newWindow.document.write(html)
>              newWindow.document.close()
>              focus()
>              return false
>    }
>
>    function publicar(){
>              altura = 450;
>              largura= 700;
>              l = (screen.width - largura)/2;
>              t = (screen.height - altura - 50)/2;
>              var html =  '<HTML><HEAD><TITLE></TITLE>'
>                  html += '</HEAD><BODY
> background="/reuniao/imagem/papel.jpg"  TEXT="#ffffff">'
>                  html += '<BR><BR><BR><table
> align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px
> 4px #000, 0 0 0 #000, 2px 4px 6px #000">Ponto de publica??o
> web</label></h3></th></tr></table><br><br>'
>                  html += '<FORM NAME="publica" METHOD="POST"
> ACTION="/reuniao/temp/publica.plx">'
>                  html += '<br>'
>                  html += '<TABLE align=center>'
>                  html += '<tr>'
>                  html += '<td><input type="text" name="http" size="60"
> maxlength="90" value = "http://"></td>'
>                  html += '</tr>'
>                  html += '</table>'
>                  html += '<br><br><br>'
>                  html += '<TABLE align=center>'
>                  html += '<tr>'
>                  html += '<td bgcolor=#ADB6C6><input type="submit"
> value="    Processa    " style="color: white; text-shadow: 1px 2px 4px
> #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
>                  html += '</TR>'
>                  html += '</table>'
>                  html += '</form>'
>                  html += '</body>'
>                  html += '</html>'
>              var newWindow =
> window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
>              newWindow.document.write(html)
>              newWindow.document.close()
>              focus()
>              return false
>    }
>
>   function showMsgHelp() {
>       alert("                            SALA DE REUNI?O
> ONLINE\\n\\nMensagem -> Campo alfa num?rico com tamanho de 300 caracteres e
> diferente de espa?o.\\n\\nNota - ? recomend?vel que uma linha de mensagem
> tenha no m?ximo 80 caracteres visando dar maior clareza no relat?rio ATA DE
> REUNI?O.\\n\\nTAGS ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\n<br> - Salto de
> linha\\n<p> - Salto de par?grafo\\n<b>texto</b> - Texto em negrito\\n<font
> size=4>texto</font> - Texto com fonte igual a 4 pixel\\n<font
> color=red>texto</font> - Texto com cor em vermelho\\n<i>texto</i> - Texto
> em it?lico\\n<u>texto</u> - Texto sublinhado\\n<sub>texto</sub> - Texto
> subscrito\\n<sup>texto</sup> - Texto
> sobrescrito\\n<ol><li>texto1<li>texto2<li>texto3</ol> - Lista num?rica dos
> textos\\n<li>texto1<li>texto2<li>texto3 - Marca??o dos textos\\n\\nNota -
> Os par?metros de formata??o de texto podem ser utilizados
> simultaneamente.\\n\\n                EXEMPLO DE UTILIZA??O\\n\\nOl? sr(s)
> , bom dia a todos<br>Vamos dicurtir a <font size=3 color=red><b>Aquisi??o
> do im?vel em S?o Paulo.</b></font><br>O Paulo vai nos descrever as
> alternativas que dispomos.\\n\\n\\nFUN??ES ESPECIAIS PARA FORMATA??O DE
> TEXTO\\n\\nLimpa -      Move espa?o para o campo mensagem\\nLinha -
> Move <br> para o campo mensagem para quebrar linha\\nLista -        Move
> marcador <li> para o campo mensagem com salto de linha\\nNum?rico Move
> marcador <ol> para o campo mensagem\\nCola -        Coloca texto da ?rea de
> transfer?ncia no campo mensagem\\nAnexa -     Disponibiliza documento como
> um anexo para apresenta??o\\nPublica -   Disponibiliza um link de acesso
> referente a uma publica??o na internet\\nReal?a -    Evid?ncia uma parte do
> texto selecionado no campo mensagem\\nSublinha - Real?a um texto
> selecionado no campo mensagem sublinhando-o")
>       event.cancelBubble = true
>       return false
>   }
>
> //-->
> </script>
> </head>
> <body>
> @log
> </body>
> </html>|;
> }}
>
> sub principal2 {
> $qs =~ s/principal2=//;
> ($tema,$login) = split (/-/,$qs);
> $tema =~ tr/+/ /;
> $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> $login =~ tr/+/ /;
> $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>
> print qq|
> @style
>
> <body  onLoad="document.form.msg.focus()" onHelp="return showMsgHelp()"
> class="table3" leftmargin="0" topmargin="0" marginwidth="0"
> marginheight="0">
> <div align="center">
> <table>
>   <tr>
>     <td> &nbsp;</td>
>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/clear.png"
> onClick="clear_field()"   WIDTH="24" HEIGHT="20" style="cursor:pointer"
> title ="Limpar campo mensagem"  STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;border-style:outset;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/linha.png"
> onClick="enter('<br>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
> title ="Salto de linha"  STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;border-style:outset;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/lista.gif"
> onClick="enter('<li>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
> title ="Marcador de lista"  STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;border-style:outset;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/nlist.gif"
> onClick="enter('<ol>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
> title ="Marcador num?rico"  STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;border-style:outset;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/anexo.png"
> onClick="anexar()"      WIDTH="20" HEIGHT="20" style="cursor:pointer" title
> ="Anexar docto"  STYLE='cursor: pointer; font-family: Arial, Helvetica,
> sans-serif; font-size: 10px; border-width:
> 2;color:#003366;border-style:outset;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/wlink.gif"
> onClick="publicar()"    WIDTH="20" HEIGHT="20" style="cursor:pointer" title
> ="Publicar um link da internet"  STYLE='cursor: hand; font-family: Arial,
> Helvetica, sans-serif; font-size: 10px; border-width:
> 2;color:#003366;border-style:outset;font-weight:600'></td>
>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/help.gif"
> onClick="showMsgHelp()" WIDTH="18" HEIGHT="18" style="cursor:pointer" title
> ="Ajuda do sistema"  STYLE='cursor: pointer; font-family: Arial, Helvetica,
> sans-serif; font-size: 10px; border-width:
> 2;color:#003366;border-style:outset;font-weight:600'></td>
> </tr>
> </table><br>
> <table  align="center">
>   <tr>
>     <td class="texto"><form name="form" method="post" action="?escreve2">
>           <div align="center"><b><font size=2><label class='sombra'>&nbsp;
> Mensagem &nbsp; </label></b></fonte>
>             <input name="msg"     type="text"      class="campo"
> size="120" maxlength="300" onHelp="return showMsgHelp()">
>             <input name="login"   type="hidden"    class="campo"
> value="$login">
>             <input name="tema"    type="hidden"    class="campo"
> value="$tema">
>             <input type="submit"  value="Enviar"   class="botao"
> >
>           </div>
>     </td>
>   </tr>
> </table>
> </form>
> </div>
> </body>
> |;}
>
> sub style{
> open(STYLE, "$estilos");
> @style = <STYLE>;
> close(STYLE);
> }
>
> sub todas{
> $qs =~ s/todas=//;
> $qs =~ tr/+/ /;
> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>
> open (LOG, $qs."_".$log);
> @log = <LOG>;
> close(LOG);
>
> print qq|
> <meta http-equiv="refresh" content="5,?todas"/> ##################### aqui
> reenvia mensagens para os participantes #############################
> @style
> <script>
> <!--
>   function rolar() {
>     if( document.body && document.body.clientHeight ) {
>       window.innerHeight = document.body.clientHeight
>     }
>     window.scrollTo( 0, (window.innerHeight/0.1) );
>   }
> //-->
> </script>
> <body onLoad="javascript:rolar()">
> @log|;}
>
> sub topo{
> open(TOPO,"$topo");
> @topo=<TOPO>;
> close(TOPO);
> print "@topo";
> }
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160111/4ef36706/attachment-0001.html>

From daniel.oliveira.mantovani at gmail.com  Mon Jan 11 11:36:09 2016
From: daniel.oliveira.mantovani at gmail.com (Daniel de Oliveira Mantovani)
Date: Mon, 11 Jan 2016 17:36:09 -0200
Subject: [SP-pm] script perl no windows 10
In-Reply-To: <CAPpv0_oJAxED39CB8g8LwBr1No6j1UUOgMmyfwFwY1XjBCqEpQ@mail.gmail.com>
References: <COL126-DS17DB8FE31F840F40B9D68292C90@phx.gbl>
	<CAPpv0_oJAxED39CB8g8LwBr1No6j1UUOgMmyfwFwY1XjBCqEpQ@mail.gmail.com>
Message-ID: <CAEmYuOtA_r3qjLC1qBu+u_rheT-7=3zJf=k-Av219PpPsGajBw@mail.gmail.com>

Eu fortemente te aconselho a jogar isso fora, e usar o Google Hangout ou
qualquer uma das milh?es de solu??es gr?tis que resolvem isso.

2016-01-11 17:33 GMT-02:00 Lucas Moraes <lucastiagodemoraes at gmail.com>:

> Aconselho voc? atualizar a pagina com javascript.
>
> setInterval(function(){ window.location.href = '?todas' }, 5000);
>
> Falou.
>
> Em 11 de janeiro de 2016 17:26, kleber caetano <payback at hotmail.com.br>
> escreveu:
>
>> Ol? Sr(s),
>>
>> Migrei para o windows 10 e estou tendo um problema com um aplicativo em
>> perl quando utilizo o edge ,
>> entretanto , quando utilizo o explorer 11 o aplicativo ? executado
>> normalmente.
>>
>> Nota[1] - Este aplicativo refere-se a um chat ( sala de reuni?o online ).
>>
>> O problema ( no edge ) ocorre quando :
>>
>> - Ele reenvia as mensagens ( atrav?s do comando <meta
>> http-equiv="refresh" content="5,?todas"/> )  para
>>   os participantes da sala de reuni?o ou seja n?o est? enviando nada.
>> - Quando ? encerrada a reuni?o , o aplicativo elimina os arquivos de
>> trabalho , por?m , no edge isto
>>   n?o est? acontecendo.
>>
>> Nota[2] - No explorer 11 estes problemas n?o ocorrem.
>>
>> Nota[3] - O script em perl  foi desenvolvido por um amigo que conhecia
>> bastante perl
>>                entretanto meu conhecimento ? limitado.
>>
>> Nota[4] ? Estou trabalhando com ActivePerl-5.16.3.1603-MSWin32-x86-296746
>>
>> Nota[5] ? Caso considerem necess?rio , tenho como disponibilizar um link
>> de acesso a este site sala.cgi
>>
>> Nota[6] - Quando instalei o windows 10 , o reload autom?tico  funcionava
>> , entretanto ,
>>                 ao realizar uma manuten??o grande ( nova vers?o acho ) o
>> problema apareceu.
>>                 O problema de n?o eliminar os arquivos tempor?rio de
>> trabalho existem
>>                 desde a instala??o inicial do windows 10
>> Nota[7] ? coloquei duas marcas no script onde eu acho que as fun??es s?o
>> executadas:
>>
>> ######################### aqui elimina os arquivos de trabalho
>> ###################################
>>
>> ##################### aqui reenvia mensagens para os participantes
>> #############################
>>
>> Algu?m sabe como resolver isto ?
>>
>> Agrade?o a aten??o ,
>>
>> kleber
>>
>>
>> =================================================================================================
>>                                                          script em perl
>> ( sala.cgi )
>>
>> =================================================================================================
>> #!perl
>> print "Content-type:text/html\n\n";
>> use CGI::Carp(fatalsToBrowser);
>>
>>
>> ###############################################################################################
>> #                                     CONFIGURA??ES
>> GERAIS
>> #
>> #
>> #
>> $titulo = "Sala de Reuni?o Online";        # T?tulo do
>> script
>> #
>> $master = "master.log";                         # Arquivo tempor?rio a
>> guardar primeiro usu?rio                                              #
>> $log    = "logs.log";                                # Arquivo tempor?rio
>> de logs
>> totais                                                                    #
>> $log2   = "logs2.log";                            # Arquivo tempor?rio de
>> logs da sess?o
>> #
>> $online = "online.log";                         # Arquivo tempor?rio com
>> nomes dos usu?rios Online                                        #
>> $estilos= "estilos.css";                        # Arquivo com os estilos
>> dentro da pasta modelos                                              #
>> $topo   = "topo.html";                         # Template do
>> Topo
>> #
>> $fim    = "fim.html";                           # Template do
>> Fim
>> #
>> #
>> #
>> #
>> #
>> #                                     FIM DAS
>> CONFIGURA??ES
>> #
>>
>> ###############################################################################################
>>
>> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>> @conteudo = split(/&/, $buffer);
>> foreach $par (@conteudo) {
>>         ($campo, $valor) = split(/=/, $par);
>>         $valor =~ tr/+/ /;
>>         $valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>         $CAMPO{$campo} = $valor;
>>     }
>>
>> $qs = "$ENV{QUERY_STRING}";
>> &data;
>> &style;
>> if ($qs eq ""){
>> print qq|
>> <BR><BR><BR><BR><BR><BR><BR>
>> |;
>> &topo;
>> print qq?
>> <script language="JavaScript">
>> <!--
>> altura = 690;
>> largura= 1090;
>> l = (screen.width - largura)/2;
>> t = (screen.height - altura - 50)/2;
>> var flag = "";
>> var idioma=1;
>> var strCookie='payback';
>>
>> function LerCookie(strCookie) {
>>     var strNomeIgual = strCookie + "=";
>>     var arrCookies = document.cookie.split(';');
>>     for(var i = 0; i < arrCookies.length; i++)
>>     {
>>         var strValorCookie = arrCookies[i];
>>         while(strValorCookie.charAt(0) == ' ')
>>         {
>>             strValorCookie = strValorCookie.substring(1,
>> strValorCookie.length);
>>         }
>>         if(strValorCookie.indexOf(strNomeIgual) == 0)
>>         {
>>             var mensagem=strValorCookie.substring(strNomeIgual.length,
>> strValorCookie.length);
>>             flag = mensagem;
>>             mensagem ='';
>>             return;
>>         }
>>     }
>>     alert ( '!!!! Erro cr?tico : N?o foi poss?vel restaurar ?rea de
>> transfer?ncia' );
>>     top.location.href = "/payback/index.htm";
>> };
>> function init(form) {
>>               LerCookie(strCookie);
>>               if (flag != null ) {
>>                  flag = flag.split('|');
>>                  document.form.login.value = flag[9];
>>               }
>>               document.form.tema.focus();
>> }
>> function Entra(form) {
>>         if (document.form.tema.value.length == 0)  {
>>             alert("O tema da reuni?o n?o foi informado");
>>             document.form.tema.focus();
>>             document.form.tema.select();
>>             return false;
>>         }
>>         novajanela = window.open("", "entrar",
>> "scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l);
>>
>>         return true;
>> }
>> function showSalaHelp() {
>>       altura1=400;
>>       largura1= 800;
>>       l1 = (screen.width - largura + 250)/2;
>>       t1 = (screen.height - altura + 250)/2;
>>       var html = '<HTML><HEAD><TITLE></TITLE></HEAD>';
>>           html += '<BODY background="/reuniao/imagem/papel.jpg"
>> TEXT="#000066"><br><table align=center><tr><td><h4><b>SALA &nbsp;  DE
>> &nbsp;  REUNI?O &nbsp;  ONLINE
>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></h4></td></tr></table><br><TABLE
>> ALIGN=CENTER><font size=2><TR><TD><PRE><b>';
>>           html += '<li>O dado usu?rio deve ser ?nico por sala.';
>>           html += '<li>O dado tema da reuni?o ser? o ponto de encontro
>> dos participantes na sala.<br>';
>>           html += '   Este texto n?o pode conter espa?o , por exemplo ,
>> informar Aquisi??o_de_Filial';
>>           html += '<li>O sistema diferencia letra mai?scula de min?scula
>> para identifica??o da sala.';
>>           html += '<li>Cada sala ter? um ?nico tema n?o tendo limita??es
>> de quantidade de aberturas de<br>';
>>           html += '   salas e participantes.<br>';
>>           html += '<li>O usu?rio que abrir a sala ou seja o primeiro a
>> entrar receber? uma tarefa de<br>';
>>           html += '  encerrar a reuni?o ( bot?o especial ).<br>  Este
>> usu?rio , ao sair da sala , provocar? a elimina??o dos arquivos que
>> registram<br>  os textos digitados.<br>  Portanto , recomenda-se dar um
>> tempo de poucos segundos antes de sair da sala.';
>>           html += '<li>Ao acionar o bat?o especial ENCERRAR REUNI?O , o
>> texto REUNI?O FINALIZADA<br>';
>>           html += '   ? enviado ? sala e nenhuma nova mensagem ?
>> registrada pelo sistema.';
>>           html += '<li>? recomend?vel que os participantes imprimam a ata
>> de reuni?o ap?s esta a??o.<br>';
>>           html += '<li>Para ajuda de formata??o do texto mensagem , na
>> sala de reuni?o , acionar a tecla F1';
>>           html += '<li>Os documentos enviados ao servidor para serem
>> apresentados como anexo ,<br>  ser?o eliminados quando o sistema
>> operacional for reinicializado.<br>';
>>           html += '  Nota - O documento apresentado como anexo  , para
>> ser baixado no servidor , dever? ter<br>         no m?ximo 500 kbytes.';
>>           html += '</TABLE></FONT></B></PRE></BODY></HTML>';
>>           var newWindow =
>> window.open("","","scrollbars=auto,height="+altura1+",width="+largura1+",top="+t1+",left="+l1);
>>           newWindow.document.write(html);
>>           newWindow.document.close();
>>           event.cancelBubble = true;
>>           return false;
>> }
>> //-->
>> </script>
>> <style type="text/css"><!--
>> .multi_bg { background-image : linear-gradient(to right, rgba(30, 75,
>> 115, 0.5),  rgba(30, 75, 115, 0.5)); }
>> -->
>> </style>
>> </HEAD>
>>         <body onload="init(this.form)" onHelp="return showSalaHelp()"
>> BGCOLOR="#ADB6C6" TEXT="#003366" class="multi_bg">
>>         <form action="?entra" method="POST" name="form" target="entrar"
>> id="form" OnSubmit="return Entra(this)">
>>         <br>
>>         <strong><font color="#ffffff"
>> size="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<label
>> class='sombra'><b>Escolha um tema para
>> entrar</label></font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img
>> src="/reuniao/imagem/help.gif"
>> onClick="showSalaHelp();document.form.tema.focus()" WIDTH="18" HEIGHT="18"
>> style="cursor:pointer" title ="Ajuda do sistema">
>>         <br><br>
>>         <div align="center">
>>               <table>
>>                 <tr>
>>                    <!-- <td width="33%"><div align="right"><font
>> class="sombra"><font color="#ffffff"
>> size="2"><b>Usu&aacute;rio&nbsp;&nbsp;</b></font></div></td> -->
>>                   <td><input type="hidden" name="login" class="campo"
>> onFocus="document.form.tema.focus()" onHelp="return showSalaHelp()"></td>
>>                  </tr>
>>                 <tr>
>>                   <td><div align="right"><font class="sombra"><font
>> color="#ffffff" size="2"><b>Tema&nbsp;&nbsp;</b></font></div></td>
>>                   <td><input name="tema" type="text" class="campo"
>> id="tema" onHelp="return showSalaHelp()"></td>
>>                 </tr>
>>               </table><br>
>>               <table>
>>              <tr>
>>                  <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
>>                  <td align="center" colspan=2><input type="submit"
>> value="Entrar" class="botao" STYLE='cursor: pointer;font-weight:bold'></td>
>>             </tr>
>>              </table><br>
>>         </div>
>> ?;&fim;}
>>
>> if ($qs eq "entra"){
>> if ($CAMPO{login} eq ""){
>> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
>> &topo;
>> print qq|<br>Voc? deve digitar um nome de usu?rio antes de entrar na sala
>> ! <br><br>
>> <div align="center">
>> <input type="button" class="botao2" onClick="javascript:windows.close()"
>> value="Fechar Janela"><br>
>> </div>
>> |;
>> &fim;
>> }else{
>> if ($CAMPO{tema} eq "" ){
>> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
>> &topo;
>> print qq|<br>Voc? deve digitar um tema antes de entrar na sala ! <br><br>
>> <div align="center">
>> <input type="button" class="botao2" onClick="javascript:window.close()"
>> value="Fechar Janela"><br>
>> </div>
>> |;
>> &fim;
>> }else{
>> if (-e "$CAMPO{tema}"."_"."$log"){
>> open(ONLINE,"$CAMPO{tema}_$online");
>> @online = <ONLINE>;
>> close(ONLINE);
>>
>> foreach (@online){
>> chomp;
>> s/%//gi;
>> if ($CAMPO{login} eq "$_"){
>> $repetido = "1";
>> }else{
>> $repetido = "0";
>> }}
>> if ($repetido eq "1"){
>> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
>> &topo;
>> print qq|<br>Este nome de usu?rio j? est? em uso! Por favor escolha
>> outro.<br><br>
>> <div align="center">
>> <input type="button" class="botao2" onClick="javascript:window.close()"
>> value="Fechar Janela"><br>
>> </div>
>> |;&fim;
>> }else{
>> open(MASTER,"$CAMPO{tema}_$master");
>> $master = <MASTER>;
>> close(MASTER);
>> chomp $master;
>> $master =~ s/%//gi;
>>
>> if ($CAMPO{login} eq $master){$a = "1";} else {$a = "0";}
>> open(ONLINE,">>$CAMPO{tema}_$online");
>> print ONLINE qq|%$CAMPO{login}%\n|;
>> close(ONLINE);
>>
>> open (SALA, ">>$CAMPO{tema}_$log");
>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>> close(SALA);
>>
>> open (SALA, ">>$CAMPO{tema}_$log2");
>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>> close(SALA);
>>
>> &topo;&msg;&fim;
>> }}else{
>>
>> open(MASTER,">$CAMPO{tema}_$master");
>> print MASTER qq|%$CAMPO{login}%\n|;
>> close(MASTER);
>>
>> open(ONLINE,">>$CAMPO{tema}_$online");
>> print ONLINE qq|%$CAMPO{login}%\n|;
>> close(ONLINE);
>>
>> open (SALA, ">>$CAMPO{tema}_$log");
>> print SALA qq|<div align="center"><font class="texto"><h5>ATA DA
>> REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>> close(SALA);
>>
>> open (SALA, ">>$CAMPO{tema}_$log2");
>> print SALA qq|<div align="center"><font class="texto"><h5>ATA DA
>> REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>> close(SALA);
>> $a = "1";
>> &topo;&msg;&fim;
>> }}}}
>>
>> if ($qs eq "escreve2"){
>> $CAMPO{msg} =~ tr/+/ /;
>> $CAMPO{msg} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>> $CAMPO{tema} =~ tr/+/ /;
>> $CAMPO{tema} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>> if ($CAMPO{msg} eq ""){
>> print qq|
>> <script language="Javascript">
>> <!--
>> alert ('Mensagem n?o informada')
>> //-->
>> </script>
>> <body
>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>> |;}else{
>>
>> if ($CAMPO{msg} eq "REUNI?O FINALIZADA"){
>>
>> open(LOG,">>$CAMPO{tema}"."_"."$log");
>> print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O
>> FINALIZADA</b></font></div><br>\n|;
>> close(LOG);
>>
>> open(LOG,">$CAMPO{tema}"."_"."$log2");
>> print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O
>> FINALIZADA</b></font></div><br>\n|;
>> close(LOG);
>>
>> print qq|
>> <body
>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>> |;
>> }else{
>>
>> open(LOG,"$CAMPO{tema}"."_"."$log");
>> @log = <LOG>;
>> close(LOG);
>> $r = "0";
>> foreach (@log){
>> chomp;
>> if($_ eq "<br><div align=\"center\"><font class=\"texto\"><b>REUNI?O
>> FINALIZADA</b></font></div><br>"){
>> $r = "1";
>> }}
>>
>> if ($r eq "1"){
>> print qq|
>> <body
>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>> |;
>> }else{
>>
>> open(LOG,">>$CAMPO{tema}"."_"."$log");
>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp;
>> <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
>> close(LOG);
>> open(LOG,">>$CAMPO{tema}"."_"."$log2");
>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp;
>> <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
>> close(LOG);
>> print qq|
>> <body
>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>> |;}}}}
>>
>> if ($qs =~ /imprimir/){
>> &imprimir;
>> }
>>
>> if ($qs =~ /logout/){
>> &logout;
>> }
>>
>> if ($qs =~ /principal/){
>> &principal;
>> }
>>
>> if ($qs =~ /principal2/){
>> &principal2;
>> }
>>
>> if ($qs =~ /todas/){
>> &todas;
>> }
>>
>> sub data{
>> ($seg,$min,$hr,$dia,$mes,$ano) = localtime();
>> if ($hr < "10"){$hr = "0$hr";}
>> if ($min < "10"){$min = "0$min";}
>> if ($seg < "10"){$seg = "0$seg";}
>>
>> @mes =
>> ("janeiro","fevereiro","mar?o","abril","maio","junho","julho","agosto","setembro","outubro","novembro","dezembro");
>> $ano = 1900+$ano;
>>
>> $data  = "$hr:$min:$seg, $dia de @mes[$mes] de $ano";
>> }
>>
>> sub fim{
>> open(FIM,"$fim");
>> @fim=<FIM>;
>> close(FIM);
>> print "@fim";
>> }
>>
>> sub imprimir {
>> $qs =~ s/imprimir=//;
>> $qs =~ tr/+/ /;
>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>
>> open (LOG,"$qs"."_"."$log");
>> @log = <LOG>;
>> close(LOG);
>>
>> print qq|
>> <html>
>> <head>
>> <title>$titulo</title>
>> @style
>> </head>
>> <body onload="this.window.print()">
>> @log
>> </body>
>> |;}
>>
>> sub logout{
>> $qs =~ s/logout=//gi;
>> ($login,$tema) = split (/-/,$qs);
>> $login =~ tr/+/ /;
>> $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>> $tema =~ tr/+/ /;
>> $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>
>> open(LOG,">>$tema"."_"."$log2");
>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b> saiu
>> da sala</b></font><br>\n|;
>> close(LOG);
>>
>> open(LOG,">>$tema"."_"."$log");
>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b> saiu
>> da sala</b></font><br>\n|;
>> close(LOG);
>>
>> open(ONLINE,"$tema"."_"."$online");
>> @online = <ONLINE>;
>> close(ONLINE);
>>
>> @on = @online;
>> foreach (@on){
>> chomp;
>> if ($_ =~ /%$login%/){
>> s/$_//;
>> }}
>>
>> open(ONLINE,">$tema"."_"."$online");
>> print ONLINE qq|@on|;
>> close(ONLINE);
>>
>> open(ONLINE,"$tema"."_"."$online");
>> @online = <ONLINE>;
>> close(ONLINE);
>>
>> if (length ("@online") eq "0"){
>> unlink("$tema"."_"."$master");  ######################### aqui elimina os
>> arquivos de trabalho ###################################
>> unlink("$tema"."_"."$online");  #################   n?o est? sendo
>> executado no edge    ###########################################
>> unlink("$tema"."_"."$log2");
>> unlink("$tema"."_"."$log");
>> }else{}
>>
>> print qq|
>> <html>
>> <head>
>> <title>$titulo</title>
>> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
>> <script language="JavaScript">
>> function Logout(){
>> this.window.close()
>> }
>> </script>
>> </head>
>> <body onload="javascript:Logout()">
>> </body>
>> </html>
>> |;}
>>
>> sub msg{
>> $qs =~ tr/+/ /;
>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>> open (LOG, "$qs"."_"."$log2");
>> @log = <LOG>;
>> close(LOG);
>>
>> $finalizado = "0";
>>
>> foreach (@log){
>> chomp;
>> print $_;
>> if ($_ eq "REUNI?O FINALIZADA"){
>> $finalizado = "1";
>> }}
>>
>> print qq|
>> <script language="JavaScript">
>> function Imprimir(){
>> altura =690;
>> largura= 1090;
>> l = (screen.width - largura)/2;
>> t = (screen.height - altura - 50)/2;
>> window.open("?imprimir=$CAMPO{tema}","","scrollbars,height="+altura+",width="+largura+",top="+t+",left="+l);
>>
>> }
>> function unLoad(){
>> window.open("?logout=$CAMPO{login}-$CAMPO{tema}","","width=80,height=80")
>> }
>> </script>
>> <body onunLoad="unLoad()">
>> <table>
>> <tr><td>
>> <font class="texto1"><b> Usu?rio:
>> $CAMPO{login}</b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
>> </td><td>
>> &nbsp;<font class="texto1"><b> Tema: $CAMPO{tema}<br></b></font>
>> </td><td>
>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>> src="/reuniao/imagem/calculadora.gif" onClick="calculadora()" WIDTH="18"
>> HEIGHT="22" style="cursor:pointer" title ="Calculadora financeira">
>> </td><td>
>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>> src="/reuniao/imagem/Email.gif" onClick="email()" WIDTH="24" HEIGHT="20"
>> style="cursor:pointer" title ="Correspond?ncia interna">
>> </td><td>
>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>> src="/reuniao/imagem/acessorio.gif" onClick="acessorio()" WIDTH="24"
>> HEIGHT="20" style="cursor:pointer" title ="Acess?rios">
>> </td><TD>
>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>> src="/reuniao/imagem/alarme.gif" onClick="alarme()" WIDTH="24" HEIGHT="20"
>> style="cursor:pointer" title ="Alarme">
>> </td></tr></table>
>> <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe"
>> width="1010" height="480" style="overlap:auto"></iframe>
>> <iframe align="middle" src="?principal2=$CAMPO{tema}-$CAMPO{login}"
>> name="iframe2" width="1010" height="75" style="overlap:auto"></iframe>
>> <table>
>> <tr>
>> <td><input type="button" class="botao" value="Ata de reuni?o"
>> onClick="javascript:Imprimir()"
>> STYLE='cursor:pointer;font-weight:bold'></td>
>> <td>&nbsp;</td>
>> <td><div align="right">
>> <input type="button" class="botao2" value="Sair da Sala"
>> onClick="javascript:window.close()"
>> STYLE='cursor:pointer;font-weight:bold'></div></td>
>> <td>&nbsp;</td>
>> |;
>>
>> if($a eq "1"){print qq|<td><div align="center">
>> <form name="form" method="post" action="?escreve2" target="iframe2">
>>             <input name="msg"    type="hidden" size="80" class="campo"
>> value="REUNI?O FINALIZADA">
>>             <input name="login"  type="hidden" class="campo"
>> value="$CAMPO{login}">
>>             <input name="tema"   type="hidden" class="campo"
>> value="$CAMPO{tema}">
>>             <input type="submit" value="Encerrar Reuni?o" class="botao"
>> STYLE='cursor: pointer;font-weight:bold'>
>> </form>
>> </div>
>> </div></td></tr>|;}print qq|</table><br>|;}
>>
>> sub principal{
>> $qs =~ s/principal=//;
>> $qs =~ tr/+/ /;
>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>
>> open (LOG, $qs."_".$log2);
>> @log = <LOG>;
>> close(LOG);
>>
>> $finalizado = "0";
>>
>> foreach (@log){
>> chomp;
>> if ($_ eq "REUNI?O FINALIZADA"){
>> $finalizado = "1";
>> }}
>> if ($finalizado eq "1"){print qq|
>> <font class="texto">
>> A REUNI?O FOI FINALIZADA. VOC? PODE IMPRIMIR OU VISUALIZAR O RELAT?RIO
>> </font>|;
>>
>> }else{print qq|
>> <html>
>> <head>
>>
>> @style
>> <script language="JavaScript">
>> <!--
>>    function scroll() {
>>      if( document.body && document.body.clientHeight ) {
>>        window.innerHeight = document.body.clientHeight
>>      }
>>      window.scrollTo( 0, (window.innerHeight/0.1) )
>>    }
>>
>>     function focus(){
>>       document.form.msg.focus()
>>     }
>>
>>     function enter(string){
>>              insertAtCaret(document.form.msg,string);
>>              focus()
>>     }
>>
>>    function insertAtCaret (textObj, textFeildValue) {
>>        if(document.all){
>>             if (textObj.createTextRange && textObj.caretPos) {
>>                 var caretPos = textObj.caretPos;
>>                 caretPos.text = caretPos.text.charAt(caretPos.text.length
>> - 1) == ' ' ?textFeildValue + ' ' : textFeildValue;
>>             }else{
>>                 textObj.value = textFeildValue;
>>             }
>>       }else{
>>             if(textObj.setSelectionRange){
>>                var rangeStart = textObj.selectionStart;
>>                var rangeEnd = textObj.selectionEnd;
>>                var tempStr1 = textObj.value.substring(0,rangeStart);
>>                var tempStr2 = textObj.value.substring(rangeEnd);
>>                textObj.value = tempStr1 + textFeildValue + tempStr2;
>>            }else{
>>                alert("Esta vers?o do navegador n?o suporta
>> setSelectionRange");
>>            }
>>      }
>>   }
>>
>>    function clear_field(){
>>       document.form.msg.value = ''
>>       document.form.msg.focus()
>>       document.form.msg.select()
>>    }
>>
>>    function anexar(){
>>              altura = 450;
>>              largura= 700;
>>              l = (screen.width - largura)/2;
>>              t = (screen.height - altura - 50)/2;
>>              var html =  '<HTML><HEAD><TITLE></TITLE>'
>>                  html += '</HEAD><BODY
>> background="/reuniao/imagem/papel.jpg"  TEXT="#000066">'
>>                  html += '<BR><BR><BR><table
>> align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px
>> 4px #000, 0 0 0 #000, 2px 4px 6px #000">Apresentar documento como
>> anexo</label></h3></th></tr></table><br><br>'
>>                  html += '<FORM NAME="anexo" METHOD="POST"
>> ACTION="/reuniao/temp/upload.plx" ENCTYPE="multipart/form-data">'
>>                  html += '<br>'
>>                  html += '<TABLE align=center>'
>>                  html += '<tr>'
>>                  html += '<td><input type="file" name="arquivo" size="60"
>> maxlength="90"></td>'
>>                  html += '</tr>'
>>                  html += '</table>'
>>                  html += '<br><br><br>'
>>                  html += '<TABLE align=center>'
>>                  html += '<tr>'
>>                  html += '<td bgcolor=#ADB6C6><input type="submit"
>> value="    Processa    " style="color: white; text-shadow: 1px 2px 4px
>> #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
>>                  html += '</TR>'
>>                  html += '</table>'
>>                  html += '</form>'
>>                  html += '</body>'
>>                  html += '</html>'
>>              var newWindow =
>> window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
>>              newWindow.document.write(html)
>>              newWindow.document.close()
>>              focus()
>>              return false
>>    }
>>
>>    function publicar(){
>>              altura = 450;
>>              largura= 700;
>>              l = (screen.width - largura)/2;
>>              t = (screen.height - altura - 50)/2;
>>              var html =  '<HTML><HEAD><TITLE></TITLE>'
>>                  html += '</HEAD><BODY
>> background="/reuniao/imagem/papel.jpg"  TEXT="#ffffff">'
>>                  html += '<BR><BR><BR><table
>> align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px
>> 4px #000, 0 0 0 #000, 2px 4px 6px #000">Ponto de publica??o
>> web</label></h3></th></tr></table><br><br>'
>>                  html += '<FORM NAME="publica" METHOD="POST"
>> ACTION="/reuniao/temp/publica.plx">'
>>                  html += '<br>'
>>                  html += '<TABLE align=center>'
>>                  html += '<tr>'
>>                  html += '<td><input type="text" name="http" size="60"
>> maxlength="90" value = "http://"></td>'
>>                  html += '</tr>'
>>                  html += '</table>'
>>                  html += '<br><br><br>'
>>                  html += '<TABLE align=center>'
>>                  html += '<tr>'
>>                  html += '<td bgcolor=#ADB6C6><input type="submit"
>> value="    Processa    " style="color: white; text-shadow: 1px 2px 4px
>> #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
>>                  html += '</TR>'
>>                  html += '</table>'
>>                  html += '</form>'
>>                  html += '</body>'
>>                  html += '</html>'
>>              var newWindow =
>> window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
>>              newWindow.document.write(html)
>>              newWindow.document.close()
>>              focus()
>>              return false
>>    }
>>
>>   function showMsgHelp() {
>>       alert("                            SALA DE REUNI?O
>> ONLINE\\n\\nMensagem -> Campo alfa num?rico com tamanho de 300 caracteres e
>> diferente de espa?o.\\n\\nNota - ? recomend?vel que uma linha de mensagem
>> tenha no m?ximo 80 caracteres visando dar maior clareza no relat?rio ATA DE
>> REUNI?O.\\n\\nTAGS ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\n<br> - Salto de
>> linha\\n<p> - Salto de par?grafo\\n<b>texto</b> - Texto em negrito\\n<font
>> size=4>texto</font> - Texto com fonte igual a 4 pixel\\n<font
>> color=red>texto</font> - Texto com cor em vermelho\\n<i>texto</i> - Texto
>> em it?lico\\n<u>texto</u> - Texto sublinhado\\n<sub>texto</sub> - Texto
>> subscrito\\n<sup>texto</sup> - Texto
>> sobrescrito\\n<ol><li>texto1<li>texto2<li>texto3</ol> - Lista num?rica dos
>> textos\\n<li>texto1<li>texto2<li>texto3 - Marca??o dos textos\\n\\nNota -
>> Os par?metros de formata??o de texto podem ser utilizados
>> simultaneamente.\\n\\n                EXEMPLO DE UTILIZA??O\\n\\nOl? sr(s)
>> , bom dia a todos<br>Vamos dicurtir a <font size=3 color=red><b>Aquisi??o
>> do im?vel em S?o Paulo.</b></font><br>O Paulo vai nos descrever as
>> alternativas que dispomos.\\n\\n\\nFUN??ES ESPECIAIS PARA FORMATA??O DE
>> TEXTO\\n\\nLimpa -      Move espa?o para o campo mensagem\\nLinha -
>> Move <br> para o campo mensagem para quebrar linha\\nLista -        Move
>> marcador <li> para o campo mensagem com salto de linha\\nNum?rico Move
>> marcador <ol> para o campo mensagem\\nCola -        Coloca texto da ?rea de
>> transfer?ncia no campo mensagem\\nAnexa -     Disponibiliza documento como
>> um anexo para apresenta??o\\nPublica -   Disponibiliza um link de acesso
>> referente a uma publica??o na internet\\nReal?a -    Evid?ncia uma parte do
>> texto selecionado no campo mensagem\\nSublinha - Real?a um texto
>> selecionado no campo mensagem sublinhando-o")
>>       event.cancelBubble = true
>>       return false
>>   }
>>
>> //-->
>> </script>
>> </head>
>> <body>
>> @log
>> </body>
>> </html>|;
>> }}
>>
>> sub principal2 {
>> $qs =~ s/principal2=//;
>> ($tema,$login) = split (/-/,$qs);
>> $tema =~ tr/+/ /;
>> $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>> $login =~ tr/+/ /;
>> $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>
>> print qq|
>> @style
>>
>> <body  onLoad="document.form.msg.focus()" onHelp="return showMsgHelp()"
>> class="table3" leftmargin="0" topmargin="0" marginwidth="0"
>> marginheight="0">
>> <div align="center">
>> <table>
>>   <tr>
>>     <td> &nbsp;</td>
>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/clear.png"
>> onClick="clear_field()"   WIDTH="24" HEIGHT="20" style="cursor:pointer"
>> title ="Limpar campo mensagem"  STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/linha.png"
>> onClick="enter('<br>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
>> title ="Salto de linha"  STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/lista.gif"
>> onClick="enter('<li>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
>> title ="Marcador de lista"  STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/nlist.gif"
>> onClick="enter('<ol>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
>> title ="Marcador num?rico"  STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/anexo.png"
>> onClick="anexar()"      WIDTH="20" HEIGHT="20" style="cursor:pointer" title
>> ="Anexar docto"  STYLE='cursor: pointer; font-family: Arial, Helvetica,
>> sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/wlink.gif"
>> onClick="publicar()"    WIDTH="20" HEIGHT="20" style="cursor:pointer" title
>> ="Publicar um link da internet"  STYLE='cursor: hand; font-family: Arial,
>> Helvetica, sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/help.gif"
>> onClick="showMsgHelp()" WIDTH="18" HEIGHT="18" style="cursor:pointer" title
>> ="Ajuda do sistema"  STYLE='cursor: pointer; font-family: Arial, Helvetica,
>> sans-serif; font-size: 10px; border-width:
>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>> </tr>
>> </table><br>
>> <table  align="center">
>>   <tr>
>>     <td class="texto"><form name="form" method="post" action="?escreve2">
>>           <div align="center"><b><font size=2><label
>> class='sombra'>&nbsp; Mensagem &nbsp; </label></b></fonte>
>>             <input name="msg"     type="text"      class="campo"
>> size="120" maxlength="300" onHelp="return showMsgHelp()">
>>             <input name="login"   type="hidden"    class="campo"
>> value="$login">
>>             <input name="tema"    type="hidden"    class="campo"
>> value="$tema">
>>             <input type="submit"  value="Enviar"   class="botao"
>> >
>>           </div>
>>     </td>
>>   </tr>
>> </table>
>> </form>
>> </div>
>> </body>
>> |;}
>>
>> sub style{
>> open(STYLE, "$estilos");
>> @style = <STYLE>;
>> close(STYLE);
>> }
>>
>> sub todas{
>> $qs =~ s/todas=//;
>> $qs =~ tr/+/ /;
>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>
>> open (LOG, $qs."_".$log);
>> @log = <LOG>;
>> close(LOG);
>>
>> print qq|
>> <meta http-equiv="refresh" content="5,?todas"/> #####################
>> aqui reenvia mensagens para os participantes #############################
>> @style
>> <script>
>> <!--
>>   function rolar() {
>>     if( document.body && document.body.clientHeight ) {
>>       window.innerHeight = document.body.clientHeight
>>     }
>>     window.scrollTo( 0, (window.innerHeight/0.1) );
>>   }
>> //-->
>> </script>
>> <body onLoad="javascript:rolar()">
>> @log|;}
>>
>> sub topo{
>> open(TOPO,"$topo");
>> @topo=<TOPO>;
>> close(TOPO);
>> print "@topo";
>> }
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Thank you very much!

-dom

--

Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist.
+55 11 9 8538-9897
XOXO
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160111/93259dd6/attachment-0001.html>

From daniel.oliveira.mantovani at gmail.com  Mon Jan 11 12:12:52 2016
From: daniel.oliveira.mantovani at gmail.com (Daniel de Oliveira Mantovani)
Date: Mon, 11 Jan 2016 18:12:52 -0200
Subject: [SP-pm] script perl no windows 10
In-Reply-To: <CAEmYuOtA_r3qjLC1qBu+u_rheT-7=3zJf=k-Av219PpPsGajBw@mail.gmail.com>
References: <COL126-DS17DB8FE31F840F40B9D68292C90@phx.gbl>
	<CAPpv0_oJAxED39CB8g8LwBr1No6j1UUOgMmyfwFwY1XjBCqEpQ@mail.gmail.com>
	<CAEmYuOtA_r3qjLC1qBu+u_rheT-7=3zJf=k-Av219PpPsGajBw@mail.gmail.com>
Message-ID: <CAEmYuOt2YFQbcwB-Ma5nBO+38ep79d7GMmsChkLVuBzK4bXh7w@mail.gmail.com>

S? refor?ando o que eu disse, eu j? achei uma falha de seguran?a, onde voc?
abre um descritor de arquivos com dois argumentos. *Possivelmente* em algum
desses "opens" um dos argumentos vem do usu?rio.

https://www.securecoding.cert.org/confluence/pages/viewpage.action?pageId=76775519

On Mon, Jan 11, 2016 at 5:36 PM, Daniel de Oliveira Mantovani <
daniel.oliveira.mantovani at gmail.com> wrote:

> Eu fortemente te aconselho a jogar isso fora, e usar o Google Hangout ou
> qualquer uma das milh?es de solu??es gr?tis que resolvem isso.
>
> 2016-01-11 17:33 GMT-02:00 Lucas Moraes <lucastiagodemoraes at gmail.com>:
>
>> Aconselho voc? atualizar a pagina com javascript.
>>
>> setInterval(function(){ window.location.href = '?todas' }, 5000);
>>
>> Falou.
>>
>> Em 11 de janeiro de 2016 17:26, kleber caetano <payback at hotmail.com.br>
>> escreveu:
>>
>>> Ol? Sr(s),
>>>
>>> Migrei para o windows 10 e estou tendo um problema com um aplicativo em
>>> perl quando utilizo o edge ,
>>> entretanto , quando utilizo o explorer 11 o aplicativo ? executado
>>> normalmente.
>>>
>>> Nota[1] - Este aplicativo refere-se a um chat ( sala de reuni?o online ).
>>>
>>> O problema ( no edge ) ocorre quando :
>>>
>>> - Ele reenvia as mensagens ( atrav?s do comando <meta
>>> http-equiv="refresh" content="5,?todas"/> )  para
>>>   os participantes da sala de reuni?o ou seja n?o est? enviando nada.
>>> - Quando ? encerrada a reuni?o , o aplicativo elimina os arquivos de
>>> trabalho , por?m , no edge isto
>>>   n?o est? acontecendo.
>>>
>>> Nota[2] - No explorer 11 estes problemas n?o ocorrem.
>>>
>>> Nota[3] - O script em perl  foi desenvolvido por um amigo que conhecia
>>> bastante perl
>>>                entretanto meu conhecimento ? limitado.
>>>
>>> Nota[4] ? Estou trabalhando com
>>> ActivePerl-5.16.3.1603-MSWin32-x86-296746
>>>
>>> Nota[5] ? Caso considerem necess?rio , tenho como disponibilizar um link
>>> de acesso a este site sala.cgi
>>>
>>> Nota[6] - Quando instalei o windows 10 , o reload autom?tico
>>> funcionava , entretanto ,
>>>                 ao realizar uma manuten??o grande ( nova vers?o acho ) o
>>> problema apareceu.
>>>                 O problema de n?o eliminar os arquivos tempor?rio de
>>> trabalho existem
>>>                 desde a instala??o inicial do windows 10
>>> Nota[7] ? coloquei duas marcas no script onde eu acho que as fun??es s?o
>>> executadas:
>>>
>>> ######################### aqui elimina os arquivos de trabalho
>>> ###################################
>>>
>>> ##################### aqui reenvia mensagens para os participantes
>>> #############################
>>>
>>> Algu?m sabe como resolver isto ?
>>>
>>> Agrade?o a aten??o ,
>>>
>>> kleber
>>>
>>>
>>> =================================================================================================
>>>                                                          script em perl
>>> ( sala.cgi )
>>>
>>> =================================================================================================
>>> #!perl
>>> print "Content-type:text/html\n\n";
>>> use CGI::Carp(fatalsToBrowser);
>>>
>>>
>>> ###############################################################################################
>>> #                                     CONFIGURA??ES
>>> GERAIS
>>> #
>>> #
>>> #
>>> $titulo = "Sala de Reuni?o Online";        # T?tulo do
>>> script
>>> #
>>> $master = "master.log";                         # Arquivo tempor?rio a
>>> guardar primeiro usu?rio                                              #
>>> $log    = "logs.log";                                # Arquivo
>>> tempor?rio de logs
>>> totais                                                                    #
>>> $log2   = "logs2.log";                            # Arquivo tempor?rio
>>> de logs da
>>> sess?o                                                              #
>>> $online = "online.log";                         # Arquivo tempor?rio com
>>> nomes dos usu?rios Online                                        #
>>> $estilos= "estilos.css";                        # Arquivo com os estilos
>>> dentro da pasta modelos                                              #
>>> $topo   = "topo.html";                         # Template do
>>> Topo
>>> #
>>> $fim    = "fim.html";                           # Template do
>>> Fim
>>> #
>>> #
>>> #
>>> #
>>> #
>>> #                                     FIM DAS
>>> CONFIGURA??ES
>>> #
>>>
>>> ###############################################################################################
>>>
>>> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>>> @conteudo = split(/&/, $buffer);
>>> foreach $par (@conteudo) {
>>>         ($campo, $valor) = split(/=/, $par);
>>>         $valor =~ tr/+/ /;
>>>         $valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>         $CAMPO{$campo} = $valor;
>>>     }
>>>
>>> $qs = "$ENV{QUERY_STRING}";
>>> &data;
>>> &style;
>>> if ($qs eq ""){
>>> print qq|
>>> <BR><BR><BR><BR><BR><BR><BR>
>>> |;
>>> &topo;
>>> print qq?
>>> <script language="JavaScript">
>>> <!--
>>> altura = 690;
>>> largura= 1090;
>>> l = (screen.width - largura)/2;
>>> t = (screen.height - altura - 50)/2;
>>> var flag = "";
>>> var idioma=1;
>>> var strCookie='payback';
>>>
>>> function LerCookie(strCookie) {
>>>     var strNomeIgual = strCookie + "=";
>>>     var arrCookies = document.cookie.split(';');
>>>     for(var i = 0; i < arrCookies.length; i++)
>>>     {
>>>         var strValorCookie = arrCookies[i];
>>>         while(strValorCookie.charAt(0) == ' ')
>>>         {
>>>             strValorCookie = strValorCookie.substring(1,
>>> strValorCookie.length);
>>>         }
>>>         if(strValorCookie.indexOf(strNomeIgual) == 0)
>>>         {
>>>             var mensagem=strValorCookie.substring(strNomeIgual.length,
>>> strValorCookie.length);
>>>             flag = mensagem;
>>>             mensagem ='';
>>>             return;
>>>         }
>>>     }
>>>     alert ( '!!!! Erro cr?tico : N?o foi poss?vel restaurar ?rea de
>>> transfer?ncia' );
>>>     top.location.href = "/payback/index.htm";
>>> };
>>> function init(form) {
>>>               LerCookie(strCookie);
>>>               if (flag != null ) {
>>>                  flag = flag.split('|');
>>>                  document.form.login.value = flag[9];
>>>               }
>>>               document.form.tema.focus();
>>> }
>>> function Entra(form) {
>>>         if (document.form.tema.value.length == 0)  {
>>>             alert("O tema da reuni?o n?o foi informado");
>>>             document.form.tema.focus();
>>>             document.form.tema.select();
>>>             return false;
>>>         }
>>>         novajanela = window.open("", "entrar",
>>> "scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l);
>>>
>>>         return true;
>>> }
>>> function showSalaHelp() {
>>>       altura1=400;
>>>       largura1= 800;
>>>       l1 = (screen.width - largura + 250)/2;
>>>       t1 = (screen.height - altura + 250)/2;
>>>       var html = '<HTML><HEAD><TITLE></TITLE></HEAD>';
>>>           html += '<BODY background="/reuniao/imagem/papel.jpg"
>>> TEXT="#000066"><br><table align=center><tr><td><h4><b>SALA &nbsp;  DE
>>> &nbsp;  REUNI?O &nbsp;  ONLINE
>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></h4></td></tr></table><br><TABLE
>>> ALIGN=CENTER><font size=2><TR><TD><PRE><b>';
>>>           html += '<li>O dado usu?rio deve ser ?nico por sala.';
>>>           html += '<li>O dado tema da reuni?o ser? o ponto de encontro
>>> dos participantes na sala.<br>';
>>>           html += '   Este texto n?o pode conter espa?o , por exemplo ,
>>> informar Aquisi??o_de_Filial';
>>>           html += '<li>O sistema diferencia letra mai?scula de min?scula
>>> para identifica??o da sala.';
>>>           html += '<li>Cada sala ter? um ?nico tema n?o tendo limita??es
>>> de quantidade de aberturas de<br>';
>>>           html += '   salas e participantes.<br>';
>>>           html += '<li>O usu?rio que abrir a sala ou seja o primeiro a
>>> entrar receber? uma tarefa de<br>';
>>>           html += '  encerrar a reuni?o ( bot?o especial ).<br>  Este
>>> usu?rio , ao sair da sala , provocar? a elimina??o dos arquivos que
>>> registram<br>  os textos digitados.<br>  Portanto , recomenda-se dar um
>>> tempo de poucos segundos antes de sair da sala.';
>>>           html += '<li>Ao acionar o bat?o especial ENCERRAR REUNI?O , o
>>> texto REUNI?O FINALIZADA<br>';
>>>           html += '   ? enviado ? sala e nenhuma nova mensagem ?
>>> registrada pelo sistema.';
>>>           html += '<li>? recomend?vel que os participantes imprimam a
>>> ata de reuni?o ap?s esta a??o.<br>';
>>>           html += '<li>Para ajuda de formata??o do texto mensagem , na
>>> sala de reuni?o , acionar a tecla F1';
>>>           html += '<li>Os documentos enviados ao servidor para serem
>>> apresentados como anexo ,<br>  ser?o eliminados quando o sistema
>>> operacional for reinicializado.<br>';
>>>           html += '  Nota - O documento apresentado como anexo  , para
>>> ser baixado no servidor , dever? ter<br>         no m?ximo 500 kbytes.';
>>>           html += '</TABLE></FONT></B></PRE></BODY></HTML>';
>>>           var newWindow =
>>> window.open("","","scrollbars=auto,height="+altura1+",width="+largura1+",top="+t1+",left="+l1);
>>>           newWindow.document.write(html);
>>>           newWindow.document.close();
>>>           event.cancelBubble = true;
>>>           return false;
>>> }
>>> //-->
>>> </script>
>>> <style type="text/css"><!--
>>> .multi_bg { background-image : linear-gradient(to right, rgba(30, 75,
>>> 115, 0.5),  rgba(30, 75, 115, 0.5)); }
>>> -->
>>> </style>
>>> </HEAD>
>>>         <body onload="init(this.form)" onHelp="return showSalaHelp()"
>>> BGCOLOR="#ADB6C6" TEXT="#003366" class="multi_bg">
>>>         <form action="?entra" method="POST" name="form" target="entrar"
>>> id="form" OnSubmit="return Entra(this)">
>>>         <br>
>>>         <strong><font color="#ffffff"
>>> size="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<label
>>> class='sombra'><b>Escolha um tema para
>>> entrar</label></font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img
>>> src="/reuniao/imagem/help.gif"
>>> onClick="showSalaHelp();document.form.tema.focus()" WIDTH="18" HEIGHT="18"
>>> style="cursor:pointer" title ="Ajuda do sistema">
>>>         <br><br>
>>>         <div align="center">
>>>               <table>
>>>                 <tr>
>>>                    <!-- <td width="33%"><div align="right"><font
>>> class="sombra"><font color="#ffffff"
>>> size="2"><b>Usu&aacute;rio&nbsp;&nbsp;</b></font></div></td> -->
>>>                   <td><input type="hidden" name="login" class="campo"
>>> onFocus="document.form.tema.focus()" onHelp="return showSalaHelp()"></td>
>>>                  </tr>
>>>                 <tr>
>>>                   <td><div align="right"><font class="sombra"><font
>>> color="#ffffff" size="2"><b>Tema&nbsp;&nbsp;</b></font></div></td>
>>>                   <td><input name="tema" type="text" class="campo"
>>> id="tema" onHelp="return showSalaHelp()"></td>
>>>                 </tr>
>>>               </table><br>
>>>               <table>
>>>              <tr>
>>>
>>> <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
>>>                  <td align="center" colspan=2><input type="submit"
>>> value="Entrar" class="botao" STYLE='cursor: pointer;font-weight:bold'></td>
>>>             </tr>
>>>              </table><br>
>>>         </div>
>>> ?;&fim;}
>>>
>>> if ($qs eq "entra"){
>>> if ($CAMPO{login} eq ""){
>>> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
>>> &topo;
>>> print qq|<br>Voc? deve digitar um nome de usu?rio antes de entrar na
>>> sala ! <br><br>
>>> <div align="center">
>>> <input type="button" class="botao2" onClick="javascript:windows.close()"
>>> value="Fechar Janela"><br>
>>> </div>
>>> |;
>>> &fim;
>>> }else{
>>> if ($CAMPO{tema} eq "" ){
>>> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
>>> &topo;
>>> print qq|<br>Voc? deve digitar um tema antes de entrar na sala ! <br><br>
>>> <div align="center">
>>> <input type="button" class="botao2" onClick="javascript:window.close()"
>>> value="Fechar Janela"><br>
>>> </div>
>>> |;
>>> &fim;
>>> }else{
>>> if (-e "$CAMPO{tema}"."_"."$log"){
>>> open(ONLINE,"$CAMPO{tema}_$online");
>>> @online = <ONLINE>;
>>> close(ONLINE);
>>>
>>> foreach (@online){
>>> chomp;
>>> s/%//gi;
>>> if ($CAMPO{login} eq "$_"){
>>> $repetido = "1";
>>> }else{
>>> $repetido = "0";
>>> }}
>>> if ($repetido eq "1"){
>>> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
>>> &topo;
>>> print qq|<br>Este nome de usu?rio j? est? em uso! Por favor escolha
>>> outro.<br><br>
>>> <div align="center">
>>> <input type="button" class="botao2" onClick="javascript:window.close()"
>>> value="Fechar Janela"><br>
>>> </div>
>>> |;&fim;
>>> }else{
>>> open(MASTER,"$CAMPO{tema}_$master");
>>> $master = <MASTER>;
>>> close(MASTER);
>>> chomp $master;
>>> $master =~ s/%//gi;
>>>
>>> if ($CAMPO{login} eq $master){$a = "1";} else {$a = "0";}
>>> open(ONLINE,">>$CAMPO{tema}_$online");
>>> print ONLINE qq|%$CAMPO{login}%\n|;
>>> close(ONLINE);
>>>
>>> open (SALA, ">>$CAMPO{tema}_$log");
>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>> close(SALA);
>>>
>>> open (SALA, ">>$CAMPO{tema}_$log2");
>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>> close(SALA);
>>>
>>> &topo;&msg;&fim;
>>> }}else{
>>>
>>> open(MASTER,">$CAMPO{tema}_$master");
>>> print MASTER qq|%$CAMPO{login}%\n|;
>>> close(MASTER);
>>>
>>> open(ONLINE,">>$CAMPO{tema}_$online");
>>> print ONLINE qq|%$CAMPO{login}%\n|;
>>> close(ONLINE);
>>>
>>> open (SALA, ">>$CAMPO{tema}_$log");
>>> print SALA qq|<div align="center"><font class="texto"><h5>ATA DA
>>> REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>> close(SALA);
>>>
>>> open (SALA, ">>$CAMPO{tema}_$log2");
>>> print SALA qq|<div align="center"><font class="texto"><h5>ATA DA
>>> REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>> close(SALA);
>>> $a = "1";
>>> &topo;&msg;&fim;
>>> }}}}
>>>
>>> if ($qs eq "escreve2"){
>>> $CAMPO{msg} =~ tr/+/ /;
>>> $CAMPO{msg} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>> $CAMPO{tema} =~ tr/+/ /;
>>> $CAMPO{tema} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>> if ($CAMPO{msg} eq ""){
>>> print qq|
>>> <script language="Javascript">
>>> <!--
>>> alert ('Mensagem n?o informada')
>>> //-->
>>> </script>
>>> <body
>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>> |;}else{
>>>
>>> if ($CAMPO{msg} eq "REUNI?O FINALIZADA"){
>>>
>>> open(LOG,">>$CAMPO{tema}"."_"."$log");
>>> print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O
>>> FINALIZADA</b></font></div><br>\n|;
>>> close(LOG);
>>>
>>> open(LOG,">$CAMPO{tema}"."_"."$log2");
>>> print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O
>>> FINALIZADA</b></font></div><br>\n|;
>>> close(LOG);
>>>
>>> print qq|
>>> <body
>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>> |;
>>> }else{
>>>
>>> open(LOG,"$CAMPO{tema}"."_"."$log");
>>> @log = <LOG>;
>>> close(LOG);
>>> $r = "0";
>>> foreach (@log){
>>> chomp;
>>> if($_ eq "<br><div align=\"center\"><font class=\"texto\"><b>REUNI?O
>>> FINALIZADA</b></font></div><br>"){
>>> $r = "1";
>>> }}
>>>
>>> if ($r eq "1"){
>>> print qq|
>>> <body
>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>> |;
>>> }else{
>>>
>>> open(LOG,">>$CAMPO{tema}"."_"."$log");
>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp;
>>> <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
>>> close(LOG);
>>> open(LOG,">>$CAMPO{tema}"."_"."$log2");
>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp;
>>> <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
>>> close(LOG);
>>> print qq|
>>> <body
>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>> |;}}}}
>>>
>>> if ($qs =~ /imprimir/){
>>> &imprimir;
>>> }
>>>
>>> if ($qs =~ /logout/){
>>> &logout;
>>> }
>>>
>>> if ($qs =~ /principal/){
>>> &principal;
>>> }
>>>
>>> if ($qs =~ /principal2/){
>>> &principal2;
>>> }
>>>
>>> if ($qs =~ /todas/){
>>> &todas;
>>> }
>>>
>>> sub data{
>>> ($seg,$min,$hr,$dia,$mes,$ano) = localtime();
>>> if ($hr < "10"){$hr = "0$hr";}
>>> if ($min < "10"){$min = "0$min";}
>>> if ($seg < "10"){$seg = "0$seg";}
>>>
>>> @mes =
>>> ("janeiro","fevereiro","mar?o","abril","maio","junho","julho","agosto","setembro","outubro","novembro","dezembro");
>>> $ano = 1900+$ano;
>>>
>>> $data  = "$hr:$min:$seg, $dia de @mes[$mes] de $ano";
>>> }
>>>
>>> sub fim{
>>> open(FIM,"$fim");
>>> @fim=<FIM>;
>>> close(FIM);
>>> print "@fim";
>>> }
>>>
>>> sub imprimir {
>>> $qs =~ s/imprimir=//;
>>> $qs =~ tr/+/ /;
>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>
>>> open (LOG,"$qs"."_"."$log");
>>> @log = <LOG>;
>>> close(LOG);
>>>
>>> print qq|
>>> <html>
>>> <head>
>>> <title>$titulo</title>
>>> @style
>>> </head>
>>> <body onload="this.window.print()">
>>> @log
>>> </body>
>>> |;}
>>>
>>> sub logout{
>>> $qs =~ s/logout=//gi;
>>> ($login,$tema) = split (/-/,$qs);
>>> $login =~ tr/+/ /;
>>> $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>> $tema =~ tr/+/ /;
>>> $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>
>>> open(LOG,">>$tema"."_"."$log2");
>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b>
>>> saiu da sala</b></font><br>\n|;
>>> close(LOG);
>>>
>>> open(LOG,">>$tema"."_"."$log");
>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b>
>>> saiu da sala</b></font><br>\n|;
>>> close(LOG);
>>>
>>> open(ONLINE,"$tema"."_"."$online");
>>> @online = <ONLINE>;
>>> close(ONLINE);
>>>
>>> @on = @online;
>>> foreach (@on){
>>> chomp;
>>> if ($_ =~ /%$login%/){
>>> s/$_//;
>>> }}
>>>
>>> open(ONLINE,">$tema"."_"."$online");
>>> print ONLINE qq|@on|;
>>> close(ONLINE);
>>>
>>> open(ONLINE,"$tema"."_"."$online");
>>> @online = <ONLINE>;
>>> close(ONLINE);
>>>
>>> if (length ("@online") eq "0"){
>>> unlink("$tema"."_"."$master");  ######################### aqui elimina
>>> os arquivos de trabalho ###################################
>>> unlink("$tema"."_"."$online");  #################   n?o est? sendo
>>> executado no edge    ###########################################
>>> unlink("$tema"."_"."$log2");
>>> unlink("$tema"."_"."$log");
>>> }else{}
>>>
>>> print qq|
>>> <html>
>>> <head>
>>> <title>$titulo</title>
>>> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
>>> <script language="JavaScript">
>>> function Logout(){
>>> this.window.close()
>>> }
>>> </script>
>>> </head>
>>> <body onload="javascript:Logout()">
>>> </body>
>>> </html>
>>> |;}
>>>
>>> sub msg{
>>> $qs =~ tr/+/ /;
>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>> open (LOG, "$qs"."_"."$log2");
>>> @log = <LOG>;
>>> close(LOG);
>>>
>>> $finalizado = "0";
>>>
>>> foreach (@log){
>>> chomp;
>>> print $_;
>>> if ($_ eq "REUNI?O FINALIZADA"){
>>> $finalizado = "1";
>>> }}
>>>
>>> print qq|
>>> <script language="JavaScript">
>>> function Imprimir(){
>>> altura =690;
>>> largura= 1090;
>>> l = (screen.width - largura)/2;
>>> t = (screen.height - altura - 50)/2;
>>> window.open("?imprimir=$CAMPO{tema}","","scrollbars,height="+altura+",width="+largura+",top="+t+",left="+l);
>>>
>>> }
>>> function unLoad(){
>>> window.open("?logout=$CAMPO{login}-$CAMPO{tema}","","width=80,height=80")
>>> }
>>> </script>
>>> <body onunLoad="unLoad()">
>>> <table>
>>> <tr><td>
>>> <font class="texto1"><b> Usu?rio:
>>> $CAMPO{login}</b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
>>> </td><td>
>>> &nbsp;<font class="texto1"><b> Tema: $CAMPO{tema}<br></b></font>
>>> </td><td>
>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>> src="/reuniao/imagem/calculadora.gif" onClick="calculadora()" WIDTH="18"
>>> HEIGHT="22" style="cursor:pointer" title ="Calculadora financeira">
>>> </td><td>
>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>> src="/reuniao/imagem/Email.gif" onClick="email()" WIDTH="24" HEIGHT="20"
>>> style="cursor:pointer" title ="Correspond?ncia interna">
>>> </td><td>
>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>> src="/reuniao/imagem/acessorio.gif" onClick="acessorio()" WIDTH="24"
>>> HEIGHT="20" style="cursor:pointer" title ="Acess?rios">
>>> </td><TD>
>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>> src="/reuniao/imagem/alarme.gif" onClick="alarme()" WIDTH="24" HEIGHT="20"
>>> style="cursor:pointer" title ="Alarme">
>>> </td></tr></table>
>>> <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe"
>>> width="1010" height="480" style="overlap:auto"></iframe>
>>> <iframe align="middle" src="?principal2=$CAMPO{tema}-$CAMPO{login}"
>>> name="iframe2" width="1010" height="75" style="overlap:auto"></iframe>
>>> <table>
>>> <tr>
>>> <td><input type="button" class="botao" value="Ata de reuni?o"
>>> onClick="javascript:Imprimir()"
>>> STYLE='cursor:pointer;font-weight:bold'></td>
>>> <td>&nbsp;</td>
>>> <td><div align="right">
>>> <input type="button" class="botao2" value="Sair da Sala"
>>> onClick="javascript:window.close()"
>>> STYLE='cursor:pointer;font-weight:bold'></div></td>
>>> <td>&nbsp;</td>
>>> |;
>>>
>>> if($a eq "1"){print qq|<td><div align="center">
>>> <form name="form" method="post" action="?escreve2" target="iframe2">
>>>             <input name="msg"    type="hidden" size="80" class="campo"
>>> value="REUNI?O FINALIZADA">
>>>             <input name="login"  type="hidden" class="campo"
>>> value="$CAMPO{login}">
>>>             <input name="tema"   type="hidden" class="campo"
>>> value="$CAMPO{tema}">
>>>             <input type="submit" value="Encerrar Reuni?o" class="botao"
>>> STYLE='cursor: pointer;font-weight:bold'>
>>> </form>
>>> </div>
>>> </div></td></tr>|;}print qq|</table><br>|;}
>>>
>>> sub principal{
>>> $qs =~ s/principal=//;
>>> $qs =~ tr/+/ /;
>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>
>>> open (LOG, $qs."_".$log2);
>>> @log = <LOG>;
>>> close(LOG);
>>>
>>> $finalizado = "0";
>>>
>>> foreach (@log){
>>> chomp;
>>> if ($_ eq "REUNI?O FINALIZADA"){
>>> $finalizado = "1";
>>> }}
>>> if ($finalizado eq "1"){print qq|
>>> <font class="texto">
>>> A REUNI?O FOI FINALIZADA. VOC? PODE IMPRIMIR OU VISUALIZAR O RELAT?RIO
>>> </font>|;
>>>
>>> }else{print qq|
>>> <html>
>>> <head>
>>>
>>> @style
>>> <script language="JavaScript">
>>> <!--
>>>    function scroll() {
>>>      if( document.body && document.body.clientHeight ) {
>>>        window.innerHeight = document.body.clientHeight
>>>      }
>>>      window.scrollTo( 0, (window.innerHeight/0.1) )
>>>    }
>>>
>>>     function focus(){
>>>       document.form.msg.focus()
>>>     }
>>>
>>>     function enter(string){
>>>              insertAtCaret(document.form.msg,string);
>>>              focus()
>>>     }
>>>
>>>    function insertAtCaret (textObj, textFeildValue) {
>>>        if(document.all){
>>>             if (textObj.createTextRange && textObj.caretPos) {
>>>                 var caretPos = textObj.caretPos;
>>>                 caretPos.text =
>>> caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?textFeildValue + ' '
>>> : textFeildValue;
>>>             }else{
>>>                 textObj.value = textFeildValue;
>>>             }
>>>       }else{
>>>             if(textObj.setSelectionRange){
>>>                var rangeStart = textObj.selectionStart;
>>>                var rangeEnd = textObj.selectionEnd;
>>>                var tempStr1 = textObj.value.substring(0,rangeStart);
>>>                var tempStr2 = textObj.value.substring(rangeEnd);
>>>                textObj.value = tempStr1 + textFeildValue + tempStr2;
>>>            }else{
>>>                alert("Esta vers?o do navegador n?o suporta
>>> setSelectionRange");
>>>            }
>>>      }
>>>   }
>>>
>>>    function clear_field(){
>>>       document.form.msg.value = ''
>>>       document.form.msg.focus()
>>>       document.form.msg.select()
>>>    }
>>>
>>>    function anexar(){
>>>              altura = 450;
>>>              largura= 700;
>>>              l = (screen.width - largura)/2;
>>>              t = (screen.height - altura - 50)/2;
>>>              var html =  '<HTML><HEAD><TITLE></TITLE>'
>>>                  html += '</HEAD><BODY
>>> background="/reuniao/imagem/papel.jpg"  TEXT="#000066">'
>>>                  html += '<BR><BR><BR><table
>>> align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px
>>> 4px #000, 0 0 0 #000, 2px 4px 6px #000">Apresentar documento como
>>> anexo</label></h3></th></tr></table><br><br>'
>>>                  html += '<FORM NAME="anexo" METHOD="POST"
>>> ACTION="/reuniao/temp/upload.plx" ENCTYPE="multipart/form-data">'
>>>                  html += '<br>'
>>>                  html += '<TABLE align=center>'
>>>                  html += '<tr>'
>>>                  html += '<td><input type="file" name="arquivo"
>>> size="60" maxlength="90"></td>'
>>>                  html += '</tr>'
>>>                  html += '</table>'
>>>                  html += '<br><br><br>'
>>>                  html += '<TABLE align=center>'
>>>                  html += '<tr>'
>>>                  html += '<td bgcolor=#ADB6C6><input type="submit"
>>> value="    Processa    " style="color: white; text-shadow: 1px 2px 4px
>>> #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
>>>                  html += '</TR>'
>>>                  html += '</table>'
>>>                  html += '</form>'
>>>                  html += '</body>'
>>>                  html += '</html>'
>>>              var newWindow =
>>> window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
>>>              newWindow.document.write(html)
>>>              newWindow.document.close()
>>>              focus()
>>>              return false
>>>    }
>>>
>>>    function publicar(){
>>>              altura = 450;
>>>              largura= 700;
>>>              l = (screen.width - largura)/2;
>>>              t = (screen.height - altura - 50)/2;
>>>              var html =  '<HTML><HEAD><TITLE></TITLE>'
>>>                  html += '</HEAD><BODY
>>> background="/reuniao/imagem/papel.jpg"  TEXT="#ffffff">'
>>>                  html += '<BR><BR><BR><table
>>> align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px
>>> 4px #000, 0 0 0 #000, 2px 4px 6px #000">Ponto de publica??o
>>> web</label></h3></th></tr></table><br><br>'
>>>                  html += '<FORM NAME="publica" METHOD="POST"
>>> ACTION="/reuniao/temp/publica.plx">'
>>>                  html += '<br>'
>>>                  html += '<TABLE align=center>'
>>>                  html += '<tr>'
>>>                  html += '<td><input type="text" name="http" size="60"
>>> maxlength="90" value = "http://"></td>'
>>>                  html += '</tr>'
>>>                  html += '</table>'
>>>                  html += '<br><br><br>'
>>>                  html += '<TABLE align=center>'
>>>                  html += '<tr>'
>>>                  html += '<td bgcolor=#ADB6C6><input type="submit"
>>> value="    Processa    " style="color: white; text-shadow: 1px 2px 4px
>>> #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
>>>                  html += '</TR>'
>>>                  html += '</table>'
>>>                  html += '</form>'
>>>                  html += '</body>'
>>>                  html += '</html>'
>>>              var newWindow =
>>> window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
>>>              newWindow.document.write(html)
>>>              newWindow.document.close()
>>>              focus()
>>>              return false
>>>    }
>>>
>>>   function showMsgHelp() {
>>>       alert("                            SALA DE REUNI?O
>>> ONLINE\\n\\nMensagem -> Campo alfa num?rico com tamanho de 300 caracteres e
>>> diferente de espa?o.\\n\\nNota - ? recomend?vel que uma linha de mensagem
>>> tenha no m?ximo 80 caracteres visando dar maior clareza no relat?rio ATA DE
>>> REUNI?O.\\n\\nTAGS ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\n<br> - Salto de
>>> linha\\n<p> - Salto de par?grafo\\n<b>texto</b> - Texto em negrito\\n<font
>>> size=4>texto</font> - Texto com fonte igual a 4 pixel\\n<font
>>> color=red>texto</font> - Texto com cor em vermelho\\n<i>texto</i> - Texto
>>> em it?lico\\n<u>texto</u> - Texto sublinhado\\n<sub>texto</sub> - Texto
>>> subscrito\\n<sup>texto</sup> - Texto
>>> sobrescrito\\n<ol><li>texto1<li>texto2<li>texto3</ol> - Lista num?rica dos
>>> textos\\n<li>texto1<li>texto2<li>texto3 - Marca??o dos textos\\n\\nNota -
>>> Os par?metros de formata??o de texto podem ser utilizados
>>> simultaneamente.\\n\\n                EXEMPLO DE UTILIZA??O\\n\\nOl? sr(s)
>>> , bom dia a todos<br>Vamos dicurtir a <font size=3 color=red><b>Aquisi??o
>>> do im?vel em S?o Paulo.</b></font><br>O Paulo vai nos descrever as
>>> alternativas que dispomos.\\n\\n\\nFUN??ES ESPECIAIS PARA FORMATA??O DE
>>> TEXTO\\n\\nLimpa -      Move espa?o para o campo mensagem\\nLinha -
>>> Move <br> para o campo mensagem para quebrar linha\\nLista -        Move
>>> marcador <li> para o campo mensagem com salto de linha\\nNum?rico Move
>>> marcador <ol> para o campo mensagem\\nCola -        Coloca texto da ?rea de
>>> transfer?ncia no campo mensagem\\nAnexa -     Disponibiliza documento como
>>> um anexo para apresenta??o\\nPublica -   Disponibiliza um link de acesso
>>> referente a uma publica??o na internet\\nReal?a -    Evid?ncia uma parte do
>>> texto selecionado no campo mensagem\\nSublinha - Real?a um texto
>>> selecionado no campo mensagem sublinhando-o")
>>>       event.cancelBubble = true
>>>       return false
>>>   }
>>>
>>> //-->
>>> </script>
>>> </head>
>>> <body>
>>> @log
>>> </body>
>>> </html>|;
>>> }}
>>>
>>> sub principal2 {
>>> $qs =~ s/principal2=//;
>>> ($tema,$login) = split (/-/,$qs);
>>> $tema =~ tr/+/ /;
>>> $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>> $login =~ tr/+/ /;
>>> $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>
>>> print qq|
>>> @style
>>>
>>> <body  onLoad="document.form.msg.focus()" onHelp="return showMsgHelp()"
>>> class="table3" leftmargin="0" topmargin="0" marginwidth="0"
>>> marginheight="0">
>>> <div align="center">
>>> <table>
>>>   <tr>
>>>     <td> &nbsp;</td>
>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/clear.png"
>>> onClick="clear_field()"   WIDTH="24" HEIGHT="20" style="cursor:pointer"
>>> title ="Limpar campo mensagem"  STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/linha.png"
>>> onClick="enter('<br>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
>>> title ="Salto de linha"  STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/lista.gif"
>>> onClick="enter('<li>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
>>> title ="Marcador de lista"  STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/nlist.gif"
>>> onClick="enter('<ol>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
>>> title ="Marcador num?rico"  STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/anexo.png"
>>> onClick="anexar()"      WIDTH="20" HEIGHT="20" style="cursor:pointer" title
>>> ="Anexar docto"  STYLE='cursor: pointer; font-family: Arial, Helvetica,
>>> sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/wlink.gif"
>>> onClick="publicar()"    WIDTH="20" HEIGHT="20" style="cursor:pointer" title
>>> ="Publicar um link da internet"  STYLE='cursor: hand; font-family: Arial,
>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/help.gif"
>>> onClick="showMsgHelp()" WIDTH="18" HEIGHT="18" style="cursor:pointer" title
>>> ="Ajuda do sistema"  STYLE='cursor: pointer; font-family: Arial, Helvetica,
>>> sans-serif; font-size: 10px; border-width:
>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>> </tr>
>>> </table><br>
>>> <table  align="center">
>>>   <tr>
>>>     <td class="texto"><form name="form" method="post" action="?escreve2">
>>>           <div align="center"><b><font size=2><label
>>> class='sombra'>&nbsp; Mensagem &nbsp; </label></b></fonte>
>>>             <input name="msg"     type="text"      class="campo"
>>> size="120" maxlength="300" onHelp="return showMsgHelp()">
>>>             <input name="login"   type="hidden"    class="campo"
>>> value="$login">
>>>             <input name="tema"    type="hidden"    class="campo"
>>> value="$tema">
>>>             <input type="submit"  value="Enviar"   class="botao"
>>> >
>>>           </div>
>>>     </td>
>>>   </tr>
>>> </table>
>>> </form>
>>> </div>
>>> </body>
>>> |;}
>>>
>>> sub style{
>>> open(STYLE, "$estilos");
>>> @style = <STYLE>;
>>> close(STYLE);
>>> }
>>>
>>> sub todas{
>>> $qs =~ s/todas=//;
>>> $qs =~ tr/+/ /;
>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>
>>> open (LOG, $qs."_".$log);
>>> @log = <LOG>;
>>> close(LOG);
>>>
>>> print qq|
>>> <meta http-equiv="refresh" content="5,?todas"/> #####################
>>> aqui reenvia mensagens para os participantes #############################
>>> @style
>>> <script>
>>> <!--
>>>   function rolar() {
>>>     if( document.body && document.body.clientHeight ) {
>>>       window.innerHeight = document.body.clientHeight
>>>     }
>>>     window.scrollTo( 0, (window.innerHeight/0.1) );
>>>   }
>>> //-->
>>> </script>
>>> <body onLoad="javascript:rolar()">
>>> @log|;}
>>>
>>> sub topo{
>>> open(TOPO,"$topo");
>>> @topo=<TOPO>;
>>> close(TOPO);
>>> print "@topo";
>>> }
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Thank you very much!
>
> -dom
>
> --
>
> Daniel de Oliveira Mantovani
> Business Analytic Specialist
> Perl Evangelist /Astrophysics hobbyist.
> +55 11 9 8538-9897
> XOXO
>



-- 
Thank you very much!

-dom

--

Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist.
+55 11 9 8538-9897
XOXO
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160111/cc36e143/attachment-0001.html>

From payback at hotmail.com.br  Mon Jan 11 13:16:54 2016
From: payback at hotmail.com.br (kleber caetano)
Date: Mon, 11 Jan 2016 19:16:54 -0200
Subject: [SP-pm] script perl no windows 10
In-Reply-To: <CAEmYuOt2YFQbcwB-Ma5nBO+38ep79d7GMmsChkLVuBzK4bXh7w@mail.gmail.com>
References: <COL126-DS17DB8FE31F840F40B9D68292C90@phx.gbl><CAPpv0_oJAxED39CB8g8LwBr1No6j1UUOgMmyfwFwY1XjBCqEpQ@mail.gmail.com><CAEmYuOtA_r3qjLC1qBu+u_rheT-7=3zJf=k-Av219PpPsGajBw@mail.gmail.com>
	<CAEmYuOt2YFQbcwB-Ma5nBO+38ep79d7GMmsChkLVuBzK4bXh7w@mail.gmail.com>
Message-ID: <COL126-DS5D77FB563308C656D1BD892C90@phx.gbl>

Agrade?o a gentiliza em responder.
O Daniel me esculhambou ( rsrsrsrsrss ).
Apesar do script n?o ser bem elaborado ou estruturado , ele ? simples e ?til ( gostaria de tentar acertar o erro ).

Implementei as sugest?o do Daniel e do Lucas [ setInterval(function(){ window.location.href = '?todas' }, 5000); ]
e o problema passou a ocorrer tamb?m no internet explorer 11( n?o enviou as mensagens para os participantes ).

Pelo que eu entendo deste script , a a??o reload envia as mensagens para
<iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe" width="1010" height="480" style="overlap:auto"></iframe>
e com setInterval n?o chegou ( porque n?o chegou l? ).

Talvez isto ajude a analisar o problema.


From: Daniel de Oliveira Mantovani 
Sent: Monday, January 11, 2016 6:12 PM
To: saopaulo-pm at mail.pm.org 
Subject: Re: [SP-pm] script perl no windows 10

S? refor?ando o que eu disse, eu j? achei uma falha de seguran?a, onde voc? abre um descritor de arquivos com dois argumentos. Possivelmente em algum desses "opens" um dos argumentos vem do usu?rio.

https://www.securecoding.cert.org/confluence/pages/viewpage.action?pageId=76775519


On Mon, Jan 11, 2016 at 5:36 PM, Daniel de Oliveira Mantovani <daniel.oliveira.mantovani at gmail.com> wrote:

  Eu fortemente te aconselho a jogar isso fora, e usar o Google Hangout ou qualquer uma das milh?es de solu??es gr?tis que resolvem isso.

  2016-01-11 17:33 GMT-02:00 Lucas Moraes <lucastiagodemoraes at gmail.com>:

    Aconselho voc? atualizar a pagina com javascript. 

    setInterval(function(){ window.location.href = '?todas' }, 5000);


    Falou.


    Em 11 de janeiro de 2016 17:26, kleber caetano <payback at hotmail.com.br> escreveu:

      Ol? Sr(s),

      Migrei para o windows 10 e estou tendo um problema com um aplicativo em perl quando utilizo o edge ,
      entretanto , quando utilizo o explorer 11 o aplicativo ? executado normalmente.

      Nota[1] - Este aplicativo refere-se a um chat ( sala de reuni?o online ).

      O problema ( no edge ) ocorre quando :

      - Ele reenvia as mensagens ( atrav?s do comando <meta http-equiv="refresh" content="5,?todas"/> )  para 
        os participantes da sala de reuni?o ou seja n?o est? enviando nada.
      - Quando ? encerrada a reuni?o , o aplicativo elimina os arquivos de trabalho , por?m , no edge isto 
        n?o est? acontecendo.   

      Nota[2] - No explorer 11 estes problemas n?o ocorrem.

      Nota[3] - O script em perl  foi desenvolvido por um amigo que conhecia bastante perl 
                     entretanto meu conhecimento ? limitado. 

      Nota[4] ? Estou trabalhando com ActivePerl-5.16.3.1603-MSWin32-x86-296746 

      Nota[5] ? Caso considerem necess?rio , tenho como disponibilizar um link de acesso a este site sala.cgi

      Nota[6] - Quando instalei o windows 10 , o reload autom?tico  funcionava , entretanto ,  
                      ao realizar uma manuten??o grande ( nova vers?o acho ) o problema apareceu.
                      O problema de n?o eliminar os arquivos tempor?rio de trabalho existem
                      desde a instala??o inicial do windows 10

      Nota[7] ? coloquei duas marcas no script onde eu acho que as fun??es s?o executadas:

      ######################### aqui elimina os arquivos de trabalho ###################################

      ##################### aqui reenvia mensagens para os participantes #############################

      Algu?m sabe como resolver isto ?

      Agrade?o a aten??o ,

      kleber    

      =================================================================================================
                                                               script em perl  ( sala.cgi )
      =================================================================================================
      #!perl
      print "Content-type:text/html\n\n";
      use CGI::Carp(fatalsToBrowser);

      ###############################################################################################
      #                                     CONFIGURA??ES GERAIS                                                                                                            #
      #                                                                                                                                                                                          #
      $titulo = "Sala de Reuni?o Online";        # T?tulo do script                                                                                                #
      $master = "master.log";                         # Arquivo tempor?rio a guardar primeiro usu?rio                                              #
      $log    = "logs.log";                                # Arquivo tempor?rio de logs totais                                                                    #
      $log2   = "logs2.log";                            # Arquivo tempor?rio de logs da sess?o                                                              #
      $online = "online.log";                         # Arquivo tempor?rio com nomes dos usu?rios Online                                        #
      $estilos= "estilos.css";                        # Arquivo com os estilos dentro da pasta modelos                                              #
      $topo   = "topo.html";                         # Template do Topo                                                                                                #
      $fim    = "fim.html";                           # Template do Fim                                                                                                   #
      #                                                                                                                                                                                         #
      #                                                                                                                                                                                         #
      #                                     FIM DAS CONFIGURA??ES                                                                                                         #
      ###############################################################################################

      read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
      @conteudo = split(/&/, $buffer);
      foreach $par (@conteudo) {
              ($campo, $valor) = split(/=/, $par);
              $valor =~ tr/+/ /;
              $valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
              $CAMPO{$campo} = $valor;
          }

      $qs = "$ENV{QUERY_STRING}";
      &data;
      &style;
      if ($qs eq ""){
      print qq|
      <BR><BR><BR><BR><BR><BR><BR>
      |;
      &topo;
      print qq?
      <script language="JavaScript">
      <!--
      altura = 690;
      largura= 1090;
      l = (screen.width - largura)/2;
      t = (screen.height - altura - 50)/2; 
      var flag = "";
      var idioma=1;
      var strCookie='payback';

      function LerCookie(strCookie) {
          var strNomeIgual = strCookie + "=";
          var arrCookies = document.cookie.split(';');
          for(var i = 0; i < arrCookies.length; i++)
          {
              var strValorCookie = arrCookies[i];
              while(strValorCookie.charAt(0) == ' ')
              {
                  strValorCookie = strValorCookie.substring(1, strValorCookie.length);
              }
              if(strValorCookie.indexOf(strNomeIgual) == 0)
              {
                  var mensagem=strValorCookie.substring(strNomeIgual.length, strValorCookie.length);
                  flag = mensagem;
                  mensagem ='';
                  return;
              }
          }
          alert ( '!!!! Erro cr?tico : N?o foi poss?vel restaurar ?rea de transfer?ncia' );
          top.location.href = "/payback/index.htm";   
      };
      function init(form) {
                    LerCookie(strCookie);
                    if (flag != null ) {
                       flag = flag.split('|'); 
                       document.form.login.value = flag[9];
                    }
                    document.form.tema.focus();
      }
      function Entra(form) {
              if (document.form.tema.value.length == 0)  {
                  alert("O tema da reuni?o n?o foi informado");
                  document.form.tema.focus();
                  document.form.tema.select();
                  return false;
              } 
              novajanela = window.open("", "entrar", "scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l); 
              return true;
      }
      function showSalaHelp() {
            altura1=400;
            largura1= 800;
            l1 = (screen.width - largura + 250)/2;
            t1 = (screen.height - altura + 250)/2;   
            var html = '<HTML><HEAD><TITLE></TITLE></HEAD>';
                html += '<BODY background="/reuniao/imagem/papel.jpg" TEXT="#000066"><br><table align=center><tr><td><h4><b>SALA &nbsp;  DE &nbsp;  REUNI?O &nbsp;  ONLINE &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></h4></td></tr></table><br><TABLE ALIGN=CENTER><font size=2><TR><TD><PRE><b>';                      
                html += '<li>O dado usu?rio deve ser ?nico por sala.';
                html += '<li>O dado tema da reuni?o ser? o ponto de encontro dos participantes na sala.<br>';
                html += '   Este texto n?o pode conter espa?o , por exemplo , informar Aquisi??o_de_Filial';
                html += '<li>O sistema diferencia letra mai?scula de min?scula para identifica??o da sala.';
                html += '<li>Cada sala ter? um ?nico tema n?o tendo limita??es de quantidade de aberturas de<br>';
                html += '   salas e participantes.<br>';
                html += '<li>O usu?rio que abrir a sala ou seja o primeiro a entrar receber? uma tarefa de<br>';
                html += '  encerrar a reuni?o ( bot?o especial ).<br>  Este usu?rio , ao sair da sala , provocar? a elimina??o dos arquivos que registram<br>  os textos digitados.<br>  Portanto , recomenda-se dar um tempo de poucos segundos antes de sair da sala.';
                html += '<li>Ao acionar o bat?o especial ENCERRAR REUNI?O , o texto REUNI?O FINALIZADA<br>';
                html += '   ? enviado ? sala e nenhuma nova mensagem ? registrada pelo sistema.';
                html += '<li>? recomend?vel que os participantes imprimam a ata de reuni?o ap?s esta a??o.<br>';
                html += '<li>Para ajuda de formata??o do texto mensagem , na sala de reuni?o , acionar a tecla F1';
                html += '<li>Os documentos enviados ao servidor para serem apresentados como anexo ,<br>  ser?o eliminados quando o sistema operacional for reinicializado.<br>';
                html += '  Nota - O documento apresentado como anexo  , para ser baixado no servidor , dever? ter<br>         no m?ximo 500 kbytes.';
                html += '</TABLE></FONT></B></PRE></BODY></HTML>';
                var newWindow = window.open("","","scrollbars=auto,height="+altura1+",width="+largura1+",top="+t1+",left="+l1);
                newWindow.document.write(html);
                newWindow.document.close();
                event.cancelBubble = true;
                return false;
      }
      //-->
      </script>
      <style type="text/css"><!--
      .multi_bg { background-image : linear-gradient(to right, rgba(30, 75, 115, 0.5),  rgba(30, 75, 115, 0.5)); }
      -->
      </style>
      </HEAD>
              <body onload="init(this.form)" onHelp="return showSalaHelp()" BGCOLOR="#ADB6C6" TEXT="#003366" class="multi_bg">
              <form action="?entra" method="POST" name="form" target="entrar" id="form" OnSubmit="return Entra(this)">
              <br>
              <strong><font color="#ffffff" size="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<label class='sombra'><b>Escolha um tema para entrar</label></font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="/reuniao/imagem/help.gif" onClick="showSalaHelp();document.form.tema.focus()" WIDTH="18" HEIGHT="18" style="cursor:pointer" title ="Ajuda do sistema">
              <br><br>
              <div align="center">
                    <table>
                      <tr> 
                         <!-- <td width="33%"><div align="right"><font class="sombra"><font color="#ffffff" size="2"><b>Usu&aacute;rio&nbsp;&nbsp;</b></font></div></td> --> 
                        <td><input type="hidden" name="login" class="campo" onFocus="document.form.tema.focus()" onHelp="return showSalaHelp()"></td>
                       </tr>
                      <tr> 
                        <td><div align="right"><font class="sombra"><font color="#ffffff" size="2"><b>Tema&nbsp;&nbsp;</b></font></div></td>
                        <td><input name="tema" type="text" class="campo" id="tema" onHelp="return showSalaHelp()"></td>
                      </tr>
                    </table><br>
                    <table>
                   <tr>
                       <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
                       <td align="center" colspan=2><input type="submit" value="Entrar" class="botao" STYLE='cursor: pointer;font-weight:bold'></td>
                  </tr>
                   </table><br>
              </div>
      ?;&fim;}

      if ($qs eq "entra"){
      if ($CAMPO{login} eq ""){ 
      print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|; 
      &topo;
      print qq|<br>Voc? deve digitar um nome de usu?rio antes de entrar na sala ! <br><br>
      <div align="center">
      <input type="button" class="botao2" onClick="javascript:windows.close()" value="Fechar Janela"><br>
      </div>
      |;
      &fim;
      }else{ 
      if ($CAMPO{tema} eq "" ){   
      print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;  
      &topo;
      print qq|<br>Voc? deve digitar um tema antes de entrar na sala ! <br><br>
      <div align="center">
      <input type="button" class="botao2" onClick="javascript:window.close()" value="Fechar Janela"><br>
      </div>
      |;
      &fim;
      }else{
      if (-e "$CAMPO{tema}"."_"."$log"){ 
      open(ONLINE,"$CAMPO{tema}_$online");
      @online = <ONLINE>;
      close(ONLINE);

      foreach (@online){
      chomp;
      s/%//gi;
      if ($CAMPO{login} eq "$_"){
      $repetido = "1";
      }else{
      $repetido = "0";
      }}
      if ($repetido eq "1"){
      print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;  
      &topo;
      print qq|<br>Este nome de usu?rio j? est? em uso! Por favor escolha outro.<br><br>
      <div align="center">
      <input type="button" class="botao2" onClick="javascript:window.close()" value="Fechar Janela"><br>
      </div>
      |;&fim;
      }else{
      open(MASTER,"$CAMPO{tema}_$master");
      $master = <MASTER>;
      close(MASTER);
      chomp $master;
      $master =~ s/%//gi;

      if ($CAMPO{login} eq $master){$a = "1";} else {$a = "0";}
      open(ONLINE,">>$CAMPO{tema}_$online");
      print ONLINE qq|%$CAMPO{login}%\n|;
      close(ONLINE);

      open (SALA, ">>$CAMPO{tema}_$log");
      print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
      close(SALA);

      open (SALA, ">>$CAMPO{tema}_$log2");
      print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
      close(SALA);

      &topo;&msg;&fim;
      }}else{

      open(MASTER,">$CAMPO{tema}_$master");
      print MASTER qq|%$CAMPO{login}%\n|;
      close(MASTER);

      open(ONLINE,">>$CAMPO{tema}_$online");
      print ONLINE qq|%$CAMPO{login}%\n|;
      close(ONLINE);

      open (SALA, ">>$CAMPO{tema}_$log");
      print SALA qq|<div align="center"><font class="texto"><h5>ATA DA REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
      print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
      close(SALA);

      open (SALA, ">>$CAMPO{tema}_$log2");
      print SALA qq|<div align="center"><font class="texto"><h5>ATA DA REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
      print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
      close(SALA);
      $a = "1";
      &topo;&msg;&fim;
      }}}}

      if ($qs eq "escreve2"){
      $CAMPO{msg} =~ tr/+/ /;
      $CAMPO{msg} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $CAMPO{tema} =~ tr/+/ /;
      $CAMPO{tema} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      if ($CAMPO{msg} eq ""){
      print qq|
      <script language="Javascript">
      <!--
      alert ('Mensagem n?o informada')
      //-->
      </script>
      <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
      |;}else{

      if ($CAMPO{msg} eq "REUNI?O FINALIZADA"){

      open(LOG,">>$CAMPO{tema}"."_"."$log");
      print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O FINALIZADA</b></font></div><br>\n|;
      close(LOG);

      open(LOG,">$CAMPO{tema}"."_"."$log2");
      print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O FINALIZADA</b></font></div><br>\n|;
      close(LOG);

      print qq|
      <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
      |;
      }else{

      open(LOG,"$CAMPO{tema}"."_"."$log");
      @log = <LOG>;
      close(LOG);
      $r = "0";
      foreach (@log){
      chomp;
      if($_ eq "<br><div align=\"center\"><font class=\"texto\"><b>REUNI?O FINALIZADA</b></font></div><br>"){
      $r = "1";
      }}

      if ($r eq "1"){
      print qq|
      <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
      |;
      }else{

      open(LOG,">>$CAMPO{tema}"."_"."$log");
      print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
      close(LOG);
      open(LOG,">>$CAMPO{tema}"."_"."$log2");
      print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
      close(LOG);
      print qq|
      <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
      |;}}}}

      if ($qs =~ /imprimir/){
      &imprimir;
      }

      if ($qs =~ /logout/){
      &logout;
      }

      if ($qs =~ /principal/){
      &principal;
      }

      if ($qs =~ /principal2/){
      &principal2;
      }

      if ($qs =~ /todas/){
      &todas;
      }

      sub data{
      ($seg,$min,$hr,$dia,$mes,$ano) = localtime();
      if ($hr < "10"){$hr = "0$hr";}
      if ($min < "10"){$min = "0$min";}
      if ($seg < "10"){$seg = "0$seg";}

      @mes = ("janeiro","fevereiro","mar?o","abril","maio","junho","julho","agosto","setembro","outubro","novembro","dezembro");
      $ano = 1900+$ano;

      $data  = "$hr:$min:$seg, $dia de @mes[$mes] de $ano";
      }

      sub fim{
      open(FIM,"$fim");
      @fim=<FIM>;
      close(FIM);
      print "@fim";
      }

      sub imprimir {
      $qs =~ s/imprimir=//;
      $qs =~ tr/+/ /;
      $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      open (LOG,"$qs"."_"."$log");
      @log = <LOG>;
      close(LOG);

      print qq|
      <html>
      <head>
      <title>$titulo</title>
      @style
      </head>
      <body onload="this.window.print()">
      @log
      </body>
      |;}

      sub logout{
      $qs =~ s/logout=//gi;
      ($login,$tema) = split (/-/,$qs);
      $login =~ tr/+/ /;
      $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $tema =~ tr/+/ /;
      $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      open(LOG,">>$tema"."_"."$log2");
      print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b> saiu da sala</b></font><br>\n|;
      close(LOG);

      open(LOG,">>$tema"."_"."$log");
      print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b> saiu da sala</b></font><br>\n|;
      close(LOG);

      open(ONLINE,"$tema"."_"."$online");
      @online = <ONLINE>;
      close(ONLINE);

      @on = @online;
      foreach (@on){
      chomp;
      if ($_ =~ /%$login%/){
      s/$_//;
      }}

      open(ONLINE,">$tema"."_"."$online");
      print ONLINE qq|@on|;
      close(ONLINE);

      open(ONLINE,"$tema"."_"."$online");
      @online = <ONLINE>;
      close(ONLINE);

      if (length ("@online") eq "0"){
      unlink("$tema"."_"."$master");  ######################### aqui elimina os arquivos de trabalho ###################################
      unlink("$tema"."_"."$online");  #################   n?o est? sendo executado no edge    ###########################################
      unlink("$tema"."_"."$log2");
      unlink("$tema"."_"."$log");
      }else{}

      print qq|
      <html>
      <head>
      <title>$titulo</title>
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
      <script language="JavaScript">
      function Logout(){
      this.window.close()
      }
      </script>
      </head>
      <body onload="javascript:Logout()">
      </body>
      </html>
      |;}

      sub msg{
      $qs =~ tr/+/ /;
      $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      open (LOG, "$qs"."_"."$log2");
      @log = <LOG>;
      close(LOG);

      $finalizado = "0";

      foreach (@log){
      chomp;
      print $_;
      if ($_ eq "REUNI?O FINALIZADA"){
      $finalizado = "1";
      }}

      print qq|
      <script language="JavaScript">
      function Imprimir(){
      altura =690;
      largura= 1090;
      l = (screen.width - largura)/2;
      t = (screen.height - altura - 50)/2; 
      window.open("?imprimir=$CAMPO{tema}","","scrollbars,height="+altura+",width="+largura+",top="+t+",left="+l); 
      }
      function unLoad(){
      window.open("?logout=$CAMPO{login}-$CAMPO{tema}","","width=80,height=80")
      }
      </script>
      <body onunLoad="unLoad()">
      <table>
      <tr><td>
      <font class="texto1"><b> Usu?rio: $CAMPO{login}</b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
      </td><td>
      &nbsp;<font class="texto1"><b> Tema: $CAMPO{tema}<br></b></font>
      </td><td>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/calculadora.gif" onClick="calculadora()" WIDTH="18" HEIGHT="22" style="cursor:pointer" title ="Calculadora financeira">      
      </td><td>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/Email.gif" onClick="email()" WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Correspond?ncia interna">      
      </td><td>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/acessorio.gif" onClick="acessorio()" WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Acess?rios">      
      </td><TD>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/alarme.gif" onClick="alarme()" WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Alarme">      
      </td></tr></table>
      <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe" width="1010" height="480" style="overlap:auto"></iframe>
      <iframe align="middle" src="?principal2=$CAMPO{tema}-$CAMPO{login}" name="iframe2" width="1010" height="75" style="overlap:auto"></iframe>
      <table>
      <tr>
      <td><input type="button" class="botao" value="Ata de reuni?o" onClick="javascript:Imprimir()" STYLE='cursor:pointer;font-weight:bold'></td>
      <td>&nbsp;</td>
      <td><div align="right">
      <input type="button" class="botao2" value="Sair da Sala" onClick="javascript:window.close()"  STYLE='cursor:pointer;font-weight:bold'></div></td>
      <td>&nbsp;</td>
      |;

      if($a eq "1"){print qq|<td><div align="center">
      <form name="form" method="post" action="?escreve2" target="iframe2">
                  <input name="msg"    type="hidden" size="80" class="campo" value="REUNI?O FINALIZADA">
                  <input name="login"  type="hidden" class="campo" value="$CAMPO{login}">
                  <input name="tema"   type="hidden" class="campo" value="$CAMPO{tema}">
                  <input type="submit" value="Encerrar Reuni?o" class="botao" STYLE='cursor: pointer;font-weight:bold'>          
      </form>
      </div>
      </div></td></tr>|;}print qq|</table><br>|;}

      sub principal{
      $qs =~ s/principal=//;
      $qs =~ tr/+/ /;
      $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      open (LOG, $qs."_".$log2);
      @log = <LOG>;
      close(LOG);

      $finalizado = "0";

      foreach (@log){
      chomp;
      if ($_ eq "REUNI?O FINALIZADA"){
      $finalizado = "1";
      }}
      if ($finalizado eq "1"){print qq|
      <font class="texto">
      A REUNI?O FOI FINALIZADA. VOC? PODE IMPRIMIR OU VISUALIZAR O RELAT?RIO
      </font>|;

      }else{print qq|
      <html>
      <head>

      @style
      <script language="JavaScript">
      <!--
         function scroll() {
           if( document.body && document.body.clientHeight ) {
             window.innerHeight = document.body.clientHeight
           }
           window.scrollTo( 0, (window.innerHeight/0.1) )
         }

          function focus(){
            document.form.msg.focus()
          }

          function enter(string){
                   insertAtCaret(document.form.msg,string); 
                   focus()
          }

         function insertAtCaret (textObj, textFeildValue) {
             if(document.all){ 
                  if (textObj.createTextRange && textObj.caretPos) {
                      var caretPos = textObj.caretPos;
                      caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?textFeildValue + ' ' : textFeildValue;
                  }else{
                      textObj.value = textFeildValue;
                  }
            }else{
                  if(textObj.setSelectionRange){
                     var rangeStart = textObj.selectionStart;
                     var rangeEnd = textObj.selectionEnd;
                     var tempStr1 = textObj.value.substring(0,rangeStart);
                     var tempStr2 = textObj.value.substring(rangeEnd);
                     textObj.value = tempStr1 + textFeildValue + tempStr2;
                 }else{
                     alert("Esta vers?o do navegador n?o suporta setSelectionRange");
                 }
           }
        }

         function clear_field(){
            document.form.msg.value = ''
            document.form.msg.focus()
            document.form.msg.select() 
         }

         function anexar(){
                   altura = 450;
                   largura= 700;
                   l = (screen.width - largura)/2;
                   t = (screen.height - altura - 50)/2;              
                   var html =  '<HTML><HEAD><TITLE></TITLE>'
                       html += '</HEAD><BODY background="/reuniao/imagem/papel.jpg"  TEXT="#000066">'
                       html += '<BR><BR><BR><table align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000">Apresentar documento como anexo</label></h3></th></tr></table><br><br>'
                       html += '<FORM NAME="anexo" METHOD="POST" ACTION="/reuniao/temp/upload.plx" ENCTYPE="multipart/form-data">'
                       html += '<br>'
                       html += '<TABLE align=center>'
                       html += '<tr>'
                       html += '<td><input type="file" name="arquivo" size="60" maxlength="90"></td>'
                       html += '</tr>'
                       html += '</table>'
                       html += '<br><br><br>'
                       html += '<TABLE align=center>'
                       html += '<tr>'
                       html += '<td bgcolor=#ADB6C6><input type="submit" value="    Processa    " style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
                       html += '</TR>'
                       html += '</table>'
                       html += '</form>'  
                       html += '</body>'
                       html += '</html>'
                   var newWindow = window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
                   newWindow.document.write(html)
                   newWindow.document.close()
                   focus()
                   return false              
         }

         function publicar(){
                   altura = 450;
                   largura= 700;
                   l = (screen.width - largura)/2;
                   t = (screen.height - altura - 50)/2;              
                   var html =  '<HTML><HEAD><TITLE></TITLE>'
                       html += '</HEAD><BODY background="/reuniao/imagem/papel.jpg"  TEXT="#ffffff">'
                       html += '<BR><BR><BR><table align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000">Ponto de publica??o web</label></h3></th></tr></table><br><br>'
                       html += '<FORM NAME="publica" METHOD="POST" ACTION="/reuniao/temp/publica.plx">'
                       html += '<br>'
                       html += '<TABLE align=center>'
                       html += '<tr>'
                       html += '<td><input type="text" name="http" size="60" maxlength="90" value = "http://"></td>'
                       html += '</tr>'
                       html += '</table>'
                       html += '<br><br><br>'
                       html += '<TABLE align=center>'
                       html += '<tr>'
                       html += '<td bgcolor=#ADB6C6><input type="submit" value="    Processa    " style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
                       html += '</TR>'
                       html += '</table>'
                       html += '</form>'  
                       html += '</body>'
                       html += '</html>'
                   var newWindow = window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
                   newWindow.document.write(html)
                   newWindow.document.close()
                   focus()
                   return false              
         }

        function showMsgHelp() {
            alert("                            SALA DE REUNI?O ONLINE\\n\\nMensagem -> Campo alfa num?rico com tamanho de 300 caracteres e diferente de espa?o.\\n\\nNota - ? recomend?vel que uma linha de mensagem tenha no m?ximo 80 caracteres visando dar maior clareza no relat?rio ATA DE REUNI?O.\\n\\nTAGS ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\n<br> - Salto de linha\\n<p> - Salto de par?grafo\\n<b>texto</b> - Texto em negrito\\n<font size=4>texto</font> - Texto com fonte igual a 4 pixel\\n<font color=red>texto</font> - Texto com cor em vermelho\\n<i>texto</i> - Texto em it?lico\\n<u>texto</u> - Texto sublinhado\\n<sub>texto</sub> - Texto subscrito\\n<sup>texto</sup> - Texto sobrescrito\\n<ol><li>texto1<li>texto2<li>texto3</ol> - Lista num?rica dos textos\\n<li>texto1<li>texto2<li>texto3 - Marca??o dos textos\\n\\nNota - Os par?metros de formata??o de texto podem ser utilizados simultaneamente.\\n\\n                EXEMPLO DE UTILIZA??O\\n\\nOl? sr(s) , bom dia a todos<br>Vamos dicurtir a <font size=3 color=red><b>Aquisi??o do im?vel em S?o Paulo.</b></font><br>O Paulo vai nos descrever as alternativas que dispomos.\\n\\n\\nFUN??ES ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\nLimpa -      Move espa?o para o campo mensagem\\nLinha -       Move <br> para o campo mensagem para quebrar linha\\nLista -        Move marcador <li> para o campo mensagem com salto de linha\\nNum?rico Move marcador <ol> para o campo mensagem\\nCola -        Coloca texto da ?rea de transfer?ncia no campo mensagem\\nAnexa -     Disponibiliza documento como um anexo para apresenta??o\\nPublica -   Disponibiliza um link de acesso referente a uma publica??o na internet\\nReal?a -    Evid?ncia uma parte do texto selecionado no campo mensagem\\nSublinha - Real?a um texto selecionado no campo mensagem sublinhando-o")
            event.cancelBubble = true
            return false
        } 

      //-->
      </script>
      </head>
      <body>
      @log
      </body>
      </html>|;
      }}

      sub principal2 {
      $qs =~ s/principal2=//;
      ($tema,$login) = split (/-/,$qs);
      $tema =~ tr/+/ /;
      $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $login =~ tr/+/ /;
      $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      print qq|
      @style

      <body  onLoad="document.form.msg.focus()" onHelp="return showMsgHelp()" class="table3" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
      <div align="center">
      <table>
        <tr>
          <td> &nbsp;</td>
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/clear.png" onClick="clear_field()"   WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Limpar campo mensagem"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/linha.png" onClick="enter('<br>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Salto de linha"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/lista.gif" onClick="enter('<li>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Marcador de lista"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/nlist.gif" onClick="enter('<ol>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Marcador num?rico"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/anexo.png"   onClick="anexar()"      WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Anexar docto"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/wlink.gif"   onClick="publicar()"    WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Publicar um link da internet"  STYLE='cursor: hand; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/help.gif"    onClick="showMsgHelp()" WIDTH="18" HEIGHT="18" style="cursor:pointer" title ="Ajuda do sistema"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
      </tr>
      </table><br>
      <table  align="center">
        <tr>
          <td class="texto"><form name="form" method="post" action="?escreve2">
                <div align="center"><b><font size=2><label class='sombra'>&nbsp; Mensagem &nbsp; </label></b></fonte> 
                  <input name="msg"     type="text"      class="campo" size="120" maxlength="300" onHelp="return showMsgHelp()">
                  <input name="login"   type="hidden"    class="campo" value="$login">
                  <input name="tema"    type="hidden"    class="campo" value="$tema">
                  <input type="submit"  value="Enviar"   class="botao" >              
                </div>
          </td>
        </tr>
      </table>
      </form>
      </div>
      </body>
      |;}

      sub style{
      open(STYLE, "$estilos");
      @style = <STYLE>;
      close(STYLE);
      }

      sub todas{
      $qs =~ s/todas=//;
      $qs =~ tr/+/ /;
      $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      open (LOG, $qs."_".$log);
      @log = <LOG>;
      close(LOG);

      print qq|
      <meta http-equiv="refresh" content="5,?todas"/> ##################### aqui reenvia mensagens para os participantes #############################
      @style
      <script>
      <!--
        function rolar() {
          if( document.body && document.body.clientHeight ) {
            window.innerHeight = document.body.clientHeight
          }
          window.scrollTo( 0, (window.innerHeight/0.1) );
        }
      //-->
      </script>
      <body onLoad="javascript:rolar()">
      @log|;}

      sub topo{
      open(TOPO,"$topo");
      @topo=<TOPO>;
      close(TOPO);
      print "@topo";
      }

      =begin disclaimer
         Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
      SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
      L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
      =end disclaimer




    =begin disclaimer
       Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
    SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
    L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
    =end disclaimer






  -- 

  Thank you very much!

  -dom

  --

  Daniel de Oliveira Mantovani
  Business Analytic Specialist
  Perl Evangelist /Astrophysics hobbyist. 
  +55 11 9 8538-9897
  XOXO




-- 

Thank you very much!

-dom

--

Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist. 
+55 11 9 8538-9897
XOXO


--------------------------------------------------------------------------------
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160111/267025eb/attachment-0001.html>

From payback at hotmail.com.br  Mon Jan 11 14:09:15 2016
From: payback at hotmail.com.br (kleber caetano)
Date: Mon, 11 Jan 2016 20:09:15 -0200
Subject: [SP-pm] script perl no windows 10
In-Reply-To: <COL126-DS5D77FB563308C656D1BD892C90@phx.gbl>
References: <COL126-DS17DB8FE31F840F40B9D68292C90@phx.gbl><CAPpv0_oJAxED39CB8g8LwBr1No6j1UUOgMmyfwFwY1XjBCqEpQ@mail.gmail.com><CAEmYuOtA_r3qjLC1qBu+u_rheT-7=3zJf=k-Av219PpPsGajBw@mail.gmail.com><CAEmYuOt2YFQbcwB-Ma5nBO+38ep79d7GMmsChkLVuBzK4bXh7w@mail.gmail.com>
	<COL126-DS5D77FB563308C656D1BD892C90@phx.gbl>
Message-ID: <COL126-DS233328F8A858D8000AA7892C90@phx.gbl>

Mais uma informa??o que talvez seja importante aos amigos :

Apesar de n?o estar apresentando as mensagens aos participantes da sala ,
as mensagens enviadas pelos usu?rios s?o gravadas nos arquivos de trabalho.
( ? poss?vel constatar isto ).

From: kleber caetano 
Sent: Monday, January 11, 2016 7:16 PM
To: saopaulo-pm at mail.pm.org 
Subject: Re: [SP-pm] script perl no windows 10

Agrade?o a gentiliza em responder.
O Daniel me esculhambou ( rsrsrsrsrss ).
Apesar do script n?o ser bem elaborado ou estruturado , ele ? simples e ?til ( gostaria de tentar acertar o erro ).

Implementei as sugest?o do Daniel e do Lucas [ setInterval(function(){ window.location.href = '?todas' }, 5000); ]
e o problema passou a ocorrer tamb?m no internet explorer 11( n?o enviou as mensagens para os participantes ).

Pelo que eu entendo deste script , a a??o reload envia as mensagens para
<iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe" width="1010" height="480" style="overlap:auto"></iframe>
e com setInterval n?o chegou ( porque n?o chegou l? ).

Talvez isto ajude a analisar o problema.


From: Daniel de Oliveira Mantovani 
Sent: Monday, January 11, 2016 6:12 PM
To: saopaulo-pm at mail.pm.org 
Subject: Re: [SP-pm] script perl no windows 10

S? refor?ando o que eu disse, eu j? achei uma falha de seguran?a, onde voc? abre um descritor de arquivos com dois argumentos. Possivelmente em algum desses "opens" um dos argumentos vem do usu?rio.

https://www.securecoding.cert.org/confluence/pages/viewpage.action?pageId=76775519


On Mon, Jan 11, 2016 at 5:36 PM, Daniel de Oliveira Mantovani <daniel.oliveira.mantovani at gmail.com> wrote:

  Eu fortemente te aconselho a jogar isso fora, e usar o Google Hangout ou qualquer uma das milh?es de solu??es gr?tis que resolvem isso.

  2016-01-11 17:33 GMT-02:00 Lucas Moraes <lucastiagodemoraes at gmail.com>:

    Aconselho voc? atualizar a pagina com javascript. 

    setInterval(function(){ window.location.href = '?todas' }, 5000);


    Falou.


    Em 11 de janeiro de 2016 17:26, kleber caetano <payback at hotmail.com.br> escreveu:

      Ol? Sr(s),

      Migrei para o windows 10 e estou tendo um problema com um aplicativo em perl quando utilizo o edge ,
      entretanto , quando utilizo o explorer 11 o aplicativo ? executado normalmente.

      Nota[1] - Este aplicativo refere-se a um chat ( sala de reuni?o online ).

      O problema ( no edge ) ocorre quando :

      - Ele reenvia as mensagens ( atrav?s do comando <meta http-equiv="refresh" content="5,?todas"/> )  para 
        os participantes da sala de reuni?o ou seja n?o est? enviando nada.
      - Quando ? encerrada a reuni?o , o aplicativo elimina os arquivos de trabalho , por?m , no edge isto 
        n?o est? acontecendo.   

      Nota[2] - No explorer 11 estes problemas n?o ocorrem.

      Nota[3] - O script em perl  foi desenvolvido por um amigo que conhecia bastante perl 
                     entretanto meu conhecimento ? limitado. 

      Nota[4] ? Estou trabalhando com ActivePerl-5.16.3.1603-MSWin32-x86-296746 

      Nota[5] ? Caso considerem necess?rio , tenho como disponibilizar um link de acesso a este site sala.cgi

      Nota[6] - Quando instalei o windows 10 , o reload autom?tico  funcionava , entretanto ,  
                      ao realizar uma manuten??o grande ( nova vers?o acho ) o problema apareceu.
                      O problema de n?o eliminar os arquivos tempor?rio de trabalho existem
                      desde a instala??o inicial do windows 10

      Nota[7] ? coloquei duas marcas no script onde eu acho que as fun??es s?o executadas:

      ######################### aqui elimina os arquivos de trabalho ###################################

      ##################### aqui reenvia mensagens para os participantes #############################

      Algu?m sabe como resolver isto ?

      Agrade?o a aten??o ,

      kleber    

      =================================================================================================
                                                               script em perl  ( sala.cgi )
      =================================================================================================
      #!perl
      print "Content-type:text/html\n\n";
      use CGI::Carp(fatalsToBrowser);

      ###############################################################################################
      #                                     CONFIGURA??ES GERAIS                                                                                                            #
      #                                                                                                                                                                                          #
      $titulo = "Sala de Reuni?o Online";        # T?tulo do script                                                                                                #
      $master = "master.log";                         # Arquivo tempor?rio a guardar primeiro usu?rio                                              #
      $log    = "logs.log";                                # Arquivo tempor?rio de logs totais                                                                    #
      $log2   = "logs2.log";                            # Arquivo tempor?rio de logs da sess?o                                                              #
      $online = "online.log";                         # Arquivo tempor?rio com nomes dos usu?rios Online                                        #
      $estilos= "estilos.css";                        # Arquivo com os estilos dentro da pasta modelos                                              #
      $topo   = "topo.html";                         # Template do Topo                                                                                                #
      $fim    = "fim.html";                           # Template do Fim                                                                                                   #
      #                                                                                                                                                                                         #
      #                                                                                                                                                                                         #
      #                                     FIM DAS CONFIGURA??ES                                                                                                         #
      ###############################################################################################

      read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
      @conteudo = split(/&/, $buffer);
      foreach $par (@conteudo) {
              ($campo, $valor) = split(/=/, $par);
              $valor =~ tr/+/ /;
              $valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
              $CAMPO{$campo} = $valor;
          }

      $qs = "$ENV{QUERY_STRING}";
      &data;
      &style;
      if ($qs eq ""){
      print qq|
      <BR><BR><BR><BR><BR><BR><BR>
      |;
      &topo;
      print qq?
      <script language="JavaScript">
      <!--
      altura = 690;
      largura= 1090;
      l = (screen.width - largura)/2;
      t = (screen.height - altura - 50)/2; 
      var flag = "";
      var idioma=1;
      var strCookie='payback';

      function LerCookie(strCookie) {
          var strNomeIgual = strCookie + "=";
          var arrCookies = document.cookie.split(';');
          for(var i = 0; i < arrCookies.length; i++)
          {
              var strValorCookie = arrCookies[i];
              while(strValorCookie.charAt(0) == ' ')
              {
                  strValorCookie = strValorCookie.substring(1, strValorCookie.length);
              }
              if(strValorCookie.indexOf(strNomeIgual) == 0)
              {
                  var mensagem=strValorCookie.substring(strNomeIgual.length, strValorCookie.length);
                  flag = mensagem;
                  mensagem ='';
                  return;
              }
          }
          alert ( '!!!! Erro cr?tico : N?o foi poss?vel restaurar ?rea de transfer?ncia' );
          top.location.href = "/payback/index.htm";   
      };
      function init(form) {
                    LerCookie(strCookie);
                    if (flag != null ) {
                       flag = flag.split('|'); 
                       document.form.login.value = flag[9];
                    }
                    document.form.tema.focus();
      }
      function Entra(form) {
              if (document.form.tema.value.length == 0)  {
                  alert("O tema da reuni?o n?o foi informado");
                  document.form.tema.focus();
                  document.form.tema.select();
                  return false;
              } 
              novajanela = window.open("", "entrar", "scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l); 
              return true;
      }
      function showSalaHelp() {
            altura1=400;
            largura1= 800;
            l1 = (screen.width - largura + 250)/2;
            t1 = (screen.height - altura + 250)/2;   
            var html = '<HTML><HEAD><TITLE></TITLE></HEAD>';
                html += '<BODY background="/reuniao/imagem/papel.jpg" TEXT="#000066"><br><table align=center><tr><td><h4><b>SALA &nbsp;  DE &nbsp;  REUNI?O &nbsp;  ONLINE &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></h4></td></tr></table><br><TABLE ALIGN=CENTER><font size=2><TR><TD><PRE><b>';                      
                html += '<li>O dado usu?rio deve ser ?nico por sala.';
                html += '<li>O dado tema da reuni?o ser? o ponto de encontro dos participantes na sala.<br>';
                html += '   Este texto n?o pode conter espa?o , por exemplo , informar Aquisi??o_de_Filial';
                html += '<li>O sistema diferencia letra mai?scula de min?scula para identifica??o da sala.';
                html += '<li>Cada sala ter? um ?nico tema n?o tendo limita??es de quantidade de aberturas de<br>';
                html += '   salas e participantes.<br>';
                html += '<li>O usu?rio que abrir a sala ou seja o primeiro a entrar receber? uma tarefa de<br>';
                html += '  encerrar a reuni?o ( bot?o especial ).<br>  Este usu?rio , ao sair da sala , provocar? a elimina??o dos arquivos que registram<br>  os textos digitados.<br>  Portanto , recomenda-se dar um tempo de poucos segundos antes de sair da sala.';
                html += '<li>Ao acionar o bat?o especial ENCERRAR REUNI?O , o texto REUNI?O FINALIZADA<br>';
                html += '   ? enviado ? sala e nenhuma nova mensagem ? registrada pelo sistema.';
                html += '<li>? recomend?vel que os participantes imprimam a ata de reuni?o ap?s esta a??o.<br>';
                html += '<li>Para ajuda de formata??o do texto mensagem , na sala de reuni?o , acionar a tecla F1';
                html += '<li>Os documentos enviados ao servidor para serem apresentados como anexo ,<br>  ser?o eliminados quando o sistema operacional for reinicializado.<br>';
                html += '  Nota - O documento apresentado como anexo  , para ser baixado no servidor , dever? ter<br>         no m?ximo 500 kbytes.';
                html += '</TABLE></FONT></B></PRE></BODY></HTML>';
                var newWindow = window.open("","","scrollbars=auto,height="+altura1+",width="+largura1+",top="+t1+",left="+l1);
                newWindow.document.write(html);
                newWindow.document.close();
                event.cancelBubble = true;
                return false;
      }
      //-->
      </script>
      <style type="text/css"><!--
      .multi_bg { background-image : linear-gradient(to right, rgba(30, 75, 115, 0.5),  rgba(30, 75, 115, 0.5)); }
      -->
      </style>
      </HEAD>
              <body onload="init(this.form)" onHelp="return showSalaHelp()" BGCOLOR="#ADB6C6" TEXT="#003366" class="multi_bg">
              <form action="?entra" method="POST" name="form" target="entrar" id="form" OnSubmit="return Entra(this)">
              <br>
              <strong><font color="#ffffff" size="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<label class='sombra'><b>Escolha um tema para entrar</label></font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="/reuniao/imagem/help.gif" onClick="showSalaHelp();document.form.tema.focus()" WIDTH="18" HEIGHT="18" style="cursor:pointer" title ="Ajuda do sistema">
              <br><br>
              <div align="center">
                    <table>
                      <tr> 
                         <!-- <td width="33%"><div align="right"><font class="sombra"><font color="#ffffff" size="2"><b>Usu&aacute;rio&nbsp;&nbsp;</b></font></div></td> --> 
                        <td><input type="hidden" name="login" class="campo" onFocus="document.form.tema.focus()" onHelp="return showSalaHelp()"></td>
                       </tr>
                      <tr> 
                        <td><div align="right"><font class="sombra"><font color="#ffffff" size="2"><b>Tema&nbsp;&nbsp;</b></font></div></td>
                        <td><input name="tema" type="text" class="campo" id="tema" onHelp="return showSalaHelp()"></td>
                      </tr>
                    </table><br>
                    <table>
                   <tr>
                       <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
                       <td align="center" colspan=2><input type="submit" value="Entrar" class="botao" STYLE='cursor: pointer;font-weight:bold'></td>
                  </tr>
                   </table><br>
              </div>
      ?;&fim;}

      if ($qs eq "entra"){
      if ($CAMPO{login} eq ""){ 
      print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|; 
      &topo;
      print qq|<br>Voc? deve digitar um nome de usu?rio antes de entrar na sala ! <br><br>
      <div align="center">
      <input type="button" class="botao2" onClick="javascript:windows.close()" value="Fechar Janela"><br>
      </div>
      |;
      &fim;
      }else{ 
      if ($CAMPO{tema} eq "" ){   
      print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;  
      &topo;
      print qq|<br>Voc? deve digitar um tema antes de entrar na sala ! <br><br>
      <div align="center">
      <input type="button" class="botao2" onClick="javascript:window.close()" value="Fechar Janela"><br>
      </div>
      |;
      &fim;
      }else{
      if (-e "$CAMPO{tema}"."_"."$log"){ 
      open(ONLINE,"$CAMPO{tema}_$online");
      @online = <ONLINE>;
      close(ONLINE);

      foreach (@online){
      chomp;
      s/%//gi;
      if ($CAMPO{login} eq "$_"){
      $repetido = "1";
      }else{
      $repetido = "0";
      }}
      if ($repetido eq "1"){
      print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;  
      &topo;
      print qq|<br>Este nome de usu?rio j? est? em uso! Por favor escolha outro.<br><br>
      <div align="center">
      <input type="button" class="botao2" onClick="javascript:window.close()" value="Fechar Janela"><br>
      </div>
      |;&fim;
      }else{
      open(MASTER,"$CAMPO{tema}_$master");
      $master = <MASTER>;
      close(MASTER);
      chomp $master;
      $master =~ s/%//gi;

      if ($CAMPO{login} eq $master){$a = "1";} else {$a = "0";}
      open(ONLINE,">>$CAMPO{tema}_$online");
      print ONLINE qq|%$CAMPO{login}%\n|;
      close(ONLINE);

      open (SALA, ">>$CAMPO{tema}_$log");
      print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
      close(SALA);

      open (SALA, ">>$CAMPO{tema}_$log2");
      print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
      close(SALA);

      &topo;&msg;&fim;
      }}else{

      open(MASTER,">$CAMPO{tema}_$master");
      print MASTER qq|%$CAMPO{login}%\n|;
      close(MASTER);

      open(ONLINE,">>$CAMPO{tema}_$online");
      print ONLINE qq|%$CAMPO{login}%\n|;
      close(ONLINE);

      open (SALA, ">>$CAMPO{tema}_$log");
      print SALA qq|<div align="center"><font class="texto"><h5>ATA DA REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
      print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
      close(SALA);

      open (SALA, ">>$CAMPO{tema}_$log2");
      print SALA qq|<div align="center"><font class="texto"><h5>ATA DA REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
      print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
      close(SALA);
      $a = "1";
      &topo;&msg;&fim;
      }}}}

      if ($qs eq "escreve2"){
      $CAMPO{msg} =~ tr/+/ /;
      $CAMPO{msg} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $CAMPO{tema} =~ tr/+/ /;
      $CAMPO{tema} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      if ($CAMPO{msg} eq ""){
      print qq|
      <script language="Javascript">
      <!--
      alert ('Mensagem n?o informada')
      //-->
      </script>
      <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
      |;}else{

      if ($CAMPO{msg} eq "REUNI?O FINALIZADA"){

      open(LOG,">>$CAMPO{tema}"."_"."$log");
      print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O FINALIZADA</b></font></div><br>\n|;
      close(LOG);

      open(LOG,">$CAMPO{tema}"."_"."$log2");
      print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O FINALIZADA</b></font></div><br>\n|;
      close(LOG);

      print qq|
      <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
      |;
      }else{

      open(LOG,"$CAMPO{tema}"."_"."$log");
      @log = <LOG>;
      close(LOG);
      $r = "0";
      foreach (@log){
      chomp;
      if($_ eq "<br><div align=\"center\"><font class=\"texto\"><b>REUNI?O FINALIZADA</b></font></div><br>"){
      $r = "1";
      }}

      if ($r eq "1"){
      print qq|
      <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
      |;
      }else{

      open(LOG,">>$CAMPO{tema}"."_"."$log");
      print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
      close(LOG);
      open(LOG,">>$CAMPO{tema}"."_"."$log2");
      print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
      close(LOG);
      print qq|
      <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
      |;}}}}

      if ($qs =~ /imprimir/){
      &imprimir;
      }

      if ($qs =~ /logout/){
      &logout;
      }

      if ($qs =~ /principal/){
      &principal;
      }

      if ($qs =~ /principal2/){
      &principal2;
      }

      if ($qs =~ /todas/){
      &todas;
      }

      sub data{
      ($seg,$min,$hr,$dia,$mes,$ano) = localtime();
      if ($hr < "10"){$hr = "0$hr";}
      if ($min < "10"){$min = "0$min";}
      if ($seg < "10"){$seg = "0$seg";}

      @mes = ("janeiro","fevereiro","mar?o","abril","maio","junho","julho","agosto","setembro","outubro","novembro","dezembro");
      $ano = 1900+$ano;

      $data  = "$hr:$min:$seg, $dia de @mes[$mes] de $ano";
      }

      sub fim{
      open(FIM,"$fim");
      @fim=<FIM>;
      close(FIM);
      print "@fim";
      }

      sub imprimir {
      $qs =~ s/imprimir=//;
      $qs =~ tr/+/ /;
      $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      open (LOG,"$qs"."_"."$log");
      @log = <LOG>;
      close(LOG);

      print qq|
      <html>
      <head>
      <title>$titulo</title>
      @style
      </head>
      <body onload="this.window.print()">
      @log
      </body>
      |;}

      sub logout{
      $qs =~ s/logout=//gi;
      ($login,$tema) = split (/-/,$qs);
      $login =~ tr/+/ /;
      $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $tema =~ tr/+/ /;
      $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      open(LOG,">>$tema"."_"."$log2");
      print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b> saiu da sala</b></font><br>\n|;
      close(LOG);

      open(LOG,">>$tema"."_"."$log");
      print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b> saiu da sala</b></font><br>\n|;
      close(LOG);

      open(ONLINE,"$tema"."_"."$online");
      @online = <ONLINE>;
      close(ONLINE);

      @on = @online;
      foreach (@on){
      chomp;
      if ($_ =~ /%$login%/){
      s/$_//;
      }}

      open(ONLINE,">$tema"."_"."$online");
      print ONLINE qq|@on|;
      close(ONLINE);

      open(ONLINE,"$tema"."_"."$online");
      @online = <ONLINE>;
      close(ONLINE);

      if (length ("@online") eq "0"){
      unlink("$tema"."_"."$master");  ######################### aqui elimina os arquivos de trabalho ###################################
      unlink("$tema"."_"."$online");  #################   n?o est? sendo executado no edge    ###########################################
      unlink("$tema"."_"."$log2");
      unlink("$tema"."_"."$log");
      }else{}

      print qq|
      <html>
      <head>
      <title>$titulo</title>
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
      <script language="JavaScript">
      function Logout(){
      this.window.close()
      }
      </script>
      </head>
      <body onload="javascript:Logout()">
      </body>
      </html>
      |;}

      sub msg{
      $qs =~ tr/+/ /;
      $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      open (LOG, "$qs"."_"."$log2");
      @log = <LOG>;
      close(LOG);

      $finalizado = "0";

      foreach (@log){
      chomp;
      print $_;
      if ($_ eq "REUNI?O FINALIZADA"){
      $finalizado = "1";
      }}

      print qq|
      <script language="JavaScript">
      function Imprimir(){
      altura =690;
      largura= 1090;
      l = (screen.width - largura)/2;
      t = (screen.height - altura - 50)/2; 
      window.open("?imprimir=$CAMPO{tema}","","scrollbars,height="+altura+",width="+largura+",top="+t+",left="+l); 
      }
      function unLoad(){
      window.open("?logout=$CAMPO{login}-$CAMPO{tema}","","width=80,height=80")
      }
      </script>
      <body onunLoad="unLoad()">
      <table>
      <tr><td>
      <font class="texto1"><b> Usu?rio: $CAMPO{login}</b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
      </td><td>
      &nbsp;<font class="texto1"><b> Tema: $CAMPO{tema}<br></b></font>
      </td><td>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/calculadora.gif" onClick="calculadora()" WIDTH="18" HEIGHT="22" style="cursor:pointer" title ="Calculadora financeira">      
      </td><td>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/Email.gif" onClick="email()" WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Correspond?ncia interna">      
      </td><td>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/acessorio.gif" onClick="acessorio()" WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Acess?rios">      
      </td><TD>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/alarme.gif" onClick="alarme()" WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Alarme">      
      </td></tr></table>
      <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe" width="1010" height="480" style="overlap:auto"></iframe>
      <iframe align="middle" src="?principal2=$CAMPO{tema}-$CAMPO{login}" name="iframe2" width="1010" height="75" style="overlap:auto"></iframe>
      <table>
      <tr>
      <td><input type="button" class="botao" value="Ata de reuni?o" onClick="javascript:Imprimir()" STYLE='cursor:pointer;font-weight:bold'></td>
      <td>&nbsp;</td>
      <td><div align="right">
      <input type="button" class="botao2" value="Sair da Sala" onClick="javascript:window.close()"  STYLE='cursor:pointer;font-weight:bold'></div></td>
      <td>&nbsp;</td>
      |;

      if($a eq "1"){print qq|<td><div align="center">
      <form name="form" method="post" action="?escreve2" target="iframe2">
                  <input name="msg"    type="hidden" size="80" class="campo" value="REUNI?O FINALIZADA">
                  <input name="login"  type="hidden" class="campo" value="$CAMPO{login}">
                  <input name="tema"   type="hidden" class="campo" value="$CAMPO{tema}">
                  <input type="submit" value="Encerrar Reuni?o" class="botao" STYLE='cursor: pointer;font-weight:bold'>          
      </form>
      </div>
      </div></td></tr>|;}print qq|</table><br>|;}

      sub principal{
      $qs =~ s/principal=//;
      $qs =~ tr/+/ /;
      $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      open (LOG, $qs."_".$log2);
      @log = <LOG>;
      close(LOG);

      $finalizado = "0";

      foreach (@log){
      chomp;
      if ($_ eq "REUNI?O FINALIZADA"){
      $finalizado = "1";
      }}
      if ($finalizado eq "1"){print qq|
      <font class="texto">
      A REUNI?O FOI FINALIZADA. VOC? PODE IMPRIMIR OU VISUALIZAR O RELAT?RIO
      </font>|;

      }else{print qq|
      <html>
      <head>

      @style
      <script language="JavaScript">
      <!--
         function scroll() {
           if( document.body && document.body.clientHeight ) {
             window.innerHeight = document.body.clientHeight
           }
           window.scrollTo( 0, (window.innerHeight/0.1) )
         }

          function focus(){
            document.form.msg.focus()
          }

          function enter(string){
                   insertAtCaret(document.form.msg,string); 
                   focus()
          }

         function insertAtCaret (textObj, textFeildValue) {
             if(document.all){ 
                  if (textObj.createTextRange && textObj.caretPos) {
                      var caretPos = textObj.caretPos;
                      caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?textFeildValue + ' ' : textFeildValue;
                  }else{
                      textObj.value = textFeildValue;
                  }
            }else{
                  if(textObj.setSelectionRange){
                     var rangeStart = textObj.selectionStart;
                     var rangeEnd = textObj.selectionEnd;
                     var tempStr1 = textObj.value.substring(0,rangeStart);
                     var tempStr2 = textObj.value.substring(rangeEnd);
                     textObj.value = tempStr1 + textFeildValue + tempStr2;
                 }else{
                     alert("Esta vers?o do navegador n?o suporta setSelectionRange");
                 }
           }
        }

         function clear_field(){
            document.form.msg.value = ''
            document.form.msg.focus()
            document.form.msg.select() 
         }

         function anexar(){
                   altura = 450;
                   largura= 700;
                   l = (screen.width - largura)/2;
                   t = (screen.height - altura - 50)/2;              
                   var html =  '<HTML><HEAD><TITLE></TITLE>'
                       html += '</HEAD><BODY background="/reuniao/imagem/papel.jpg"  TEXT="#000066">'
                       html += '<BR><BR><BR><table align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000">Apresentar documento como anexo</label></h3></th></tr></table><br><br>'
                       html += '<FORM NAME="anexo" METHOD="POST" ACTION="/reuniao/temp/upload.plx" ENCTYPE="multipart/form-data">'
                       html += '<br>'
                       html += '<TABLE align=center>'
                       html += '<tr>'
                       html += '<td><input type="file" name="arquivo" size="60" maxlength="90"></td>'
                       html += '</tr>'
                       html += '</table>'
                       html += '<br><br><br>'
                       html += '<TABLE align=center>'
                       html += '<tr>'
                       html += '<td bgcolor=#ADB6C6><input type="submit" value="    Processa    " style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
                       html += '</TR>'
                       html += '</table>'
                       html += '</form>'  
                       html += '</body>'
                       html += '</html>'
                   var newWindow = window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
                   newWindow.document.write(html)
                   newWindow.document.close()
                   focus()
                   return false              
         }

         function publicar(){
                   altura = 450;
                   largura= 700;
                   l = (screen.width - largura)/2;
                   t = (screen.height - altura - 50)/2;              
                   var html =  '<HTML><HEAD><TITLE></TITLE>'
                       html += '</HEAD><BODY background="/reuniao/imagem/papel.jpg"  TEXT="#ffffff">'
                       html += '<BR><BR><BR><table align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000">Ponto de publica??o web</label></h3></th></tr></table><br><br>'
                       html += '<FORM NAME="publica" METHOD="POST" ACTION="/reuniao/temp/publica.plx">'
                       html += '<br>'
                       html += '<TABLE align=center>'
                       html += '<tr>'
                       html += '<td><input type="text" name="http" size="60" maxlength="90" value = "http://"></td>'
                       html += '</tr>'
                       html += '</table>'
                       html += '<br><br><br>'
                       html += '<TABLE align=center>'
                       html += '<tr>'
                       html += '<td bgcolor=#ADB6C6><input type="submit" value="    Processa    " style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
                       html += '</TR>'
                       html += '</table>'
                       html += '</form>'  
                       html += '</body>'
                       html += '</html>'
                   var newWindow = window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
                   newWindow.document.write(html)
                   newWindow.document.close()
                   focus()
                   return false              
         }

        function showMsgHelp() {
            alert("                            SALA DE REUNI?O ONLINE\\n\\nMensagem -> Campo alfa num?rico com tamanho de 300 caracteres e diferente de espa?o.\\n\\nNota - ? recomend?vel que uma linha de mensagem tenha no m?ximo 80 caracteres visando dar maior clareza no relat?rio ATA DE REUNI?O.\\n\\nTAGS ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\n<br> - Salto de linha\\n<p> - Salto de par?grafo\\n<b>texto</b> - Texto em negrito\\n<font size=4>texto</font> - Texto com fonte igual a 4 pixel\\n<font color=red>texto</font> - Texto com cor em vermelho\\n<i>texto</i> - Texto em it?lico\\n<u>texto</u> - Texto sublinhado\\n<sub>texto</sub> - Texto subscrito\\n<sup>texto</sup> - Texto sobrescrito\\n<ol><li>texto1<li>texto2<li>texto3</ol> - Lista num?rica dos textos\\n<li>texto1<li>texto2<li>texto3 - Marca??o dos textos\\n\\nNota - Os par?metros de formata??o de texto podem ser utilizados simultaneamente.\\n\\n                EXEMPLO DE UTILIZA??O\\n\\nOl? sr(s) , bom dia a todos<br>Vamos dicurtir a <font size=3 color=red><b>Aquisi??o do im?vel em S?o Paulo.</b></font><br>O Paulo vai nos descrever as alternativas que dispomos.\\n\\n\\nFUN??ES ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\nLimpa -      Move espa?o para o campo mensagem\\nLinha -       Move <br> para o campo mensagem para quebrar linha\\nLista -        Move marcador <li> para o campo mensagem com salto de linha\\nNum?rico Move marcador <ol> para o campo mensagem\\nCola -        Coloca texto da ?rea de transfer?ncia no campo mensagem\\nAnexa -     Disponibiliza documento como um anexo para apresenta??o\\nPublica -   Disponibiliza um link de acesso referente a uma publica??o na internet\\nReal?a -    Evid?ncia uma parte do texto selecionado no campo mensagem\\nSublinha - Real?a um texto selecionado no campo mensagem sublinhando-o")
            event.cancelBubble = true
            return false
        } 

      //-->
      </script>
      </head>
      <body>
      @log
      </body>
      </html>|;
      }}

      sub principal2 {
      $qs =~ s/principal2=//;
      ($tema,$login) = split (/-/,$qs);
      $tema =~ tr/+/ /;
      $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $login =~ tr/+/ /;
      $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      print qq|
      @style

      <body  onLoad="document.form.msg.focus()" onHelp="return showMsgHelp()" class="table3" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
      <div align="center">
      <table>
        <tr>
          <td> &nbsp;</td>
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/clear.png" onClick="clear_field()"   WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Limpar campo mensagem"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/linha.png" onClick="enter('<br>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Salto de linha"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/lista.gif" onClick="enter('<li>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Marcador de lista"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/nlist.gif" onClick="enter('<ol>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Marcador num?rico"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/anexo.png"   onClick="anexar()"      WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Anexar docto"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/wlink.gif"   onClick="publicar()"    WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Publicar um link da internet"  STYLE='cursor: hand; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/help.gif"    onClick="showMsgHelp()" WIDTH="18" HEIGHT="18" style="cursor:pointer" title ="Ajuda do sistema"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
      </tr>
      </table><br>
      <table  align="center">
        <tr>
          <td class="texto"><form name="form" method="post" action="?escreve2">
                <div align="center"><b><font size=2><label class='sombra'>&nbsp; Mensagem &nbsp; </label></b></fonte> 
                  <input name="msg"     type="text"      class="campo" size="120" maxlength="300" onHelp="return showMsgHelp()">
                  <input name="login"   type="hidden"    class="campo" value="$login">
                  <input name="tema"    type="hidden"    class="campo" value="$tema">
                  <input type="submit"  value="Enviar"   class="botao" >              
                </div>
          </td>
        </tr>
      </table>
      </form>
      </div>
      </body>
      |;}

      sub style{
      open(STYLE, "$estilos");
      @style = <STYLE>;
      close(STYLE);
      }

      sub todas{
      $qs =~ s/todas=//;
      $qs =~ tr/+/ /;
      $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      open (LOG, $qs."_".$log);
      @log = <LOG>;
      close(LOG);

      print qq|
      <meta http-equiv="refresh" content="5,?todas"/> ##################### aqui reenvia mensagens para os participantes #############################
      @style
      <script>
      <!--
        function rolar() {
          if( document.body && document.body.clientHeight ) {
            window.innerHeight = document.body.clientHeight
          }
          window.scrollTo( 0, (window.innerHeight/0.1) );
        }
      //-->
      </script>
      <body onLoad="javascript:rolar()">
      @log|;}

      sub topo{
      open(TOPO,"$topo");
      @topo=<TOPO>;
      close(TOPO);
      print "@topo";
      }

      =begin disclaimer
         Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
      SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
      L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
      =end disclaimer




    =begin disclaimer
       Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
    SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
    L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
    =end disclaimer






  -- 

  Thank you very much!

  -dom

  --

  Daniel de Oliveira Mantovani
  Business Analytic Specialist
  Perl Evangelist /Astrophysics hobbyist. 
  +55 11 9 8538-9897
  XOXO




-- 

Thank you very much!

-dom

--

Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist. 
+55 11 9 8538-9897
XOXO


--------------------------------------------------------------------------------
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer



--------------------------------------------------------------------------------
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160111/fe7ceb27/attachment-0001.html>

From payback at hotmail.com.br  Mon Jan 11 14:35:00 2016
From: payback at hotmail.com.br (kleber caetano)
Date: Mon, 11 Jan 2016 20:35:00 -0200
Subject: [SP-pm] script perl no windows 10
In-Reply-To: <COL126-DS233328F8A858D8000AA7892C90@phx.gbl>
References: <COL126-DS17DB8FE31F840F40B9D68292C90@phx.gbl><CAPpv0_oJAxED39CB8g8LwBr1No6j1UUOgMmyfwFwY1XjBCqEpQ@mail.gmail.com><CAEmYuOtA_r3qjLC1qBu+u_rheT-7=3zJf=k-Av219PpPsGajBw@mail.gmail.com><CAEmYuOt2YFQbcwB-Ma5nBO+38ep79d7GMmsChkLVuBzK4bXh7w@mail.gmail.com><COL126-DS5D77FB563308C656D1BD892C90@phx.gbl>
	<COL126-DS233328F8A858D8000AA7892C90@phx.gbl>
Message-ID: <COL126-DS12BC4E7DA59D0D8F61764492C90@phx.gbl>

Me perdoem em insistir neste assunto.
Mais uma informa??o que talvez seja importante :

Parece que o script envia informa??es vazias ou seja as mensagens que estavam na tema desaparecem.
( a parte da tela que apresenta as mensagens ficam em branco inclusive o tema da reuni?o ----> acho que ?  
<iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe" width="1010" height="480" style="overlap:auto"></iframe> ). 

From: kleber caetano 
Sent: Monday, January 11, 2016 8:09 PM
To: saopaulo-pm at mail.pm.org 
Subject: Re: [SP-pm] script perl no windows 10

Mais uma informa??o que talvez seja importante aos amigos :

Apesar de n?o estar apresentando as mensagens aos participantes da sala ,
as mensagens enviadas pelos usu?rios s?o gravadas nos arquivos de trabalho.
( ? poss?vel constatar isto ).

From: kleber caetano 
Sent: Monday, January 11, 2016 7:16 PM
To: saopaulo-pm at mail.pm.org 
Subject: Re: [SP-pm] script perl no windows 10

Agrade?o a gentiliza em responder.
O Daniel me esculhambou ( rsrsrsrsrss ).
Apesar do script n?o ser bem elaborado ou estruturado , ele ? simples e ?til ( gostaria de tentar acertar o erro ).

Implementei as sugest?o do Daniel e do Lucas [ setInterval(function(){ window.location.href = '?todas' }, 5000); ]
e o problema passou a ocorrer tamb?m no internet explorer 11( n?o enviou as mensagens para os participantes ).

Pelo que eu entendo deste script , a a??o reload envia as mensagens para
<iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe" width="1010" height="480" style="overlap:auto"></iframe>
e com setInterval n?o chegou ( porque n?o chegou l? ).

Talvez isto ajude a analisar o problema.


From: Daniel de Oliveira Mantovani 
Sent: Monday, January 11, 2016 6:12 PM
To: saopaulo-pm at mail.pm.org 
Subject: Re: [SP-pm] script perl no windows 10

S? refor?ando o que eu disse, eu j? achei uma falha de seguran?a, onde voc? abre um descritor de arquivos com dois argumentos. Possivelmente em algum desses "opens" um dos argumentos vem do usu?rio.

https://www.securecoding.cert.org/confluence/pages/viewpage.action?pageId=76775519


On Mon, Jan 11, 2016 at 5:36 PM, Daniel de Oliveira Mantovani <daniel.oliveira.mantovani at gmail.com> wrote:

  Eu fortemente te aconselho a jogar isso fora, e usar o Google Hangout ou qualquer uma das milh?es de solu??es gr?tis que resolvem isso.

  2016-01-11 17:33 GMT-02:00 Lucas Moraes <lucastiagodemoraes at gmail.com>:

    Aconselho voc? atualizar a pagina com javascript. 

    setInterval(function(){ window.location.href = '?todas' }, 5000);


    Falou.


    Em 11 de janeiro de 2016 17:26, kleber caetano <payback at hotmail.com.br> escreveu:

      Ol? Sr(s),

      Migrei para o windows 10 e estou tendo um problema com um aplicativo em perl quando utilizo o edge ,
      entretanto , quando utilizo o explorer 11 o aplicativo ? executado normalmente.

      Nota[1] - Este aplicativo refere-se a um chat ( sala de reuni?o online ).

      O problema ( no edge ) ocorre quando :

      - Ele reenvia as mensagens ( atrav?s do comando <meta http-equiv="refresh" content="5,?todas"/> )  para 
        os participantes da sala de reuni?o ou seja n?o est? enviando nada.
      - Quando ? encerrada a reuni?o , o aplicativo elimina os arquivos de trabalho , por?m , no edge isto 
        n?o est? acontecendo.   

      Nota[2] - No explorer 11 estes problemas n?o ocorrem.

      Nota[3] - O script em perl  foi desenvolvido por um amigo que conhecia bastante perl 
                     entretanto meu conhecimento ? limitado. 

      Nota[4] ? Estou trabalhando com ActivePerl-5.16.3.1603-MSWin32-x86-296746 

      Nota[5] ? Caso considerem necess?rio , tenho como disponibilizar um link de acesso a este site sala.cgi

      Nota[6] - Quando instalei o windows 10 , o reload autom?tico  funcionava , entretanto ,  
                      ao realizar uma manuten??o grande ( nova vers?o acho ) o problema apareceu.
                      O problema de n?o eliminar os arquivos tempor?rio de trabalho existem
                      desde a instala??o inicial do windows 10

      Nota[7] ? coloquei duas marcas no script onde eu acho que as fun??es s?o executadas:

      ######################### aqui elimina os arquivos de trabalho ###################################

      ##################### aqui reenvia mensagens para os participantes #############################

      Algu?m sabe como resolver isto ?

      Agrade?o a aten??o ,

      kleber    

      =================================================================================================
                                                               script em perl  ( sala.cgi )
      =================================================================================================
      #!perl
      print "Content-type:text/html\n\n";
      use CGI::Carp(fatalsToBrowser);

      ###############################################################################################
      #                                     CONFIGURA??ES GERAIS                                                                                                            #
      #                                                                                                                                                                                          #
      $titulo = "Sala de Reuni?o Online";        # T?tulo do script                                                                                                #
      $master = "master.log";                         # Arquivo tempor?rio a guardar primeiro usu?rio                                              #
      $log    = "logs.log";                                # Arquivo tempor?rio de logs totais                                                                    #
      $log2   = "logs2.log";                            # Arquivo tempor?rio de logs da sess?o                                                              #
      $online = "online.log";                         # Arquivo tempor?rio com nomes dos usu?rios Online                                        #
      $estilos= "estilos.css";                        # Arquivo com os estilos dentro da pasta modelos                                              #
      $topo   = "topo.html";                         # Template do Topo                                                                                                #
      $fim    = "fim.html";                           # Template do Fim                                                                                                   #
      #                                                                                                                                                                                         #
      #                                                                                                                                                                                         #
      #                                     FIM DAS CONFIGURA??ES                                                                                                         #
      ###############################################################################################

      read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
      @conteudo = split(/&/, $buffer);
      foreach $par (@conteudo) {
              ($campo, $valor) = split(/=/, $par);
              $valor =~ tr/+/ /;
              $valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
              $CAMPO{$campo} = $valor;
          }

      $qs = "$ENV{QUERY_STRING}";
      &data;
      &style;
      if ($qs eq ""){
      print qq|
      <BR><BR><BR><BR><BR><BR><BR>
      |;
      &topo;
      print qq?
      <script language="JavaScript">
      <!--
      altura = 690;
      largura= 1090;
      l = (screen.width - largura)/2;
      t = (screen.height - altura - 50)/2; 
      var flag = "";
      var idioma=1;
      var strCookie='payback';

      function LerCookie(strCookie) {
          var strNomeIgual = strCookie + "=";
          var arrCookies = document.cookie.split(';');
          for(var i = 0; i < arrCookies.length; i++)
          {
              var strValorCookie = arrCookies[i];
              while(strValorCookie.charAt(0) == ' ')
              {
                  strValorCookie = strValorCookie.substring(1, strValorCookie.length);
              }
              if(strValorCookie.indexOf(strNomeIgual) == 0)
              {
                  var mensagem=strValorCookie.substring(strNomeIgual.length, strValorCookie.length);
                  flag = mensagem;
                  mensagem ='';
                  return;
              }
          }
          alert ( '!!!! Erro cr?tico : N?o foi poss?vel restaurar ?rea de transfer?ncia' );
          top.location.href = "/payback/index.htm";   
      };
      function init(form) {
                    LerCookie(strCookie);
                    if (flag != null ) {
                       flag = flag.split('|'); 
                       document.form.login.value = flag[9];
                    }
                    document.form.tema.focus();
      }
      function Entra(form) {
              if (document.form.tema.value.length == 0)  {
                  alert("O tema da reuni?o n?o foi informado");
                  document.form.tema.focus();
                  document.form.tema.select();
                  return false;
              } 
              novajanela = window.open("", "entrar", "scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l); 
              return true;
      }
      function showSalaHelp() {
            altura1=400;
            largura1= 800;
            l1 = (screen.width - largura + 250)/2;
            t1 = (screen.height - altura + 250)/2;   
            var html = '<HTML><HEAD><TITLE></TITLE></HEAD>';
                html += '<BODY background="/reuniao/imagem/papel.jpg" TEXT="#000066"><br><table align=center><tr><td><h4><b>SALA &nbsp;  DE &nbsp;  REUNI?O &nbsp;  ONLINE &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></h4></td></tr></table><br><TABLE ALIGN=CENTER><font size=2><TR><TD><PRE><b>';                      
                html += '<li>O dado usu?rio deve ser ?nico por sala.';
                html += '<li>O dado tema da reuni?o ser? o ponto de encontro dos participantes na sala.<br>';
                html += '   Este texto n?o pode conter espa?o , por exemplo , informar Aquisi??o_de_Filial';
                html += '<li>O sistema diferencia letra mai?scula de min?scula para identifica??o da sala.';
                html += '<li>Cada sala ter? um ?nico tema n?o tendo limita??es de quantidade de aberturas de<br>';
                html += '   salas e participantes.<br>';
                html += '<li>O usu?rio que abrir a sala ou seja o primeiro a entrar receber? uma tarefa de<br>';
                html += '  encerrar a reuni?o ( bot?o especial ).<br>  Este usu?rio , ao sair da sala , provocar? a elimina??o dos arquivos que registram<br>  os textos digitados.<br>  Portanto , recomenda-se dar um tempo de poucos segundos antes de sair da sala.';
                html += '<li>Ao acionar o bat?o especial ENCERRAR REUNI?O , o texto REUNI?O FINALIZADA<br>';
                html += '   ? enviado ? sala e nenhuma nova mensagem ? registrada pelo sistema.';
                html += '<li>? recomend?vel que os participantes imprimam a ata de reuni?o ap?s esta a??o.<br>';
                html += '<li>Para ajuda de formata??o do texto mensagem , na sala de reuni?o , acionar a tecla F1';
                html += '<li>Os documentos enviados ao servidor para serem apresentados como anexo ,<br>  ser?o eliminados quando o sistema operacional for reinicializado.<br>';
                html += '  Nota - O documento apresentado como anexo  , para ser baixado no servidor , dever? ter<br>         no m?ximo 500 kbytes.';
                html += '</TABLE></FONT></B></PRE></BODY></HTML>';
                var newWindow = window.open("","","scrollbars=auto,height="+altura1+",width="+largura1+",top="+t1+",left="+l1);
                newWindow.document.write(html);
                newWindow.document.close();
                event.cancelBubble = true;
                return false;
      }
      //-->
      </script>
      <style type="text/css"><!--
      .multi_bg { background-image : linear-gradient(to right, rgba(30, 75, 115, 0.5),  rgba(30, 75, 115, 0.5)); }
      -->
      </style>
      </HEAD>
              <body onload="init(this.form)" onHelp="return showSalaHelp()" BGCOLOR="#ADB6C6" TEXT="#003366" class="multi_bg">
              <form action="?entra" method="POST" name="form" target="entrar" id="form" OnSubmit="return Entra(this)">
              <br>
              <strong><font color="#ffffff" size="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<label class='sombra'><b>Escolha um tema para entrar</label></font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="/reuniao/imagem/help.gif" onClick="showSalaHelp();document.form.tema.focus()" WIDTH="18" HEIGHT="18" style="cursor:pointer" title ="Ajuda do sistema">
              <br><br>
              <div align="center">
                    <table>
                      <tr> 
                         <!-- <td width="33%"><div align="right"><font class="sombra"><font color="#ffffff" size="2"><b>Usu&aacute;rio&nbsp;&nbsp;</b></font></div></td> --> 
                        <td><input type="hidden" name="login" class="campo" onFocus="document.form.tema.focus()" onHelp="return showSalaHelp()"></td>
                       </tr>
                      <tr> 
                        <td><div align="right"><font class="sombra"><font color="#ffffff" size="2"><b>Tema&nbsp;&nbsp;</b></font></div></td>
                        <td><input name="tema" type="text" class="campo" id="tema" onHelp="return showSalaHelp()"></td>
                      </tr>
                    </table><br>
                    <table>
                   <tr>
                       <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
                       <td align="center" colspan=2><input type="submit" value="Entrar" class="botao" STYLE='cursor: pointer;font-weight:bold'></td>
                  </tr>
                   </table><br>
              </div>
      ?;&fim;}

      if ($qs eq "entra"){
      if ($CAMPO{login} eq ""){ 
      print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|; 
      &topo;
      print qq|<br>Voc? deve digitar um nome de usu?rio antes de entrar na sala ! <br><br>
      <div align="center">
      <input type="button" class="botao2" onClick="javascript:windows.close()" value="Fechar Janela"><br>
      </div>
      |;
      &fim;
      }else{ 
      if ($CAMPO{tema} eq "" ){   
      print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;  
      &topo;
      print qq|<br>Voc? deve digitar um tema antes de entrar na sala ! <br><br>
      <div align="center">
      <input type="button" class="botao2" onClick="javascript:window.close()" value="Fechar Janela"><br>
      </div>
      |;
      &fim;
      }else{
      if (-e "$CAMPO{tema}"."_"."$log"){ 
      open(ONLINE,"$CAMPO{tema}_$online");
      @online = <ONLINE>;
      close(ONLINE);

      foreach (@online){
      chomp;
      s/%//gi;
      if ($CAMPO{login} eq "$_"){
      $repetido = "1";
      }else{
      $repetido = "0";
      }}
      if ($repetido eq "1"){
      print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;  
      &topo;
      print qq|<br>Este nome de usu?rio j? est? em uso! Por favor escolha outro.<br><br>
      <div align="center">
      <input type="button" class="botao2" onClick="javascript:window.close()" value="Fechar Janela"><br>
      </div>
      |;&fim;
      }else{
      open(MASTER,"$CAMPO{tema}_$master");
      $master = <MASTER>;
      close(MASTER);
      chomp $master;
      $master =~ s/%//gi;

      if ($CAMPO{login} eq $master){$a = "1";} else {$a = "0";}
      open(ONLINE,">>$CAMPO{tema}_$online");
      print ONLINE qq|%$CAMPO{login}%\n|;
      close(ONLINE);

      open (SALA, ">>$CAMPO{tema}_$log");
      print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
      close(SALA);

      open (SALA, ">>$CAMPO{tema}_$log2");
      print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
      close(SALA);

      &topo;&msg;&fim;
      }}else{

      open(MASTER,">$CAMPO{tema}_$master");
      print MASTER qq|%$CAMPO{login}%\n|;
      close(MASTER);

      open(ONLINE,">>$CAMPO{tema}_$online");
      print ONLINE qq|%$CAMPO{login}%\n|;
      close(ONLINE);

      open (SALA, ">>$CAMPO{tema}_$log");
      print SALA qq|<div align="center"><font class="texto"><h5>ATA DA REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
      print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
      close(SALA);

      open (SALA, ">>$CAMPO{tema}_$log2");
      print SALA qq|<div align="center"><font class="texto"><h5>ATA DA REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
      print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
      close(SALA);
      $a = "1";
      &topo;&msg;&fim;
      }}}}

      if ($qs eq "escreve2"){
      $CAMPO{msg} =~ tr/+/ /;
      $CAMPO{msg} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $CAMPO{tema} =~ tr/+/ /;
      $CAMPO{tema} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      if ($CAMPO{msg} eq ""){
      print qq|
      <script language="Javascript">
      <!--
      alert ('Mensagem n?o informada')
      //-->
      </script>
      <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
      |;}else{

      if ($CAMPO{msg} eq "REUNI?O FINALIZADA"){

      open(LOG,">>$CAMPO{tema}"."_"."$log");
      print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O FINALIZADA</b></font></div><br>\n|;
      close(LOG);

      open(LOG,">$CAMPO{tema}"."_"."$log2");
      print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O FINALIZADA</b></font></div><br>\n|;
      close(LOG);

      print qq|
      <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
      |;
      }else{

      open(LOG,"$CAMPO{tema}"."_"."$log");
      @log = <LOG>;
      close(LOG);
      $r = "0";
      foreach (@log){
      chomp;
      if($_ eq "<br><div align=\"center\"><font class=\"texto\"><b>REUNI?O FINALIZADA</b></font></div><br>"){
      $r = "1";
      }}

      if ($r eq "1"){
      print qq|
      <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
      |;
      }else{

      open(LOG,">>$CAMPO{tema}"."_"."$log");
      print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
      close(LOG);
      open(LOG,">>$CAMPO{tema}"."_"."$log2");
      print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
      close(LOG);
      print qq|
      <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
      |;}}}}

      if ($qs =~ /imprimir/){
      &imprimir;
      }

      if ($qs =~ /logout/){
      &logout;
      }

      if ($qs =~ /principal/){
      &principal;
      }

      if ($qs =~ /principal2/){
      &principal2;
      }

      if ($qs =~ /todas/){
      &todas;
      }

      sub data{
      ($seg,$min,$hr,$dia,$mes,$ano) = localtime();
      if ($hr < "10"){$hr = "0$hr";}
      if ($min < "10"){$min = "0$min";}
      if ($seg < "10"){$seg = "0$seg";}

      @mes = ("janeiro","fevereiro","mar?o","abril","maio","junho","julho","agosto","setembro","outubro","novembro","dezembro");
      $ano = 1900+$ano;

      $data  = "$hr:$min:$seg, $dia de @mes[$mes] de $ano";
      }

      sub fim{
      open(FIM,"$fim");
      @fim=<FIM>;
      close(FIM);
      print "@fim";
      }

      sub imprimir {
      $qs =~ s/imprimir=//;
      $qs =~ tr/+/ /;
      $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      open (LOG,"$qs"."_"."$log");
      @log = <LOG>;
      close(LOG);

      print qq|
      <html>
      <head>
      <title>$titulo</title>
      @style
      </head>
      <body onload="this.window.print()">
      @log
      </body>
      |;}

      sub logout{
      $qs =~ s/logout=//gi;
      ($login,$tema) = split (/-/,$qs);
      $login =~ tr/+/ /;
      $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $tema =~ tr/+/ /;
      $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      open(LOG,">>$tema"."_"."$log2");
      print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b> saiu da sala</b></font><br>\n|;
      close(LOG);

      open(LOG,">>$tema"."_"."$log");
      print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b> saiu da sala</b></font><br>\n|;
      close(LOG);

      open(ONLINE,"$tema"."_"."$online");
      @online = <ONLINE>;
      close(ONLINE);

      @on = @online;
      foreach (@on){
      chomp;
      if ($_ =~ /%$login%/){
      s/$_//;
      }}

      open(ONLINE,">$tema"."_"."$online");
      print ONLINE qq|@on|;
      close(ONLINE);

      open(ONLINE,"$tema"."_"."$online");
      @online = <ONLINE>;
      close(ONLINE);

      if (length ("@online") eq "0"){
      unlink("$tema"."_"."$master");  ######################### aqui elimina os arquivos de trabalho ###################################
      unlink("$tema"."_"."$online");  #################   n?o est? sendo executado no edge    ###########################################
      unlink("$tema"."_"."$log2");
      unlink("$tema"."_"."$log");
      }else{}

      print qq|
      <html>
      <head>
      <title>$titulo</title>
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
      <script language="JavaScript">
      function Logout(){
      this.window.close()
      }
      </script>
      </head>
      <body onload="javascript:Logout()">
      </body>
      </html>
      |;}

      sub msg{
      $qs =~ tr/+/ /;
      $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      open (LOG, "$qs"."_"."$log2");
      @log = <LOG>;
      close(LOG);

      $finalizado = "0";

      foreach (@log){
      chomp;
      print $_;
      if ($_ eq "REUNI?O FINALIZADA"){
      $finalizado = "1";
      }}

      print qq|
      <script language="JavaScript">
      function Imprimir(){
      altura =690;
      largura= 1090;
      l = (screen.width - largura)/2;
      t = (screen.height - altura - 50)/2; 
      window.open("?imprimir=$CAMPO{tema}","","scrollbars,height="+altura+",width="+largura+",top="+t+",left="+l); 
      }
      function unLoad(){
      window.open("?logout=$CAMPO{login}-$CAMPO{tema}","","width=80,height=80")
      }
      </script>
      <body onunLoad="unLoad()">
      <table>
      <tr><td>
      <font class="texto1"><b> Usu?rio: $CAMPO{login}</b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
      </td><td>
      &nbsp;<font class="texto1"><b> Tema: $CAMPO{tema}<br></b></font>
      </td><td>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/calculadora.gif" onClick="calculadora()" WIDTH="18" HEIGHT="22" style="cursor:pointer" title ="Calculadora financeira">      
      </td><td>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/Email.gif" onClick="email()" WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Correspond?ncia interna">      
      </td><td>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/acessorio.gif" onClick="acessorio()" WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Acess?rios">      
      </td><TD>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/alarme.gif" onClick="alarme()" WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Alarme">      
      </td></tr></table>
      <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe" width="1010" height="480" style="overlap:auto"></iframe>
      <iframe align="middle" src="?principal2=$CAMPO{tema}-$CAMPO{login}" name="iframe2" width="1010" height="75" style="overlap:auto"></iframe>
      <table>
      <tr>
      <td><input type="button" class="botao" value="Ata de reuni?o" onClick="javascript:Imprimir()" STYLE='cursor:pointer;font-weight:bold'></td>
      <td>&nbsp;</td>
      <td><div align="right">
      <input type="button" class="botao2" value="Sair da Sala" onClick="javascript:window.close()"  STYLE='cursor:pointer;font-weight:bold'></div></td>
      <td>&nbsp;</td>
      |;

      if($a eq "1"){print qq|<td><div align="center">
      <form name="form" method="post" action="?escreve2" target="iframe2">
                  <input name="msg"    type="hidden" size="80" class="campo" value="REUNI?O FINALIZADA">
                  <input name="login"  type="hidden" class="campo" value="$CAMPO{login}">
                  <input name="tema"   type="hidden" class="campo" value="$CAMPO{tema}">
                  <input type="submit" value="Encerrar Reuni?o" class="botao" STYLE='cursor: pointer;font-weight:bold'>          
      </form>
      </div>
      </div></td></tr>|;}print qq|</table><br>|;}

      sub principal{
      $qs =~ s/principal=//;
      $qs =~ tr/+/ /;
      $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      open (LOG, $qs."_".$log2);
      @log = <LOG>;
      close(LOG);

      $finalizado = "0";

      foreach (@log){
      chomp;
      if ($_ eq "REUNI?O FINALIZADA"){
      $finalizado = "1";
      }}
      if ($finalizado eq "1"){print qq|
      <font class="texto">
      A REUNI?O FOI FINALIZADA. VOC? PODE IMPRIMIR OU VISUALIZAR O RELAT?RIO
      </font>|;

      }else{print qq|
      <html>
      <head>

      @style
      <script language="JavaScript">
      <!--
         function scroll() {
           if( document.body && document.body.clientHeight ) {
             window.innerHeight = document.body.clientHeight
           }
           window.scrollTo( 0, (window.innerHeight/0.1) )
         }

          function focus(){
            document.form.msg.focus()
          }

          function enter(string){
                   insertAtCaret(document.form.msg,string); 
                   focus()
          }

         function insertAtCaret (textObj, textFeildValue) {
             if(document.all){ 
                  if (textObj.createTextRange && textObj.caretPos) {
                      var caretPos = textObj.caretPos;
                      caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?textFeildValue + ' ' : textFeildValue;
                  }else{
                      textObj.value = textFeildValue;
                  }
            }else{
                  if(textObj.setSelectionRange){
                     var rangeStart = textObj.selectionStart;
                     var rangeEnd = textObj.selectionEnd;
                     var tempStr1 = textObj.value.substring(0,rangeStart);
                     var tempStr2 = textObj.value.substring(rangeEnd);
                     textObj.value = tempStr1 + textFeildValue + tempStr2;
                 }else{
                     alert("Esta vers?o do navegador n?o suporta setSelectionRange");
                 }
           }
        }

         function clear_field(){
            document.form.msg.value = ''
            document.form.msg.focus()
            document.form.msg.select() 
         }

         function anexar(){
                   altura = 450;
                   largura= 700;
                   l = (screen.width - largura)/2;
                   t = (screen.height - altura - 50)/2;              
                   var html =  '<HTML><HEAD><TITLE></TITLE>'
                       html += '</HEAD><BODY background="/reuniao/imagem/papel.jpg"  TEXT="#000066">'
                       html += '<BR><BR><BR><table align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000">Apresentar documento como anexo</label></h3></th></tr></table><br><br>'
                       html += '<FORM NAME="anexo" METHOD="POST" ACTION="/reuniao/temp/upload.plx" ENCTYPE="multipart/form-data">'
                       html += '<br>'
                       html += '<TABLE align=center>'
                       html += '<tr>'
                       html += '<td><input type="file" name="arquivo" size="60" maxlength="90"></td>'
                       html += '</tr>'
                       html += '</table>'
                       html += '<br><br><br>'
                       html += '<TABLE align=center>'
                       html += '<tr>'
                       html += '<td bgcolor=#ADB6C6><input type="submit" value="    Processa    " style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
                       html += '</TR>'
                       html += '</table>'
                       html += '</form>'  
                       html += '</body>'
                       html += '</html>'
                   var newWindow = window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
                   newWindow.document.write(html)
                   newWindow.document.close()
                   focus()
                   return false              
         }

         function publicar(){
                   altura = 450;
                   largura= 700;
                   l = (screen.width - largura)/2;
                   t = (screen.height - altura - 50)/2;              
                   var html =  '<HTML><HEAD><TITLE></TITLE>'
                       html += '</HEAD><BODY background="/reuniao/imagem/papel.jpg"  TEXT="#ffffff">'
                       html += '<BR><BR><BR><table align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000">Ponto de publica??o web</label></h3></th></tr></table><br><br>'
                       html += '<FORM NAME="publica" METHOD="POST" ACTION="/reuniao/temp/publica.plx">'
                       html += '<br>'
                       html += '<TABLE align=center>'
                       html += '<tr>'
                       html += '<td><input type="text" name="http" size="60" maxlength="90" value = "http://"></td>'
                       html += '</tr>'
                       html += '</table>'
                       html += '<br><br><br>'
                       html += '<TABLE align=center>'
                       html += '<tr>'
                       html += '<td bgcolor=#ADB6C6><input type="submit" value="    Processa    " style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
                       html += '</TR>'
                       html += '</table>'
                       html += '</form>'  
                       html += '</body>'
                       html += '</html>'
                   var newWindow = window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
                   newWindow.document.write(html)
                   newWindow.document.close()
                   focus()
                   return false              
         }

        function showMsgHelp() {
            alert("                            SALA DE REUNI?O ONLINE\\n\\nMensagem -> Campo alfa num?rico com tamanho de 300 caracteres e diferente de espa?o.\\n\\nNota - ? recomend?vel que uma linha de mensagem tenha no m?ximo 80 caracteres visando dar maior clareza no relat?rio ATA DE REUNI?O.\\n\\nTAGS ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\n<br> - Salto de linha\\n<p> - Salto de par?grafo\\n<b>texto</b> - Texto em negrito\\n<font size=4>texto</font> - Texto com fonte igual a 4 pixel\\n<font color=red>texto</font> - Texto com cor em vermelho\\n<i>texto</i> - Texto em it?lico\\n<u>texto</u> - Texto sublinhado\\n<sub>texto</sub> - Texto subscrito\\n<sup>texto</sup> - Texto sobrescrito\\n<ol><li>texto1<li>texto2<li>texto3</ol> - Lista num?rica dos textos\\n<li>texto1<li>texto2<li>texto3 - Marca??o dos textos\\n\\nNota - Os par?metros de formata??o de texto podem ser utilizados simultaneamente.\\n\\n                EXEMPLO DE UTILIZA??O\\n\\nOl? sr(s) , bom dia a todos<br>Vamos dicurtir a <font size=3 color=red><b>Aquisi??o do im?vel em S?o Paulo.</b></font><br>O Paulo vai nos descrever as alternativas que dispomos.\\n\\n\\nFUN??ES ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\nLimpa -      Move espa?o para o campo mensagem\\nLinha -       Move <br> para o campo mensagem para quebrar linha\\nLista -        Move marcador <li> para o campo mensagem com salto de linha\\nNum?rico Move marcador <ol> para o campo mensagem\\nCola -        Coloca texto da ?rea de transfer?ncia no campo mensagem\\nAnexa -     Disponibiliza documento como um anexo para apresenta??o\\nPublica -   Disponibiliza um link de acesso referente a uma publica??o na internet\\nReal?a -    Evid?ncia uma parte do texto selecionado no campo mensagem\\nSublinha - Real?a um texto selecionado no campo mensagem sublinhando-o")
            event.cancelBubble = true
            return false
        } 

      //-->
      </script>
      </head>
      <body>
      @log
      </body>
      </html>|;
      }}

      sub principal2 {
      $qs =~ s/principal2=//;
      ($tema,$login) = split (/-/,$qs);
      $tema =~ tr/+/ /;
      $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $login =~ tr/+/ /;
      $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      print qq|
      @style

      <body  onLoad="document.form.msg.focus()" onHelp="return showMsgHelp()" class="table3" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
      <div align="center">
      <table>
        <tr>
          <td> &nbsp;</td>
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/clear.png" onClick="clear_field()"   WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Limpar campo mensagem"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/linha.png" onClick="enter('<br>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Salto de linha"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/lista.gif" onClick="enter('<li>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Marcador de lista"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/nlist.gif" onClick="enter('<ol>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Marcador num?rico"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/anexo.png"   onClick="anexar()"      WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Anexar docto"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/wlink.gif"   onClick="publicar()"    WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Publicar um link da internet"  STYLE='cursor: hand; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
          <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/help.gif"    onClick="showMsgHelp()" WIDTH="18" HEIGHT="18" style="cursor:pointer" title ="Ajuda do sistema"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
      </tr>
      </table><br>
      <table  align="center">
        <tr>
          <td class="texto"><form name="form" method="post" action="?escreve2">
                <div align="center"><b><font size=2><label class='sombra'>&nbsp; Mensagem &nbsp; </label></b></fonte> 
                  <input name="msg"     type="text"      class="campo" size="120" maxlength="300" onHelp="return showMsgHelp()">
                  <input name="login"   type="hidden"    class="campo" value="$login">
                  <input name="tema"    type="hidden"    class="campo" value="$tema">
                  <input type="submit"  value="Enviar"   class="botao" >              
                </div>
          </td>
        </tr>
      </table>
      </form>
      </div>
      </body>
      |;}

      sub style{
      open(STYLE, "$estilos");
      @style = <STYLE>;
      close(STYLE);
      }

      sub todas{
      $qs =~ s/todas=//;
      $qs =~ tr/+/ /;
      $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      open (LOG, $qs."_".$log);
      @log = <LOG>;
      close(LOG);

      print qq|
      <meta http-equiv="refresh" content="5,?todas"/> ##################### aqui reenvia mensagens para os participantes #############################
      @style
      <script>
      <!--
        function rolar() {
          if( document.body && document.body.clientHeight ) {
            window.innerHeight = document.body.clientHeight
          }
          window.scrollTo( 0, (window.innerHeight/0.1) );
        }
      //-->
      </script>
      <body onLoad="javascript:rolar()">
      @log|;}

      sub topo{
      open(TOPO,"$topo");
      @topo=<TOPO>;
      close(TOPO);
      print "@topo";
      }

      =begin disclaimer
         Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
      SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
      L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
      =end disclaimer




    =begin disclaimer
       Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
    SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
    L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
    =end disclaimer






  -- 

  Thank you very much!

  -dom

  --

  Daniel de Oliveira Mantovani
  Business Analytic Specialist
  Perl Evangelist /Astrophysics hobbyist. 
  +55 11 9 8538-9897
  XOXO




-- 

Thank you very much!

-dom

--

Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist. 
+55 11 9 8538-9897
XOXO


--------------------------------------------------------------------------------
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer



--------------------------------------------------------------------------------
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer



--------------------------------------------------------------------------------
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160111/0adb74cb/attachment-0001.html>

From daniel.oliveira.mantovani at gmail.com  Mon Jan 11 15:15:52 2016
From: daniel.oliveira.mantovani at gmail.com (Daniel de Oliveira Mantovani)
Date: Mon, 11 Jan 2016 21:15:52 -0200
Subject: [SP-pm] script perl no windows 10
In-Reply-To: <COL126-DS12BC4E7DA59D0D8F61764492C90@phx.gbl>
References: <COL126-DS17DB8FE31F840F40B9D68292C90@phx.gbl>
	<CAPpv0_oJAxED39CB8g8LwBr1No6j1UUOgMmyfwFwY1XjBCqEpQ@mail.gmail.com>
	<CAEmYuOtA_r3qjLC1qBu+u_rheT-7=3zJf=k-Av219PpPsGajBw@mail.gmail.com>
	<CAEmYuOt2YFQbcwB-Ma5nBO+38ep79d7GMmsChkLVuBzK4bXh7w@mail.gmail.com>
	<COL126-DS5D77FB563308C656D1BD892C90@phx.gbl>
	<COL126-DS233328F8A858D8000AA7892C90@phx.gbl>
	<COL126-DS12BC4E7DA59D0D8F61764492C90@phx.gbl>
Message-ID: <CAEmYuOtc4W7QT2jo0tBPZdeB9RbHhYFDU8vu+noMF8cVLfn0iw@mail.gmail.com>

Opa Kleber, desculpa se eu passei a mensagem errada. Na verdade, o que eu
quis dizer ? que independente da qualidade do seu software, hoje existem
muitas op??es de softwares/servi?os maduros gratuitos. Apenas se existisse
uma regra de neg?cio "fora de s?rie", seria justific?vel. Inclusive,
existem ?timas op??es que oferecerem a possibilidade do usu?rio se conectar
atrav?s do aparelho telef?nico m?vel. Voc? por exemplo pode criar um canal
de IRC criptografado e com senha, onde os usu?rios podem escolher o
aplicativo do aparelho telef?nico m?vel que mais lhe agrada.

Eu entendo a sua "perspic?cia" em achar esse grupo espec?fico de
programadores Perl, independente da fonte. Por?m, a nossa lista ? parecida
com uma lista de especialistas/apaixonados em/por carros. Onde as pessoas
perguntam, "Qual o melhor material para construir carros de F?rmula 1 que
consigam aproveitar mais a chuva em temperaturas entre 10?C~12?C ?".  E a
sua pergunta foi, "Pessoal, olha esse carro aqui quebrou... Voc?s podem
arrumar pra mim de gra?a, por favor ?". Na verdade, voc? n?o precisa ser um
especialista para unir-se a n?s. Muita gente que est? come?ando, felizmente
tamb?m nos acha. Que foi o meu caso pessoal, eu queria entender um exploit
que se eu me lembro bem derrubava servidores de Counter-Strike.

Eu perfeitamente entendo que voc? n?o teve m? inten??o, por isso eu te
convido ? aprender Perl. N?s podemos te orientar em real-time no nosso
canal de IRC, #sao-paulo.pm irc.perl.org 24H//7 (Nem sempre a resposta ?
imediata, mas ? um ambiente colaborativo onde todos s?o muito bem vindos.
N?s temos bastante conte?do em portugu?s, incluindo artigo, manuais, livros
etc.)

Seja muito bem-vindo!


2016-01-11 20:35 GMT-02:00 kleber caetano <payback at hotmail.com.br>:

> Me perdoem em insistir neste assunto.
> Mais uma informa??o que talvez seja importante :
>
> Parece que o script envia informa??es vazias ou seja as mensagens que
> estavam na tema desaparecem.
> ( a parte da tela que apresenta as mensagens ficam em branco inclusive o
> tema da reuni?o ----> acho que ?
> <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe"
> width="1010" height="480" style="overlap:auto"></iframe> ).
>
> *From:* kleber caetano <payback at hotmail.com.br>
> *Sent:* Monday, January 11, 2016 8:09 PM
> *To:* saopaulo-pm at mail.pm.org
> *Subject:* Re: [SP-pm] script perl no windows 10
>
> Mais uma informa??o que talvez seja importante aos amigos :
>
> Apesar de n?o estar apresentando as mensagens aos participantes da sala ,
> as mensagens enviadas pelos usu?rios s?o gravadas nos arquivos de trabalho.
> ( ? poss?vel constatar isto ).
>
> *From:* kleber caetano <payback at hotmail.com.br>
> *Sent:* Monday, January 11, 2016 7:16 PM
> *To:* saopaulo-pm at mail.pm.org
> *Subject:* Re: [SP-pm] script perl no windows 10
>
> Agrade?o a gentiliza em responder.
> O Daniel me esculhambou ( rsrsrsrsrss ).
> Apesar do script n?o ser bem elaborado ou estruturado , ele ? simples e
> ?til ( gostaria de tentar acertar o erro ).
>
> Implementei as sugest?o do Daniel e do Lucas [ setInterval(function(){
> window.location.href = '?todas' }, 5000); ]
> e o problema passou a ocorrer tamb?m no internet explorer 11( n?o enviou
> as mensagens para os participantes ).
>
> Pelo que eu entendo deste script , a a??o reload envia as mensagens para
> <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe"
> width="1010" height="480" style="overlap:auto"></iframe>
> e com setInterval n?o chegou ( porque n?o chegou l? ).
>
> Talvez isto ajude a analisar o problema.
>
>
> *From:* Daniel de Oliveira Mantovani <daniel.oliveira.mantovani at gmail.com>
> *Sent:* Monday, January 11, 2016 6:12 PM
> *To:* saopaulo-pm at mail.pm.org
> *Subject:* Re: [SP-pm] script perl no windows 10
>
> S? refor?ando o que eu disse, eu j? achei uma falha de seguran?a, onde
> voc? abre um descritor de arquivos com dois argumentos. *Possivelmente*
> em algum desses "opens" um dos argumentos vem do usu?rio.
>
>
> https://www.securecoding.cert.org/confluence/pages/viewpage.action?pageId=76775519
>
> On Mon, Jan 11, 2016 at 5:36 PM, Daniel de Oliveira Mantovani <
> daniel.oliveira.mantovani at gmail.com> wrote:
>
>> Eu fortemente te aconselho a jogar isso fora, e usar o Google Hangout ou
>> qualquer uma das milh?es de solu??es gr?tis que resolvem isso.
>>
>> 2016-01-11 17:33 GMT-02:00 Lucas Moraes <lucastiagodemoraes at gmail.com>:
>>
>>> Aconselho voc? atualizar a pagina com javascript.
>>>
>>> setInterval(function(){ window.location.href = '?todas' }, 5000);
>>>
>>> Falou.
>>>
>>> Em 11 de janeiro de 2016 17:26, kleber caetano <payback at hotmail.com.br>
>>> escreveu:
>>>
>>>> Ol? Sr(s),
>>>>
>>>> Migrei para o windows 10 e estou tendo um problema com um aplicativo em
>>>> perl quando utilizo o edge ,
>>>> entretanto , quando utilizo o explorer 11 o aplicativo ? executado
>>>> normalmente.
>>>>
>>>> Nota[1] - Este aplicativo refere-se a um chat ( sala de reuni?o online
>>>> ).
>>>>
>>>> O problema ( no edge ) ocorre quando :
>>>>
>>>> - Ele reenvia as mensagens ( atrav?s do comando <meta
>>>> http-equiv="refresh" content="5,?todas"/> )  para
>>>>   os participantes da sala de reuni?o ou seja n?o est? enviando nada.
>>>> - Quando ? encerrada a reuni?o , o aplicativo elimina os arquivos de
>>>> trabalho , por?m , no edge isto
>>>>   n?o est? acontecendo.
>>>>
>>>> Nota[2] - No explorer 11 estes problemas n?o ocorrem.
>>>>
>>>> Nota[3] - O script em perl  foi desenvolvido por um amigo que conhecia
>>>> bastante perl
>>>>                entretanto meu conhecimento ? limitado.
>>>>
>>>> Nota[4] ? Estou trabalhando com
>>>> ActivePerl-5.16.3.1603-MSWin32-x86-296746
>>>>
>>>> Nota[5] ? Caso considerem necess?rio , tenho como disponibilizar um
>>>> link de acesso a este site sala.cgi
>>>>
>>>> Nota[6] - Quando instalei o windows 10 , o reload autom?tico
>>>> funcionava , entretanto ,
>>>>                 ao realizar uma manuten??o grande ( nova vers?o acho )
>>>> o problema apareceu.
>>>>                 O problema de n?o eliminar os arquivos tempor?rio de
>>>> trabalho existem
>>>>                 desde a instala??o inicial do windows 10
>>>> Nota[7] ? coloquei duas marcas no script onde eu acho que as fun??es
>>>> s?o executadas:
>>>>
>>>> ######################### aqui elimina os arquivos de trabalho
>>>> ###################################
>>>>
>>>> ##################### aqui reenvia mensagens para os participantes
>>>> #############################
>>>>
>>>> Algu?m sabe como resolver isto ?
>>>>
>>>> Agrade?o a aten??o ,
>>>>
>>>> kleber
>>>>
>>>>
>>>> =================================================================================================
>>>>                                                          script em
>>>> perl  ( sala.cgi )
>>>>
>>>> =================================================================================================
>>>> #!perl
>>>> print "Content-type:text/html\n\n";
>>>> use CGI::Carp(fatalsToBrowser);
>>>>
>>>>
>>>> ###############################################################################################
>>>> #                                     CONFIGURA??ES
>>>> GERAIS
>>>> #
>>>> #
>>>> #
>>>> $titulo = "Sala de Reuni?o Online";        # T?tulo do
>>>> script
>>>> #
>>>> $master = "master.log";                         # Arquivo tempor?rio a
>>>> guardar primeiro usu?rio                                              #
>>>> $log    = "logs.log";                                # Arquivo
>>>> tempor?rio de logs
>>>> totais                                                                    #
>>>> $log2   = "logs2.log";                            # Arquivo tempor?rio
>>>> de logs da
>>>> sess?o                                                              #
>>>> $online = "online.log";                         # Arquivo tempor?rio
>>>> com nomes dos usu?rios Online                                        #
>>>> $estilos= "estilos.css";                        # Arquivo com os
>>>> estilos dentro da pasta
>>>> modelos                                              #
>>>> $topo   = "topo.html";                         # Template do
>>>> Topo
>>>> #
>>>> $fim    = "fim.html";                           # Template do
>>>> Fim
>>>> #
>>>> #
>>>> #
>>>> #
>>>> #
>>>> #                                     FIM DAS
>>>> CONFIGURA??ES
>>>> #
>>>>
>>>> ###############################################################################################
>>>>
>>>> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>>>> @conteudo = split(/&/, $buffer);
>>>> foreach $par (@conteudo) {
>>>>         ($campo, $valor) = split(/=/, $par);
>>>>         $valor =~ tr/+/ /;
>>>>         $valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>         $CAMPO{$campo} = $valor;
>>>>     }
>>>>
>>>> $qs = "$ENV{QUERY_STRING}";
>>>> &data;
>>>> &style;
>>>> if ($qs eq ""){
>>>> print qq|
>>>> <BR><BR><BR><BR><BR><BR><BR>
>>>> |;
>>>> &topo;
>>>> print qq?
>>>> <script language="JavaScript">
>>>> <!--
>>>> altura = 690;
>>>> largura= 1090;
>>>> l = (screen.width - largura)/2;
>>>> t = (screen.height - altura - 50)/2;
>>>> var flag = "";
>>>> var idioma=1;
>>>> var strCookie='payback';
>>>>
>>>> function LerCookie(strCookie) {
>>>>     var strNomeIgual = strCookie + "=";
>>>>     var arrCookies = document.cookie.split(';');
>>>>     for(var i = 0; i < arrCookies.length; i++)
>>>>     {
>>>>         var strValorCookie = arrCookies[i];
>>>>         while(strValorCookie.charAt(0) == ' ')
>>>>         {
>>>>             strValorCookie = strValorCookie.substring(1,
>>>> strValorCookie.length);
>>>>         }
>>>>         if(strValorCookie.indexOf(strNomeIgual) == 0)
>>>>         {
>>>>             var mensagem=strValorCookie.substring(strNomeIgual.length,
>>>> strValorCookie.length);
>>>>             flag = mensagem;
>>>>             mensagem ='';
>>>>             return;
>>>>         }
>>>>     }
>>>>     alert ( '!!!! Erro cr?tico : N?o foi poss?vel restaurar ?rea de
>>>> transfer?ncia' );
>>>>     top.location.href = "/payback/index.htm";
>>>> };
>>>> function init(form) {
>>>>               LerCookie(strCookie);
>>>>               if (flag != null ) {
>>>>                  flag = flag.split('|');
>>>>                  document.form.login.value = flag[9];
>>>>               }
>>>>               document.form.tema.focus();
>>>> }
>>>> function Entra(form) {
>>>>         if (document.form.tema.value.length == 0)  {
>>>>             alert("O tema da reuni?o n?o foi informado");
>>>>             document.form.tema.focus();
>>>>             document.form.tema.select();
>>>>             return false;
>>>>         }
>>>>         novajanela = window.open("", "entrar",
>>>> "scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l);
>>>>
>>>>         return true;
>>>> }
>>>> function showSalaHelp() {
>>>>       altura1=400;
>>>>       largura1= 800;
>>>>       l1 = (screen.width - largura + 250)/2;
>>>>       t1 = (screen.height - altura + 250)/2;
>>>>       var html = '<HTML><HEAD><TITLE></TITLE></HEAD>';
>>>>           html += '<BODY background="/reuniao/imagem/papel.jpg"
>>>> TEXT="#000066"><br><table align=center><tr><td><h4><b>SALA &nbsp;  DE
>>>> &nbsp;  REUNI?O &nbsp;  ONLINE
>>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></h4></td></tr></table><br><TABLE
>>>> ALIGN=CENTER><font size=2><TR><TD><PRE><b>';
>>>>           html += '<li>O dado usu?rio deve ser ?nico por sala.';
>>>>           html += '<li>O dado tema da reuni?o ser? o ponto de encontro
>>>> dos participantes na sala.<br>';
>>>>           html += '   Este texto n?o pode conter espa?o , por exemplo ,
>>>> informar Aquisi??o_de_Filial';
>>>>           html += '<li>O sistema diferencia letra mai?scula de
>>>> min?scula para identifica??o da sala.';
>>>>           html += '<li>Cada sala ter? um ?nico tema n?o tendo
>>>> limita??es de quantidade de aberturas de<br>';
>>>>           html += '   salas e participantes.<br>';
>>>>           html += '<li>O usu?rio que abrir a sala ou seja o primeiro a
>>>> entrar receber? uma tarefa de<br>';
>>>>           html += '  encerrar a reuni?o ( bot?o especial ).<br>  Este
>>>> usu?rio , ao sair da sala , provocar? a elimina??o dos arquivos que
>>>> registram<br>  os textos digitados.<br>  Portanto , recomenda-se dar um
>>>> tempo de poucos segundos antes de sair da sala.';
>>>>           html += '<li>Ao acionar o bat?o especial ENCERRAR REUNI?O , o
>>>> texto REUNI?O FINALIZADA<br>';
>>>>           html += '   ? enviado ? sala e nenhuma nova mensagem ?
>>>> registrada pelo sistema.';
>>>>           html += '<li>? recomend?vel que os participantes imprimam a
>>>> ata de reuni?o ap?s esta a??o.<br>';
>>>>           html += '<li>Para ajuda de formata??o do texto mensagem , na
>>>> sala de reuni?o , acionar a tecla F1';
>>>>           html += '<li>Os documentos enviados ao servidor para serem
>>>> apresentados como anexo ,<br>  ser?o eliminados quando o sistema
>>>> operacional for reinicializado.<br>';
>>>>           html += '  Nota - O documento apresentado como anexo  , para
>>>> ser baixado no servidor , dever? ter<br>         no m?ximo 500 kbytes.';
>>>>           html += '</TABLE></FONT></B></PRE></BODY></HTML>';
>>>>           var newWindow =
>>>> window.open("","","scrollbars=auto,height="+altura1+",width="+largura1+",top="+t1+",left="+l1);
>>>>           newWindow.document.write(html);
>>>>           newWindow.document.close();
>>>>           event.cancelBubble = true;
>>>>           return false;
>>>> }
>>>> //-->
>>>> </script>
>>>> <style type="text/css"><!--
>>>> .multi_bg { background-image : linear-gradient(to right, rgba(30, 75,
>>>> 115, 0.5),  rgba(30, 75, 115, 0.5)); }
>>>> -->
>>>> </style>
>>>> </HEAD>
>>>>         <body onload="init(this.form)" onHelp="return showSalaHelp()"
>>>> BGCOLOR="#ADB6C6" TEXT="#003366" class="multi_bg">
>>>>         <form action="?entra" method="POST" name="form" target="entrar"
>>>> id="form" OnSubmit="return Entra(this)">
>>>>         <br>
>>>>         <strong><font color="#ffffff"
>>>> size="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<label
>>>> class='sombra'><b>Escolha um tema para
>>>> entrar</label></font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img
>>>> src="/reuniao/imagem/help.gif"
>>>> onClick="showSalaHelp();document.form.tema.focus()" WIDTH="18" HEIGHT="18"
>>>> style="cursor:pointer" title ="Ajuda do sistema">
>>>>         <br><br>
>>>>         <div align="center">
>>>>               <table>
>>>>                 <tr>
>>>>                    <!-- <td width="33%"><div align="right"><font
>>>> class="sombra"><font color="#ffffff"
>>>> size="2"><b>Usu&aacute;rio&nbsp;&nbsp;</b></font></div></td> -->
>>>>                   <td><input type="hidden" name="login" class="campo"
>>>> onFocus="document.form.tema.focus()" onHelp="return showSalaHelp()"></td>
>>>>                  </tr>
>>>>                 <tr>
>>>>                   <td><div align="right"><font class="sombra"><font
>>>> color="#ffffff" size="2"><b>Tema&nbsp;&nbsp;</b></font></div></td>
>>>>                   <td><input name="tema" type="text" class="campo"
>>>> id="tema" onHelp="return showSalaHelp()"></td>
>>>>                 </tr>
>>>>               </table><br>
>>>>               <table>
>>>>              <tr>
>>>>
>>>> <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
>>>>                  <td align="center" colspan=2><input type="submit"
>>>> value="Entrar" class="botao" STYLE='cursor: pointer;font-weight:bold'></td>
>>>>             </tr>
>>>>              </table><br>
>>>>         </div>
>>>> ?;&fim;}
>>>>
>>>> if ($qs eq "entra"){
>>>> if ($CAMPO{login} eq ""){
>>>> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
>>>> &topo;
>>>> print qq|<br>Voc? deve digitar um nome de usu?rio antes de entrar na
>>>> sala ! <br><br>
>>>> <div align="center">
>>>> <input type="button" class="botao2"
>>>> onClick="javascript:windows.close()" value="Fechar Janela"><br>
>>>> </div>
>>>> |;
>>>> &fim;
>>>> }else{
>>>> if ($CAMPO{tema} eq "" ){
>>>> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
>>>> &topo;
>>>> print qq|<br>Voc? deve digitar um tema antes de entrar na sala !
>>>> <br><br>
>>>> <div align="center">
>>>> <input type="button" class="botao2" onClick="javascript:window.close()"
>>>> value="Fechar Janela"><br>
>>>> </div>
>>>> |;
>>>> &fim;
>>>> }else{
>>>> if (-e "$CAMPO{tema}"."_"."$log"){
>>>> open(ONLINE,"$CAMPO{tema}_$online");
>>>> @online = <ONLINE>;
>>>> close(ONLINE);
>>>>
>>>> foreach (@online){
>>>> chomp;
>>>> s/%//gi;
>>>> if ($CAMPO{login} eq "$_"){
>>>> $repetido = "1";
>>>> }else{
>>>> $repetido = "0";
>>>> }}
>>>> if ($repetido eq "1"){
>>>> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
>>>> &topo;
>>>> print qq|<br>Este nome de usu?rio j? est? em uso! Por favor escolha
>>>> outro.<br><br>
>>>> <div align="center">
>>>> <input type="button" class="botao2" onClick="javascript:window.close()"
>>>> value="Fechar Janela"><br>
>>>> </div>
>>>> |;&fim;
>>>> }else{
>>>> open(MASTER,"$CAMPO{tema}_$master");
>>>> $master = <MASTER>;
>>>> close(MASTER);
>>>> chomp $master;
>>>> $master =~ s/%//gi;
>>>>
>>>> if ($CAMPO{login} eq $master){$a = "1";} else {$a = "0";}
>>>> open(ONLINE,">>$CAMPO{tema}_$online");
>>>> print ONLINE qq|%$CAMPO{login}%\n|;
>>>> close(ONLINE);
>>>>
>>>> open (SALA, ">>$CAMPO{tema}_$log");
>>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>>> close(SALA);
>>>>
>>>> open (SALA, ">>$CAMPO{tema}_$log2");
>>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>>> close(SALA);
>>>>
>>>> &topo;&msg;&fim;
>>>> }}else{
>>>>
>>>> open(MASTER,">$CAMPO{tema}_$master");
>>>> print MASTER qq|%$CAMPO{login}%\n|;
>>>> close(MASTER);
>>>>
>>>> open(ONLINE,">>$CAMPO{tema}_$online");
>>>> print ONLINE qq|%$CAMPO{login}%\n|;
>>>> close(ONLINE);
>>>>
>>>> open (SALA, ">>$CAMPO{tema}_$log");
>>>> print SALA qq|<div align="center"><font class="texto"><h5>ATA DA
>>>> REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
>>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>>> close(SALA);
>>>>
>>>> open (SALA, ">>$CAMPO{tema}_$log2");
>>>> print SALA qq|<div align="center"><font class="texto"><h5>ATA DA
>>>> REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
>>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>>> close(SALA);
>>>> $a = "1";
>>>> &topo;&msg;&fim;
>>>> }}}}
>>>>
>>>> if ($qs eq "escreve2"){
>>>> $CAMPO{msg} =~ tr/+/ /;
>>>> $CAMPO{msg} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>> $CAMPO{tema} =~ tr/+/ /;
>>>> $CAMPO{tema} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>> if ($CAMPO{msg} eq ""){
>>>> print qq|
>>>> <script language="Javascript">
>>>> <!--
>>>> alert ('Mensagem n?o informada')
>>>> //-->
>>>> </script>
>>>> <body
>>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>>> |;}else{
>>>>
>>>> if ($CAMPO{msg} eq "REUNI?O FINALIZADA"){
>>>>
>>>> open(LOG,">>$CAMPO{tema}"."_"."$log");
>>>> print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O
>>>> FINALIZADA</b></font></div><br>\n|;
>>>> close(LOG);
>>>>
>>>> open(LOG,">$CAMPO{tema}"."_"."$log2");
>>>> print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O
>>>> FINALIZADA</b></font></div><br>\n|;
>>>> close(LOG);
>>>>
>>>> print qq|
>>>> <body
>>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>>> |;
>>>> }else{
>>>>
>>>> open(LOG,"$CAMPO{tema}"."_"."$log");
>>>> @log = <LOG>;
>>>> close(LOG);
>>>> $r = "0";
>>>> foreach (@log){
>>>> chomp;
>>>> if($_ eq "<br><div align=\"center\"><font class=\"texto\"><b>REUNI?O
>>>> FINALIZADA</b></font></div><br>"){
>>>> $r = "1";
>>>> }}
>>>>
>>>> if ($r eq "1"){
>>>> print qq|
>>>> <body
>>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>>> |;
>>>> }else{
>>>>
>>>> open(LOG,">>$CAMPO{tema}"."_"."$log");
>>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp;
>>>> <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
>>>> close(LOG);
>>>> open(LOG,">>$CAMPO{tema}"."_"."$log2");
>>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp;
>>>> <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
>>>> close(LOG);
>>>> print qq|
>>>> <body
>>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>>> |;}}}}
>>>>
>>>> if ($qs =~ /imprimir/){
>>>> &imprimir;
>>>> }
>>>>
>>>> if ($qs =~ /logout/){
>>>> &logout;
>>>> }
>>>>
>>>> if ($qs =~ /principal/){
>>>> &principal;
>>>> }
>>>>
>>>> if ($qs =~ /principal2/){
>>>> &principal2;
>>>> }
>>>>
>>>> if ($qs =~ /todas/){
>>>> &todas;
>>>> }
>>>>
>>>> sub data{
>>>> ($seg,$min,$hr,$dia,$mes,$ano) = localtime();
>>>> if ($hr < "10"){$hr = "0$hr";}
>>>> if ($min < "10"){$min = "0$min";}
>>>> if ($seg < "10"){$seg = "0$seg";}
>>>>
>>>> @mes =
>>>> ("janeiro","fevereiro","mar?o","abril","maio","junho","julho","agosto","setembro","outubro","novembro","dezembro");
>>>> $ano = 1900+$ano;
>>>>
>>>> $data  = "$hr:$min:$seg, $dia de @mes[$mes] de $ano";
>>>> }
>>>>
>>>> sub fim{
>>>> open(FIM,"$fim");
>>>> @fim=<FIM>;
>>>> close(FIM);
>>>> print "@fim";
>>>> }
>>>>
>>>> sub imprimir {
>>>> $qs =~ s/imprimir=//;
>>>> $qs =~ tr/+/ /;
>>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>
>>>> open (LOG,"$qs"."_"."$log");
>>>> @log = <LOG>;
>>>> close(LOG);
>>>>
>>>> print qq|
>>>> <html>
>>>> <head>
>>>> <title>$titulo</title>
>>>> @style
>>>> </head>
>>>> <body onload="this.window.print()">
>>>> @log
>>>> </body>
>>>> |;}
>>>>
>>>> sub logout{
>>>> $qs =~ s/logout=//gi;
>>>> ($login,$tema) = split (/-/,$qs);
>>>> $login =~ tr/+/ /;
>>>> $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>> $tema =~ tr/+/ /;
>>>> $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>
>>>> open(LOG,">>$tema"."_"."$log2");
>>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b>
>>>> saiu da sala</b></font><br>\n|;
>>>> close(LOG);
>>>>
>>>> open(LOG,">>$tema"."_"."$log");
>>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b>
>>>> saiu da sala</b></font><br>\n|;
>>>> close(LOG);
>>>>
>>>> open(ONLINE,"$tema"."_"."$online");
>>>> @online = <ONLINE>;
>>>> close(ONLINE);
>>>>
>>>> @on = @online;
>>>> foreach (@on){
>>>> chomp;
>>>> if ($_ =~ /%$login%/){
>>>> s/$_//;
>>>> }}
>>>>
>>>> open(ONLINE,">$tema"."_"."$online");
>>>> print ONLINE qq|@on|;
>>>> close(ONLINE);
>>>>
>>>> open(ONLINE,"$tema"."_"."$online");
>>>> @online = <ONLINE>;
>>>> close(ONLINE);
>>>>
>>>> if (length ("@online") eq "0"){
>>>> unlink("$tema"."_"."$master");  ######################### aqui elimina
>>>> os arquivos de trabalho ###################################
>>>> unlink("$tema"."_"."$online");  #################   n?o est? sendo
>>>> executado no edge    ###########################################
>>>> unlink("$tema"."_"."$log2");
>>>> unlink("$tema"."_"."$log");
>>>> }else{}
>>>>
>>>> print qq|
>>>> <html>
>>>> <head>
>>>> <title>$titulo</title>
>>>> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
>>>> <script language="JavaScript">
>>>> function Logout(){
>>>> this.window.close()
>>>> }
>>>> </script>
>>>> </head>
>>>> <body onload="javascript:Logout()">
>>>> </body>
>>>> </html>
>>>> |;}
>>>>
>>>> sub msg{
>>>> $qs =~ tr/+/ /;
>>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>> open (LOG, "$qs"."_"."$log2");
>>>> @log = <LOG>;
>>>> close(LOG);
>>>>
>>>> $finalizado = "0";
>>>>
>>>> foreach (@log){
>>>> chomp;
>>>> print $_;
>>>> if ($_ eq "REUNI?O FINALIZADA"){
>>>> $finalizado = "1";
>>>> }}
>>>>
>>>> print qq|
>>>> <script language="JavaScript">
>>>> function Imprimir(){
>>>> altura =690;
>>>> largura= 1090;
>>>> l = (screen.width - largura)/2;
>>>> t = (screen.height - altura - 50)/2;
>>>> window.open("?imprimir=$CAMPO{tema}","","scrollbars,height="+altura+",width="+largura+",top="+t+",left="+l);
>>>>
>>>> }
>>>> function unLoad(){
>>>>
>>>> window.open("?logout=$CAMPO{login}-$CAMPO{tema}","","width=80,height=80")
>>>> }
>>>> </script>
>>>> <body onunLoad="unLoad()">
>>>> <table>
>>>> <tr><td>
>>>> <font class="texto1"><b> Usu?rio:
>>>> $CAMPO{login}</b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
>>>> </td><td>
>>>> &nbsp;<font class="texto1"><b> Tema: $CAMPO{tema}<br></b></font>
>>>> </td><td>
>>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>>> src="/reuniao/imagem/calculadora.gif" onClick="calculadora()" WIDTH="18"
>>>> HEIGHT="22" style="cursor:pointer" title ="Calculadora financeira">
>>>> </td><td>
>>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>>> src="/reuniao/imagem/Email.gif" onClick="email()" WIDTH="24" HEIGHT="20"
>>>> style="cursor:pointer" title ="Correspond?ncia interna">
>>>> </td><td>
>>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>>> src="/reuniao/imagem/acessorio.gif" onClick="acessorio()" WIDTH="24"
>>>> HEIGHT="20" style="cursor:pointer" title ="Acess?rios">
>>>> </td><TD>
>>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>>> src="/reuniao/imagem/alarme.gif" onClick="alarme()" WIDTH="24" HEIGHT="20"
>>>> style="cursor:pointer" title ="Alarme">
>>>> </td></tr></table>
>>>> <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe"
>>>> width="1010" height="480" style="overlap:auto"></iframe>
>>>> <iframe align="middle" src="?principal2=$CAMPO{tema}-$CAMPO{login}"
>>>> name="iframe2" width="1010" height="75" style="overlap:auto"></iframe>
>>>> <table>
>>>> <tr>
>>>> <td><input type="button" class="botao" value="Ata de reuni?o"
>>>> onClick="javascript:Imprimir()"
>>>> STYLE='cursor:pointer;font-weight:bold'></td>
>>>> <td>&nbsp;</td>
>>>> <td><div align="right">
>>>> <input type="button" class="botao2" value="Sair da Sala"
>>>> onClick="javascript:window.close()"
>>>> STYLE='cursor:pointer;font-weight:bold'></div></td>
>>>> <td>&nbsp;</td>
>>>> |;
>>>>
>>>> if($a eq "1"){print qq|<td><div align="center">
>>>> <form name="form" method="post" action="?escreve2" target="iframe2">
>>>>             <input name="msg"    type="hidden" size="80" class="campo"
>>>> value="REUNI?O FINALIZADA">
>>>>             <input name="login"  type="hidden" class="campo"
>>>> value="$CAMPO{login}">
>>>>             <input name="tema"   type="hidden" class="campo"
>>>> value="$CAMPO{tema}">
>>>>             <input type="submit" value="Encerrar Reuni?o" class="botao"
>>>> STYLE='cursor: pointer;font-weight:bold'>
>>>> </form>
>>>> </div>
>>>> </div></td></tr>|;}print qq|</table><br>|;}
>>>>
>>>> sub principal{
>>>> $qs =~ s/principal=//;
>>>> $qs =~ tr/+/ /;
>>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>
>>>> open (LOG, $qs."_".$log2);
>>>> @log = <LOG>;
>>>> close(LOG);
>>>>
>>>> $finalizado = "0";
>>>>
>>>> foreach (@log){
>>>> chomp;
>>>> if ($_ eq "REUNI?O FINALIZADA"){
>>>> $finalizado = "1";
>>>> }}
>>>> if ($finalizado eq "1"){print qq|
>>>> <font class="texto">
>>>> A REUNI?O FOI FINALIZADA. VOC? PODE IMPRIMIR OU VISUALIZAR O RELAT?RIO
>>>> </font>|;
>>>>
>>>> }else{print qq|
>>>> <html>
>>>> <head>
>>>>
>>>> @style
>>>> <script language="JavaScript">
>>>> <!--
>>>>    function scroll() {
>>>>      if( document.body && document.body.clientHeight ) {
>>>>        window.innerHeight = document.body.clientHeight
>>>>      }
>>>>      window.scrollTo( 0, (window.innerHeight/0.1) )
>>>>    }
>>>>
>>>>     function focus(){
>>>>       document.form.msg.focus()
>>>>     }
>>>>
>>>>     function enter(string){
>>>>              insertAtCaret(document.form.msg,string);
>>>>              focus()
>>>>     }
>>>>
>>>>    function insertAtCaret (textObj, textFeildValue) {
>>>>        if(document.all){
>>>>             if (textObj.createTextRange && textObj.caretPos) {
>>>>                 var caretPos = textObj.caretPos;
>>>>                 caretPos.text =
>>>> caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?textFeildValue + ' '
>>>> : textFeildValue;
>>>>             }else{
>>>>                 textObj.value = textFeildValue;
>>>>             }
>>>>       }else{
>>>>             if(textObj.setSelectionRange){
>>>>                var rangeStart = textObj.selectionStart;
>>>>                var rangeEnd = textObj.selectionEnd;
>>>>                var tempStr1 = textObj.value.substring(0,rangeStart);
>>>>                var tempStr2 = textObj.value.substring(rangeEnd);
>>>>                textObj.value = tempStr1 + textFeildValue + tempStr2;
>>>>            }else{
>>>>                alert("Esta vers?o do navegador n?o suporta
>>>> setSelectionRange");
>>>>            }
>>>>      }
>>>>   }
>>>>
>>>>    function clear_field(){
>>>>       document.form.msg.value = ''
>>>>       document.form.msg.focus()
>>>>       document.form.msg.select()
>>>>    }
>>>>
>>>>    function anexar(){
>>>>              altura = 450;
>>>>              largura= 700;
>>>>              l = (screen.width - largura)/2;
>>>>              t = (screen.height - altura - 50)/2;
>>>>              var html =  '<HTML><HEAD><TITLE></TITLE>'
>>>>                  html += '</HEAD><BODY
>>>> background="/reuniao/imagem/papel.jpg"  TEXT="#000066">'
>>>>                  html += '<BR><BR><BR><table
>>>> align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px
>>>> 4px #000, 0 0 0 #000, 2px 4px 6px #000">Apresentar documento como
>>>> anexo</label></h3></th></tr></table><br><br>'
>>>>                  html += '<FORM NAME="anexo" METHOD="POST"
>>>> ACTION="/reuniao/temp/upload.plx" ENCTYPE="multipart/form-data">'
>>>>                  html += '<br>'
>>>>                  html += '<TABLE align=center>'
>>>>                  html += '<tr>'
>>>>                  html += '<td><input type="file" name="arquivo"
>>>> size="60" maxlength="90"></td>'
>>>>                  html += '</tr>'
>>>>                  html += '</table>'
>>>>                  html += '<br><br><br>'
>>>>                  html += '<TABLE align=center>'
>>>>                  html += '<tr>'
>>>>                  html += '<td bgcolor=#ADB6C6><input type="submit"
>>>> value="    Processa    " style="color: white; text-shadow: 1px 2px 4px
>>>> #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
>>>>                  html += '</TR>'
>>>>                  html += '</table>'
>>>>                  html += '</form>'
>>>>                  html += '</body>'
>>>>                  html += '</html>'
>>>>              var newWindow =
>>>> window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
>>>>              newWindow.document.write(html)
>>>>              newWindow.document.close()
>>>>              focus()
>>>>              return false
>>>>    }
>>>>
>>>>    function publicar(){
>>>>              altura = 450;
>>>>              largura= 700;
>>>>              l = (screen.width - largura)/2;
>>>>              t = (screen.height - altura - 50)/2;
>>>>              var html =  '<HTML><HEAD><TITLE></TITLE>'
>>>>                  html += '</HEAD><BODY
>>>> background="/reuniao/imagem/papel.jpg"  TEXT="#ffffff">'
>>>>                  html += '<BR><BR><BR><table
>>>> align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px
>>>> 4px #000, 0 0 0 #000, 2px 4px 6px #000">Ponto de publica??o
>>>> web</label></h3></th></tr></table><br><br>'
>>>>                  html += '<FORM NAME="publica" METHOD="POST"
>>>> ACTION="/reuniao/temp/publica.plx">'
>>>>                  html += '<br>'
>>>>                  html += '<TABLE align=center>'
>>>>                  html += '<tr>'
>>>>                  html += '<td><input type="text" name="http" size="60"
>>>> maxlength="90" value = "http://"></td>'
>>>>                  html += '</tr>'
>>>>                  html += '</table>'
>>>>                  html += '<br><br><br>'
>>>>                  html += '<TABLE align=center>'
>>>>                  html += '<tr>'
>>>>                  html += '<td bgcolor=#ADB6C6><input type="submit"
>>>> value="    Processa    " style="color: white; text-shadow: 1px 2px 4px
>>>> #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
>>>>                  html += '</TR>'
>>>>                  html += '</table>'
>>>>                  html += '</form>'
>>>>                  html += '</body>'
>>>>                  html += '</html>'
>>>>              var newWindow =
>>>> window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
>>>>              newWindow.document.write(html)
>>>>              newWindow.document.close()
>>>>              focus()
>>>>              return false
>>>>    }
>>>>
>>>>   function showMsgHelp() {
>>>>       alert("                            SALA DE REUNI?O
>>>> ONLINE\\n\\nMensagem -> Campo alfa num?rico com tamanho de 300 caracteres e
>>>> diferente de espa?o.\\n\\nNota - ? recomend?vel que uma linha de mensagem
>>>> tenha no m?ximo 80 caracteres visando dar maior clareza no relat?rio ATA DE
>>>> REUNI?O.\\n\\nTAGS ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\n<br> - Salto de
>>>> linha\\n<p> - Salto de par?grafo\\n<b>texto</b> - Texto em negrito\\n<font
>>>> size=4>texto</font> - Texto com fonte igual a 4 pixel\\n<font
>>>> color=red>texto</font> - Texto com cor em vermelho\\n<i>texto</i> - Texto
>>>> em it?lico\\n<u>texto</u> - Texto sublinhado\\n<sub>texto</sub> - Texto
>>>> subscrito\\n<sup>texto</sup> - Texto
>>>> sobrescrito\\n<ol><li>texto1<li>texto2<li>texto3</ol> - Lista num?rica dos
>>>> textos\\n<li>texto1<li>texto2<li>texto3 - Marca??o dos textos\\n\\nNota -
>>>> Os par?metros de formata??o de texto podem ser utilizados
>>>> simultaneamente.\\n\\n                EXEMPLO DE UTILIZA??O\\n\\nOl? sr(s)
>>>> , bom dia a todos<br>Vamos dicurtir a <font size=3 color=red><b>Aquisi??o
>>>> do im?vel em S?o Paulo.</b></font><br>O Paulo vai nos descrever as
>>>> alternativas que dispomos.\\n\\n\\nFUN??ES ESPECIAIS PARA FORMATA??O DE
>>>> TEXTO\\n\\nLimpa -      Move espa?o para o campo mensagem\\nLinha -
>>>> Move <br> para o campo mensagem para quebrar linha\\nLista -        Move
>>>> marcador <li> para o campo mensagem com salto de linha\\nNum?rico Move
>>>> marcador <ol> para o campo mensagem\\nCola -        Coloca texto da ?rea de
>>>> transfer?ncia no campo mensagem\\nAnexa -     Disponibiliza documento como
>>>> um anexo para apresenta??o\\nPublica -   Disponibiliza um link de acesso
>>>> referente a uma publica??o na internet\\nReal?a -    Evid?ncia uma parte do
>>>> texto selecionado no campo mensagem\\nSublinha - Real?a um texto
>>>> selecionado no campo mensagem sublinhando-o")
>>>>       event.cancelBubble = true
>>>>       return false
>>>>   }
>>>>
>>>> //-->
>>>> </script>
>>>> </head>
>>>> <body>
>>>> @log
>>>> </body>
>>>> </html>|;
>>>> }}
>>>>
>>>> sub principal2 {
>>>> $qs =~ s/principal2=//;
>>>> ($tema,$login) = split (/-/,$qs);
>>>> $tema =~ tr/+/ /;
>>>> $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>> $login =~ tr/+/ /;
>>>> $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>
>>>> print qq|
>>>> @style
>>>>
>>>> <body  onLoad="document.form.msg.focus()" onHelp="return showMsgHelp()"
>>>> class="table3" leftmargin="0" topmargin="0" marginwidth="0"
>>>> marginheight="0">
>>>> <div align="center">
>>>> <table>
>>>>   <tr>
>>>>     <td> &nbsp;</td>
>>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/clear.png"
>>>> onClick="clear_field()"   WIDTH="24" HEIGHT="20" style="cursor:pointer"
>>>> title ="Limpar campo mensagem"  STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/linha.png"
>>>> onClick="enter('<br>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
>>>> title ="Salto de linha"  STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/lista.gif"
>>>> onClick="enter('<li>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
>>>> title ="Marcador de lista"  STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/nlist.gif"
>>>> onClick="enter('<ol>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
>>>> title ="Marcador num?rico"  STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?   "
>>>> onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/anexo.png"
>>>> onClick="anexar()"      WIDTH="20" HEIGHT="20" style="cursor:pointer" title
>>>> ="Anexar docto"  STYLE='cursor: pointer; font-family: Arial, Helvetica,
>>>> sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/wlink.gif"
>>>> onClick="publicar()"    WIDTH="20" HEIGHT="20" style="cursor:pointer" title
>>>> ="Publicar um link da internet"  STYLE='cursor: hand; font-family: Arial,
>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/help.gif"
>>>> onClick="showMsgHelp()" WIDTH="18" HEIGHT="18" style="cursor:pointer" title
>>>> ="Ajuda do sistema"  STYLE='cursor: pointer; font-family: Arial, Helvetica,
>>>> sans-serif; font-size: 10px; border-width:
>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>> </tr>
>>>> </table><br>
>>>> <table  align="center">
>>>>   <tr>
>>>>     <td class="texto"><form name="form" method="post"
>>>> action="?escreve2">
>>>>           <div align="center"><b><font size=2><label
>>>> class='sombra'>&nbsp; Mensagem &nbsp; </label></b></fonte>
>>>>             <input name="msg"     type="text"      class="campo"
>>>> size="120" maxlength="300" onHelp="return showMsgHelp()">
>>>>             <input name="login"   type="hidden"    class="campo"
>>>> value="$login">
>>>>             <input name="tema"    type="hidden"    class="campo"
>>>> value="$tema">
>>>>             <input type="submit"  value="Enviar"   class="botao"
>>>> >
>>>>           </div>
>>>>     </td>
>>>>   </tr>
>>>> </table>
>>>> </form>
>>>> </div>
>>>> </body>
>>>> |;}
>>>>
>>>> sub style{
>>>> open(STYLE, "$estilos");
>>>> @style = <STYLE>;
>>>> close(STYLE);
>>>> }
>>>>
>>>> sub todas{
>>>> $qs =~ s/todas=//;
>>>> $qs =~ tr/+/ /;
>>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>
>>>> open (LOG, $qs."_".$log);
>>>> @log = <LOG>;
>>>> close(LOG);
>>>>
>>>> print qq|
>>>> <meta http-equiv="refresh" content="5,?todas"/> #####################
>>>> aqui reenvia mensagens para os participantes #############################
>>>> @style
>>>> <script>
>>>> <!--
>>>>   function rolar() {
>>>>     if( document.body && document.body.clientHeight ) {
>>>>       window.innerHeight = document.body.clientHeight
>>>>     }
>>>>     window.scrollTo( 0, (window.innerHeight/0.1) );
>>>>   }
>>>> //-->
>>>> </script>
>>>> <body onLoad="javascript:rolar()">
>>>> @log|;}
>>>>
>>>> sub topo{
>>>> open(TOPO,"$topo");
>>>> @topo=<TOPO>;
>>>> close(TOPO);
>>>> print "@topo";
>>>> }
>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> Thank you very much!
>>
>> -dom
>>
>> --
>>
>> Daniel de Oliveira Mantovani
>> Business Analytic Specialist
>> Perl Evangelist /Astrophysics hobbyist.
>> +55 11 9 8538-9897
>> XOXO
>>
>
>
>
> --
> Thank you very much!
>
> -dom
>
> --
>
> Daniel de Oliveira Mantovani
> Business Analytic Specialist
> Perl Evangelist /Astrophysics hobbyist.
> +55 11 9 8538-9897
> XOXO
>
> ------------------------------
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
> ------------------------------
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
> ------------------------------
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Thank you very much!

-dom

--

Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist.
+55 11 9 8538-9897
XOXO
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160111/2edb894f/attachment-0001.html>

From lucasmateus.oliveira at gmail.com  Mon Jan 11 15:26:01 2016
From: lucasmateus.oliveira at gmail.com (Lucas Mateus)
Date: Mon, 11 Jan 2016 21:26:01 -0200
Subject: [SP-pm] script perl no windows 10
In-Reply-To: <CAEmYuOtc4W7QT2jo0tBPZdeB9RbHhYFDU8vu+noMF8cVLfn0iw@mail.gmail.com>
References: <COL126-DS17DB8FE31F840F40B9D68292C90@phx.gbl>
	<CAPpv0_oJAxED39CB8g8LwBr1No6j1UUOgMmyfwFwY1XjBCqEpQ@mail.gmail.com>
	<CAEmYuOtA_r3qjLC1qBu+u_rheT-7=3zJf=k-Av219PpPsGajBw@mail.gmail.com>
	<CAEmYuOt2YFQbcwB-Ma5nBO+38ep79d7GMmsChkLVuBzK4bXh7w@mail.gmail.com>
	<COL126-DS5D77FB563308C656D1BD892C90@phx.gbl>
	<COL126-DS233328F8A858D8000AA7892C90@phx.gbl>
	<COL126-DS12BC4E7DA59D0D8F61764492C90@phx.gbl>
	<CAEmYuOtc4W7QT2jo0tBPZdeB9RbHhYFDU8vu+noMF8cVLfn0iw@mail.gmail.com>
Message-ID: <CACLgUQ+i45KLochJxu9tsEXqWHdfX71hUGGh6F3NqsyCa6x_gw@mail.gmail.com>

Kleber, de fato ? muito dif?cil te ajudar sem o ambiente prop?cio para
teste e debug. Se estiver disposto, use o SocketIO se come?ar agora VC
implementa um chat descente em 2h te garanto.
Em 11 de jan de 2016 9:16 PM, "Daniel de Oliveira Mantovani" <
daniel.oliveira.mantovani at gmail.com> escreveu:

> Opa Kleber, desculpa se eu passei a mensagem errada. Na verdade, o que eu
> quis dizer ? que independente da qualidade do seu software, hoje existem
> muitas op??es de softwares/servi?os maduros gratuitos. Apenas se existisse
> uma regra de neg?cio "fora de s?rie", seria justific?vel. Inclusive,
> existem ?timas op??es que oferecerem a possibilidade do usu?rio se conectar
> atrav?s do aparelho telef?nico m?vel. Voc? por exemplo pode criar um canal
> de IRC criptografado e com senha, onde os usu?rios podem escolher o
> aplicativo do aparelho telef?nico m?vel que mais lhe agrada.
>
> Eu entendo a sua "perspic?cia" em achar esse grupo espec?fico de
> programadores Perl, independente da fonte. Por?m, a nossa lista ? parecida
> com uma lista de especialistas/apaixonados em/por carros. Onde as pessoas
> perguntam, "Qual o melhor material para construir carros de F?rmula 1 que
> consigam aproveitar mais a chuva em temperaturas entre 10?C~12?C ?".  E a
> sua pergunta foi, "Pessoal, olha esse carro aqui quebrou... Voc?s podem
> arrumar pra mim de gra?a, por favor ?". Na verdade, voc? n?o precisa ser um
> especialista para unir-se a n?s. Muita gente que est? come?ando, felizmente
> tamb?m nos acha. Que foi o meu caso pessoal, eu queria entender um exploit
> que se eu me lembro bem derrubava servidores de Counter-Strike.
>
> Eu perfeitamente entendo que voc? n?o teve m? inten??o, por isso eu te
> convido ? aprender Perl. N?s podemos te orientar em real-time no nosso
> canal de IRC, #sao-paulo.pm irc.perl.org 24H//7 (Nem sempre a resposta ?
> imediata, mas ? um ambiente colaborativo onde todos s?o muito bem vindos.
> N?s temos bastante conte?do em portugu?s, incluindo artigo, manuais, livros
> etc.)
>
> Seja muito bem-vindo!
>
>
> 2016-01-11 20:35 GMT-02:00 kleber caetano <payback at hotmail.com.br>:
>
>> Me perdoem em insistir neste assunto.
>> Mais uma informa??o que talvez seja importante :
>>
>> Parece que o script envia informa??es vazias ou seja as mensagens que
>> estavam na tema desaparecem.
>> ( a parte da tela que apresenta as mensagens ficam em branco inclusive o
>> tema da reuni?o ----> acho que ?
>> <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe"
>> width="1010" height="480" style="overlap:auto"></iframe> ).
>>
>> *From:* kleber caetano <payback at hotmail.com.br>
>> *Sent:* Monday, January 11, 2016 8:09 PM
>> *To:* saopaulo-pm at mail.pm.org
>> *Subject:* Re: [SP-pm] script perl no windows 10
>>
>> Mais uma informa??o que talvez seja importante aos amigos :
>>
>> Apesar de n?o estar apresentando as mensagens aos participantes da sala ,
>> as mensagens enviadas pelos usu?rios s?o gravadas nos arquivos de
>> trabalho.
>> ( ? poss?vel constatar isto ).
>>
>> *From:* kleber caetano <payback at hotmail.com.br>
>> *Sent:* Monday, January 11, 2016 7:16 PM
>> *To:* saopaulo-pm at mail.pm.org
>> *Subject:* Re: [SP-pm] script perl no windows 10
>>
>> Agrade?o a gentiliza em responder.
>> O Daniel me esculhambou ( rsrsrsrsrss ).
>> Apesar do script n?o ser bem elaborado ou estruturado , ele ? simples e
>> ?til ( gostaria de tentar acertar o erro ).
>>
>> Implementei as sugest?o do Daniel e do Lucas [ setInterval(function(){
>> window.location.href = '?todas' }, 5000); ]
>> e o problema passou a ocorrer tamb?m no internet explorer 11( n?o enviou
>> as mensagens para os participantes ).
>>
>> Pelo que eu entendo deste script , a a??o reload envia as mensagens para
>> <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe"
>> width="1010" height="480" style="overlap:auto"></iframe>
>> e com setInterval n?o chegou ( porque n?o chegou l? ).
>>
>> Talvez isto ajude a analisar o problema.
>>
>>
>> *From:* Daniel de Oliveira Mantovani
>> <daniel.oliveira.mantovani at gmail.com>
>> *Sent:* Monday, January 11, 2016 6:12 PM
>> *To:* saopaulo-pm at mail.pm.org
>> *Subject:* Re: [SP-pm] script perl no windows 10
>>
>> S? refor?ando o que eu disse, eu j? achei uma falha de seguran?a, onde
>> voc? abre um descritor de arquivos com dois argumentos. *Possivelmente*
>> em algum desses "opens" um dos argumentos vem do usu?rio.
>>
>>
>> https://www.securecoding.cert.org/confluence/pages/viewpage.action?pageId=76775519
>>
>> On Mon, Jan 11, 2016 at 5:36 PM, Daniel de Oliveira Mantovani <
>> daniel.oliveira.mantovani at gmail.com> wrote:
>>
>>> Eu fortemente te aconselho a jogar isso fora, e usar o Google Hangout ou
>>> qualquer uma das milh?es de solu??es gr?tis que resolvem isso.
>>>
>>> 2016-01-11 17:33 GMT-02:00 Lucas Moraes <lucastiagodemoraes at gmail.com>:
>>>
>>>> Aconselho voc? atualizar a pagina com javascript.
>>>>
>>>> setInterval(function(){ window.location.href = '?todas' }, 5000);
>>>>
>>>> Falou.
>>>>
>>>> Em 11 de janeiro de 2016 17:26, kleber caetano <payback at hotmail.com.br>
>>>> escreveu:
>>>>
>>>>> Ol? Sr(s),
>>>>>
>>>>> Migrei para o windows 10 e estou tendo um problema com um aplicativo
>>>>> em perl quando utilizo o edge ,
>>>>> entretanto , quando utilizo o explorer 11 o aplicativo ? executado
>>>>> normalmente.
>>>>>
>>>>> Nota[1] - Este aplicativo refere-se a um chat ( sala de reuni?o online
>>>>> ).
>>>>>
>>>>> O problema ( no edge ) ocorre quando :
>>>>>
>>>>> - Ele reenvia as mensagens ( atrav?s do comando <meta
>>>>> http-equiv="refresh" content="5,?todas"/> )  para
>>>>>   os participantes da sala de reuni?o ou seja n?o est? enviando nada.
>>>>> - Quando ? encerrada a reuni?o , o aplicativo elimina os arquivos de
>>>>> trabalho , por?m , no edge isto
>>>>>   n?o est? acontecendo.
>>>>>
>>>>> Nota[2] - No explorer 11 estes problemas n?o ocorrem.
>>>>>
>>>>> Nota[3] - O script em perl  foi desenvolvido por um amigo que conhecia
>>>>> bastante perl
>>>>>                entretanto meu conhecimento ? limitado.
>>>>>
>>>>> Nota[4] ? Estou trabalhando com
>>>>> ActivePerl-5.16.3.1603-MSWin32-x86-296746
>>>>>
>>>>> Nota[5] ? Caso considerem necess?rio , tenho como disponibilizar um
>>>>> link de acesso a este site sala.cgi
>>>>>
>>>>> Nota[6] - Quando instalei o windows 10 , o reload autom?tico
>>>>> funcionava , entretanto ,
>>>>>                 ao realizar uma manuten??o grande ( nova vers?o acho )
>>>>> o problema apareceu.
>>>>>                 O problema de n?o eliminar os arquivos tempor?rio de
>>>>> trabalho existem
>>>>>                 desde a instala??o inicial do windows 10
>>>>> Nota[7] ? coloquei duas marcas no script onde eu acho que as fun??es
>>>>> s?o executadas:
>>>>>
>>>>> ######################### aqui elimina os arquivos de trabalho
>>>>> ###################################
>>>>>
>>>>> ##################### aqui reenvia mensagens para os participantes
>>>>> #############################
>>>>>
>>>>> Algu?m sabe como resolver isto ?
>>>>>
>>>>> Agrade?o a aten??o ,
>>>>>
>>>>> kleber
>>>>>
>>>>>
>>>>> =================================================================================================
>>>>>                                                          script em
>>>>> perl  ( sala.cgi )
>>>>>
>>>>> =================================================================================================
>>>>> #!perl
>>>>> print "Content-type:text/html\n\n";
>>>>> use CGI::Carp(fatalsToBrowser);
>>>>>
>>>>>
>>>>> ###############################################################################################
>>>>> #                                     CONFIGURA??ES
>>>>> GERAIS
>>>>> #
>>>>> #
>>>>> #
>>>>> $titulo = "Sala de Reuni?o Online";        # T?tulo do
>>>>> script
>>>>> #
>>>>> $master = "master.log";                         # Arquivo tempor?rio a
>>>>> guardar primeiro usu?rio                                              #
>>>>> $log    = "logs.log";                                # Arquivo
>>>>> tempor?rio de logs
>>>>> totais                                                                    #
>>>>> $log2   = "logs2.log";                            # Arquivo tempor?rio
>>>>> de logs da
>>>>> sess?o                                                              #
>>>>> $online = "online.log";                         # Arquivo tempor?rio
>>>>> com nomes dos usu?rios Online                                        #
>>>>> $estilos= "estilos.css";                        # Arquivo com os
>>>>> estilos dentro da pasta
>>>>> modelos                                              #
>>>>> $topo   = "topo.html";                         # Template do
>>>>> Topo
>>>>> #
>>>>> $fim    = "fim.html";                           # Template do
>>>>> Fim
>>>>> #
>>>>> #
>>>>> #
>>>>> #
>>>>> #
>>>>> #                                     FIM DAS
>>>>> CONFIGURA??ES
>>>>> #
>>>>>
>>>>> ###############################################################################################
>>>>>
>>>>> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>>>>> @conteudo = split(/&/, $buffer);
>>>>> foreach $par (@conteudo) {
>>>>>         ($campo, $valor) = split(/=/, $par);
>>>>>         $valor =~ tr/+/ /;
>>>>>         $valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>         $CAMPO{$campo} = $valor;
>>>>>     }
>>>>>
>>>>> $qs = "$ENV{QUERY_STRING}";
>>>>> &data;
>>>>> &style;
>>>>> if ($qs eq ""){
>>>>> print qq|
>>>>> <BR><BR><BR><BR><BR><BR><BR>
>>>>> |;
>>>>> &topo;
>>>>> print qq?
>>>>> <script language="JavaScript">
>>>>> <!--
>>>>> altura = 690;
>>>>> largura= 1090;
>>>>> l = (screen.width - largura)/2;
>>>>> t = (screen.height - altura - 50)/2;
>>>>> var flag = "";
>>>>> var idioma=1;
>>>>> var strCookie='payback';
>>>>>
>>>>> function LerCookie(strCookie) {
>>>>>     var strNomeIgual = strCookie + "=";
>>>>>     var arrCookies = document.cookie.split(';');
>>>>>     for(var i = 0; i < arrCookies.length; i++)
>>>>>     {
>>>>>         var strValorCookie = arrCookies[i];
>>>>>         while(strValorCookie.charAt(0) == ' ')
>>>>>         {
>>>>>             strValorCookie = strValorCookie.substring(1,
>>>>> strValorCookie.length);
>>>>>         }
>>>>>         if(strValorCookie.indexOf(strNomeIgual) == 0)
>>>>>         {
>>>>>             var mensagem=strValorCookie.substring(strNomeIgual.length,
>>>>> strValorCookie.length);
>>>>>             flag = mensagem;
>>>>>             mensagem ='';
>>>>>             return;
>>>>>         }
>>>>>     }
>>>>>     alert ( '!!!! Erro cr?tico : N?o foi poss?vel restaurar ?rea de
>>>>> transfer?ncia' );
>>>>>     top.location.href = "/payback/index.htm";
>>>>> };
>>>>> function init(form) {
>>>>>               LerCookie(strCookie);
>>>>>               if (flag != null ) {
>>>>>                  flag = flag.split('|');
>>>>>                  document.form.login.value = flag[9];
>>>>>               }
>>>>>               document.form.tema.focus();
>>>>> }
>>>>> function Entra(form) {
>>>>>         if (document.form.tema.value.length == 0)  {
>>>>>             alert("O tema da reuni?o n?o foi informado");
>>>>>             document.form.tema.focus();
>>>>>             document.form.tema.select();
>>>>>             return false;
>>>>>         }
>>>>>         novajanela = window.open("", "entrar",
>>>>> "scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l);
>>>>>
>>>>>         return true;
>>>>> }
>>>>> function showSalaHelp() {
>>>>>       altura1=400;
>>>>>       largura1= 800;
>>>>>       l1 = (screen.width - largura + 250)/2;
>>>>>       t1 = (screen.height - altura + 250)/2;
>>>>>       var html = '<HTML><HEAD><TITLE></TITLE></HEAD>';
>>>>>           html += '<BODY background="/reuniao/imagem/papel.jpg"
>>>>> TEXT="#000066"><br><table align=center><tr><td><h4><b>SALA &nbsp;  DE
>>>>> &nbsp;  REUNI?O &nbsp;  ONLINE
>>>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></h4></td></tr></table><br><TABLE
>>>>> ALIGN=CENTER><font size=2><TR><TD><PRE><b>';
>>>>>           html += '<li>O dado usu?rio deve ser ?nico por sala.';
>>>>>           html += '<li>O dado tema da reuni?o ser? o ponto de encontro
>>>>> dos participantes na sala.<br>';
>>>>>           html += '   Este texto n?o pode conter espa?o , por exemplo
>>>>> , informar Aquisi??o_de_Filial';
>>>>>           html += '<li>O sistema diferencia letra mai?scula de
>>>>> min?scula para identifica??o da sala.';
>>>>>           html += '<li>Cada sala ter? um ?nico tema n?o tendo
>>>>> limita??es de quantidade de aberturas de<br>';
>>>>>           html += '   salas e participantes.<br>';
>>>>>           html += '<li>O usu?rio que abrir a sala ou seja o primeiro a
>>>>> entrar receber? uma tarefa de<br>';
>>>>>           html += '  encerrar a reuni?o ( bot?o especial ).<br>  Este
>>>>> usu?rio , ao sair da sala , provocar? a elimina??o dos arquivos que
>>>>> registram<br>  os textos digitados.<br>  Portanto , recomenda-se dar um
>>>>> tempo de poucos segundos antes de sair da sala.';
>>>>>           html += '<li>Ao acionar o bat?o especial ENCERRAR REUNI?O ,
>>>>> o texto REUNI?O FINALIZADA<br>';
>>>>>           html += '   ? enviado ? sala e nenhuma nova mensagem ?
>>>>> registrada pelo sistema.';
>>>>>           html += '<li>? recomend?vel que os participantes imprimam a
>>>>> ata de reuni?o ap?s esta a??o.<br>';
>>>>>           html += '<li>Para ajuda de formata??o do texto mensagem , na
>>>>> sala de reuni?o , acionar a tecla F1';
>>>>>           html += '<li>Os documentos enviados ao servidor para serem
>>>>> apresentados como anexo ,<br>  ser?o eliminados quando o sistema
>>>>> operacional for reinicializado.<br>';
>>>>>           html += '  Nota - O documento apresentado como anexo  , para
>>>>> ser baixado no servidor , dever? ter<br>         no m?ximo 500 kbytes.';
>>>>>           html += '</TABLE></FONT></B></PRE></BODY></HTML>';
>>>>>           var newWindow =
>>>>> window.open("","","scrollbars=auto,height="+altura1+",width="+largura1+",top="+t1+",left="+l1);
>>>>>           newWindow.document.write(html);
>>>>>           newWindow.document.close();
>>>>>           event.cancelBubble = true;
>>>>>           return false;
>>>>> }
>>>>> //-->
>>>>> </script>
>>>>> <style type="text/css"><!--
>>>>> .multi_bg { background-image : linear-gradient(to right, rgba(30, 75,
>>>>> 115, 0.5),  rgba(30, 75, 115, 0.5)); }
>>>>> -->
>>>>> </style>
>>>>> </HEAD>
>>>>>         <body onload="init(this.form)" onHelp="return showSalaHelp()"
>>>>> BGCOLOR="#ADB6C6" TEXT="#003366" class="multi_bg">
>>>>>         <form action="?entra" method="POST" name="form"
>>>>> target="entrar" id="form" OnSubmit="return Entra(this)">
>>>>>         <br>
>>>>>         <strong><font color="#ffffff"
>>>>> size="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<label
>>>>> class='sombra'><b>Escolha um tema para
>>>>> entrar</label></font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img
>>>>> src="/reuniao/imagem/help.gif"
>>>>> onClick="showSalaHelp();document.form.tema.focus()" WIDTH="18" HEIGHT="18"
>>>>> style="cursor:pointer" title ="Ajuda do sistema">
>>>>>         <br><br>
>>>>>         <div align="center">
>>>>>               <table>
>>>>>                 <tr>
>>>>>                    <!-- <td width="33%"><div align="right"><font
>>>>> class="sombra"><font color="#ffffff"
>>>>> size="2"><b>Usu&aacute;rio&nbsp;&nbsp;</b></font></div></td> -->
>>>>>                   <td><input type="hidden" name="login" class="campo"
>>>>> onFocus="document.form.tema.focus()" onHelp="return showSalaHelp()"></td>
>>>>>                  </tr>
>>>>>                 <tr>
>>>>>                   <td><div align="right"><font class="sombra"><font
>>>>> color="#ffffff" size="2"><b>Tema&nbsp;&nbsp;</b></font></div></td>
>>>>>                   <td><input name="tema" type="text" class="campo"
>>>>> id="tema" onHelp="return showSalaHelp()"></td>
>>>>>                 </tr>
>>>>>               </table><br>
>>>>>               <table>
>>>>>              <tr>
>>>>>
>>>>> <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
>>>>>                  <td align="center" colspan=2><input type="submit"
>>>>> value="Entrar" class="botao" STYLE='cursor: pointer;font-weight:bold'></td>
>>>>>             </tr>
>>>>>              </table><br>
>>>>>         </div>
>>>>> ?;&fim;}
>>>>>
>>>>> if ($qs eq "entra"){
>>>>> if ($CAMPO{login} eq ""){
>>>>> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
>>>>> &topo;
>>>>> print qq|<br>Voc? deve digitar um nome de usu?rio antes de entrar na
>>>>> sala ! <br><br>
>>>>> <div align="center">
>>>>> <input type="button" class="botao2"
>>>>> onClick="javascript:windows.close()" value="Fechar Janela"><br>
>>>>> </div>
>>>>> |;
>>>>> &fim;
>>>>> }else{
>>>>> if ($CAMPO{tema} eq "" ){
>>>>> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
>>>>> &topo;
>>>>> print qq|<br>Voc? deve digitar um tema antes de entrar na sala !
>>>>> <br><br>
>>>>> <div align="center">
>>>>> <input type="button" class="botao2"
>>>>> onClick="javascript:window.close()" value="Fechar Janela"><br>
>>>>> </div>
>>>>> |;
>>>>> &fim;
>>>>> }else{
>>>>> if (-e "$CAMPO{tema}"."_"."$log"){
>>>>> open(ONLINE,"$CAMPO{tema}_$online");
>>>>> @online = <ONLINE>;
>>>>> close(ONLINE);
>>>>>
>>>>> foreach (@online){
>>>>> chomp;
>>>>> s/%//gi;
>>>>> if ($CAMPO{login} eq "$_"){
>>>>> $repetido = "1";
>>>>> }else{
>>>>> $repetido = "0";
>>>>> }}
>>>>> if ($repetido eq "1"){
>>>>> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
>>>>> &topo;
>>>>> print qq|<br>Este nome de usu?rio j? est? em uso! Por favor escolha
>>>>> outro.<br><br>
>>>>> <div align="center">
>>>>> <input type="button" class="botao2"
>>>>> onClick="javascript:window.close()" value="Fechar Janela"><br>
>>>>> </div>
>>>>> |;&fim;
>>>>> }else{
>>>>> open(MASTER,"$CAMPO{tema}_$master");
>>>>> $master = <MASTER>;
>>>>> close(MASTER);
>>>>> chomp $master;
>>>>> $master =~ s/%//gi;
>>>>>
>>>>> if ($CAMPO{login} eq $master){$a = "1";} else {$a = "0";}
>>>>> open(ONLINE,">>$CAMPO{tema}_$online");
>>>>> print ONLINE qq|%$CAMPO{login}%\n|;
>>>>> close(ONLINE);
>>>>>
>>>>> open (SALA, ">>$CAMPO{tema}_$log");
>>>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>>>> close(SALA);
>>>>>
>>>>> open (SALA, ">>$CAMPO{tema}_$log2");
>>>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>>>> close(SALA);
>>>>>
>>>>> &topo;&msg;&fim;
>>>>> }}else{
>>>>>
>>>>> open(MASTER,">$CAMPO{tema}_$master");
>>>>> print MASTER qq|%$CAMPO{login}%\n|;
>>>>> close(MASTER);
>>>>>
>>>>> open(ONLINE,">>$CAMPO{tema}_$online");
>>>>> print ONLINE qq|%$CAMPO{login}%\n|;
>>>>> close(ONLINE);
>>>>>
>>>>> open (SALA, ">>$CAMPO{tema}_$log");
>>>>> print SALA qq|<div align="center"><font class="texto"><h5>ATA DA
>>>>> REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
>>>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>>>> close(SALA);
>>>>>
>>>>> open (SALA, ">>$CAMPO{tema}_$log2");
>>>>> print SALA qq|<div align="center"><font class="texto"><h5>ATA DA
>>>>> REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
>>>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>>>> close(SALA);
>>>>> $a = "1";
>>>>> &topo;&msg;&fim;
>>>>> }}}}
>>>>>
>>>>> if ($qs eq "escreve2"){
>>>>> $CAMPO{msg} =~ tr/+/ /;
>>>>> $CAMPO{msg} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>> $CAMPO{tema} =~ tr/+/ /;
>>>>> $CAMPO{tema} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>> if ($CAMPO{msg} eq ""){
>>>>> print qq|
>>>>> <script language="Javascript">
>>>>> <!--
>>>>> alert ('Mensagem n?o informada')
>>>>> //-->
>>>>> </script>
>>>>> <body
>>>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>>>> |;}else{
>>>>>
>>>>> if ($CAMPO{msg} eq "REUNI?O FINALIZADA"){
>>>>>
>>>>> open(LOG,">>$CAMPO{tema}"."_"."$log");
>>>>> print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O
>>>>> FINALIZADA</b></font></div><br>\n|;
>>>>> close(LOG);
>>>>>
>>>>> open(LOG,">$CAMPO{tema}"."_"."$log2");
>>>>> print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O
>>>>> FINALIZADA</b></font></div><br>\n|;
>>>>> close(LOG);
>>>>>
>>>>> print qq|
>>>>> <body
>>>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>>>> |;
>>>>> }else{
>>>>>
>>>>> open(LOG,"$CAMPO{tema}"."_"."$log");
>>>>> @log = <LOG>;
>>>>> close(LOG);
>>>>> $r = "0";
>>>>> foreach (@log){
>>>>> chomp;
>>>>> if($_ eq "<br><div align=\"center\"><font class=\"texto\"><b>REUNI?O
>>>>> FINALIZADA</b></font></div><br>"){
>>>>> $r = "1";
>>>>> }}
>>>>>
>>>>> if ($r eq "1"){
>>>>> print qq|
>>>>> <body
>>>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>>>> |;
>>>>> }else{
>>>>>
>>>>> open(LOG,">>$CAMPO{tema}"."_"."$log");
>>>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp;
>>>>> <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
>>>>> close(LOG);
>>>>> open(LOG,">>$CAMPO{tema}"."_"."$log2");
>>>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp;
>>>>> <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
>>>>> close(LOG);
>>>>> print qq|
>>>>> <body
>>>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>>>> |;}}}}
>>>>>
>>>>> if ($qs =~ /imprimir/){
>>>>> &imprimir;
>>>>> }
>>>>>
>>>>> if ($qs =~ /logout/){
>>>>> &logout;
>>>>> }
>>>>>
>>>>> if ($qs =~ /principal/){
>>>>> &principal;
>>>>> }
>>>>>
>>>>> if ($qs =~ /principal2/){
>>>>> &principal2;
>>>>> }
>>>>>
>>>>> if ($qs =~ /todas/){
>>>>> &todas;
>>>>> }
>>>>>
>>>>> sub data{
>>>>> ($seg,$min,$hr,$dia,$mes,$ano) = localtime();
>>>>> if ($hr < "10"){$hr = "0$hr";}
>>>>> if ($min < "10"){$min = "0$min";}
>>>>> if ($seg < "10"){$seg = "0$seg";}
>>>>>
>>>>> @mes =
>>>>> ("janeiro","fevereiro","mar?o","abril","maio","junho","julho","agosto","setembro","outubro","novembro","dezembro");
>>>>> $ano = 1900+$ano;
>>>>>
>>>>> $data  = "$hr:$min:$seg, $dia de @mes[$mes] de $ano";
>>>>> }
>>>>>
>>>>> sub fim{
>>>>> open(FIM,"$fim");
>>>>> @fim=<FIM>;
>>>>> close(FIM);
>>>>> print "@fim";
>>>>> }
>>>>>
>>>>> sub imprimir {
>>>>> $qs =~ s/imprimir=//;
>>>>> $qs =~ tr/+/ /;
>>>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>
>>>>> open (LOG,"$qs"."_"."$log");
>>>>> @log = <LOG>;
>>>>> close(LOG);
>>>>>
>>>>> print qq|
>>>>> <html>
>>>>> <head>
>>>>> <title>$titulo</title>
>>>>> @style
>>>>> </head>
>>>>> <body onload="this.window.print()">
>>>>> @log
>>>>> </body>
>>>>> |;}
>>>>>
>>>>> sub logout{
>>>>> $qs =~ s/logout=//gi;
>>>>> ($login,$tema) = split (/-/,$qs);
>>>>> $login =~ tr/+/ /;
>>>>> $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>> $tema =~ tr/+/ /;
>>>>> $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>
>>>>> open(LOG,">>$tema"."_"."$log2");
>>>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b>
>>>>> saiu da sala</b></font><br>\n|;
>>>>> close(LOG);
>>>>>
>>>>> open(LOG,">>$tema"."_"."$log");
>>>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b>
>>>>> saiu da sala</b></font><br>\n|;
>>>>> close(LOG);
>>>>>
>>>>> open(ONLINE,"$tema"."_"."$online");
>>>>> @online = <ONLINE>;
>>>>> close(ONLINE);
>>>>>
>>>>> @on = @online;
>>>>> foreach (@on){
>>>>> chomp;
>>>>> if ($_ =~ /%$login%/){
>>>>> s/$_//;
>>>>> }}
>>>>>
>>>>> open(ONLINE,">$tema"."_"."$online");
>>>>> print ONLINE qq|@on|;
>>>>> close(ONLINE);
>>>>>
>>>>> open(ONLINE,"$tema"."_"."$online");
>>>>> @online = <ONLINE>;
>>>>> close(ONLINE);
>>>>>
>>>>> if (length ("@online") eq "0"){
>>>>> unlink("$tema"."_"."$master");  ######################### aqui elimina
>>>>> os arquivos de trabalho ###################################
>>>>> unlink("$tema"."_"."$online");  #################   n?o est? sendo
>>>>> executado no edge    ###########################################
>>>>> unlink("$tema"."_"."$log2");
>>>>> unlink("$tema"."_"."$log");
>>>>> }else{}
>>>>>
>>>>> print qq|
>>>>> <html>
>>>>> <head>
>>>>> <title>$titulo</title>
>>>>> <meta http-equiv="Content-Type" content="text/html;
>>>>> charset=iso-8859-1">
>>>>> <script language="JavaScript">
>>>>> function Logout(){
>>>>> this.window.close()
>>>>> }
>>>>> </script>
>>>>> </head>
>>>>> <body onload="javascript:Logout()">
>>>>> </body>
>>>>> </html>
>>>>> |;}
>>>>>
>>>>> sub msg{
>>>>> $qs =~ tr/+/ /;
>>>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>> open (LOG, "$qs"."_"."$log2");
>>>>> @log = <LOG>;
>>>>> close(LOG);
>>>>>
>>>>> $finalizado = "0";
>>>>>
>>>>> foreach (@log){
>>>>> chomp;
>>>>> print $_;
>>>>> if ($_ eq "REUNI?O FINALIZADA"){
>>>>> $finalizado = "1";
>>>>> }}
>>>>>
>>>>> print qq|
>>>>> <script language="JavaScript">
>>>>> function Imprimir(){
>>>>> altura =690;
>>>>> largura= 1090;
>>>>> l = (screen.width - largura)/2;
>>>>> t = (screen.height - altura - 50)/2;
>>>>> window.open("?imprimir=$CAMPO{tema}","","scrollbars,height="+altura+",width="+largura+",top="+t+",left="+l);
>>>>>
>>>>> }
>>>>> function unLoad(){
>>>>>
>>>>> window.open("?logout=$CAMPO{login}-$CAMPO{tema}","","width=80,height=80")
>>>>> }
>>>>> </script>
>>>>> <body onunLoad="unLoad()">
>>>>> <table>
>>>>> <tr><td>
>>>>> <font class="texto1"><b> Usu?rio:
>>>>> $CAMPO{login}</b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
>>>>> </td><td>
>>>>> &nbsp;<font class="texto1"><b> Tema: $CAMPO{tema}<br></b></font>
>>>>> </td><td>
>>>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>>>> src="/reuniao/imagem/calculadora.gif" onClick="calculadora()" WIDTH="18"
>>>>> HEIGHT="22" style="cursor:pointer" title ="Calculadora financeira">
>>>>> </td><td>
>>>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>>>> src="/reuniao/imagem/Email.gif" onClick="email()" WIDTH="24" HEIGHT="20"
>>>>> style="cursor:pointer" title ="Correspond?ncia interna">
>>>>> </td><td>
>>>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>>>> src="/reuniao/imagem/acessorio.gif" onClick="acessorio()" WIDTH="24"
>>>>> HEIGHT="20" style="cursor:pointer" title ="Acess?rios">
>>>>> </td><TD>
>>>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>>>> src="/reuniao/imagem/alarme.gif" onClick="alarme()" WIDTH="24" HEIGHT="20"
>>>>> style="cursor:pointer" title ="Alarme">
>>>>> </td></tr></table>
>>>>> <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe"
>>>>> width="1010" height="480" style="overlap:auto"></iframe>
>>>>> <iframe align="middle" src="?principal2=$CAMPO{tema}-$CAMPO{login}"
>>>>> name="iframe2" width="1010" height="75" style="overlap:auto"></iframe>
>>>>> <table>
>>>>> <tr>
>>>>> <td><input type="button" class="botao" value="Ata de reuni?o"
>>>>> onClick="javascript:Imprimir()"
>>>>> STYLE='cursor:pointer;font-weight:bold'></td>
>>>>> <td>&nbsp;</td>
>>>>> <td><div align="right">
>>>>> <input type="button" class="botao2" value="Sair da Sala"
>>>>> onClick="javascript:window.close()"
>>>>> STYLE='cursor:pointer;font-weight:bold'></div></td>
>>>>> <td>&nbsp;</td>
>>>>> |;
>>>>>
>>>>> if($a eq "1"){print qq|<td><div align="center">
>>>>> <form name="form" method="post" action="?escreve2" target="iframe2">
>>>>>             <input name="msg"    type="hidden" size="80" class="campo"
>>>>> value="REUNI?O FINALIZADA">
>>>>>             <input name="login"  type="hidden" class="campo"
>>>>> value="$CAMPO{login}">
>>>>>             <input name="tema"   type="hidden" class="campo"
>>>>> value="$CAMPO{tema}">
>>>>>             <input type="submit" value="Encerrar Reuni?o"
>>>>> class="botao" STYLE='cursor: pointer;font-weight:bold'>
>>>>> </form>
>>>>> </div>
>>>>> </div></td></tr>|;}print qq|</table><br>|;}
>>>>>
>>>>> sub principal{
>>>>> $qs =~ s/principal=//;
>>>>> $qs =~ tr/+/ /;
>>>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>
>>>>> open (LOG, $qs."_".$log2);
>>>>> @log = <LOG>;
>>>>> close(LOG);
>>>>>
>>>>> $finalizado = "0";
>>>>>
>>>>> foreach (@log){
>>>>> chomp;
>>>>> if ($_ eq "REUNI?O FINALIZADA"){
>>>>> $finalizado = "1";
>>>>> }}
>>>>> if ($finalizado eq "1"){print qq|
>>>>> <font class="texto">
>>>>> A REUNI?O FOI FINALIZADA. VOC? PODE IMPRIMIR OU VISUALIZAR O RELAT?RIO
>>>>> </font>|;
>>>>>
>>>>> }else{print qq|
>>>>> <html>
>>>>> <head>
>>>>>
>>>>> @style
>>>>> <script language="JavaScript">
>>>>> <!--
>>>>>    function scroll() {
>>>>>      if( document.body && document.body.clientHeight ) {
>>>>>        window.innerHeight = document.body.clientHeight
>>>>>      }
>>>>>      window.scrollTo( 0, (window.innerHeight/0.1) )
>>>>>    }
>>>>>
>>>>>     function focus(){
>>>>>       document.form.msg.focus()
>>>>>     }
>>>>>
>>>>>     function enter(string){
>>>>>              insertAtCaret(document.form.msg,string);
>>>>>              focus()
>>>>>     }
>>>>>
>>>>>    function insertAtCaret (textObj, textFeildValue) {
>>>>>        if(document.all){
>>>>>             if (textObj.createTextRange && textObj.caretPos) {
>>>>>                 var caretPos = textObj.caretPos;
>>>>>                 caretPos.text =
>>>>> caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?textFeildValue + ' '
>>>>> : textFeildValue;
>>>>>             }else{
>>>>>                 textObj.value = textFeildValue;
>>>>>             }
>>>>>       }else{
>>>>>             if(textObj.setSelectionRange){
>>>>>                var rangeStart = textObj.selectionStart;
>>>>>                var rangeEnd = textObj.selectionEnd;
>>>>>                var tempStr1 = textObj.value.substring(0,rangeStart);
>>>>>                var tempStr2 = textObj.value.substring(rangeEnd);
>>>>>                textObj.value = tempStr1 + textFeildValue + tempStr2;
>>>>>            }else{
>>>>>                alert("Esta vers?o do navegador n?o suporta
>>>>> setSelectionRange");
>>>>>            }
>>>>>      }
>>>>>   }
>>>>>
>>>>>    function clear_field(){
>>>>>       document.form.msg.value = ''
>>>>>       document.form.msg.focus()
>>>>>       document.form.msg.select()
>>>>>    }
>>>>>
>>>>>    function anexar(){
>>>>>              altura = 450;
>>>>>              largura= 700;
>>>>>              l = (screen.width - largura)/2;
>>>>>              t = (screen.height - altura - 50)/2;
>>>>>              var html =  '<HTML><HEAD><TITLE></TITLE>'
>>>>>                  html += '</HEAD><BODY
>>>>> background="/reuniao/imagem/papel.jpg"  TEXT="#000066">'
>>>>>                  html += '<BR><BR><BR><table
>>>>> align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px
>>>>> 4px #000, 0 0 0 #000, 2px 4px 6px #000">Apresentar documento como
>>>>> anexo</label></h3></th></tr></table><br><br>'
>>>>>                  html += '<FORM NAME="anexo" METHOD="POST"
>>>>> ACTION="/reuniao/temp/upload.plx" ENCTYPE="multipart/form-data">'
>>>>>                  html += '<br>'
>>>>>                  html += '<TABLE align=center>'
>>>>>                  html += '<tr>'
>>>>>                  html += '<td><input type="file" name="arquivo"
>>>>> size="60" maxlength="90"></td>'
>>>>>                  html += '</tr>'
>>>>>                  html += '</table>'
>>>>>                  html += '<br><br><br>'
>>>>>                  html += '<TABLE align=center>'
>>>>>                  html += '<tr>'
>>>>>                  html += '<td bgcolor=#ADB6C6><input type="submit"
>>>>> value="    Processa    " style="color: white; text-shadow: 1px 2px 4px
>>>>> #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
>>>>>                  html += '</TR>'
>>>>>                  html += '</table>'
>>>>>                  html += '</form>'
>>>>>                  html += '</body>'
>>>>>                  html += '</html>'
>>>>>              var newWindow =
>>>>> window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
>>>>>              newWindow.document.write(html)
>>>>>              newWindow.document.close()
>>>>>              focus()
>>>>>              return false
>>>>>    }
>>>>>
>>>>>    function publicar(){
>>>>>              altura = 450;
>>>>>              largura= 700;
>>>>>              l = (screen.width - largura)/2;
>>>>>              t = (screen.height - altura - 50)/2;
>>>>>              var html =  '<HTML><HEAD><TITLE></TITLE>'
>>>>>                  html += '</HEAD><BODY
>>>>> background="/reuniao/imagem/papel.jpg"  TEXT="#ffffff">'
>>>>>                  html += '<BR><BR><BR><table
>>>>> align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px
>>>>> 4px #000, 0 0 0 #000, 2px 4px 6px #000">Ponto de publica??o
>>>>> web</label></h3></th></tr></table><br><br>'
>>>>>                  html += '<FORM NAME="publica" METHOD="POST"
>>>>> ACTION="/reuniao/temp/publica.plx">'
>>>>>                  html += '<br>'
>>>>>                  html += '<TABLE align=center>'
>>>>>                  html += '<tr>'
>>>>>                  html += '<td><input type="text" name="http" size="60"
>>>>> maxlength="90" value = "http://"></td>'
>>>>>                  html += '</tr>'
>>>>>                  html += '</table>'
>>>>>                  html += '<br><br><br>'
>>>>>                  html += '<TABLE align=center>'
>>>>>                  html += '<tr>'
>>>>>                  html += '<td bgcolor=#ADB6C6><input type="submit"
>>>>> value="    Processa    " style="color: white; text-shadow: 1px 2px 4px
>>>>> #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
>>>>>                  html += '</TR>'
>>>>>                  html += '</table>'
>>>>>                  html += '</form>'
>>>>>                  html += '</body>'
>>>>>                  html += '</html>'
>>>>>              var newWindow =
>>>>> window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
>>>>>              newWindow.document.write(html)
>>>>>              newWindow.document.close()
>>>>>              focus()
>>>>>              return false
>>>>>    }
>>>>>
>>>>>   function showMsgHelp() {
>>>>>       alert("                            SALA DE REUNI?O
>>>>> ONLINE\\n\\nMensagem -> Campo alfa num?rico com tamanho de 300 caracteres e
>>>>> diferente de espa?o.\\n\\nNota - ? recomend?vel que uma linha de mensagem
>>>>> tenha no m?ximo 80 caracteres visando dar maior clareza no relat?rio ATA DE
>>>>> REUNI?O.\\n\\nTAGS ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\n<br> - Salto de
>>>>> linha\\n<p> - Salto de par?grafo\\n<b>texto</b> - Texto em negrito\\n<font
>>>>> size=4>texto</font> - Texto com fonte igual a 4 pixel\\n<font
>>>>> color=red>texto</font> - Texto com cor em vermelho\\n<i>texto</i> - Texto
>>>>> em it?lico\\n<u>texto</u> - Texto sublinhado\\n<sub>texto</sub> - Texto
>>>>> subscrito\\n<sup>texto</sup> - Texto
>>>>> sobrescrito\\n<ol><li>texto1<li>texto2<li>texto3</ol> - Lista num?rica dos
>>>>> textos\\n<li>texto1<li>texto2<li>texto3 - Marca??o dos textos\\n\\nNota -
>>>>> Os par?metros de formata??o de texto podem ser utilizados
>>>>> simultaneamente.\\n\\n                EXEMPLO DE UTILIZA??O\\n\\nOl? sr(s)
>>>>> , bom dia a todos<br>Vamos dicurtir a <font size=3 color=red><b>Aquisi??o
>>>>> do im?vel em S?o Paulo.</b></font><br>O Paulo vai nos descrever as
>>>>> alternativas que dispomos.\\n\\n\\nFUN??ES ESPECIAIS PARA FORMATA??O DE
>>>>> TEXTO\\n\\nLimpa -      Move espa?o para o campo mensagem\\nLinha -
>>>>> Move <br> para o campo mensagem para quebrar linha\\nLista -        Move
>>>>> marcador <li> para o campo mensagem com salto de linha\\nNum?rico Move
>>>>> marcador <ol> para o campo mensagem\\nCola -        Coloca texto da ?rea de
>>>>> transfer?ncia no campo mensagem\\nAnexa -     Disponibiliza documento como
>>>>> um anexo para apresenta??o\\nPublica -   Disponibiliza um link de acesso
>>>>> referente a uma publica??o na internet\\nReal?a -    Evid?ncia uma parte do
>>>>> texto selecionado no campo mensagem\\nSublinha - Real?a um texto
>>>>> selecionado no campo mensagem sublinhando-o")
>>>>>       event.cancelBubble = true
>>>>>       return false
>>>>>   }
>>>>>
>>>>> //-->
>>>>> </script>
>>>>> </head>
>>>>> <body>
>>>>> @log
>>>>> </body>
>>>>> </html>|;
>>>>> }}
>>>>>
>>>>> sub principal2 {
>>>>> $qs =~ s/principal2=//;
>>>>> ($tema,$login) = split (/-/,$qs);
>>>>> $tema =~ tr/+/ /;
>>>>> $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>> $login =~ tr/+/ /;
>>>>> $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>
>>>>> print qq|
>>>>> @style
>>>>>
>>>>> <body  onLoad="document.form.msg.focus()" onHelp="return
>>>>> showMsgHelp()" class="table3" leftmargin="0" topmargin="0" marginwidth="0"
>>>>> marginheight="0">
>>>>> <div align="center">
>>>>> <table>
>>>>>   <tr>
>>>>>     <td> &nbsp;</td>
>>>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/clear.png"
>>>>> onClick="clear_field()"   WIDTH="24" HEIGHT="20" style="cursor:pointer"
>>>>> title ="Limpar campo mensagem"  STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/linha.png"
>>>>> onClick="enter('<br>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
>>>>> title ="Salto de linha"  STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/lista.gif"
>>>>> onClick="enter('<li>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
>>>>> title ="Marcador de lista"  STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/nlist.gif"
>>>>> onClick="enter('<ol>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
>>>>> title ="Marcador num?rico"  STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><img
>>>>> src="/reuniao/imagem/anexo.png"   onClick="anexar()"      WIDTH="20"
>>>>> HEIGHT="20" style="cursor:pointer" title ="Anexar docto"  STYLE='cursor:
>>>>> pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px;
>>>>> border-width: 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><img
>>>>> src="/reuniao/imagem/wlink.gif"   onClick="publicar()"    WIDTH="20"
>>>>> HEIGHT="20" style="cursor:pointer" title ="Publicar um link da internet"
>>>>> STYLE='cursor: hand; font-family: Arial, Helvetica, sans-serif; font-size:
>>>>> 10px; border-width:
>>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>>     <td bgcolor='lightsteelblue'><img
>>>>> src="/reuniao/imagem/help.gif"    onClick="showMsgHelp()" WIDTH="18"
>>>>> HEIGHT="18" style="cursor:pointer" title ="Ajuda do sistema"
>>>>> STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif;
>>>>> font-size: 10px; border-width:
>>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>> </tr>
>>>>> </table><br>
>>>>> <table  align="center">
>>>>>   <tr>
>>>>>     <td class="texto"><form name="form" method="post"
>>>>> action="?escreve2">
>>>>>           <div align="center"><b><font size=2><label
>>>>> class='sombra'>&nbsp; Mensagem &nbsp; </label></b></fonte>
>>>>>             <input name="msg"     type="text"      class="campo"
>>>>> size="120" maxlength="300" onHelp="return showMsgHelp()">
>>>>>             <input name="login"   type="hidden"    class="campo"
>>>>> value="$login">
>>>>>             <input name="tema"    type="hidden"    class="campo"
>>>>> value="$tema">
>>>>>             <input type="submit"  value="Enviar"   class="botao"
>>>>> >
>>>>>           </div>
>>>>>     </td>
>>>>>   </tr>
>>>>> </table>
>>>>> </form>
>>>>> </div>
>>>>> </body>
>>>>> |;}
>>>>>
>>>>> sub style{
>>>>> open(STYLE, "$estilos");
>>>>> @style = <STYLE>;
>>>>> close(STYLE);
>>>>> }
>>>>>
>>>>> sub todas{
>>>>> $qs =~ s/todas=//;
>>>>> $qs =~ tr/+/ /;
>>>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>
>>>>> open (LOG, $qs."_".$log);
>>>>> @log = <LOG>;
>>>>> close(LOG);
>>>>>
>>>>> print qq|
>>>>> <meta http-equiv="refresh" content="5,?todas"/> #####################
>>>>> aqui reenvia mensagens para os participantes #############################
>>>>> @style
>>>>> <script>
>>>>> <!--
>>>>>   function rolar() {
>>>>>     if( document.body && document.body.clientHeight ) {
>>>>>       window.innerHeight = document.body.clientHeight
>>>>>     }
>>>>>     window.scrollTo( 0, (window.innerHeight/0.1) );
>>>>>   }
>>>>> //-->
>>>>> </script>
>>>>> <body onLoad="javascript:rolar()">
>>>>> @log|;}
>>>>>
>>>>> sub topo{
>>>>> open(TOPO,"$topo");
>>>>> @topo=<TOPO>;
>>>>> close(TOPO);
>>>>> print "@topo";
>>>>> }
>>>>>
>>>>> =begin disclaimer
>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> =end disclaimer
>>>>>
>>>>>
>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>>
>>>
>>> --
>>> Thank you very much!
>>>
>>> -dom
>>>
>>> --
>>>
>>> Daniel de Oliveira Mantovani
>>> Business Analytic Specialist
>>> Perl Evangelist /Astrophysics hobbyist.
>>> +55 11 9 8538-9897
>>> XOXO
>>>
>>
>>
>>
>> --
>> Thank you very much!
>>
>> -dom
>>
>> --
>>
>> Daniel de Oliveira Mantovani
>> Business Analytic Specialist
>> Perl Evangelist /Astrophysics hobbyist.
>> +55 11 9 8538-9897
>> XOXO
>>
>> ------------------------------
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>> ------------------------------
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>> ------------------------------
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Thank you very much!
>
> -dom
>
> --
>
> Daniel de Oliveira Mantovani
> Business Analytic Specialist
> Perl Evangelist /Astrophysics hobbyist.
> +55 11 9 8538-9897
> XOXO
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160111/52501d7d/attachment-0001.html>

From payback at hotmail.com.br  Tue Jan 12 02:15:46 2016
From: payback at hotmail.com.br (kleber caetano)
Date: Tue, 12 Jan 2016 08:15:46 -0200
Subject: [SP-pm] script perl no windows 10
In-Reply-To: <CACLgUQ+i45KLochJxu9tsEXqWHdfX71hUGGh6F3NqsyCa6x_gw@mail.gmail.com>
References: <COL126-DS17DB8FE31F840F40B9D68292C90@phx.gbl><CAPpv0_oJAxED39CB8g8LwBr1No6j1UUOgMmyfwFwY1XjBCqEpQ@mail.gmail.com><CAEmYuOtA_r3qjLC1qBu+u_rheT-7=3zJf=k-Av219PpPsGajBw@mail.gmail.com><CAEmYuOt2YFQbcwB-Ma5nBO+38ep79d7GMmsChkLVuBzK4bXh7w@mail.gmail.com><COL126-DS5D77FB563308C656D1BD892C90@phx.gbl><COL126-DS233328F8A858D8000AA7892C90@phx.gbl><COL126-DS12BC4E7DA59D0D8F61764492C90@phx.gbl><CAEmYuOtc4W7QT2jo0tBPZdeB9RbHhYFDU8vu+noMF8cVLfn0iw@mail.gmail.com>
	<CACLgUQ+i45KLochJxu9tsEXqWHdfX71hUGGh6F3NqsyCa6x_gw@mail.gmail.com>
Message-ID: <COL126-DS2154FC4523AD660932071992CA0@phx.gbl>

Mais uma vez agrade?o a gentileza em responder.
A minha expectativa nunca foi abusar do conhecimento de voc?s.
Imaginava que a solu??o para o problema apresentado fosse simples ou
seja , vis?vel para um especialista em perl.
Entretanto , pelo visto , a identifica??o da causa do problema ? mais complexa.

Nota ? Vou pesquisar na internet a op??o do Lucas.

Desejo a todos um bom 2016 com paz e sa?de. 
Abra?o a todos ,

kleber

From: Lucas Mateus 
Sent: Monday, January 11, 2016 9:26 PM
To: saopaulo-pm at mail.pm.org 
Subject: Re: [SP-pm] script perl no windows 10

Kleber, de fato ? muito dif?cil te ajudar sem o ambiente prop?cio para teste e debug. Se estiver disposto, use o SocketIO se come?ar agora VC implementa um chat descente em 2h te garanto.

Em 11 de jan de 2016 9:16 PM, "Daniel de Oliveira Mantovani" <daniel.oliveira.mantovani at gmail.com> escreveu:

  Opa Kleber, desculpa se eu passei a mensagem errada. Na verdade, o que eu quis dizer ? que independente da qualidade do seu software, hoje existem muitas op??es de softwares/servi?os maduros gratuitos. Apenas se existisse uma regra de neg?cio "fora de s?rie", seria justific?vel. Inclusive, existem ?timas op??es que oferecerem a possibilidade do usu?rio se conectar atrav?s do aparelho telef?nico m?vel. Voc? por exemplo pode criar um canal de IRC criptografado e com senha, onde os usu?rios podem escolher o aplicativo do aparelho telef?nico m?vel que mais lhe agrada.

  Eu entendo a sua "perspic?cia" em achar esse grupo espec?fico de programadores Perl, independente da fonte. Por?m, a nossa lista ? parecida com uma lista de especialistas/apaixonados em/por carros. Onde as pessoas perguntam, "Qual o melhor material para construir carros de F?rmula 1 que consigam aproveitar mais a chuva em temperaturas entre 10?C~12?C ?".  E a sua pergunta foi, "Pessoal, olha esse carro aqui quebrou... Voc?s podem arrumar pra mim de gra?a, por favor ?". Na verdade, voc? n?o precisa ser um especialista para unir-se a n?s. Muita gente que est? come?ando, felizmente tamb?m nos acha. Que foi o meu caso pessoal, eu queria entender um exploit que se eu me lembro bem derrubava servidores de Counter-Strike. 

  Eu perfeitamente entendo que voc? n?o teve m? inten??o, por isso eu te convido ? aprender Perl. N?s podemos te orientar em real-time no nosso canal de IRC, #sao-paulo.pm irc.perl.org 24H//7 (Nem sempre a resposta ? imediata, mas ? um ambiente colaborativo onde todos s?o muito bem vindos. N?s temos bastante conte?do em portugu?s, incluindo artigo, manuais, livros etc.) 


  Seja muito bem-vindo!


  2016-01-11 20:35 GMT-02:00 kleber caetano <payback at hotmail.com.br>:

    Me perdoem em insistir neste assunto.
    Mais uma informa??o que talvez seja importante :

    Parece que o script envia informa??es vazias ou seja as mensagens que estavam na tema desaparecem.
    ( a parte da tela que apresenta as mensagens ficam em branco inclusive o tema da reuni?o ----> acho que ?  
    <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe" width="1010" height="480" style="overlap:auto"></iframe> ). 

    From: kleber caetano 
    Sent: Monday, January 11, 2016 8:09 PM
    To: saopaulo-pm at mail.pm.org 
    Subject: Re: [SP-pm] script perl no windows 10

    Mais uma informa??o que talvez seja importante aos amigos :

    Apesar de n?o estar apresentando as mensagens aos participantes da sala ,
    as mensagens enviadas pelos usu?rios s?o gravadas nos arquivos de trabalho.
    ( ? poss?vel constatar isto ).

    From: kleber caetano 
    Sent: Monday, January 11, 2016 7:16 PM
    To: saopaulo-pm at mail.pm.org 
    Subject: Re: [SP-pm] script perl no windows 10

    Agrade?o a gentiliza em responder.
    O Daniel me esculhambou ( rsrsrsrsrss ).
    Apesar do script n?o ser bem elaborado ou estruturado , ele ? simples e ?til ( gostaria de tentar acertar o erro ).

    Implementei as sugest?o do Daniel e do Lucas [ setInterval(function(){ window.location.href = '?todas' }, 5000); ]
    e o problema passou a ocorrer tamb?m no internet explorer 11( n?o enviou as mensagens para os participantes ).

    Pelo que eu entendo deste script , a a??o reload envia as mensagens para
    <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe" width="1010" height="480" style="overlap:auto"></iframe>
    e com setInterval n?o chegou ( porque n?o chegou l? ).

    Talvez isto ajude a analisar o problema.


    From: Daniel de Oliveira Mantovani 
    Sent: Monday, January 11, 2016 6:12 PM
    To: saopaulo-pm at mail.pm.org 
    Subject: Re: [SP-pm] script perl no windows 10

    S? refor?ando o que eu disse, eu j? achei uma falha de seguran?a, onde voc? abre um descritor de arquivos com dois argumentos. Possivelmente em algum desses "opens" um dos argumentos vem do usu?rio.

    https://www.securecoding.cert.org/confluence/pages/viewpage.action?pageId=76775519


    On Mon, Jan 11, 2016 at 5:36 PM, Daniel de Oliveira Mantovani <daniel.oliveira.mantovani at gmail.com> wrote:

      Eu fortemente te aconselho a jogar isso fora, e usar o Google Hangout ou qualquer uma das milh?es de solu??es gr?tis que resolvem isso.

      2016-01-11 17:33 GMT-02:00 Lucas Moraes <lucastiagodemoraes at gmail.com>:

        Aconselho voc? atualizar a pagina com javascript. 

        setInterval(function(){ window.location.href = '?todas' }, 5000);


        Falou.


        Em 11 de janeiro de 2016 17:26, kleber caetano <payback at hotmail.com.br> escreveu:

          Ol? Sr(s),

          Migrei para o windows 10 e estou tendo um problema com um aplicativo em perl quando utilizo o edge ,
          entretanto , quando utilizo o explorer 11 o aplicativo ? executado normalmente.

          Nota[1] - Este aplicativo refere-se a um chat ( sala de reuni?o online ).

          O problema ( no edge ) ocorre quando :

          - Ele reenvia as mensagens ( atrav?s do comando <meta http-equiv="refresh" content="5,?todas"/> )  para 
            os participantes da sala de reuni?o ou seja n?o est? enviando nada.
          - Quando ? encerrada a reuni?o , o aplicativo elimina os arquivos de trabalho , por?m , no edge isto 
            n?o est? acontecendo.   

          Nota[2] - No explorer 11 estes problemas n?o ocorrem.

          Nota[3] - O script em perl  foi desenvolvido por um amigo que conhecia bastante perl 
                         entretanto meu conhecimento ? limitado. 

          Nota[4] ? Estou trabalhando com ActivePerl-5.16.3.1603-MSWin32-x86-296746 

          Nota[5] ? Caso considerem necess?rio , tenho como disponibilizar um link de acesso a este site sala.cgi

          Nota[6] - Quando instalei o windows 10 , o reload autom?tico  funcionava , entretanto ,  
                          ao realizar uma manuten??o grande ( nova vers?o acho ) o problema apareceu.
                          O problema de n?o eliminar os arquivos tempor?rio de trabalho existem
                          desde a instala??o inicial do windows 10

          Nota[7] ? coloquei duas marcas no script onde eu acho que as fun??es s?o executadas:

          ######################### aqui elimina os arquivos de trabalho ###################################

          ##################### aqui reenvia mensagens para os participantes #############################

          Algu?m sabe como resolver isto ?

          Agrade?o a aten??o ,

          kleber    

          =================================================================================================
                                                                   script em perl  ( sala.cgi )
          =================================================================================================
          #!perl
          print "Content-type:text/html\n\n";
          use CGI::Carp(fatalsToBrowser);

          ###############################################################################################
          #                                     CONFIGURA??ES GERAIS                                                                                                            #
          #                                                                                                                                                                                          #
          $titulo = "Sala de Reuni?o Online";        # T?tulo do script                                                                                                #
          $master = "master.log";                         # Arquivo tempor?rio a guardar primeiro usu?rio                                              #
          $log    = "logs.log";                                # Arquivo tempor?rio de logs totais                                                                    #
          $log2   = "logs2.log";                            # Arquivo tempor?rio de logs da sess?o                                                              #
          $online = "online.log";                         # Arquivo tempor?rio com nomes dos usu?rios Online                                        #
          $estilos= "estilos.css";                        # Arquivo com os estilos dentro da pasta modelos                                              #
          $topo   = "topo.html";                         # Template do Topo                                                                                                #
          $fim    = "fim.html";                           # Template do Fim                                                                                                   #
          #                                                                                                                                                                                         #
          #                                                                                                                                                                                         #
          #                                     FIM DAS CONFIGURA??ES                                                                                                         #
          ###############################################################################################

          read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
          @conteudo = split(/&/, $buffer);
          foreach $par (@conteudo) {
                  ($campo, $valor) = split(/=/, $par);
                  $valor =~ tr/+/ /;
                  $valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
                  $CAMPO{$campo} = $valor;
              }

          $qs = "$ENV{QUERY_STRING}";
          &data;
          &style;
          if ($qs eq ""){
          print qq|
          <BR><BR><BR><BR><BR><BR><BR>
          |;
          &topo;
          print qq?
          <script language="JavaScript">
          <!--
          altura = 690;
          largura= 1090;
          l = (screen.width - largura)/2;
          t = (screen.height - altura - 50)/2; 
          var flag = "";
          var idioma=1;
          var strCookie='payback';

          function LerCookie(strCookie) {
              var strNomeIgual = strCookie + "=";
              var arrCookies = document.cookie.split(';');
              for(var i = 0; i < arrCookies.length; i++)
              {
                  var strValorCookie = arrCookies[i];
                  while(strValorCookie.charAt(0) == ' ')
                  {
                      strValorCookie = strValorCookie.substring(1, strValorCookie.length);
                  }
                  if(strValorCookie.indexOf(strNomeIgual) == 0)
                  {
                      var mensagem=strValorCookie.substring(strNomeIgual.length, strValorCookie.length);
                      flag = mensagem;
                      mensagem ='';
                      return;
                  }
              }
              alert ( '!!!! Erro cr?tico : N?o foi poss?vel restaurar ?rea de transfer?ncia' );
              top.location.href = "/payback/index.htm";   
          };
          function init(form) {
                        LerCookie(strCookie);
                        if (flag != null ) {
                           flag = flag.split('|'); 
                           document.form.login.value = flag[9];
                        }
                        document.form.tema.focus();
          }
          function Entra(form) {
                  if (document.form.tema.value.length == 0)  {
                      alert("O tema da reuni?o n?o foi informado");
                      document.form.tema.focus();
                      document.form.tema.select();
                      return false;
                  } 
                  novajanela = window.open("", "entrar", "scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l); 
                  return true;
          }
          function showSalaHelp() {
                altura1=400;
                largura1= 800;
                l1 = (screen.width - largura + 250)/2;
                t1 = (screen.height - altura + 250)/2;   
                var html = '<HTML><HEAD><TITLE></TITLE></HEAD>';
                    html += '<BODY background="/reuniao/imagem/papel.jpg" TEXT="#000066"><br><table align=center><tr><td><h4><b>SALA &nbsp;  DE &nbsp;  REUNI?O &nbsp;  ONLINE &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></h4></td></tr></table><br><TABLE ALIGN=CENTER><font size=2><TR><TD><PRE><b>';                      
                    html += '<li>O dado usu?rio deve ser ?nico por sala.';
                    html += '<li>O dado tema da reuni?o ser? o ponto de encontro dos participantes na sala.<br>';
                    html += '   Este texto n?o pode conter espa?o , por exemplo , informar Aquisi??o_de_Filial';
                    html += '<li>O sistema diferencia letra mai?scula de min?scula para identifica??o da sala.';
                    html += '<li>Cada sala ter? um ?nico tema n?o tendo limita??es de quantidade de aberturas de<br>';
                    html += '   salas e participantes.<br>';
                    html += '<li>O usu?rio que abrir a sala ou seja o primeiro a entrar receber? uma tarefa de<br>';
                    html += '  encerrar a reuni?o ( bot?o especial ).<br>  Este usu?rio , ao sair da sala , provocar? a elimina??o dos arquivos que registram<br>  os textos digitados.<br>  Portanto , recomenda-se dar um tempo de poucos segundos antes de sair da sala.';
                    html += '<li>Ao acionar o bat?o especial ENCERRAR REUNI?O , o texto REUNI?O FINALIZADA<br>';
                    html += '   ? enviado ? sala e nenhuma nova mensagem ? registrada pelo sistema.';
                    html += '<li>? recomend?vel que os participantes imprimam a ata de reuni?o ap?s esta a??o.<br>';
                    html += '<li>Para ajuda de formata??o do texto mensagem , na sala de reuni?o , acionar a tecla F1';
                    html += '<li>Os documentos enviados ao servidor para serem apresentados como anexo ,<br>  ser?o eliminados quando o sistema operacional for reinicializado.<br>';
                    html += '  Nota - O documento apresentado como anexo  , para ser baixado no servidor , dever? ter<br>         no m?ximo 500 kbytes.';
                    html += '</TABLE></FONT></B></PRE></BODY></HTML>';
                    var newWindow = window.open("","","scrollbars=auto,height="+altura1+",width="+largura1+",top="+t1+",left="+l1);
                    newWindow.document.write(html);
                    newWindow.document.close();
                    event.cancelBubble = true;
                    return false;
          }
          //-->
          </script>
          <style type="text/css"><!--
          .multi_bg { background-image : linear-gradient(to right, rgba(30, 75, 115, 0.5),  rgba(30, 75, 115, 0.5)); }
          -->
          </style>
          </HEAD>
                  <body onload="init(this.form)" onHelp="return showSalaHelp()" BGCOLOR="#ADB6C6" TEXT="#003366" class="multi_bg">
                  <form action="?entra" method="POST" name="form" target="entrar" id="form" OnSubmit="return Entra(this)">
                  <br>
                  <strong><font color="#ffffff" size="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<label class='sombra'><b>Escolha um tema para entrar</label></font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="/reuniao/imagem/help.gif" onClick="showSalaHelp();document.form.tema.focus()" WIDTH="18" HEIGHT="18" style="cursor:pointer" title ="Ajuda do sistema">
                  <br><br>
                  <div align="center">
                        <table>
                          <tr> 
                             <!-- <td width="33%"><div align="right"><font class="sombra"><font color="#ffffff" size="2"><b>Usu&aacute;rio&nbsp;&nbsp;</b></font></div></td> --> 
                            <td><input type="hidden" name="login" class="campo" onFocus="document.form.tema.focus()" onHelp="return showSalaHelp()"></td>
                           </tr>
                          <tr> 
                            <td><div align="right"><font class="sombra"><font color="#ffffff" size="2"><b>Tema&nbsp;&nbsp;</b></font></div></td>
                            <td><input name="tema" type="text" class="campo" id="tema" onHelp="return showSalaHelp()"></td>
                          </tr>
                        </table><br>
                        <table>
                       <tr>
                           <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
                           <td align="center" colspan=2><input type="submit" value="Entrar" class="botao" STYLE='cursor: pointer;font-weight:bold'></td>
                      </tr>
                       </table><br>
                  </div>
          ?;&fim;}

          if ($qs eq "entra"){
          if ($CAMPO{login} eq ""){ 
          print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|; 
          &topo;
          print qq|<br>Voc? deve digitar um nome de usu?rio antes de entrar na sala ! <br><br>
          <div align="center">
          <input type="button" class="botao2" onClick="javascript:windows.close()" value="Fechar Janela"><br>
          </div>
          |;
          &fim;
          }else{ 
          if ($CAMPO{tema} eq "" ){   
          print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;  
          &topo;
          print qq|<br>Voc? deve digitar um tema antes de entrar na sala ! <br><br>
          <div align="center">
          <input type="button" class="botao2" onClick="javascript:window.close()" value="Fechar Janela"><br>
          </div>
          |;
          &fim;
          }else{
          if (-e "$CAMPO{tema}"."_"."$log"){ 
          open(ONLINE,"$CAMPO{tema}_$online");
          @online = <ONLINE>;
          close(ONLINE);

          foreach (@online){
          chomp;
          s/%//gi;
          if ($CAMPO{login} eq "$_"){
          $repetido = "1";
          }else{
          $repetido = "0";
          }}
          if ($repetido eq "1"){
          print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;  
          &topo;
          print qq|<br>Este nome de usu?rio j? est? em uso! Por favor escolha outro.<br><br>
          <div align="center">
          <input type="button" class="botao2" onClick="javascript:window.close()" value="Fechar Janela"><br>
          </div>
          |;&fim;
          }else{
          open(MASTER,"$CAMPO{tema}_$master");
          $master = <MASTER>;
          close(MASTER);
          chomp $master;
          $master =~ s/%//gi;

          if ($CAMPO{login} eq $master){$a = "1";} else {$a = "0";}
          open(ONLINE,">>$CAMPO{tema}_$online");
          print ONLINE qq|%$CAMPO{login}%\n|;
          close(ONLINE);

          open (SALA, ">>$CAMPO{tema}_$log");
          print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
          close(SALA);

          open (SALA, ">>$CAMPO{tema}_$log2");
          print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
          close(SALA);

          &topo;&msg;&fim;
          }}else{

          open(MASTER,">$CAMPO{tema}_$master");
          print MASTER qq|%$CAMPO{login}%\n|;
          close(MASTER);

          open(ONLINE,">>$CAMPO{tema}_$online");
          print ONLINE qq|%$CAMPO{login}%\n|;
          close(ONLINE);

          open (SALA, ">>$CAMPO{tema}_$log");
          print SALA qq|<div align="center"><font class="texto"><h5>ATA DA REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
          print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
          close(SALA);

          open (SALA, ">>$CAMPO{tema}_$log2");
          print SALA qq|<div align="center"><font class="texto"><h5>ATA DA REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
          print SALA qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
          close(SALA);
          $a = "1";
          &topo;&msg;&fim;
          }}}}

          if ($qs eq "escreve2"){
          $CAMPO{msg} =~ tr/+/ /;
          $CAMPO{msg} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
          $CAMPO{tema} =~ tr/+/ /;
          $CAMPO{tema} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
          if ($CAMPO{msg} eq ""){
          print qq|
          <script language="Javascript">
          <!--
          alert ('Mensagem n?o informada')
          //-->
          </script>
          <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
          |;}else{

          if ($CAMPO{msg} eq "REUNI?O FINALIZADA"){

          open(LOG,">>$CAMPO{tema}"."_"."$log");
          print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O FINALIZADA</b></font></div><br>\n|;
          close(LOG);

          open(LOG,">$CAMPO{tema}"."_"."$log2");
          print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O FINALIZADA</b></font></div><br>\n|;
          close(LOG);

          print qq|
          <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
          |;
          }else{

          open(LOG,"$CAMPO{tema}"."_"."$log");
          @log = <LOG>;
          close(LOG);
          $r = "0";
          foreach (@log){
          chomp;
          if($_ eq "<br><div align=\"center\"><font class=\"texto\"><b>REUNI?O FINALIZADA</b></font></div><br>"){
          $r = "1";
          }}

          if ($r eq "1"){
          print qq|
          <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
          |;
          }else{

          open(LOG,">>$CAMPO{tema}"."_"."$log");
          print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
          close(LOG);
          open(LOG,">>$CAMPO{tema}"."_"."$log2");
          print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
          close(LOG);
          print qq|
          <body onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
          |;}}}}

          if ($qs =~ /imprimir/){
          &imprimir;
          }

          if ($qs =~ /logout/){
          &logout;
          }

          if ($qs =~ /principal/){
          &principal;
          }

          if ($qs =~ /principal2/){
          &principal2;
          }

          if ($qs =~ /todas/){
          &todas;
          }

          sub data{
          ($seg,$min,$hr,$dia,$mes,$ano) = localtime();
          if ($hr < "10"){$hr = "0$hr";}
          if ($min < "10"){$min = "0$min";}
          if ($seg < "10"){$seg = "0$seg";}

          @mes = ("janeiro","fevereiro","mar?o","abril","maio","junho","julho","agosto","setembro","outubro","novembro","dezembro");
          $ano = 1900+$ano;

          $data  = "$hr:$min:$seg, $dia de @mes[$mes] de $ano";
          }

          sub fim{
          open(FIM,"$fim");
          @fim=<FIM>;
          close(FIM);
          print "@fim";
          }

          sub imprimir {
          $qs =~ s/imprimir=//;
          $qs =~ tr/+/ /;
          $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

          open (LOG,"$qs"."_"."$log");
          @log = <LOG>;
          close(LOG);

          print qq|
          <html>
          <head>
          <title>$titulo</title>
          @style
          </head>
          <body onload="this.window.print()">
          @log
          </body>
          |;}

          sub logout{
          $qs =~ s/logout=//gi;
          ($login,$tema) = split (/-/,$qs);
          $login =~ tr/+/ /;
          $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
          $tema =~ tr/+/ /;
          $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

          open(LOG,">>$tema"."_"."$log2");
          print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b> saiu da sala</b></font><br>\n|;
          close(LOG);

          open(LOG,">>$tema"."_"."$log");
          print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b> saiu da sala</b></font><br>\n|;
          close(LOG);

          open(ONLINE,"$tema"."_"."$online");
          @online = <ONLINE>;
          close(ONLINE);

          @on = @online;
          foreach (@on){
          chomp;
          if ($_ =~ /%$login%/){
          s/$_//;
          }}

          open(ONLINE,">$tema"."_"."$online");
          print ONLINE qq|@on|;
          close(ONLINE);

          open(ONLINE,"$tema"."_"."$online");
          @online = <ONLINE>;
          close(ONLINE);

          if (length ("@online") eq "0"){
          unlink("$tema"."_"."$master");  ######################### aqui elimina os arquivos de trabalho ###################################
          unlink("$tema"."_"."$online");  #################   n?o est? sendo executado no edge    ###########################################
          unlink("$tema"."_"."$log2");
          unlink("$tema"."_"."$log");
          }else{}

          print qq|
          <html>
          <head>
          <title>$titulo</title>
          <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
          <script language="JavaScript">
          function Logout(){
          this.window.close()
          }
          </script>
          </head>
          <body onload="javascript:Logout()">
          </body>
          </html>
          |;}

          sub msg{
          $qs =~ tr/+/ /;
          $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
          open (LOG, "$qs"."_"."$log2");
          @log = <LOG>;
          close(LOG);

          $finalizado = "0";

          foreach (@log){
          chomp;
          print $_;
          if ($_ eq "REUNI?O FINALIZADA"){
          $finalizado = "1";
          }}

          print qq|
          <script language="JavaScript">
          function Imprimir(){
          altura =690;
          largura= 1090;
          l = (screen.width - largura)/2;
          t = (screen.height - altura - 50)/2; 
          window.open("?imprimir=$CAMPO{tema}","","scrollbars,height="+altura+",width="+largura+",top="+t+",left="+l); 
          }
          function unLoad(){
          window.open("?logout=$CAMPO{login}-$CAMPO{tema}","","width=80,height=80")
          }
          </script>
          <body onunLoad="unLoad()">
          <table>
          <tr><td>
          <font class="texto1"><b> Usu?rio: $CAMPO{login}</b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
          </td><td>
          &nbsp;<font class="texto1"><b> Tema: $CAMPO{tema}<br></b></font>
          </td><td>
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/calculadora.gif" onClick="calculadora()" WIDTH="18" HEIGHT="22" style="cursor:pointer" title ="Calculadora financeira">      
          </td><td>
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/Email.gif" onClick="email()" WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Correspond?ncia interna">      
          </td><td>
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/acessorio.gif" onClick="acessorio()" WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Acess?rios">      
          </td><TD>
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="/reuniao/imagem/alarme.gif" onClick="alarme()" WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Alarme">      
          </td></tr></table>
          <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe" width="1010" height="480" style="overlap:auto"></iframe>
          <iframe align="middle" src="?principal2=$CAMPO{tema}-$CAMPO{login}" name="iframe2" width="1010" height="75" style="overlap:auto"></iframe>
          <table>
          <tr>
          <td><input type="button" class="botao" value="Ata de reuni?o" onClick="javascript:Imprimir()" STYLE='cursor:pointer;font-weight:bold'></td>
          <td>&nbsp;</td>
          <td><div align="right">
          <input type="button" class="botao2" value="Sair da Sala" onClick="javascript:window.close()"  STYLE='cursor:pointer;font-weight:bold'></div></td>
          <td>&nbsp;</td>
          |;

          if($a eq "1"){print qq|<td><div align="center">
          <form name="form" method="post" action="?escreve2" target="iframe2">
                      <input name="msg"    type="hidden" size="80" class="campo" value="REUNI?O FINALIZADA">
                      <input name="login"  type="hidden" class="campo" value="$CAMPO{login}">
                      <input name="tema"   type="hidden" class="campo" value="$CAMPO{tema}">
                      <input type="submit" value="Encerrar Reuni?o" class="botao" STYLE='cursor: pointer;font-weight:bold'>          
          </form>
          </div>
          </div></td></tr>|;}print qq|</table><br>|;}

          sub principal{
          $qs =~ s/principal=//;
          $qs =~ tr/+/ /;
          $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

          open (LOG, $qs."_".$log2);
          @log = <LOG>;
          close(LOG);

          $finalizado = "0";

          foreach (@log){
          chomp;
          if ($_ eq "REUNI?O FINALIZADA"){
          $finalizado = "1";
          }}
          if ($finalizado eq "1"){print qq|
          <font class="texto">
          A REUNI?O FOI FINALIZADA. VOC? PODE IMPRIMIR OU VISUALIZAR O RELAT?RIO
          </font>|;

          }else{print qq|
          <html>
          <head>

          @style
          <script language="JavaScript">
          <!--
             function scroll() {
               if( document.body && document.body.clientHeight ) {
                 window.innerHeight = document.body.clientHeight
               }
               window.scrollTo( 0, (window.innerHeight/0.1) )
             }

              function focus(){
                document.form.msg.focus()
              }

              function enter(string){
                       insertAtCaret(document.form.msg,string); 
                       focus()
              }

             function insertAtCaret (textObj, textFeildValue) {
                 if(document.all){ 
                      if (textObj.createTextRange && textObj.caretPos) {
                          var caretPos = textObj.caretPos;
                          caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?textFeildValue + ' ' : textFeildValue;
                      }else{
                          textObj.value = textFeildValue;
                      }
                }else{
                      if(textObj.setSelectionRange){
                         var rangeStart = textObj.selectionStart;
                         var rangeEnd = textObj.selectionEnd;
                         var tempStr1 = textObj.value.substring(0,rangeStart);
                         var tempStr2 = textObj.value.substring(rangeEnd);
                         textObj.value = tempStr1 + textFeildValue + tempStr2;
                     }else{
                         alert("Esta vers?o do navegador n?o suporta setSelectionRange");
                     }
               }
            }

             function clear_field(){
                document.form.msg.value = ''
                document.form.msg.focus()
                document.form.msg.select() 
             }

             function anexar(){
                       altura = 450;
                       largura= 700;
                       l = (screen.width - largura)/2;
                       t = (screen.height - altura - 50)/2;              
                       var html =  '<HTML><HEAD><TITLE></TITLE>'
                           html += '</HEAD><BODY background="/reuniao/imagem/papel.jpg"  TEXT="#000066">'
                           html += '<BR><BR><BR><table align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000">Apresentar documento como anexo</label></h3></th></tr></table><br><br>'
                           html += '<FORM NAME="anexo" METHOD="POST" ACTION="/reuniao/temp/upload.plx" ENCTYPE="multipart/form-data">'
                           html += '<br>'
                           html += '<TABLE align=center>'
                           html += '<tr>'
                           html += '<td><input type="file" name="arquivo" size="60" maxlength="90"></td>'
                           html += '</tr>'
                           html += '</table>'
                           html += '<br><br><br>'
                           html += '<TABLE align=center>'
                           html += '<tr>'
                           html += '<td bgcolor=#ADB6C6><input type="submit" value="    Processa    " style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
                           html += '</TR>'
                           html += '</table>'
                           html += '</form>'  
                           html += '</body>'
                           html += '</html>'
                       var newWindow = window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
                       newWindow.document.write(html)
                       newWindow.document.close()
                       focus()
                       return false              
             }

             function publicar(){
                       altura = 450;
                       largura= 700;
                       l = (screen.width - largura)/2;
                       t = (screen.height - altura - 50)/2;              
                       var html =  '<HTML><HEAD><TITLE></TITLE>'
                           html += '</HEAD><BODY background="/reuniao/imagem/papel.jpg"  TEXT="#ffffff">'
                           html += '<BR><BR><BR><table align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000">Ponto de publica??o web</label></h3></th></tr></table><br><br>'
                           html += '<FORM NAME="publica" METHOD="POST" ACTION="/reuniao/temp/publica.plx">'
                           html += '<br>'
                           html += '<TABLE align=center>'
                           html += '<tr>'
                           html += '<td><input type="text" name="http" size="60" maxlength="90" value = "http://"></td>'
                           html += '</tr>'
                           html += '</table>'
                           html += '<br><br><br>'
                           html += '<TABLE align=center>'
                           html += '<tr>'
                           html += '<td bgcolor=#ADB6C6><input type="submit" value="    Processa    " style="color: white; text-shadow: 1px 2px 4px #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
                           html += '</TR>'
                           html += '</table>'
                           html += '</form>'  
                           html += '</body>'
                           html += '</html>'
                       var newWindow = window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
                       newWindow.document.write(html)
                       newWindow.document.close()
                       focus()
                       return false              
             }

            function showMsgHelp() {
                alert("                            SALA DE REUNI?O ONLINE\\n\\nMensagem -> Campo alfa num?rico com tamanho de 300 caracteres e diferente de espa?o.\\n\\nNota - ? recomend?vel que uma linha de mensagem tenha no m?ximo 80 caracteres visando dar maior clareza no relat?rio ATA DE REUNI?O.\\n\\nTAGS ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\n<br> - Salto de linha\\n<p> - Salto de par?grafo\\n<b>texto</b> - Texto em negrito\\n<font size=4>texto</font> - Texto com fonte igual a 4 pixel\\n<font color=red>texto</font> - Texto com cor em vermelho\\n<i>texto</i> - Texto em it?lico\\n<u>texto</u> - Texto sublinhado\\n<sub>texto</sub> - Texto subscrito\\n<sup>texto</sup> - Texto sobrescrito\\n<ol><li>texto1<li>texto2<li>texto3</ol> - Lista num?rica dos textos\\n<li>texto1<li>texto2<li>texto3 - Marca??o dos textos\\n\\nNota - Os par?metros de formata??o de texto podem ser utilizados simultaneamente.\\n\\n                EXEMPLO DE UTILIZA??O\\n\\nOl? sr(s) , bom dia a todos<br>Vamos dicurtir a <font size=3 color=red><b>Aquisi??o do im?vel em S?o Paulo.</b></font><br>O Paulo vai nos descrever as alternativas que dispomos.\\n\\n\\nFUN??ES ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\nLimpa -      Move espa?o para o campo mensagem\\nLinha -       Move <br> para o campo mensagem para quebrar linha\\nLista -        Move marcador <li> para o campo mensagem com salto de linha\\nNum?rico Move marcador <ol> para o campo mensagem\\nCola -        Coloca texto da ?rea de transfer?ncia no campo mensagem\\nAnexa -     Disponibiliza documento como um anexo para apresenta??o\\nPublica -   Disponibiliza um link de acesso referente a uma publica??o na internet\\nReal?a -    Evid?ncia uma parte do texto selecionado no campo mensagem\\nSublinha - Real?a um texto selecionado no campo mensagem sublinhando-o")
                event.cancelBubble = true
                return false
            } 

          //-->
          </script>
          </head>
          <body>
          @log
          </body>
          </html>|;
          }}

          sub principal2 {
          $qs =~ s/principal2=//;
          ($tema,$login) = split (/-/,$qs);
          $tema =~ tr/+/ /;
          $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
          $login =~ tr/+/ /;
          $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

          print qq|
          @style

          <body  onLoad="document.form.msg.focus()" onHelp="return showMsgHelp()" class="table3" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
          <div align="center">
          <table>
            <tr>
              <td> &nbsp;</td>
              <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/clear.png" onClick="clear_field()"   WIDTH="24" HEIGHT="20" style="cursor:pointer" title ="Limpar campo mensagem"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/linha.png" onClick="enter('<br>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Salto de linha"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/lista.gif" onClick="enter('<li>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Marcador de lista"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
              <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/nlist.gif" onClick="enter('<ol>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Marcador num?rico"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
              <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><input type="button" value="  ?   "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;font-weight:600'></td>
              <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/anexo.png"   onClick="anexar()"      WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Anexar docto"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
              <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/wlink.gif"   onClick="publicar()"    WIDTH="20" HEIGHT="20" style="cursor:pointer" title ="Publicar um link da internet"  STYLE='cursor: hand; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
              <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/help.gif"    onClick="showMsgHelp()" WIDTH="18" HEIGHT="18" style="cursor:pointer" title ="Ajuda do sistema"  STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px; border-width: 2;color:#003366;border-style:outset;font-weight:600'></td> 
          </tr>
          </table><br>
          <table  align="center">
            <tr>
              <td class="texto"><form name="form" method="post" action="?escreve2">
                    <div align="center"><b><font size=2><label class='sombra'>&nbsp; Mensagem &nbsp; </label></b></fonte> 
                      <input name="msg"     type="text"      class="campo" size="120" maxlength="300" onHelp="return showMsgHelp()">
                      <input name="login"   type="hidden"    class="campo" value="$login">
                      <input name="tema"    type="hidden"    class="campo" value="$tema">
                      <input type="submit"  value="Enviar"   class="botao" >              
                    </div>
              </td>
            </tr>
          </table>
          </form>
          </div>
          </body>
          |;}

          sub style{
          open(STYLE, "$estilos");
          @style = <STYLE>;
          close(STYLE);
          }

          sub todas{
          $qs =~ s/todas=//;
          $qs =~ tr/+/ /;
          $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

          open (LOG, $qs."_".$log);
          @log = <LOG>;
          close(LOG);

          print qq|
          <meta http-equiv="refresh" content="5,?todas"/> ##################### aqui reenvia mensagens para os participantes #############################
          @style
          <script>
          <!--
            function rolar() {
              if( document.body && document.body.clientHeight ) {
                window.innerHeight = document.body.clientHeight
              }
              window.scrollTo( 0, (window.innerHeight/0.1) );
            }
          //-->
          </script>
          <body onLoad="javascript:rolar()">
          @log|;}

          sub topo{
          open(TOPO,"$topo");
          @topo=<TOPO>;
          close(TOPO);
          print "@topo";
          }

          =begin disclaimer
             Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
          SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
          L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
          =end disclaimer




        =begin disclaimer
           Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
        SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
        L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
        =end disclaimer






      -- 

      Thank you very much!

      -dom

      --

      Daniel de Oliveira Mantovani
      Business Analytic Specialist
      Perl Evangelist /Astrophysics hobbyist. 
      +55 11 9 8538-9897
      XOXO




    -- 

    Thank you very much!

    -dom

    --

    Daniel de Oliveira Mantovani
    Business Analytic Specialist
    Perl Evangelist /Astrophysics hobbyist. 
    +55 11 9 8538-9897
    XOXO

----------------------------------------------------------------------------
    =begin disclaimer
       Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
    SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
    L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
    =end disclaimer


----------------------------------------------------------------------------
    =begin disclaimer
       Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
    SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
    L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
    =end disclaimer


----------------------------------------------------------------------------
    =begin disclaimer
       Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
    SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
    L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
    =end disclaimer


    =begin disclaimer
       Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
    SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
    L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
    =end disclaimer






  -- 

  Thank you very much!

  -dom

  --

  Daniel de Oliveira Mantovani
  Business Analytic Specialist
  Perl Evangelist /Astrophysics hobbyist. 
  +55 11 9 8538-9897
  XOXO

  =begin disclaimer
     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
  =end disclaimer




--------------------------------------------------------------------------------
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160112/124386d5/attachment-0001.html>

From renato.cron at gmail.com  Tue Jan 12 02:24:10 2016
From: renato.cron at gmail.com (Renato Santos)
Date: Tue, 12 Jan 2016 08:24:10 -0200
Subject: [SP-pm] script perl no windows 10
In-Reply-To: <COL126-DS2154FC4523AD660932071992CA0@phx.gbl>
References: <COL126-DS17DB8FE31F840F40B9D68292C90@phx.gbl>
	<CAPpv0_oJAxED39CB8g8LwBr1No6j1UUOgMmyfwFwY1XjBCqEpQ@mail.gmail.com>
	<CAEmYuOtA_r3qjLC1qBu+u_rheT-7=3zJf=k-Av219PpPsGajBw@mail.gmail.com>
	<CAEmYuOt2YFQbcwB-Ma5nBO+38ep79d7GMmsChkLVuBzK4bXh7w@mail.gmail.com>
	<COL126-DS5D77FB563308C656D1BD892C90@phx.gbl>
	<COL126-DS233328F8A858D8000AA7892C90@phx.gbl>
	<COL126-DS12BC4E7DA59D0D8F61764492C90@phx.gbl>
	<CAEmYuOtc4W7QT2jo0tBPZdeB9RbHhYFDU8vu+noMF8cVLfn0iw@mail.gmail.com>
	<CACLgUQ+i45KLochJxu9tsEXqWHdfX71hUGGh6F3NqsyCa6x_gw@mail.gmail.com>
	<COL126-DS2154FC4523AD660932071992CA0@phx.gbl>
Message-ID: <CABmdQ_RtPN2t=09hB6gAX0Y7iKiu2wgWQHbBy32TQh9+AwikLA@mail.gmail.com>

Kleber,

talvez a causa do problema n?o esteja neste script perl, pois se voc? diz
que n?o funciona entre os navegadores (at? os mais recentes), ? capaz que o
problema seja o HTML e/ou javascript.

Primeiro, tente isolar e identificar qual o problema que est? gerando essa
incompatibilidade com os navegadores: use o chrome ou firefox para salvar o
arquivo em um .html e fa?a os testes em outros navegadores. Talvez, se voc?
usar muito javascript, n?o ir? funcionar na hora que voc? tentar fazer um
AJAX dentro de uma pagina salva no disco, por?m, se o problema for esse
<meta refresh> esse funcionaria sem problemas.



2016-01-12 8:15 GMT-02:00 kleber caetano <payback at hotmail.com.br>:

> Mais uma vez agrade?o a gentileza em responder.
> A minha expectativa nunca foi abusar do conhecimento de voc?s.
> Imaginava que a solu??o para o problema apresentado fosse simples ou
> seja , vis?vel para um especialista em perl.
> Entretanto , pelo visto , a identifica??o da causa do problema ? mais
> complexa.
>
> Nota ? Vou pesquisar na internet a op??o do Lucas.
>
> Desejo a todos um bom 2016 com paz e sa?de.
> Abra?o a todos ,
>
> kleber
>
> *From:* Lucas Mateus <lucasmateus.oliveira at gmail.com>
> *Sent:* Monday, January 11, 2016 9:26 PM
> *To:* saopaulo-pm at mail.pm.org
> *Subject:* Re: [SP-pm] script perl no windows 10
>
>
> Kleber, de fato ? muito dif?cil te ajudar sem o ambiente prop?cio para
> teste e debug. Se estiver disposto, use o SocketIO se come?ar agora VC
> implementa um chat descente em 2h te garanto.
> Em 11 de jan de 2016 9:16 PM, "Daniel de Oliveira Mantovani" <
> daniel.oliveira.mantovani at gmail.com> escreveu:
>
>> Opa Kleber, desculpa se eu passei a mensagem errada. Na verdade, o que eu
>> quis dizer ? que independente da qualidade do seu software, hoje existem
>> muitas op??es de softwares/servi?os maduros gratuitos. Apenas se existisse
>> uma regra de neg?cio "fora de s?rie", seria justific?vel. Inclusive,
>> existem ?timas op??es que oferecerem a possibilidade do usu?rio se conectar
>> atrav?s do aparelho telef?nico m?vel. Voc? por exemplo pode criar um canal
>> de IRC criptografado e com senha, onde os usu?rios podem escolher o
>> aplicativo do aparelho telef?nico m?vel que mais lhe agrada.
>>
>> Eu entendo a sua "perspic?cia" em achar esse grupo espec?fico de
>> programadores Perl, independente da fonte. Por?m, a nossa lista ? parecida
>> com uma lista de especialistas/apaixonados em/por carros. Onde as pessoas
>> perguntam, "Qual o melhor material para construir carros de F?rmula 1 que
>> consigam aproveitar mais a chuva em temperaturas entre 10?C~12?C ?".  E a
>> sua pergunta foi, "Pessoal, olha esse carro aqui quebrou... Voc?s podem
>> arrumar pra mim de gra?a, por favor ?". Na verdade, voc? n?o precisa ser um
>> especialista para unir-se a n?s. Muita gente que est? come?ando, felizmente
>> tamb?m nos acha. Que foi o meu caso pessoal, eu queria entender um exploit
>> que se eu me lembro bem derrubava servidores de Counter-Strike.
>>
>> Eu perfeitamente entendo que voc? n?o teve m? inten??o, por isso eu te
>> convido ? aprender Perl. N?s podemos te orientar em real-time no nosso
>> canal de IRC, #sao-paulo.pm irc.perl.org 24H//7 (Nem sempre a resposta ?
>> imediata, mas ? um ambiente colaborativo onde todos s?o muito bem vindos.
>> N?s temos bastante conte?do em portugu?s, incluindo artigo, manuais, livros
>> etc.)
>>
>> Seja muito bem-vindo!
>>
>>
>> 2016-01-11 20:35 GMT-02:00 kleber caetano <payback at hotmail.com.br>:
>>
>>> Me perdoem em insistir neste assunto.
>>> Mais uma informa??o que talvez seja importante :
>>>
>>> Parece que o script envia informa??es vazias ou seja as mensagens que
>>> estavam na tema desaparecem.
>>> ( a parte da tela que apresenta as mensagens ficam em branco inclusive o
>>> tema da reuni?o ----> acho que ?
>>> <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe"
>>> width="1010" height="480" style="overlap:auto"></iframe> ).
>>>
>>> *From:* kleber caetano <payback at hotmail.com.br>
>>> *Sent:* Monday, January 11, 2016 8:09 PM
>>> *To:* saopaulo-pm at mail.pm.org
>>> *Subject:* Re: [SP-pm] script perl no windows 10
>>>
>>> Mais uma informa??o que talvez seja importante aos amigos :
>>>
>>> Apesar de n?o estar apresentando as mensagens aos participantes da sala ,
>>> as mensagens enviadas pelos usu?rios s?o gravadas nos arquivos de
>>> trabalho.
>>> ( ? poss?vel constatar isto ).
>>>
>>> *From:* kleber caetano <payback at hotmail.com.br>
>>> *Sent:* Monday, January 11, 2016 7:16 PM
>>> *To:* saopaulo-pm at mail.pm.org
>>> *Subject:* Re: [SP-pm] script perl no windows 10
>>>
>>> Agrade?o a gentiliza em responder.
>>> O Daniel me esculhambou ( rsrsrsrsrss ).
>>> Apesar do script n?o ser bem elaborado ou estruturado , ele ? simples e
>>> ?til ( gostaria de tentar acertar o erro ).
>>>
>>> Implementei as sugest?o do Daniel e do Lucas [ setInterval(function(){
>>> window.location.href = '?todas' }, 5000); ]
>>> e o problema passou a ocorrer tamb?m no internet explorer 11( n?o enviou
>>> as mensagens para os participantes ).
>>>
>>> Pelo que eu entendo deste script , a a??o reload envia as mensagens para
>>> <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe"
>>> width="1010" height="480" style="overlap:auto"></iframe>
>>> e com setInterval n?o chegou ( porque n?o chegou l? ).
>>>
>>> Talvez isto ajude a analisar o problema.
>>>
>>>
>>> *From:* Daniel de Oliveira Mantovani
>>> <daniel.oliveira.mantovani at gmail.com>
>>> *Sent:* Monday, January 11, 2016 6:12 PM
>>> *To:* saopaulo-pm at mail.pm.org
>>> *Subject:* Re: [SP-pm] script perl no windows 10
>>>
>>> S? refor?ando o que eu disse, eu j? achei uma falha de seguran?a, onde
>>> voc? abre um descritor de arquivos com dois argumentos. *Possivelmente*
>>> em algum desses "opens" um dos argumentos vem do usu?rio.
>>>
>>>
>>> https://www.securecoding.cert.org/confluence/pages/viewpage.action?pageId=76775519
>>>
>>> On Mon, Jan 11, 2016 at 5:36 PM, Daniel de Oliveira Mantovani <
>>> daniel.oliveira.mantovani at gmail.com> wrote:
>>>
>>>> Eu fortemente te aconselho a jogar isso fora, e usar o Google Hangout
>>>> ou qualquer uma das milh?es de solu??es gr?tis que resolvem isso.
>>>>
>>>> 2016-01-11 17:33 GMT-02:00 Lucas Moraes <lucastiagodemoraes at gmail.com>:
>>>>
>>>>> Aconselho voc? atualizar a pagina com javascript.
>>>>>
>>>>> setInterval(function(){ window.location.href = '?todas' }, 5000);
>>>>>
>>>>> Falou.
>>>>>
>>>>> Em 11 de janeiro de 2016 17:26, kleber caetano <payback at hotmail.com.br
>>>>> > escreveu:
>>>>>
>>>>>> Ol? Sr(s),
>>>>>>
>>>>>> Migrei para o windows 10 e estou tendo um problema com um aplicativo
>>>>>> em perl quando utilizo o edge ,
>>>>>> entretanto , quando utilizo o explorer 11 o aplicativo ? executado
>>>>>> normalmente.
>>>>>>
>>>>>> Nota[1] - Este aplicativo refere-se a um chat ( sala de reuni?o
>>>>>> online ).
>>>>>>
>>>>>> O problema ( no edge ) ocorre quando :
>>>>>>
>>>>>> - Ele reenvia as mensagens ( atrav?s do comando <meta
>>>>>> http-equiv="refresh" content="5,?todas"/> )  para
>>>>>>   os participantes da sala de reuni?o ou seja n?o est? enviando nada.
>>>>>> - Quando ? encerrada a reuni?o , o aplicativo elimina os arquivos de
>>>>>> trabalho , por?m , no edge isto
>>>>>>   n?o est? acontecendo.
>>>>>>
>>>>>> Nota[2] - No explorer 11 estes problemas n?o ocorrem.
>>>>>>
>>>>>> Nota[3] - O script em perl  foi desenvolvido por um amigo que
>>>>>> conhecia bastante perl
>>>>>>                entretanto meu conhecimento ? limitado.
>>>>>>
>>>>>> Nota[4] ? Estou trabalhando com
>>>>>> ActivePerl-5.16.3.1603-MSWin32-x86-296746
>>>>>>
>>>>>> Nota[5] ? Caso considerem necess?rio , tenho como disponibilizar um
>>>>>> link de acesso a este site sala.cgi
>>>>>>
>>>>>> Nota[6] - Quando instalei o windows 10 , o reload autom?tico
>>>>>> funcionava , entretanto ,
>>>>>>                 ao realizar uma manuten??o grande ( nova vers?o acho
>>>>>> ) o problema apareceu.
>>>>>>                 O problema de n?o eliminar os arquivos tempor?rio de
>>>>>> trabalho existem
>>>>>>                 desde a instala??o inicial do windows 10
>>>>>> Nota[7] ? coloquei duas marcas no script onde eu acho que as fun??es
>>>>>> s?o executadas:
>>>>>>
>>>>>> ######################### aqui elimina os arquivos de trabalho
>>>>>> ###################################
>>>>>>
>>>>>> ##################### aqui reenvia mensagens para os participantes
>>>>>> #############################
>>>>>>
>>>>>> Algu?m sabe como resolver isto ?
>>>>>>
>>>>>> Agrade?o a aten??o ,
>>>>>>
>>>>>> kleber
>>>>>>
>>>>>>
>>>>>> =================================================================================================
>>>>>>                                                          script em
>>>>>> perl  ( sala.cgi )
>>>>>>
>>>>>> =================================================================================================
>>>>>> #!perl
>>>>>> print "Content-type:text/html\n\n";
>>>>>> use CGI::Carp(fatalsToBrowser);
>>>>>>
>>>>>>
>>>>>> ###############################################################################################
>>>>>> #                                     CONFIGURA??ES
>>>>>> GERAIS
>>>>>> #
>>>>>> #
>>>>>> #
>>>>>> $titulo = "Sala de Reuni?o Online";        # T?tulo do
>>>>>> script
>>>>>> #
>>>>>> $master = "master.log";                         # Arquivo tempor?rio
>>>>>> a guardar primeiro usu?rio                                              #
>>>>>> $log    = "logs.log";                                # Arquivo
>>>>>> tempor?rio de logs
>>>>>> totais                                                                    #
>>>>>> $log2   = "logs2.log";                            # Arquivo
>>>>>> tempor?rio de logs da
>>>>>> sess?o                                                              #
>>>>>> $online = "online.log";                         # Arquivo tempor?rio
>>>>>> com nomes dos usu?rios Online                                        #
>>>>>> $estilos= "estilos.css";                        # Arquivo com os
>>>>>> estilos dentro da pasta
>>>>>> modelos                                              #
>>>>>> $topo   = "topo.html";                         # Template do
>>>>>> Topo
>>>>>> #
>>>>>> $fim    = "fim.html";                           # Template do
>>>>>> Fim
>>>>>> #
>>>>>> #
>>>>>> #
>>>>>> #
>>>>>> #
>>>>>> #                                     FIM DAS
>>>>>> CONFIGURA??ES
>>>>>> #
>>>>>>
>>>>>> ###############################################################################################
>>>>>>
>>>>>> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>>>>>> @conteudo = split(/&/, $buffer);
>>>>>> foreach $par (@conteudo) {
>>>>>>         ($campo, $valor) = split(/=/, $par);
>>>>>>         $valor =~ tr/+/ /;
>>>>>>         $valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>>         $CAMPO{$campo} = $valor;
>>>>>>     }
>>>>>>
>>>>>> $qs = "$ENV{QUERY_STRING}";
>>>>>> &data;
>>>>>> &style;
>>>>>> if ($qs eq ""){
>>>>>> print qq|
>>>>>> <BR><BR><BR><BR><BR><BR><BR>
>>>>>> |;
>>>>>> &topo;
>>>>>> print qq?
>>>>>> <script language="JavaScript">
>>>>>> <!--
>>>>>> altura = 690;
>>>>>> largura= 1090;
>>>>>> l = (screen.width - largura)/2;
>>>>>> t = (screen.height - altura - 50)/2;
>>>>>> var flag = "";
>>>>>> var idioma=1;
>>>>>> var strCookie='payback';
>>>>>>
>>>>>> function LerCookie(strCookie) {
>>>>>>     var strNomeIgual = strCookie + "=";
>>>>>>     var arrCookies = document.cookie.split(';');
>>>>>>     for(var i = 0; i < arrCookies.length; i++)
>>>>>>     {
>>>>>>         var strValorCookie = arrCookies[i];
>>>>>>         while(strValorCookie.charAt(0) == ' ')
>>>>>>         {
>>>>>>             strValorCookie = strValorCookie.substring(1,
>>>>>> strValorCookie.length);
>>>>>>         }
>>>>>>         if(strValorCookie.indexOf(strNomeIgual) == 0)
>>>>>>         {
>>>>>>             var
>>>>>> mensagem=strValorCookie.substring(strNomeIgual.length,
>>>>>> strValorCookie.length);
>>>>>>             flag = mensagem;
>>>>>>             mensagem ='';
>>>>>>             return;
>>>>>>         }
>>>>>>     }
>>>>>>     alert ( '!!!! Erro cr?tico : N?o foi poss?vel restaurar ?rea de
>>>>>> transfer?ncia' );
>>>>>>     top.location.href = "/payback/index.htm";
>>>>>> };
>>>>>> function init(form) {
>>>>>>               LerCookie(strCookie);
>>>>>>               if (flag != null ) {
>>>>>>                  flag = flag.split('|');
>>>>>>                  document.form.login.value = flag[9];
>>>>>>               }
>>>>>>               document.form.tema.focus();
>>>>>> }
>>>>>> function Entra(form) {
>>>>>>         if (document.form.tema.value.length == 0)  {
>>>>>>             alert("O tema da reuni?o n?o foi informado");
>>>>>>             document.form.tema.focus();
>>>>>>             document.form.tema.select();
>>>>>>             return false;
>>>>>>         }
>>>>>>         novajanela = window.open("", "entrar",
>>>>>> "scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l);
>>>>>>
>>>>>>         return true;
>>>>>> }
>>>>>> function showSalaHelp() {
>>>>>>       altura1=400;
>>>>>>       largura1= 800;
>>>>>>       l1 = (screen.width - largura + 250)/2;
>>>>>>       t1 = (screen.height - altura + 250)/2;
>>>>>>       var html = '<HTML><HEAD><TITLE></TITLE></HEAD>';
>>>>>>           html += '<BODY background="/reuniao/imagem/papel.jpg"
>>>>>> TEXT="#000066"><br><table align=center><tr><td><h4><b>SALA &nbsp;  DE
>>>>>> &nbsp;  REUNI?O &nbsp;  ONLINE
>>>>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></h4></td></tr></table><br><TABLE
>>>>>> ALIGN=CENTER><font size=2><TR><TD><PRE><b>';
>>>>>>           html += '<li>O dado usu?rio deve ser ?nico por sala.';
>>>>>>           html += '<li>O dado tema da reuni?o ser? o ponto de
>>>>>> encontro dos participantes na sala.<br>';
>>>>>>           html += '   Este texto n?o pode conter espa?o , por exemplo
>>>>>> , informar Aquisi??o_de_Filial';
>>>>>>           html += '<li>O sistema diferencia letra mai?scula de
>>>>>> min?scula para identifica??o da sala.';
>>>>>>           html += '<li>Cada sala ter? um ?nico tema n?o tendo
>>>>>> limita??es de quantidade de aberturas de<br>';
>>>>>>           html += '   salas e participantes.<br>';
>>>>>>           html += '<li>O usu?rio que abrir a sala ou seja o primeiro
>>>>>> a entrar receber? uma tarefa de<br>';
>>>>>>           html += '  encerrar a reuni?o ( bot?o especial ).<br>  Este
>>>>>> usu?rio , ao sair da sala , provocar? a elimina??o dos arquivos que
>>>>>> registram<br>  os textos digitados.<br>  Portanto , recomenda-se dar um
>>>>>> tempo de poucos segundos antes de sair da sala.';
>>>>>>           html += '<li>Ao acionar o bat?o especial ENCERRAR REUNI?O ,
>>>>>> o texto REUNI?O FINALIZADA<br>';
>>>>>>           html += '   ? enviado ? sala e nenhuma nova mensagem ?
>>>>>> registrada pelo sistema.';
>>>>>>           html += '<li>? recomend?vel que os participantes imprimam a
>>>>>> ata de reuni?o ap?s esta a??o.<br>';
>>>>>>           html += '<li>Para ajuda de formata??o do texto mensagem ,
>>>>>> na sala de reuni?o , acionar a tecla F1';
>>>>>>           html += '<li>Os documentos enviados ao servidor para serem
>>>>>> apresentados como anexo ,<br>  ser?o eliminados quando o sistema
>>>>>> operacional for reinicializado.<br>';
>>>>>>           html += '  Nota - O documento apresentado como anexo  ,
>>>>>> para ser baixado no servidor , dever? ter<br>         no m?ximo 500
>>>>>> kbytes.';
>>>>>>           html += '</TABLE></FONT></B></PRE></BODY></HTML>';
>>>>>>           var newWindow =
>>>>>> window.open("","","scrollbars=auto,height="+altura1+",width="+largura1+",top="+t1+",left="+l1);
>>>>>>           newWindow.document.write(html);
>>>>>>           newWindow.document.close();
>>>>>>           event.cancelBubble = true;
>>>>>>           return false;
>>>>>> }
>>>>>> //-->
>>>>>> </script>
>>>>>> <style type="text/css"><!--
>>>>>> .multi_bg { background-image : linear-gradient(to right, rgba(30, 75,
>>>>>> 115, 0.5),  rgba(30, 75, 115, 0.5)); }
>>>>>> -->
>>>>>> </style>
>>>>>> </HEAD>
>>>>>>         <body onload="init(this.form)" onHelp="return showSalaHelp()"
>>>>>> BGCOLOR="#ADB6C6" TEXT="#003366" class="multi_bg">
>>>>>>         <form action="?entra" method="POST" name="form"
>>>>>> target="entrar" id="form" OnSubmit="return Entra(this)">
>>>>>>         <br>
>>>>>>         <strong><font color="#ffffff"
>>>>>> size="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<label
>>>>>> class='sombra'><b>Escolha um tema para
>>>>>> entrar</label></font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img
>>>>>> src="/reuniao/imagem/help.gif"
>>>>>> onClick="showSalaHelp();document.form.tema.focus()" WIDTH="18" HEIGHT="18"
>>>>>> style="cursor:pointer" title ="Ajuda do sistema">
>>>>>>         <br><br>
>>>>>>         <div align="center">
>>>>>>               <table>
>>>>>>                 <tr>
>>>>>>                    <!-- <td width="33%"><div align="right"><font
>>>>>> class="sombra"><font color="#ffffff"
>>>>>> size="2"><b>Usu&aacute;rio&nbsp;&nbsp;</b></font></div></td> -->
>>>>>>                   <td><input type="hidden" name="login" class="campo"
>>>>>> onFocus="document.form.tema.focus()" onHelp="return showSalaHelp()"></td>
>>>>>>                  </tr>
>>>>>>                 <tr>
>>>>>>                   <td><div align="right"><font class="sombra"><font
>>>>>> color="#ffffff" size="2"><b>Tema&nbsp;&nbsp;</b></font></div></td>
>>>>>>                   <td><input name="tema" type="text" class="campo"
>>>>>> id="tema" onHelp="return showSalaHelp()"></td>
>>>>>>                 </tr>
>>>>>>               </table><br>
>>>>>>               <table>
>>>>>>              <tr>
>>>>>>
>>>>>> <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
>>>>>>                  <td align="center" colspan=2><input type="submit"
>>>>>> value="Entrar" class="botao" STYLE='cursor: pointer;font-weight:bold'></td>
>>>>>>             </tr>
>>>>>>              </table><br>
>>>>>>         </div>
>>>>>> ?;&fim;}
>>>>>>
>>>>>> if ($qs eq "entra"){
>>>>>> if ($CAMPO{login} eq ""){
>>>>>> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
>>>>>> &topo;
>>>>>> print qq|<br>Voc? deve digitar um nome de usu?rio antes de entrar na
>>>>>> sala ! <br><br>
>>>>>> <div align="center">
>>>>>> <input type="button" class="botao2"
>>>>>> onClick="javascript:windows.close()" value="Fechar Janela"><br>
>>>>>> </div>
>>>>>> |;
>>>>>> &fim;
>>>>>> }else{
>>>>>> if ($CAMPO{tema} eq "" ){
>>>>>> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
>>>>>> &topo;
>>>>>> print qq|<br>Voc? deve digitar um tema antes de entrar na sala !
>>>>>> <br><br>
>>>>>> <div align="center">
>>>>>> <input type="button" class="botao2"
>>>>>> onClick="javascript:window.close()" value="Fechar Janela"><br>
>>>>>> </div>
>>>>>> |;
>>>>>> &fim;
>>>>>> }else{
>>>>>> if (-e "$CAMPO{tema}"."_"."$log"){
>>>>>> open(ONLINE,"$CAMPO{tema}_$online");
>>>>>> @online = <ONLINE>;
>>>>>> close(ONLINE);
>>>>>>
>>>>>> foreach (@online){
>>>>>> chomp;
>>>>>> s/%//gi;
>>>>>> if ($CAMPO{login} eq "$_"){
>>>>>> $repetido = "1";
>>>>>> }else{
>>>>>> $repetido = "0";
>>>>>> }}
>>>>>> if ($repetido eq "1"){
>>>>>> print qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
>>>>>> &topo;
>>>>>> print qq|<br>Este nome de usu?rio j? est? em uso! Por favor escolha
>>>>>> outro.<br><br>
>>>>>> <div align="center">
>>>>>> <input type="button" class="botao2"
>>>>>> onClick="javascript:window.close()" value="Fechar Janela"><br>
>>>>>> </div>
>>>>>> |;&fim;
>>>>>> }else{
>>>>>> open(MASTER,"$CAMPO{tema}_$master");
>>>>>> $master = <MASTER>;
>>>>>> close(MASTER);
>>>>>> chomp $master;
>>>>>> $master =~ s/%//gi;
>>>>>>
>>>>>> if ($CAMPO{login} eq $master){$a = "1";} else {$a = "0";}
>>>>>> open(ONLINE,">>$CAMPO{tema}_$online");
>>>>>> print ONLINE qq|%$CAMPO{login}%\n|;
>>>>>> close(ONLINE);
>>>>>>
>>>>>> open (SALA, ">>$CAMPO{tema}_$log");
>>>>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>>>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>>>>> close(SALA);
>>>>>>
>>>>>> open (SALA, ">>$CAMPO{tema}_$log2");
>>>>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>>>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>>>>> close(SALA);
>>>>>>
>>>>>> &topo;&msg;&fim;
>>>>>> }}else{
>>>>>>
>>>>>> open(MASTER,">$CAMPO{tema}_$master");
>>>>>> print MASTER qq|%$CAMPO{login}%\n|;
>>>>>> close(MASTER);
>>>>>>
>>>>>> open(ONLINE,">>$CAMPO{tema}_$online");
>>>>>> print ONLINE qq|%$CAMPO{login}%\n|;
>>>>>> close(ONLINE);
>>>>>>
>>>>>> open (SALA, ">>$CAMPO{tema}_$log");
>>>>>> print SALA qq|<div align="center"><font class="texto"><h5>ATA DA
>>>>>> REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
>>>>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>>>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>>>>> close(SALA);
>>>>>>
>>>>>> open (SALA, ">>$CAMPO{tema}_$log2");
>>>>>> print SALA qq|<div align="center"><font class="texto"><h5>ATA DA
>>>>>> REUNI?O&nbsp;:&nbsp; <font size=4><b>$CAMPO{tema} </b></font></div><hr>\n|;
>>>>>> print SALA qq|<font class="texto"><i>($data)</i> &nbsp;
>>>>>> <b>$CAMPO{login}</b> entrou na sala</b></font><br>\n|;
>>>>>> close(SALA);
>>>>>> $a = "1";
>>>>>> &topo;&msg;&fim;
>>>>>> }}}}
>>>>>>
>>>>>> if ($qs eq "escreve2"){
>>>>>> $CAMPO{msg} =~ tr/+/ /;
>>>>>> $CAMPO{msg} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>> $CAMPO{tema} =~ tr/+/ /;
>>>>>> $CAMPO{tema} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>> if ($CAMPO{msg} eq ""){
>>>>>> print qq|
>>>>>> <script language="Javascript">
>>>>>> <!--
>>>>>> alert ('Mensagem n?o informada')
>>>>>> //-->
>>>>>> </script>
>>>>>> <body
>>>>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>>>>> |;}else{
>>>>>>
>>>>>> if ($CAMPO{msg} eq "REUNI?O FINALIZADA"){
>>>>>>
>>>>>> open(LOG,">>$CAMPO{tema}"."_"."$log");
>>>>>> print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O
>>>>>> FINALIZADA</b></font></div><br>\n|;
>>>>>> close(LOG);
>>>>>>
>>>>>> open(LOG,">$CAMPO{tema}"."_"."$log2");
>>>>>> print LOG qq|<br><div align="center"><font class="texto"><b>REUNI?O
>>>>>> FINALIZADA</b></font></div><br>\n|;
>>>>>> close(LOG);
>>>>>>
>>>>>> print qq|
>>>>>> <body
>>>>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>>>>> |;
>>>>>> }else{
>>>>>>
>>>>>> open(LOG,"$CAMPO{tema}"."_"."$log");
>>>>>> @log = <LOG>;
>>>>>> close(LOG);
>>>>>> $r = "0";
>>>>>> foreach (@log){
>>>>>> chomp;
>>>>>> if($_ eq "<br><div align=\"center\"><font class=\"texto\"><b>REUNI?O
>>>>>> FINALIZADA</b></font></div><br>"){
>>>>>> $r = "1";
>>>>>> }}
>>>>>>
>>>>>> if ($r eq "1"){
>>>>>> print qq|
>>>>>> <body
>>>>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>>>>> |;
>>>>>> }else{
>>>>>>
>>>>>> open(LOG,">>$CAMPO{tema}"."_"."$log");
>>>>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp;
>>>>>> <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
>>>>>> close(LOG);
>>>>>> open(LOG,">>$CAMPO{tema}"."_"."$log2");
>>>>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp;
>>>>>> <b>$CAMPO{login}</b> &nbsp;<i>diz</i>  &nbsp; $CAMPO{msg}</font><br>\n|;
>>>>>> close(LOG);
>>>>>> print qq|
>>>>>> <body
>>>>>> onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')">
>>>>>> |;}}}}
>>>>>>
>>>>>> if ($qs =~ /imprimir/){
>>>>>> &imprimir;
>>>>>> }
>>>>>>
>>>>>> if ($qs =~ /logout/){
>>>>>> &logout;
>>>>>> }
>>>>>>
>>>>>> if ($qs =~ /principal/){
>>>>>> &principal;
>>>>>> }
>>>>>>
>>>>>> if ($qs =~ /principal2/){
>>>>>> &principal2;
>>>>>> }
>>>>>>
>>>>>> if ($qs =~ /todas/){
>>>>>> &todas;
>>>>>> }
>>>>>>
>>>>>> sub data{
>>>>>> ($seg,$min,$hr,$dia,$mes,$ano) = localtime();
>>>>>> if ($hr < "10"){$hr = "0$hr";}
>>>>>> if ($min < "10"){$min = "0$min";}
>>>>>> if ($seg < "10"){$seg = "0$seg";}
>>>>>>
>>>>>> @mes =
>>>>>> ("janeiro","fevereiro","mar?o","abril","maio","junho","julho","agosto","setembro","outubro","novembro","dezembro");
>>>>>> $ano = 1900+$ano;
>>>>>>
>>>>>> $data  = "$hr:$min:$seg, $dia de @mes[$mes] de $ano";
>>>>>> }
>>>>>>
>>>>>> sub fim{
>>>>>> open(FIM,"$fim");
>>>>>> @fim=<FIM>;
>>>>>> close(FIM);
>>>>>> print "@fim";
>>>>>> }
>>>>>>
>>>>>> sub imprimir {
>>>>>> $qs =~ s/imprimir=//;
>>>>>> $qs =~ tr/+/ /;
>>>>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>>
>>>>>> open (LOG,"$qs"."_"."$log");
>>>>>> @log = <LOG>;
>>>>>> close(LOG);
>>>>>>
>>>>>> print qq|
>>>>>> <html>
>>>>>> <head>
>>>>>> <title>$titulo</title>
>>>>>> @style
>>>>>> </head>
>>>>>> <body onload="this.window.print()">
>>>>>> @log
>>>>>> </body>
>>>>>> |;}
>>>>>>
>>>>>> sub logout{
>>>>>> $qs =~ s/logout=//gi;
>>>>>> ($login,$tema) = split (/-/,$qs);
>>>>>> $login =~ tr/+/ /;
>>>>>> $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>> $tema =~ tr/+/ /;
>>>>>> $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>>
>>>>>> open(LOG,">>$tema"."_"."$log2");
>>>>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b>
>>>>>> saiu da sala</b></font><br>\n|;
>>>>>> close(LOG);
>>>>>>
>>>>>> open(LOG,">>$tema"."_"."$log");
>>>>>> print LOG qq|<font class="texto"><i>($data)</i> &nbsp; <b>$login</b>
>>>>>> saiu da sala</b></font><br>\n|;
>>>>>> close(LOG);
>>>>>>
>>>>>> open(ONLINE,"$tema"."_"."$online");
>>>>>> @online = <ONLINE>;
>>>>>> close(ONLINE);
>>>>>>
>>>>>> @on = @online;
>>>>>> foreach (@on){
>>>>>> chomp;
>>>>>> if ($_ =~ /%$login%/){
>>>>>> s/$_//;
>>>>>> }}
>>>>>>
>>>>>> open(ONLINE,">$tema"."_"."$online");
>>>>>> print ONLINE qq|@on|;
>>>>>> close(ONLINE);
>>>>>>
>>>>>> open(ONLINE,"$tema"."_"."$online");
>>>>>> @online = <ONLINE>;
>>>>>> close(ONLINE);
>>>>>>
>>>>>> if (length ("@online") eq "0"){
>>>>>> unlink("$tema"."_"."$master");  ######################### aqui
>>>>>> elimina os arquivos de trabalho ###################################
>>>>>> unlink("$tema"."_"."$online");  #################   n?o est? sendo
>>>>>> executado no edge    ###########################################
>>>>>> unlink("$tema"."_"."$log2");
>>>>>> unlink("$tema"."_"."$log");
>>>>>> }else{}
>>>>>>
>>>>>> print qq|
>>>>>> <html>
>>>>>> <head>
>>>>>> <title>$titulo</title>
>>>>>> <meta http-equiv="Content-Type" content="text/html;
>>>>>> charset=iso-8859-1">
>>>>>> <script language="JavaScript">
>>>>>> function Logout(){
>>>>>> this.window.close()
>>>>>> }
>>>>>> </script>
>>>>>> </head>
>>>>>> <body onload="javascript:Logout()">
>>>>>> </body>
>>>>>> </html>
>>>>>> |;}
>>>>>>
>>>>>> sub msg{
>>>>>> $qs =~ tr/+/ /;
>>>>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>> open (LOG, "$qs"."_"."$log2");
>>>>>> @log = <LOG>;
>>>>>> close(LOG);
>>>>>>
>>>>>> $finalizado = "0";
>>>>>>
>>>>>> foreach (@log){
>>>>>> chomp;
>>>>>> print $_;
>>>>>> if ($_ eq "REUNI?O FINALIZADA"){
>>>>>> $finalizado = "1";
>>>>>> }}
>>>>>>
>>>>>> print qq|
>>>>>> <script language="JavaScript">
>>>>>> function Imprimir(){
>>>>>> altura =690;
>>>>>> largura= 1090;
>>>>>> l = (screen.width - largura)/2;
>>>>>> t = (screen.height - altura - 50)/2;
>>>>>> window.open("?imprimir=$CAMPO{tema}","","scrollbars,height="+altura+",width="+largura+",top="+t+",left="+l);
>>>>>>
>>>>>> }
>>>>>> function unLoad(){
>>>>>>
>>>>>> window.open("?logout=$CAMPO{login}-$CAMPO{tema}","","width=80,height=80")
>>>>>> }
>>>>>> </script>
>>>>>> <body onunLoad="unLoad()">
>>>>>> <table>
>>>>>> <tr><td>
>>>>>> <font class="texto1"><b> Usu?rio:
>>>>>> $CAMPO{login}</b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
>>>>>> </td><td>
>>>>>> &nbsp;<font class="texto1"><b> Tema: $CAMPO{tema}<br></b></font>
>>>>>> </td><td>
>>>>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>>>>> src="/reuniao/imagem/calculadora.gif" onClick="calculadora()" WIDTH="18"
>>>>>> HEIGHT="22" style="cursor:pointer" title ="Calculadora financeira">
>>>>>> </td><td>
>>>>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>>>>> src="/reuniao/imagem/Email.gif" onClick="email()" WIDTH="24" HEIGHT="20"
>>>>>> style="cursor:pointer" title ="Correspond?ncia interna">
>>>>>> </td><td>
>>>>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>>>>> src="/reuniao/imagem/acessorio.gif" onClick="acessorio()" WIDTH="24"
>>>>>> HEIGHT="20" style="cursor:pointer" title ="Acess?rios">
>>>>>> </td><TD>
>>>>>> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img
>>>>>> src="/reuniao/imagem/alarme.gif" onClick="alarme()" WIDTH="24" HEIGHT="20"
>>>>>> style="cursor:pointer" title ="Alarme">
>>>>>> </td></tr></table>
>>>>>> <iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe"
>>>>>> width="1010" height="480" style="overlap:auto"></iframe>
>>>>>> <iframe align="middle" src="?principal2=$CAMPO{tema}-$CAMPO{login}"
>>>>>> name="iframe2" width="1010" height="75" style="overlap:auto"></iframe>
>>>>>> <table>
>>>>>> <tr>
>>>>>> <td><input type="button" class="botao" value="Ata de reuni?o"
>>>>>> onClick="javascript:Imprimir()"
>>>>>> STYLE='cursor:pointer;font-weight:bold'></td>
>>>>>> <td>&nbsp;</td>
>>>>>> <td><div align="right">
>>>>>> <input type="button" class="botao2" value="Sair da Sala"
>>>>>> onClick="javascript:window.close()"
>>>>>> STYLE='cursor:pointer;font-weight:bold'></div></td>
>>>>>> <td>&nbsp;</td>
>>>>>> |;
>>>>>>
>>>>>> if($a eq "1"){print qq|<td><div align="center">
>>>>>> <form name="form" method="post" action="?escreve2" target="iframe2">
>>>>>>             <input name="msg"    type="hidden" size="80"
>>>>>> class="campo" value="REUNI?O FINALIZADA">
>>>>>>             <input name="login"  type="hidden" class="campo"
>>>>>> value="$CAMPO{login}">
>>>>>>             <input name="tema"   type="hidden" class="campo"
>>>>>> value="$CAMPO{tema}">
>>>>>>             <input type="submit" value="Encerrar Reuni?o"
>>>>>> class="botao" STYLE='cursor: pointer;font-weight:bold'>
>>>>>> </form>
>>>>>> </div>
>>>>>> </div></td></tr>|;}print qq|</table><br>|;}
>>>>>>
>>>>>> sub principal{
>>>>>> $qs =~ s/principal=//;
>>>>>> $qs =~ tr/+/ /;
>>>>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>>
>>>>>> open (LOG, $qs."_".$log2);
>>>>>> @log = <LOG>;
>>>>>> close(LOG);
>>>>>>
>>>>>> $finalizado = "0";
>>>>>>
>>>>>> foreach (@log){
>>>>>> chomp;
>>>>>> if ($_ eq "REUNI?O FINALIZADA"){
>>>>>> $finalizado = "1";
>>>>>> }}
>>>>>> if ($finalizado eq "1"){print qq|
>>>>>> <font class="texto">
>>>>>> A REUNI?O FOI FINALIZADA. VOC? PODE IMPRIMIR OU VISUALIZAR O RELAT?RIO
>>>>>> </font>|;
>>>>>>
>>>>>> }else{print qq|
>>>>>> <html>
>>>>>> <head>
>>>>>>
>>>>>> @style
>>>>>> <script language="JavaScript">
>>>>>> <!--
>>>>>>    function scroll() {
>>>>>>      if( document.body && document.body.clientHeight ) {
>>>>>>        window.innerHeight = document.body.clientHeight
>>>>>>      }
>>>>>>      window.scrollTo( 0, (window.innerHeight/0.1) )
>>>>>>    }
>>>>>>
>>>>>>     function focus(){
>>>>>>       document.form.msg.focus()
>>>>>>     }
>>>>>>
>>>>>>     function enter(string){
>>>>>>              insertAtCaret(document.form.msg,string);
>>>>>>              focus()
>>>>>>     }
>>>>>>
>>>>>>    function insertAtCaret (textObj, textFeildValue) {
>>>>>>        if(document.all){
>>>>>>             if (textObj.createTextRange && textObj.caretPos) {
>>>>>>                 var caretPos = textObj.caretPos;
>>>>>>                 caretPos.text =
>>>>>> caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?textFeildValue + ' '
>>>>>> : textFeildValue;
>>>>>>             }else{
>>>>>>                 textObj.value = textFeildValue;
>>>>>>             }
>>>>>>       }else{
>>>>>>             if(textObj.setSelectionRange){
>>>>>>                var rangeStart = textObj.selectionStart;
>>>>>>                var rangeEnd = textObj.selectionEnd;
>>>>>>                var tempStr1 = textObj.value.substring(0,rangeStart);
>>>>>>                var tempStr2 = textObj.value.substring(rangeEnd);
>>>>>>                textObj.value = tempStr1 + textFeildValue + tempStr2;
>>>>>>            }else{
>>>>>>                alert("Esta vers?o do navegador n?o suporta
>>>>>> setSelectionRange");
>>>>>>            }
>>>>>>      }
>>>>>>   }
>>>>>>
>>>>>>    function clear_field(){
>>>>>>       document.form.msg.value = ''
>>>>>>       document.form.msg.focus()
>>>>>>       document.form.msg.select()
>>>>>>    }
>>>>>>
>>>>>>    function anexar(){
>>>>>>              altura = 450;
>>>>>>              largura= 700;
>>>>>>              l = (screen.width - largura)/2;
>>>>>>              t = (screen.height - altura - 50)/2;
>>>>>>              var html =  '<HTML><HEAD><TITLE></TITLE>'
>>>>>>                  html += '</HEAD><BODY
>>>>>> background="/reuniao/imagem/papel.jpg"  TEXT="#000066">'
>>>>>>                  html += '<BR><BR><BR><table
>>>>>> align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px
>>>>>> 4px #000, 0 0 0 #000, 2px 4px 6px #000">Apresentar documento como
>>>>>> anexo</label></h3></th></tr></table><br><br>'
>>>>>>                  html += '<FORM NAME="anexo" METHOD="POST"
>>>>>> ACTION="/reuniao/temp/upload.plx" ENCTYPE="multipart/form-data">'
>>>>>>                  html += '<br>'
>>>>>>                  html += '<TABLE align=center>'
>>>>>>                  html += '<tr>'
>>>>>>                  html += '<td><input type="file" name="arquivo"
>>>>>> size="60" maxlength="90"></td>'
>>>>>>                  html += '</tr>'
>>>>>>                  html += '</table>'
>>>>>>                  html += '<br><br><br>'
>>>>>>                  html += '<TABLE align=center>'
>>>>>>                  html += '<tr>'
>>>>>>                  html += '<td bgcolor=#ADB6C6><input type="submit"
>>>>>> value="    Processa    " style="color: white; text-shadow: 1px 2px 4px
>>>>>> #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
>>>>>>                  html += '</TR>'
>>>>>>                  html += '</table>'
>>>>>>                  html += '</form>'
>>>>>>                  html += '</body>'
>>>>>>                  html += '</html>'
>>>>>>              var newWindow =
>>>>>> window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
>>>>>>              newWindow.document.write(html)
>>>>>>              newWindow.document.close()
>>>>>>              focus()
>>>>>>              return false
>>>>>>    }
>>>>>>
>>>>>>    function publicar(){
>>>>>>              altura = 450;
>>>>>>              largura= 700;
>>>>>>              l = (screen.width - largura)/2;
>>>>>>              t = (screen.height - altura - 50)/2;
>>>>>>              var html =  '<HTML><HEAD><TITLE></TITLE>'
>>>>>>                  html += '</HEAD><BODY
>>>>>> background="/reuniao/imagem/papel.jpg"  TEXT="#ffffff">'
>>>>>>                  html += '<BR><BR><BR><table
>>>>>> align=center><tr><th><h3><label style="color: white; text-shadow: 1px 2px
>>>>>> 4px #000, 0 0 0 #000, 2px 4px 6px #000">Ponto de publica??o
>>>>>> web</label></h3></th></tr></table><br><br>'
>>>>>>                  html += '<FORM NAME="publica" METHOD="POST"
>>>>>> ACTION="/reuniao/temp/publica.plx">'
>>>>>>                  html += '<br>'
>>>>>>                  html += '<TABLE align=center>'
>>>>>>                  html += '<tr>'
>>>>>>                  html += '<td><input type="text" name="http"
>>>>>> size="60" maxlength="90" value = "http://"></td>'
>>>>>>                  html += '</tr>'
>>>>>>                  html += '</table>'
>>>>>>                  html += '<br><br><br>'
>>>>>>                  html += '<TABLE align=center>'
>>>>>>                  html += '<tr>'
>>>>>>                  html += '<td bgcolor=#ADB6C6><input type="submit"
>>>>>> value="    Processa    " style="color: white; text-shadow: 1px 2px 4px
>>>>>> #000, 0 0 0 #000, 2px 4px 6px #000"></td>'
>>>>>>                  html += '</TR>'
>>>>>>                  html += '</table>'
>>>>>>                  html += '</form>'
>>>>>>                  html += '</body>'
>>>>>>                  html += '</html>'
>>>>>>              var newWindow =
>>>>>> window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)
>>>>>>              newWindow.document.write(html)
>>>>>>              newWindow.document.close()
>>>>>>              focus()
>>>>>>              return false
>>>>>>    }
>>>>>>
>>>>>>   function showMsgHelp() {
>>>>>>       alert("                            SALA DE REUNI?O
>>>>>> ONLINE\\n\\nMensagem -> Campo alfa num?rico com tamanho de 300 caracteres e
>>>>>> diferente de espa?o.\\n\\nNota - ? recomend?vel que uma linha de mensagem
>>>>>> tenha no m?ximo 80 caracteres visando dar maior clareza no relat?rio ATA DE
>>>>>> REUNI?O.\\n\\nTAGS ESPECIAIS PARA FORMATA??O DE TEXTO\\n\\n<br> - Salto de
>>>>>> linha\\n<p> - Salto de par?grafo\\n<b>texto</b> - Texto em negrito\\n<font
>>>>>> size=4>texto</font> - Texto com fonte igual a 4 pixel\\n<font
>>>>>> color=red>texto</font> - Texto com cor em vermelho\\n<i>texto</i> - Texto
>>>>>> em it?lico\\n<u>texto</u> - Texto sublinhado\\n<sub>texto</sub> - Texto
>>>>>> subscrito\\n<sup>texto</sup> - Texto
>>>>>> sobrescrito\\n<ol><li>texto1<li>texto2<li>texto3</ol> - Lista num?rica dos
>>>>>> textos\\n<li>texto1<li>texto2<li>texto3 - Marca??o dos textos\\n\\nNota -
>>>>>> Os par?metros de formata??o de texto podem ser utilizados
>>>>>> simultaneamente.\\n\\n                EXEMPLO DE UTILIZA??O\\n\\nOl? sr(s)
>>>>>> , bom dia a todos<br>Vamos dicurtir a <font size=3 color=red><b>Aquisi??o
>>>>>> do im?vel em S?o Paulo.</b></font><br>O Paulo vai nos descrever as
>>>>>> alternativas que dispomos.\\n\\n\\nFUN??ES ESPECIAIS PARA FORMATA??O DE
>>>>>> TEXTO\\n\\nLimpa -      Move espa?o para o campo mensagem\\nLinha -
>>>>>> Move <br> para o campo mensagem para quebrar linha\\nLista -        Move
>>>>>> marcador <li> para o campo mensagem com salto de linha\\nNum?rico Move
>>>>>> marcador <ol> para o campo mensagem\\nCola -        Coloca texto da ?rea de
>>>>>> transfer?ncia no campo mensagem\\nAnexa -     Disponibiliza documento como
>>>>>> um anexo para apresenta??o\\nPublica -   Disponibiliza um link de acesso
>>>>>> referente a uma publica??o na internet\\nReal?a -    Evid?ncia uma parte do
>>>>>> texto selecionado no campo mensagem\\nSublinha - Real?a um texto
>>>>>> selecionado no campo mensagem sublinhando-o")
>>>>>>       event.cancelBubble = true
>>>>>>       return false
>>>>>>   }
>>>>>>
>>>>>> //-->
>>>>>> </script>
>>>>>> </head>
>>>>>> <body>
>>>>>> @log
>>>>>> </body>
>>>>>> </html>|;
>>>>>> }}
>>>>>>
>>>>>> sub principal2 {
>>>>>> $qs =~ s/principal2=//;
>>>>>> ($tema,$login) = split (/-/,$qs);
>>>>>> $tema =~ tr/+/ /;
>>>>>> $tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>> $login =~ tr/+/ /;
>>>>>> $login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>>
>>>>>> print qq|
>>>>>> @style
>>>>>>
>>>>>> <body  onLoad="document.form.msg.focus()" onHelp="return
>>>>>> showMsgHelp()" class="table3" leftmargin="0" topmargin="0" marginwidth="0"
>>>>>> marginheight="0">
>>>>>> <div align="center">
>>>>>> <table>
>>>>>>   <tr>
>>>>>>     <td> &nbsp;</td>
>>>>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/clear.png"
>>>>>> onClick="clear_field()"   WIDTH="24" HEIGHT="20" style="cursor:pointer"
>>>>>> title ="Limpar campo mensagem"  STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/linha.png"
>>>>>> onClick="enter('<br>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
>>>>>> title ="Salto de linha"  STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/lista.gif"
>>>>>> onClick="enter('<li>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
>>>>>> title ="Marcador de lista"  STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><img src="/reuniao/imagem/nlist.gif"
>>>>>> onClick="enter('<ol>')"   WIDTH="20" HEIGHT="20" style="cursor:pointer"
>>>>>> title ="Marcador num?rico"  STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><input type="button" value="  ?
>>>>>> "    onClick="enter('?')"    STYLE='cursor: pointer; font-family: Arial,
>>>>>> Helvetica, sans-serif; font-size: 10px; border-width:
>>>>>> 2;color:#003366;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><img
>>>>>> src="/reuniao/imagem/anexo.png"   onClick="anexar()"      WIDTH="20"
>>>>>> HEIGHT="20" style="cursor:pointer" title ="Anexar docto"  STYLE='cursor:
>>>>>> pointer; font-family: Arial, Helvetica, sans-serif; font-size: 10px;
>>>>>> border-width: 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><img
>>>>>> src="/reuniao/imagem/wlink.gif"   onClick="publicar()"    WIDTH="20"
>>>>>> HEIGHT="20" style="cursor:pointer" title ="Publicar um link da internet"
>>>>>> STYLE='cursor: hand; font-family: Arial, Helvetica, sans-serif; font-size:
>>>>>> 10px; border-width:
>>>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>>>     <td bgcolor='lightsteelblue'><img
>>>>>> src="/reuniao/imagem/help.gif"    onClick="showMsgHelp()" WIDTH="18"
>>>>>> HEIGHT="18" style="cursor:pointer" title ="Ajuda do sistema"
>>>>>> STYLE='cursor: pointer; font-family: Arial, Helvetica, sans-serif;
>>>>>> font-size: 10px; border-width:
>>>>>> 2;color:#003366;border-style:outset;font-weight:600'></td>
>>>>>> </tr>
>>>>>> </table><br>
>>>>>> <table  align="center">
>>>>>>   <tr>
>>>>>>     <td class="texto"><form name="form" method="post"
>>>>>> action="?escreve2">
>>>>>>           <div align="center"><b><font size=2><label
>>>>>> class='sombra'>&nbsp; Mensagem &nbsp; </label></b></fonte>
>>>>>>             <input name="msg"     type="text"      class="campo"
>>>>>> size="120" maxlength="300" onHelp="return showMsgHelp()">
>>>>>>             <input name="login"   type="hidden"    class="campo"
>>>>>> value="$login">
>>>>>>             <input name="tema"    type="hidden"    class="campo"
>>>>>> value="$tema">
>>>>>>             <input type="submit"  value="Enviar"   class="botao"
>>>>>> >
>>>>>>           </div>
>>>>>>     </td>
>>>>>>   </tr>
>>>>>> </table>
>>>>>> </form>
>>>>>> </div>
>>>>>> </body>
>>>>>> |;}
>>>>>>
>>>>>> sub style{
>>>>>> open(STYLE, "$estilos");
>>>>>> @style = <STYLE>;
>>>>>> close(STYLE);
>>>>>> }
>>>>>>
>>>>>> sub todas{
>>>>>> $qs =~ s/todas=//;
>>>>>> $qs =~ tr/+/ /;
>>>>>> $qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>>>>>>
>>>>>> open (LOG, $qs."_".$log);
>>>>>> @log = <LOG>;
>>>>>> close(LOG);
>>>>>>
>>>>>> print qq|
>>>>>> <meta http-equiv="refresh" content="5,?todas"/> #####################
>>>>>> aqui reenvia mensagens para os participantes #############################
>>>>>> @style
>>>>>> <script>
>>>>>> <!--
>>>>>>   function rolar() {
>>>>>>     if( document.body && document.body.clientHeight ) {
>>>>>>       window.innerHeight = document.body.clientHeight
>>>>>>     }
>>>>>>     window.scrollTo( 0, (window.innerHeight/0.1) );
>>>>>>   }
>>>>>> //-->
>>>>>> </script>
>>>>>> <body onLoad="javascript:rolar()">
>>>>>> @log|;}
>>>>>>
>>>>>> sub topo{
>>>>>> open(TOPO,"$topo");
>>>>>> @topo=<TOPO>;
>>>>>> close(TOPO);
>>>>>> print "@topo";
>>>>>> }
>>>>>>
>>>>>> =begin disclaimer
>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>> =end disclaimer
>>>>>>
>>>>>>
>>>>>
>>>>> =begin disclaimer
>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> =end disclaimer
>>>>>
>>>>>
>>>>
>>>>
>>>> --
>>>> Thank you very much!
>>>>
>>>> -dom
>>>>
>>>> --
>>>>
>>>> Daniel de Oliveira Mantovani
>>>> Business Analytic Specialist
>>>> Perl Evangelist /Astrophysics hobbyist.
>>>> +55 11 9 8538-9897
>>>> XOXO
>>>>
>>>
>>>
>>>
>>> --
>>> Thank you very much!
>>>
>>> -dom
>>>
>>> --
>>>
>>> Daniel de Oliveira Mantovani
>>> Business Analytic Specialist
>>> Perl Evangelist /Astrophysics hobbyist.
>>> +55 11 9 8538-9897
>>> XOXO
>>> ------------------------------
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>> ------------------------------
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>> ------------------------------
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> Thank you very much!
>>
>> -dom
>>
>> --
>>
>> Daniel de Oliveira Mantovani
>> Business Analytic Specialist
>> Perl Evangelist /Astrophysics hobbyist.
>> +55 11 9 8538-9897
>> XOXO
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>> ------------------------------
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
YAGNI,
Renato CRON
http://www.renatocron.com/blog/
@renato_cron <http://twitter.com/#!/renato_cron>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160112/99d0b797/attachment-0001.html>

From andregarciacarneiro at gmail.com  Sat Jan 23 10:08:01 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Sat, 23 Jan 2016 16:08:01 -0200
Subject: [SP-pm] [OT] BigData
Message-ID: <CABoU2P28fx26Rh2pZMiTpBm3Z6SExrp8cgrO1U97+i719bWL1A@mail.gmail.com>

Pessoal que trabalha com BigData poderia, por gentileza, comentar sobre
esse framework?

https://flink.apache.org/



Obrigado!

-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160123/5bdc013b/attachment.html>

From daniel.oliveira.mantovani at gmail.com  Sat Jan 23 10:26:39 2016
From: daniel.oliveira.mantovani at gmail.com (Daniel de Oliveira Mantovani)
Date: Sat, 23 Jan 2016 16:26:39 -0200
Subject: [SP-pm] [OT] BigData
In-Reply-To: <CABoU2P28fx26Rh2pZMiTpBm3Z6SExrp8cgrO1U97+i719bWL1A@mail.gmail.com>
References: <CABoU2P28fx26Rh2pZMiTpBm3Z6SExrp8cgrO1U97+i719bWL1A@mail.gmail.com>
Message-ID: <CAEmYuOv=qE=p-8z9z3NgxEURF1AwLLyCGidvzyXyFcj8LnE7nw@mail.gmail.com>

Porque n?o falar sobre o http://spark.apache.org/ ?

2016-01-23 16:08 GMT-02:00 Andre Carneiro <andregarciacarneiro at gmail.com>:

> Pessoal que trabalha com BigData poderia, por gentileza, comentar sobre
> esse framework?
>
> https://flink.apache.org/
>
>
>
> Obrigado!
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Thank you very much!

-dom

--

Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist.
+55 11 9 8538-9897
XOXO
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160123/b160a8b2/attachment.html>

From andregarciacarneiro at gmail.com  Sat Jan 23 10:37:50 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Sat, 23 Jan 2016 16:37:50 -0200
Subject: [SP-pm] [OT] BigData
In-Reply-To: <CAEmYuOv=qE=p-8z9z3NgxEURF1AwLLyCGidvzyXyFcj8LnE7nw@mail.gmail.com>
References: <CABoU2P28fx26Rh2pZMiTpBm3Z6SExrp8cgrO1U97+i719bWL1A@mail.gmail.com>
	<CAEmYuOv=qE=p-8z9z3NgxEURF1AwLLyCGidvzyXyFcj8LnE7nw@mail.gmail.com>
Message-ID: <CABoU2P0rr=Hri78uP=3bYYaf=+HOqPK98DqpoeJvnz_A=VdVqw@mail.gmail.com>

Mantovani,

Voc? ? livre para falar do que quiser nessa lista. Mas, se for responder
esse t?pico em particular, agradeceria se fosse sobre Flink e n?o sobre
Spark, a menos que j? tenha um comparativo para fazer.

;-)

Grato!


On Sat, Jan 23, 2016 at 4:26 PM, Daniel de Oliveira Mantovani <
daniel.oliveira.mantovani at gmail.com> wrote:

> Porque n?o falar sobre o http://spark.apache.org/ ?
>
> 2016-01-23 16:08 GMT-02:00 Andre Carneiro <andregarciacarneiro at gmail.com>:
>
>> Pessoal que trabalha com BigData poderia, por gentileza, comentar sobre
>> esse framework?
>>
>> https://flink.apache.org/
>>
>>
>>
>> Obrigado!
>>
>> --
>> Andr? Garcia Carneiro
>> Software Engineer
>> (11)982907780
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Thank you very much!
>
> -dom
>
> --
>
> Daniel de Oliveira Mantovani
> Business Analytic Specialist
> Perl Evangelist /Astrophysics hobbyist.
> +55 11 9 8538-9897
> XOXO
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160123/255c7d8b/attachment.html>

From daniel.oliveira.mantovani at gmail.com  Sat Jan 23 12:35:40 2016
From: daniel.oliveira.mantovani at gmail.com (Daniel de Oliveira Mantovani)
Date: Sat, 23 Jan 2016 18:35:40 -0200
Subject: [SP-pm] [OT] BigData
In-Reply-To: <CABoU2P0rr=Hri78uP=3bYYaf=+HOqPK98DqpoeJvnz_A=VdVqw@mail.gmail.com>
References: <CABoU2P28fx26Rh2pZMiTpBm3Z6SExrp8cgrO1U97+i719bWL1A@mail.gmail.com>
	<CAEmYuOv=qE=p-8z9z3NgxEURF1AwLLyCGidvzyXyFcj8LnE7nw@mail.gmail.com>
	<CABoU2P0rr=Hri78uP=3bYYaf=+HOqPK98DqpoeJvnz_A=VdVqw@mail.gmail.com>
Message-ID: <CAEmYuOtdC+gVg1gjTsMe6eqkpnDQMQKJB=utOQzHmru507UhHg@mail.gmail.com>

A ques?o ? justamente essa Andr?, "porque n?o usar o Spark ?". Pois ambos
s?o muito parecidos :)

On Saturday, January 23, 2016, Andre Carneiro <andregarciacarneiro at gmail.com>
wrote:

> Mantovani,
>
> Voc? ? livre para falar do que quiser nessa lista. Mas, se for responder
> esse t?pico em particular, agradeceria se fosse sobre Flink e n?o sobre
> Spark, a menos que j? tenha um comparativo para fazer.
>
> ;-)
>
> Grato!
>
>
> On Sat, Jan 23, 2016 at 4:26 PM, Daniel de Oliveira Mantovani <
> daniel.oliveira.mantovani at gmail.com
> <javascript:_e(%7B%7D,'cvml','daniel.oliveira.mantovani at gmail.com');>>
> wrote:
>
>> Porque n?o falar sobre o http://spark.apache.org/ ?
>>
>> 2016-01-23 16:08 GMT-02:00 Andre Carneiro <andregarciacarneiro at gmail.com
>> <javascript:_e(%7B%7D,'cvml','andregarciacarneiro at gmail.com');>>:
>>
>>> Pessoal que trabalha com BigData poderia, por gentileza, comentar sobre
>>> esse framework?
>>>
>>> https://flink.apache.org/
>>>
>>>
>>>
>>> Obrigado!
>>>
>>> --
>>> Andr? Garcia Carneiro
>>> Software Engineer
>>> (11)982907780
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>> <javascript:_e(%7B%7D,'cvml','SaoPaulo-pm at pm.org');>
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> Thank you very much!
>>
>> -dom
>>
>> --
>>
>> Daniel de Oliveira Mantovani
>> Business Analytic Specialist
>> Perl Evangelist /Astrophysics hobbyist.
>> +55 11 9 8538-9897
>> XOXO
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>> <javascript:_e(%7B%7D,'cvml','SaoPaulo-pm at pm.org');>
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>


-- 
Thank you very much!

-dom

--

Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist.
+55 11 9 8538-9897
XOXO
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160123/6d332e59/attachment.html>

From rodrigo at toetec.com.br  Sat Jan 23 16:38:03 2016
From: rodrigo at toetec.com.br (Rodrigo Panchiniak Fernandes)
Date: Sat, 23 Jan 2016 22:38:03 -0200
Subject: [SP-pm] alternativas para i18n
Message-ID: <56A41CEB.10808@toetec.com.br>

Ol?!

Esta pergunta TLDR vai na esteira das demais n?o relacionadas 
exclusivamente ao Perl.

Tenho trabalhado como uma cole??o de steps de gherkin (chamada Barbor) e 
pretendo internacionaliz?-la.

Este ? um exemplo de step, em sua forma .feature:

Quando ? definido para o campo <Label do Campo> o valor <Conte?do a ser 
preenchido>

Esses steps s?o feitos para Cucumber. Portanto, no c?digo em Ruby, temos:

Quando /^? definido para o campo '(.+)' o valor '(.+)'$/ do |field_label, field_value|
   visit ArborFieldPage do |page| page.set_field field_label, field_value end
end

Conhe?o os arquivos .po, .mo apenas do ponto de vista do usu?rio 
tradutor. Mas, do pouco
que sei sobre gettext, tenho a impress?o de que ele n?o satisfaz o que 
pretendo por dois motivos:

1. Pressup?e que o texto original esteja em ingl?s (?)
2. Pressup?e a adi??o de um marcador sint?tico que deve encapsular o 
texto traduz?vel.

Seria asim o .po para esse step (suponto que o step estaria sozinho no 
arquivo):

# English translation of Arbor Field
#
msgid ""
msgstr ""
"Project-Id-Version: Arbor Field\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=utf-8\n"
"Content-Transfer-Encoding: 8bit\n"

msgid "? definido para o campo"
msgstr "it is set for the field"
msgid "o valor "
msgstr "the value"

Queria poder gerar os .po dessa forma, sem precisar alterar o c?digo dos 
steps.
Ou seja, todo o texto em l?ngua humana dos steps ser? considerado 
traduz?vel por padr?o.

Minha pergunta finalmente ?: devo fazer o parsing e um mecanimo de 
substitui??o por conta pr?pria,
ou devo utilizar algum toolkit para isso?

Abra?o,

Rodrigo Panchiniak Fernandes
http://toetec.com.br
http://panchiniak.toetec.com.br


From frederico at frederico.me  Sun Jan 24 16:21:59 2016
From: frederico at frederico.me (Frederico Recsky)
Date: Mon, 25 Jan 2016 01:21:59 +0100
Subject: [SP-pm] [OT] BigData
In-Reply-To: <CABoU2P28fx26Rh2pZMiTpBm3Z6SExrp8cgrO1U97+i719bWL1A@mail.gmail.com>
References: <CABoU2P28fx26Rh2pZMiTpBm3Z6SExrp8cgrO1U97+i719bWL1A@mail.gmail.com>
Message-ID: <CA+SCQmNbujJWCExM6+utBMhLFCaonLWYMZ_sdXTRaBJkMzKZ4w@mail.gmail.com>

http://stackoverflow.com/questions/29780747/apache-flink-vs-apache-spark-as-platforms-for-large-scale-machine-learning

http://stackoverflow.com/questions/28082581/what-is-the-differences-between-apache-spark-and-apache-flink?rq=1

Como eu uso hdfs + hadoop, nao tenho nenhum comentario direto a fazer.
:).  Ambos estao na minha todo list, mas na real eu resolvo meu dia a
dia com hive e hdfs e segue a vida.



2016-01-23 19:08 GMT+01:00 Andre Carneiro <andregarciacarneiro at gmail.com>:
> Pessoal que trabalha com BigData poderia, por gentileza, comentar sobre esse
> framework?
>
> https://flink.apache.org/
>
>
>
> Obrigado!
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>

From andregarciacarneiro at gmail.com  Mon Jan 25 03:39:18 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Mon, 25 Jan 2016 09:39:18 -0200
Subject: [SP-pm] [OT] BigData
In-Reply-To: <CA+SCQmNbujJWCExM6+utBMhLFCaonLWYMZ_sdXTRaBJkMzKZ4w@mail.gmail.com>
References: <CABoU2P28fx26Rh2pZMiTpBm3Z6SExrp8cgrO1U97+i719bWL1A@mail.gmail.com>
	<CA+SCQmNbujJWCExM6+utBMhLFCaonLWYMZ_sdXTRaBJkMzKZ4w@mail.gmail.com>
Message-ID: <CABoU2P3Ep_h+S0hYJwfzKLL430Ohi=X9w-ASzAdKcm_KjKsB5g@mail.gmail.com>

Valeu, Frederico!

2016-01-24 22:21 GMT-02:00 Frederico Recsky <frederico at frederico.me>:

>
> http://stackoverflow.com/questions/29780747/apache-flink-vs-apache-spark-as-platforms-for-large-scale-machine-learning
>
>
> http://stackoverflow.com/questions/28082581/what-is-the-differences-between-apache-spark-and-apache-flink?rq=1
>
> Como eu uso hdfs + hadoop, nao tenho nenhum comentario direto a fazer.
> :).  Ambos estao na minha todo list, mas na real eu resolvo meu dia a
> dia com hive e hdfs e segue a vida.
>
>
>
> 2016-01-23 19:08 GMT+01:00 Andre Carneiro <andregarciacarneiro at gmail.com>:
> > Pessoal que trabalha com BigData poderia, por gentileza, comentar sobre
> esse
> > framework?
> >
> > https://flink.apache.org/
> >
> >
> >
> > Obrigado!
> >
> > --
> > Andr? Garcia Carneiro
> > Software Engineer
> > (11)982907780
> >
> > =begin disclaimer
> >    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> >  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> >  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> > =end disclaimer
> >
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>



-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160125/f61167b2/attachment.html>

From thiago at eokoe.com  Fri Jan 29 13:53:27 2016
From: thiago at eokoe.com (Thiago Rondon)
Date: Fri, 29 Jan 2016 19:53:27 -0200
Subject: [SP-pm] =?utf-8?q?Segunda_edi=C3=A7=C3=A3o_do_meetup_Fullstack_De?=
	=?utf-8?q?v_SP=2E?=
Message-ID: <CA+XDWc+-oBidvanGh4JRf70GGcJHYNifhRoG0vyuGkYPkT3JBw@mail.gmail.com>

Pessoal,

Depois do primeiro evento que fizemos ano passado do meetup Fullstack Dev
SP, agora vamos organizar a segunda edi??o.

Nessa edi??o, vamos discutir sobre o desenvolvimento de aplicativos c?vicos
com diversas organiza??es sociais.

Para mais informa??es, d?em uma olhada:

http://fullstackers.com.br/
http://www.meetup.com/Fullstack-Developers-Sao-Paulo/events/227209686/

Abs!
-Thiago Rondon
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160129/c3b79a99/attachment.html>

From andregarciacarneiro at gmail.com  Sat Jan 30 17:56:23 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Sat, 30 Jan 2016 23:56:23 -0200
Subject: [SP-pm] Data::Verifier
Message-ID: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>

Sarav?!

Preciso de um aux?lio numa quest?o, por gentileza.

Dado um endpoint GET /account/<TARGET>

Onde TARGET pode ser: 'id', 'email' ou 'all'

Preciso verificar os dados em 'id' e 'email'. Para isso, estou usando o
m?dulo Data::Verifier, onde tenho o seguinte 'profile':
http://pastebin.com/L32SyrVg

Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre porque, na
verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou *outro,
portanto n?o posso setar 'required' como true para nenhum dos dois.

Eu pensei em algumas alternativas usando v?rios profiles e selecionando o
tipo de verifica??o conforme os campos que eu teria dispon?vel. Mas achei
meio 'verboso' demais.

Algu?m teria outra id?ia, ou solu??o de contorno que poderia me ajudar?


Obrigado!


-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160130/6f66a95c/attachment.html>

From andregarciacarneiro at gmail.com  Sat Jan 30 18:10:02 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Sun, 31 Jan 2016 00:10:02 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
Message-ID: <CABoU2P390WgL4007A=i9ax5cpEeDadasiNyqRzOnzVheDsf9Kw@mail.gmail.com>

Ah, eu tentei usar a op??o 'dependent', na documenta??o do m?dulo. N?o
funcionou, porque na verdade 'target' n?o se comportou como eu esperava.

2016-01-30 23:56 GMT-02:00 Andre Carneiro <andregarciacarneiro at gmail.com>:

> Sarav?!
>
> Preciso de um aux?lio numa quest?o, por gentileza.
>
> Dado um endpoint GET /account/<TARGET>
>
> Onde TARGET pode ser: 'id', 'email' ou 'all'
>
> Preciso verificar os dados em 'id' e 'email'. Para isso, estou usando o
> m?dulo Data::Verifier, onde tenho o seguinte 'profile':
> http://pastebin.com/L32SyrVg
>
> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre porque, na
> verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou *outro,
> portanto n?o posso setar 'required' como true para nenhum dos dois.
>
> Eu pensei em algumas alternativas usando v?rios profiles e selecionando o
> tipo de verifica??o conforme os campos que eu teria dispon?vel. Mas achei
> meio 'verboso' demais.
>
> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me ajudar?
>
>
> Obrigado!
>
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>



-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/f300bfe2/attachment.html>

From renato.cron at gmail.com  Sat Jan 30 18:10:24 2016
From: renato.cron at gmail.com (Renato Santos)
Date: Sun, 31 Jan 2016 00:10:24 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
Message-ID: <CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>

N?o entendi, voc? quer validar a string "all", "id" e "email" ou o
conte?do?
Pois me parece mais simples usar um If looks like integer = procurar por
id, else check email = procurar por email, else (erro ou trazer tudo) ?
On Jan 30, 2016 23:56, "Andre Carneiro" <andregarciacarneiro at gmail.com>
wrote:

> Sarav?!
>
> Preciso de um aux?lio numa quest?o, por gentileza.
>
> Dado um endpoint GET /account/<TARGET>
>
> Onde TARGET pode ser: 'id', 'email' ou 'all'
>
> Preciso verificar os dados em 'id' e 'email'. Para isso, estou usando o
> m?dulo Data::Verifier, onde tenho o seguinte 'profile':
> http://pastebin.com/L32SyrVg
>
> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre porque, na
> verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou *outro,
> portanto n?o posso setar 'required' como true para nenhum dos dois.
>
> Eu pensei em algumas alternativas usando v?rios profiles e selecionando o
> tipo de verifica??o conforme os campos que eu teria dispon?vel. Mas achei
> meio 'verboso' demais.
>
> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me ajudar?
>
>
> Obrigado!
>
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/5b75536e/attachment.html>

From andregarciacarneiro at gmail.com  Sat Jan 30 18:10:55 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Sun, 31 Jan 2016 00:10:55 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CABoU2P390WgL4007A=i9ax5cpEeDadasiNyqRzOnzVheDsf9Kw@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
	<CABoU2P390WgL4007A=i9ax5cpEeDadasiNyqRzOnzVheDsf9Kw@mail.gmail.com>
Message-ID: <CABoU2P3EEjADQfEhQU+OvEQ5qVeWvEOFgfk=EnNdBoCj7o5cLg@mail.gmail.com>

Corrigindo:

Ah, eu tentei usar a op??o 'dependent', na documenta??o do m?dulo. Mas o
comportamento n?o foi o esperado.

2016-01-31 0:10 GMT-02:00 Andre Carneiro <andregarciacarneiro at gmail.com>:

> Ah, eu tentei usar a op??o 'dependent', na documenta??o do m?dulo. N?o
> funcionou, porque na verdade 'target' n?o se comportou como eu esperava.
>
> 2016-01-30 23:56 GMT-02:00 Andre Carneiro <andregarciacarneiro at gmail.com>:
>
>> Sarav?!
>>
>> Preciso de um aux?lio numa quest?o, por gentileza.
>>
>> Dado um endpoint GET /account/<TARGET>
>>
>> Onde TARGET pode ser: 'id', 'email' ou 'all'
>>
>> Preciso verificar os dados em 'id' e 'email'. Para isso, estou usando o
>> m?dulo Data::Verifier, onde tenho o seguinte 'profile':
>> http://pastebin.com/L32SyrVg
>>
>> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre porque, na
>> verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou *outro,
>> portanto n?o posso setar 'required' como true para nenhum dos dois.
>>
>> Eu pensei em algumas alternativas usando v?rios profiles e selecionando o
>> tipo de verifica??o conforme os campos que eu teria dispon?vel. Mas achei
>> meio 'verboso' demais.
>>
>> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me ajudar?
>>
>>
>> Obrigado!
>>
>>
>> --
>> Andr? Garcia Carneiro
>> Software Engineer
>> (11)982907780
>>
>
>
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>



-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/17c9892d/attachment-0001.html>

From andregarciacarneiro at gmail.com  Sat Jan 30 18:15:39 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Sun, 31 Jan 2016 00:15:39 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
	<CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>
Message-ID: <CABoU2P1WfivSfo8nHpCq8_=W1Cu6YUtVGYEmBQzRWAPcNy-BiA@mail.gmail.com>

Cron, ? assim:

'target' ? um par?metro do endpoint.

'all', 'email' e 'id' s?o par?metros enviados via GET.

Se target == 'email'
   validar email

Senao se target == 'id'
   validar id

Senao
   //nao fazer nada

Fim Se

validar(target);


O problema, ? que aquele profile me obriga(em teoria) a deixar um dos dois
par?metros(email ou id) obrigat?rio, ou os dois. N?o ? isso que eu quero.
Eu s? quero que o par?metro e-mail seja obrigat?rio, se e somente se,
target == 'email'. E quero que o par?metro 'id' seja obrigat?rio, se e
somente se target == 'id'.

Sacou?





2016-01-31 0:10 GMT-02:00 Renato Santos <renato.cron at gmail.com>:

> N?o entendi, voc? quer validar a string "all", "id" e "email" ou o
> conte?do?
> Pois me parece mais simples usar um If looks like integer = procurar por
> id, else check email = procurar por email, else (erro ou trazer tudo) ?
> On Jan 30, 2016 23:56, "Andre Carneiro" <andregarciacarneiro at gmail.com>
> wrote:
>
>> Sarav?!
>>
>> Preciso de um aux?lio numa quest?o, por gentileza.
>>
>> Dado um endpoint GET /account/<TARGET>
>>
>> Onde TARGET pode ser: 'id', 'email' ou 'all'
>>
>> Preciso verificar os dados em 'id' e 'email'. Para isso, estou usando o
>> m?dulo Data::Verifier, onde tenho o seguinte 'profile':
>> http://pastebin.com/L32SyrVg
>>
>> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre porque, na
>> verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou *outro,
>> portanto n?o posso setar 'required' como true para nenhum dos dois.
>>
>> Eu pensei em algumas alternativas usando v?rios profiles e selecionando o
>> tipo de verifica??o conforme os campos que eu teria dispon?vel. Mas achei
>> meio 'verboso' demais.
>>
>> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me ajudar?
>>
>>
>> Obrigado!
>>
>>
>> --
>> Andr? Garcia Carneiro
>> Software Engineer
>> (11)982907780
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/909b10b2/attachment.html>

From renato.cron at gmail.com  Sat Jan 30 18:15:57 2016
From: renato.cron at gmail.com (Renato Santos)
Date: Sun, 31 Jan 2016 00:15:57 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
	<CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>
Message-ID: <CABmdQ_TyB=-iDhP_z80YH7xZSr=JfnXvVxTXpAqVm81D9F3kCA@mail.gmail.com>

Ou seria, se chegou com /id verifica o id
Se chegou /email verifica o email
? ter /all que n?o verifica nada?

O data verifier pro si s? n?o tem essa intelig?ncia toda pra mudar os
required dos campos num mesmo check.

N?o entendi, voc? quer validar a string "all", "id" e "email" ou o
conte?do?
Pois me parece mais simples usar um If looks like integer = procurar por
id, else check email = procurar por email, else (erro ou trazer tudo) ?
On Jan 30, 2016 23:56, "Andre Carneiro" <andregarciacarneiro at gmail.com>
wrote:

> Sarav?!
>
> Preciso de um aux?lio numa quest?o, por gentileza.
>
> Dado um endpoint GET /account/<TARGET>
>
> Onde TARGET pode ser: 'id', 'email' ou 'all'
>
> Preciso verificar os dados em 'id' e 'email'. Para isso, estou usando o
> m?dulo Data::Verifier, onde tenho o seguinte 'profile':
> http://pastebin.com/L32SyrVg
>
> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre porque, na
> verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou *outro,
> portanto n?o posso setar 'required' como true para nenhum dos dois.
>
> Eu pensei em algumas alternativas usando v?rios profiles e selecionando o
> tipo de verifica??o conforme os campos que eu teria dispon?vel. Mas achei
> meio 'verboso' demais.
>
> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me ajudar?
>
>
> Obrigado!
>
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/03ce4683/attachment.html>

From andregarciacarneiro at gmail.com  Sat Jan 30 18:17:14 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Sun, 31 Jan 2016 00:17:14 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CABmdQ_TyB=-iDhP_z80YH7xZSr=JfnXvVxTXpAqVm81D9F3kCA@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
	<CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>
	<CABmdQ_TyB=-iDhP_z80YH7xZSr=JfnXvVxTXpAqVm81D9F3kCA@mail.gmail.com>
Message-ID: <CABoU2P0o6LqyVD_9Qhn7Ryuje61MuJ5QMzVeHORZX2HzNAkqyA@mail.gmail.com>

Cron,

Quando target == 'all', significa que eu quero TODOS os dados. Portanto n?o
precisa ser verificado(embora target seja verificado).

Cheers!

2016-01-31 0:15 GMT-02:00 Renato Santos <renato.cron at gmail.com>:

> Ou seria, se chegou com /id verifica o id
> Se chegou /email verifica o email
> ? ter /all que n?o verifica nada?
>
> O data verifier pro si s? n?o tem essa intelig?ncia toda pra mudar os
> required dos campos num mesmo check.
>
> N?o entendi, voc? quer validar a string "all", "id" e "email" ou o
> conte?do?
> Pois me parece mais simples usar um If looks like integer = procurar por
> id, else check email = procurar por email, else (erro ou trazer tudo) ?
> On Jan 30, 2016 23:56, "Andre Carneiro" <andregarciacarneiro at gmail.com>
> wrote:
>
>> Sarav?!
>>
>> Preciso de um aux?lio numa quest?o, por gentileza.
>>
>> Dado um endpoint GET /account/<TARGET>
>>
>> Onde TARGET pode ser: 'id', 'email' ou 'all'
>>
>> Preciso verificar os dados em 'id' e 'email'. Para isso, estou usando o
>> m?dulo Data::Verifier, onde tenho o seguinte 'profile':
>> http://pastebin.com/L32SyrVg
>>
>> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre porque, na
>> verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou *outro,
>> portanto n?o posso setar 'required' como true para nenhum dos dois.
>>
>> Eu pensei em algumas alternativas usando v?rios profiles e selecionando o
>> tipo de verifica??o conforme os campos que eu teria dispon?vel. Mas achei
>> meio 'verboso' demais.
>>
>> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me ajudar?
>>
>>
>> Obrigado!
>>
>>
>> --
>> Andr? Garcia Carneiro
>> Software Engineer
>> (11)982907780
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/9282ed1b/attachment-0001.html>

From andregarciacarneiro at gmail.com  Sat Jan 30 18:18:17 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Sun, 31 Jan 2016 00:18:17 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CABoU2P0o6LqyVD_9Qhn7Ryuje61MuJ5QMzVeHORZX2HzNAkqyA@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
	<CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>
	<CABmdQ_TyB=-iDhP_z80YH7xZSr=JfnXvVxTXpAqVm81D9F3kCA@mail.gmail.com>
	<CABoU2P0o6LqyVD_9Qhn7Ryuje61MuJ5QMzVeHORZX2HzNAkqyA@mail.gmail.com>
Message-ID: <CABoU2P0EOu4f+MGcrv08jqCMuJdVK19pbodMQiLGv8uXWuETug@mail.gmail.com>

Porra, t? parecendo a Dilma... :P

Explicando melhor. target ? sempre verificado se tem valor: all, email ou
id...




2016-01-31 0:17 GMT-02:00 Andre Carneiro <andregarciacarneiro at gmail.com>:

> Cron,
>
> Quando target == 'all', significa que eu quero TODOS os dados. Portanto
> n?o precisa ser verificado(embora target seja verificado).
>
> Cheers!
>
> 2016-01-31 0:15 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>
>> Ou seria, se chegou com /id verifica o id
>> Se chegou /email verifica o email
>> ? ter /all que n?o verifica nada?
>>
>> O data verifier pro si s? n?o tem essa intelig?ncia toda pra mudar os
>> required dos campos num mesmo check.
>>
>> N?o entendi, voc? quer validar a string "all", "id" e "email" ou o
>> conte?do?
>> Pois me parece mais simples usar um If looks like integer = procurar por
>> id, else check email = procurar por email, else (erro ou trazer tudo) ?
>> On Jan 30, 2016 23:56, "Andre Carneiro" <andregarciacarneiro at gmail.com>
>> wrote:
>>
>>> Sarav?!
>>>
>>> Preciso de um aux?lio numa quest?o, por gentileza.
>>>
>>> Dado um endpoint GET /account/<TARGET>
>>>
>>> Onde TARGET pode ser: 'id', 'email' ou 'all'
>>>
>>> Preciso verificar os dados em 'id' e 'email'. Para isso, estou usando o
>>> m?dulo Data::Verifier, onde tenho o seguinte 'profile':
>>> http://pastebin.com/L32SyrVg
>>>
>>> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre porque, na
>>> verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou *outro,
>>> portanto n?o posso setar 'required' como true para nenhum dos dois.
>>>
>>> Eu pensei em algumas alternativas usando v?rios profiles e selecionando
>>> o tipo de verifica??o conforme os campos que eu teria dispon?vel. Mas achei
>>> meio 'verboso' demais.
>>>
>>> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me ajudar?
>>>
>>>
>>> Obrigado!
>>>
>>>
>>> --
>>> Andr? Garcia Carneiro
>>> Software Engineer
>>> (11)982907780
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>



-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/10d258e5/attachment.html>

From lucasmateus.oliveira at gmail.com  Sat Jan 30 18:20:08 2016
From: lucasmateus.oliveira at gmail.com (Lucas Mateus)
Date: Sun, 31 Jan 2016 00:20:08 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CABoU2P0EOu4f+MGcrv08jqCMuJdVK19pbodMQiLGv8uXWuETug@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
	<CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>
	<CABmdQ_TyB=-iDhP_z80YH7xZSr=JfnXvVxTXpAqVm81D9F3kCA@mail.gmail.com>
	<CABoU2P0o6LqyVD_9Qhn7Ryuje61MuJ5QMzVeHORZX2HzNAkqyA@mail.gmail.com>
	<CABoU2P0EOu4f+MGcrv08jqCMuJdVK19pbodMQiLGv8uXWuETug@mail.gmail.com>
Message-ID: <CACLgUQKYxKQc8yja5aoA05LONbtV+q=D5QhD2OaoGF=mAAB1Kg@mail.gmail.com>

Andre, use o Derived https://metacpan.org/pod/Data::Verifier#derived

Em 31 de janeiro de 2016 00:18, Andre Carneiro <
andregarciacarneiro at gmail.com> escreveu:

> Porra, t? parecendo a Dilma... :P
>
> Explicando melhor. target ? sempre verificado se tem valor: all, email ou
> id...
>
>
>
>
> 2016-01-31 0:17 GMT-02:00 Andre Carneiro <andregarciacarneiro at gmail.com>:
>
>> Cron,
>>
>> Quando target == 'all', significa que eu quero TODOS os dados. Portanto
>> n?o precisa ser verificado(embora target seja verificado).
>>
>> Cheers!
>>
>> 2016-01-31 0:15 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>
>>> Ou seria, se chegou com /id verifica o id
>>> Se chegou /email verifica o email
>>> ? ter /all que n?o verifica nada?
>>>
>>> O data verifier pro si s? n?o tem essa intelig?ncia toda pra mudar os
>>> required dos campos num mesmo check.
>>>
>>> N?o entendi, voc? quer validar a string "all", "id" e "email" ou o
>>> conte?do?
>>> Pois me parece mais simples usar um If looks like integer = procurar por
>>> id, else check email = procurar por email, else (erro ou trazer tudo) ?
>>> On Jan 30, 2016 23:56, "Andre Carneiro" <andregarciacarneiro at gmail.com>
>>> wrote:
>>>
>>>> Sarav?!
>>>>
>>>> Preciso de um aux?lio numa quest?o, por gentileza.
>>>>
>>>> Dado um endpoint GET /account/<TARGET>
>>>>
>>>> Onde TARGET pode ser: 'id', 'email' ou 'all'
>>>>
>>>> Preciso verificar os dados em 'id' e 'email'. Para isso, estou usando o
>>>> m?dulo Data::Verifier, onde tenho o seguinte 'profile':
>>>> http://pastebin.com/L32SyrVg
>>>>
>>>> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre porque, na
>>>> verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou *outro,
>>>> portanto n?o posso setar 'required' como true para nenhum dos dois.
>>>>
>>>> Eu pensei em algumas alternativas usando v?rios profiles e selecionando
>>>> o tipo de verifica??o conforme os campos que eu teria dispon?vel. Mas achei
>>>> meio 'verboso' demais.
>>>>
>>>> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me ajudar?
>>>>
>>>>
>>>> Obrigado!
>>>>
>>>>
>>>> --
>>>> Andr? Garcia Carneiro
>>>> Software Engineer
>>>> (11)982907780
>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> Andr? Garcia Carneiro
>> Software Engineer
>> (11)982907780
>>
>
>
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/c72505b1/attachment.html>

From renato.cron at gmail.com  Sat Jan 30 18:25:55 2016
From: renato.cron at gmail.com (Renato Santos)
Date: Sun, 31 Jan 2016 00:25:55 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CABoU2P0EOu4f+MGcrv08jqCMuJdVK19pbodMQiLGv8uXWuETug@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
	<CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>
	<CABmdQ_TyB=-iDhP_z80YH7xZSr=JfnXvVxTXpAqVm81D9F3kCA@mail.gmail.com>
	<CABoU2P0o6LqyVD_9Qhn7Ryuje61MuJ5QMzVeHORZX2HzNAkqyA@mail.gmail.com>
	<CABoU2P0EOu4f+MGcrv08jqCMuJdVK19pbodMQiLGv8uXWuETug@mail.gmail.com>
Message-ID: <CABmdQ_SpaXcoLVcePRvCtNo0s7=g=-7-c+roDUAMkzcaWuPS3w@mail.gmail.com>

Entendi. Acho que ? mais simples fazer do jeito que vc falou (sem o data
verifier), ou, tem que criar 3 profiler e passar os par?metros  guardar os
resultados e fazer os ifs do mesmo jeito.

Talvez (apaga)porcaria(/apaga) do data::manager possa te ajudar com isso
On Jan 31, 2016 00:18, "Andre Carneiro" <andregarciacarneiro at gmail.com>
wrote:

> Porra, t? parecendo a Dilma... :P
>
> Explicando melhor. target ? sempre verificado se tem valor: all, email ou
> id...
>
>
>
>
> 2016-01-31 0:17 GMT-02:00 Andre Carneiro <andregarciacarneiro at gmail.com>:
>
>> Cron,
>>
>> Quando target == 'all', significa que eu quero TODOS os dados. Portanto
>> n?o precisa ser verificado(embora target seja verificado).
>>
>> Cheers!
>>
>> 2016-01-31 0:15 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>
>>> Ou seria, se chegou com /id verifica o id
>>> Se chegou /email verifica o email
>>> ? ter /all que n?o verifica nada?
>>>
>>> O data verifier pro si s? n?o tem essa intelig?ncia toda pra mudar os
>>> required dos campos num mesmo check.
>>>
>>> N?o entendi, voc? quer validar a string "all", "id" e "email" ou o
>>> conte?do?
>>> Pois me parece mais simples usar um If looks like integer = procurar por
>>> id, else check email = procurar por email, else (erro ou trazer tudo) ?
>>> On Jan 30, 2016 23:56, "Andre Carneiro" <andregarciacarneiro at gmail.com>
>>> wrote:
>>>
>>>> Sarav?!
>>>>
>>>> Preciso de um aux?lio numa quest?o, por gentileza.
>>>>
>>>> Dado um endpoint GET /account/<TARGET>
>>>>
>>>> Onde TARGET pode ser: 'id', 'email' ou 'all'
>>>>
>>>> Preciso verificar os dados em 'id' e 'email'. Para isso, estou usando o
>>>> m?dulo Data::Verifier, onde tenho o seguinte 'profile':
>>>> http://pastebin.com/L32SyrVg
>>>>
>>>> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre porque, na
>>>> verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou *outro,
>>>> portanto n?o posso setar 'required' como true para nenhum dos dois.
>>>>
>>>> Eu pensei em algumas alternativas usando v?rios profiles e selecionando
>>>> o tipo de verifica??o conforme os campos que eu teria dispon?vel. Mas achei
>>>> meio 'verboso' demais.
>>>>
>>>> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me ajudar?
>>>>
>>>>
>>>> Obrigado!
>>>>
>>>>
>>>> --
>>>> Andr? Garcia Carneiro
>>>> Software Engineer
>>>> (11)982907780
>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> Andr? Garcia Carneiro
>> Software Engineer
>> (11)982907780
>>
>
>
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/29a08112/attachment-0001.html>

From andregarciacarneiro at gmail.com  Sat Jan 30 18:34:19 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Sun, 31 Jan 2016 00:34:19 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CABmdQ_SpaXcoLVcePRvCtNo0s7=g=-7-c+roDUAMkzcaWuPS3w@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
	<CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>
	<CABmdQ_TyB=-iDhP_z80YH7xZSr=JfnXvVxTXpAqVm81D9F3kCA@mail.gmail.com>
	<CABoU2P0o6LqyVD_9Qhn7Ryuje61MuJ5QMzVeHORZX2HzNAkqyA@mail.gmail.com>
	<CABoU2P0EOu4f+MGcrv08jqCMuJdVK19pbodMQiLGv8uXWuETug@mail.gmail.com>
	<CABmdQ_SpaXcoLVcePRvCtNo0s7=g=-7-c+roDUAMkzcaWuPS3w@mail.gmail.com>
Message-ID: <CABoU2P1jq+O_DiLX96PX9KUYo9m4XLdKimQiANGAZP_E0hg9qg@mail.gmail.com>

Cron, Provavelmente usarei dois profiles e tratarei o 'all' por fora.


Lucas Mateus, n?o entendi em que o 'derived' ajudaria nisso. Qual seria a
sua id?ia?


Cheers!

2016-01-31 0:25 GMT-02:00 Renato Santos <renato.cron at gmail.com>:

> Entendi. Acho que ? mais simples fazer do jeito que vc falou (sem o data
> verifier), ou, tem que criar 3 profiler e passar os par?metros  guardar os
> resultados e fazer os ifs do mesmo jeito.
>
> Talvez (apaga)porcaria(/apaga) do data::manager possa te ajudar com isso
> On Jan 31, 2016 00:18, "Andre Carneiro" <andregarciacarneiro at gmail.com>
> wrote:
>
>> Porra, t? parecendo a Dilma... :P
>>
>> Explicando melhor. target ? sempre verificado se tem valor: all, email ou
>> id...
>>
>>
>>
>>
>> 2016-01-31 0:17 GMT-02:00 Andre Carneiro <andregarciacarneiro at gmail.com>:
>>
>>> Cron,
>>>
>>> Quando target == 'all', significa que eu quero TODOS os dados. Portanto
>>> n?o precisa ser verificado(embora target seja verificado).
>>>
>>> Cheers!
>>>
>>> 2016-01-31 0:15 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>>
>>>> Ou seria, se chegou com /id verifica o id
>>>> Se chegou /email verifica o email
>>>> ? ter /all que n?o verifica nada?
>>>>
>>>> O data verifier pro si s? n?o tem essa intelig?ncia toda pra mudar os
>>>> required dos campos num mesmo check.
>>>>
>>>> N?o entendi, voc? quer validar a string "all", "id" e "email" ou o
>>>> conte?do?
>>>> Pois me parece mais simples usar um If looks like integer = procurar
>>>> por id, else check email = procurar por email, else (erro ou trazer tudo) ?
>>>> On Jan 30, 2016 23:56, "Andre Carneiro" <andregarciacarneiro at gmail.com>
>>>> wrote:
>>>>
>>>>> Sarav?!
>>>>>
>>>>> Preciso de um aux?lio numa quest?o, por gentileza.
>>>>>
>>>>> Dado um endpoint GET /account/<TARGET>
>>>>>
>>>>> Onde TARGET pode ser: 'id', 'email' ou 'all'
>>>>>
>>>>> Preciso verificar os dados em 'id' e 'email'. Para isso, estou usando
>>>>> o m?dulo Data::Verifier, onde tenho o seguinte 'profile':
>>>>> http://pastebin.com/L32SyrVg
>>>>>
>>>>> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre porque,
>>>>> na verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou *outro,
>>>>> portanto n?o posso setar 'required' como true para nenhum dos dois.
>>>>>
>>>>> Eu pensei em algumas alternativas usando v?rios profiles e
>>>>> selecionando o tipo de verifica??o conforme os campos que eu teria
>>>>> dispon?vel. Mas achei meio 'verboso' demais.
>>>>>
>>>>> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me ajudar?
>>>>>
>>>>>
>>>>> Obrigado!
>>>>>
>>>>>
>>>>> --
>>>>> Andr? Garcia Carneiro
>>>>> Software Engineer
>>>>> (11)982907780
>>>>>
>>>>> =begin disclaimer
>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> =end disclaimer
>>>>>
>>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>>
>>>
>>> --
>>> Andr? Garcia Carneiro
>>> Software Engineer
>>> (11)982907780
>>>
>>
>>
>>
>> --
>> Andr? Garcia Carneiro
>> Software Engineer
>> (11)982907780
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/a26ca15d/attachment.html>

From renato.cron at gmail.com  Sat Jan 30 18:36:59 2016
From: renato.cron at gmail.com (Renato Santos)
Date: Sun, 31 Jan 2016 00:36:59 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CABoU2P1jq+O_DiLX96PX9KUYo9m4XLdKimQiANGAZP_E0hg9qg@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
	<CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>
	<CABmdQ_TyB=-iDhP_z80YH7xZSr=JfnXvVxTXpAqVm81D9F3kCA@mail.gmail.com>
	<CABoU2P0o6LqyVD_9Qhn7Ryuje61MuJ5QMzVeHORZX2HzNAkqyA@mail.gmail.com>
	<CABoU2P0EOu4f+MGcrv08jqCMuJdVK19pbodMQiLGv8uXWuETug@mail.gmail.com>
	<CABmdQ_SpaXcoLVcePRvCtNo0s7=g=-7-c+roDUAMkzcaWuPS3w@mail.gmail.com>
	<CABoU2P1jq+O_DiLX96PX9KUYo9m4XLdKimQiANGAZP_E0hg9qg@mail.gmail.com>
Message-ID: <CABmdQ_Q6bemGCGyZdT298YdnmrK0S7zBoJKRcm4y+3RmEmyH6A@mail.gmail.com>

Blz, s? arrumar a regexp pra ter ^ e $
On Jan 31, 2016 00:34, "Andre Carneiro" <andregarciacarneiro at gmail.com>
wrote:

>
> Cron, Provavelmente usarei dois profiles e tratarei o 'all' por fora.
>
>
> Lucas Mateus, n?o entendi em que o 'derived' ajudaria nisso. Qual seria a
> sua id?ia?
>
>
> Cheers!
>
> 2016-01-31 0:25 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>
>> Entendi. Acho que ? mais simples fazer do jeito que vc falou (sem o data
>> verifier), ou, tem que criar 3 profiler e passar os par?metros  guardar os
>> resultados e fazer os ifs do mesmo jeito.
>>
>> Talvez (apaga)porcaria(/apaga) do data::manager possa te ajudar com isso
>> On Jan 31, 2016 00:18, "Andre Carneiro" <andregarciacarneiro at gmail.com>
>> wrote:
>>
>>> Porra, t? parecendo a Dilma... :P
>>>
>>> Explicando melhor. target ? sempre verificado se tem valor: all, email
>>> ou id...
>>>
>>>
>>>
>>>
>>> 2016-01-31 0:17 GMT-02:00 Andre Carneiro <andregarciacarneiro at gmail.com>
>>> :
>>>
>>>> Cron,
>>>>
>>>> Quando target == 'all', significa que eu quero TODOS os dados. Portanto
>>>> n?o precisa ser verificado(embora target seja verificado).
>>>>
>>>> Cheers!
>>>>
>>>> 2016-01-31 0:15 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>>>
>>>>> Ou seria, se chegou com /id verifica o id
>>>>> Se chegou /email verifica o email
>>>>> ? ter /all que n?o verifica nada?
>>>>>
>>>>> O data verifier pro si s? n?o tem essa intelig?ncia toda pra mudar os
>>>>> required dos campos num mesmo check.
>>>>>
>>>>> N?o entendi, voc? quer validar a string "all", "id" e "email" ou o
>>>>> conte?do?
>>>>> Pois me parece mais simples usar um If looks like integer = procurar
>>>>> por id, else check email = procurar por email, else (erro ou trazer tudo) ?
>>>>> On Jan 30, 2016 23:56, "Andre Carneiro" <andregarciacarneiro at gmail.com>
>>>>> wrote:
>>>>>
>>>>>> Sarav?!
>>>>>>
>>>>>> Preciso de um aux?lio numa quest?o, por gentileza.
>>>>>>
>>>>>> Dado um endpoint GET /account/<TARGET>
>>>>>>
>>>>>> Onde TARGET pode ser: 'id', 'email' ou 'all'
>>>>>>
>>>>>> Preciso verificar os dados em 'id' e 'email'. Para isso, estou usando
>>>>>> o m?dulo Data::Verifier, onde tenho o seguinte 'profile':
>>>>>> http://pastebin.com/L32SyrVg
>>>>>>
>>>>>> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre porque,
>>>>>> na verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou *outro,
>>>>>> portanto n?o posso setar 'required' como true para nenhum dos dois.
>>>>>>
>>>>>> Eu pensei em algumas alternativas usando v?rios profiles e
>>>>>> selecionando o tipo de verifica??o conforme os campos que eu teria
>>>>>> dispon?vel. Mas achei meio 'verboso' demais.
>>>>>>
>>>>>> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me
>>>>>> ajudar?
>>>>>>
>>>>>>
>>>>>> Obrigado!
>>>>>>
>>>>>>
>>>>>> --
>>>>>> Andr? Garcia Carneiro
>>>>>> Software Engineer
>>>>>> (11)982907780
>>>>>>
>>>>>> =begin disclaimer
>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>> =end disclaimer
>>>>>>
>>>>>>
>>>>> =begin disclaimer
>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> =end disclaimer
>>>>>
>>>>>
>>>>
>>>>
>>>> --
>>>> Andr? Garcia Carneiro
>>>> Software Engineer
>>>> (11)982907780
>>>>
>>>
>>>
>>>
>>> --
>>> Andr? Garcia Carneiro
>>> Software Engineer
>>> (11)982907780
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/ed96d3ea/attachment-0001.html>

From andregarciacarneiro at gmail.com  Sat Jan 30 18:49:39 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Sun, 31 Jan 2016 00:49:39 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CABmdQ_Q6bemGCGyZdT298YdnmrK0S7zBoJKRcm4y+3RmEmyH6A@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
	<CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>
	<CABmdQ_TyB=-iDhP_z80YH7xZSr=JfnXvVxTXpAqVm81D9F3kCA@mail.gmail.com>
	<CABoU2P0o6LqyVD_9Qhn7Ryuje61MuJ5QMzVeHORZX2HzNAkqyA@mail.gmail.com>
	<CABoU2P0EOu4f+MGcrv08jqCMuJdVK19pbodMQiLGv8uXWuETug@mail.gmail.com>
	<CABmdQ_SpaXcoLVcePRvCtNo0s7=g=-7-c+roDUAMkzcaWuPS3w@mail.gmail.com>
	<CABoU2P1jq+O_DiLX96PX9KUYo9m4XLdKimQiANGAZP_E0hg9qg@mail.gmail.com>
	<CABmdQ_Q6bemGCGyZdT298YdnmrK0S7zBoJKRcm4y+3RmEmyH6A@mail.gmail.com>
Message-ID: <CABoU2P3tut4vLKyCPK3QJGMfYdWGF4B3BaEu3CXSNaw1AFjvHg@mail.gmail.com>

Ah sim, j? tinha visto isso. J? arrumei... :D

2016-01-31 0:36 GMT-02:00 Renato Santos <renato.cron at gmail.com>:

> Blz, s? arrumar a regexp pra ter ^ e $
> On Jan 31, 2016 00:34, "Andre Carneiro" <andregarciacarneiro at gmail.com>
> wrote:
>
>>
>> Cron, Provavelmente usarei dois profiles e tratarei o 'all' por fora.
>>
>>
>> Lucas Mateus, n?o entendi em que o 'derived' ajudaria nisso. Qual seria a
>> sua id?ia?
>>
>>
>> Cheers!
>>
>> 2016-01-31 0:25 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>
>>> Entendi. Acho que ? mais simples fazer do jeito que vc falou (sem o data
>>> verifier), ou, tem que criar 3 profiler e passar os par?metros  guardar os
>>> resultados e fazer os ifs do mesmo jeito.
>>>
>>> Talvez (apaga)porcaria(/apaga) do data::manager possa te ajudar com isso
>>> On Jan 31, 2016 00:18, "Andre Carneiro" <andregarciacarneiro at gmail.com>
>>> wrote:
>>>
>>>> Porra, t? parecendo a Dilma... :P
>>>>
>>>> Explicando melhor. target ? sempre verificado se tem valor: all, email
>>>> ou id...
>>>>
>>>>
>>>>
>>>>
>>>> 2016-01-31 0:17 GMT-02:00 Andre Carneiro <andregarciacarneiro at gmail.com
>>>> >:
>>>>
>>>>> Cron,
>>>>>
>>>>> Quando target == 'all', significa que eu quero TODOS os dados.
>>>>> Portanto n?o precisa ser verificado(embora target seja verificado).
>>>>>
>>>>> Cheers!
>>>>>
>>>>> 2016-01-31 0:15 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>>>>
>>>>>> Ou seria, se chegou com /id verifica o id
>>>>>> Se chegou /email verifica o email
>>>>>> ? ter /all que n?o verifica nada?
>>>>>>
>>>>>> O data verifier pro si s? n?o tem essa intelig?ncia toda pra mudar os
>>>>>> required dos campos num mesmo check.
>>>>>>
>>>>>> N?o entendi, voc? quer validar a string "all", "id" e "email" ou o
>>>>>> conte?do?
>>>>>> Pois me parece mais simples usar um If looks like integer = procurar
>>>>>> por id, else check email = procurar por email, else (erro ou trazer tudo) ?
>>>>>> On Jan 30, 2016 23:56, "Andre Carneiro" <
>>>>>> andregarciacarneiro at gmail.com> wrote:
>>>>>>
>>>>>>> Sarav?!
>>>>>>>
>>>>>>> Preciso de um aux?lio numa quest?o, por gentileza.
>>>>>>>
>>>>>>> Dado um endpoint GET /account/<TARGET>
>>>>>>>
>>>>>>> Onde TARGET pode ser: 'id', 'email' ou 'all'
>>>>>>>
>>>>>>> Preciso verificar os dados em 'id' e 'email'. Para isso, estou
>>>>>>> usando o m?dulo Data::Verifier, onde tenho o seguinte 'profile':
>>>>>>> http://pastebin.com/L32SyrVg
>>>>>>>
>>>>>>> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre porque,
>>>>>>> na verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou *outro,
>>>>>>> portanto n?o posso setar 'required' como true para nenhum dos dois.
>>>>>>>
>>>>>>> Eu pensei em algumas alternativas usando v?rios profiles e
>>>>>>> selecionando o tipo de verifica??o conforme os campos que eu teria
>>>>>>> dispon?vel. Mas achei meio 'verboso' demais.
>>>>>>>
>>>>>>> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me
>>>>>>> ajudar?
>>>>>>>
>>>>>>>
>>>>>>> Obrigado!
>>>>>>>
>>>>>>>
>>>>>>> --
>>>>>>> Andr? Garcia Carneiro
>>>>>>> Software Engineer
>>>>>>> (11)982907780
>>>>>>>
>>>>>>> =begin disclaimer
>>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>>> =end disclaimer
>>>>>>>
>>>>>>>
>>>>>> =begin disclaimer
>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>> =end disclaimer
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>> --
>>>>> Andr? Garcia Carneiro
>>>>> Software Engineer
>>>>> (11)982907780
>>>>>
>>>>
>>>>
>>>>
>>>> --
>>>> Andr? Garcia Carneiro
>>>> Software Engineer
>>>> (11)982907780
>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> Andr? Garcia Carneiro
>> Software Engineer
>> (11)982907780
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/19708d39/attachment.html>

From lucasmateus.oliveira at gmail.com  Sat Jan 30 18:52:02 2016
From: lucasmateus.oliveira at gmail.com (Lucas Mateus)
Date: Sun, 31 Jan 2016 00:52:02 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CABoU2P3tut4vLKyCPK3QJGMfYdWGF4B3BaEu3CXSNaw1AFjvHg@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
	<CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>
	<CABmdQ_TyB=-iDhP_z80YH7xZSr=JfnXvVxTXpAqVm81D9F3kCA@mail.gmail.com>
	<CABoU2P0o6LqyVD_9Qhn7Ryuje61MuJ5QMzVeHORZX2HzNAkqyA@mail.gmail.com>
	<CABoU2P0EOu4f+MGcrv08jqCMuJdVK19pbodMQiLGv8uXWuETug@mail.gmail.com>
	<CABmdQ_SpaXcoLVcePRvCtNo0s7=g=-7-c+roDUAMkzcaWuPS3w@mail.gmail.com>
	<CABoU2P1jq+O_DiLX96PX9KUYo9m4XLdKimQiANGAZP_E0hg9qg@mail.gmail.com>
	<CABmdQ_Q6bemGCGyZdT298YdnmrK0S7zBoJKRcm4y+3RmEmyH6A@mail.gmail.com>
	<CABoU2P3tut4vLKyCPK3QJGMfYdWGF4B3BaEu3CXSNaw1AFjvHg@mail.gmail.com>
Message-ID: <CACLgUQKZxmGK59B3uGmqxwuepqMrTA2Wv2VqagPU2E6i_rFLxw@mail.gmail.com>

Andr?, seria algo assim: http://pastebin.com/bcqw9mpf

Em 31 de janeiro de 2016 00:49, Andre Carneiro <
andregarciacarneiro at gmail.com> escreveu:

> Ah sim, j? tinha visto isso. J? arrumei... :D
>
> 2016-01-31 0:36 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>
>> Blz, s? arrumar a regexp pra ter ^ e $
>> On Jan 31, 2016 00:34, "Andre Carneiro" <andregarciacarneiro at gmail.com>
>> wrote:
>>
>>>
>>> Cron, Provavelmente usarei dois profiles e tratarei o 'all' por fora.
>>>
>>>
>>> Lucas Mateus, n?o entendi em que o 'derived' ajudaria nisso. Qual seria
>>> a sua id?ia?
>>>
>>>
>>> Cheers!
>>>
>>> 2016-01-31 0:25 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>>
>>>> Entendi. Acho que ? mais simples fazer do jeito que vc falou (sem o
>>>> data verifier), ou, tem que criar 3 profiler e passar os par?metros
>>>> guardar os resultados e fazer os ifs do mesmo jeito.
>>>>
>>>> Talvez (apaga)porcaria(/apaga) do data::manager possa te ajudar com
>>>> isso
>>>> On Jan 31, 2016 00:18, "Andre Carneiro" <andregarciacarneiro at gmail.com>
>>>> wrote:
>>>>
>>>>> Porra, t? parecendo a Dilma... :P
>>>>>
>>>>> Explicando melhor. target ? sempre verificado se tem valor: all, email
>>>>> ou id...
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> 2016-01-31 0:17 GMT-02:00 Andre Carneiro <
>>>>> andregarciacarneiro at gmail.com>:
>>>>>
>>>>>> Cron,
>>>>>>
>>>>>> Quando target == 'all', significa que eu quero TODOS os dados.
>>>>>> Portanto n?o precisa ser verificado(embora target seja verificado).
>>>>>>
>>>>>> Cheers!
>>>>>>
>>>>>> 2016-01-31 0:15 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>>>>>
>>>>>>> Ou seria, se chegou com /id verifica o id
>>>>>>> Se chegou /email verifica o email
>>>>>>> ? ter /all que n?o verifica nada?
>>>>>>>
>>>>>>> O data verifier pro si s? n?o tem essa intelig?ncia toda pra mudar
>>>>>>> os required dos campos num mesmo check.
>>>>>>>
>>>>>>> N?o entendi, voc? quer validar a string "all", "id" e "email" ou o
>>>>>>> conte?do?
>>>>>>> Pois me parece mais simples usar um If looks like integer = procurar
>>>>>>> por id, else check email = procurar por email, else (erro ou trazer tudo) ?
>>>>>>> On Jan 30, 2016 23:56, "Andre Carneiro" <
>>>>>>> andregarciacarneiro at gmail.com> wrote:
>>>>>>>
>>>>>>>> Sarav?!
>>>>>>>>
>>>>>>>> Preciso de um aux?lio numa quest?o, por gentileza.
>>>>>>>>
>>>>>>>> Dado um endpoint GET /account/<TARGET>
>>>>>>>>
>>>>>>>> Onde TARGET pode ser: 'id', 'email' ou 'all'
>>>>>>>>
>>>>>>>> Preciso verificar os dados em 'id' e 'email'. Para isso, estou
>>>>>>>> usando o m?dulo Data::Verifier, onde tenho o seguinte 'profile':
>>>>>>>> http://pastebin.com/L32SyrVg
>>>>>>>>
>>>>>>>> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre
>>>>>>>> porque, na verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou
>>>>>>>> *outro, portanto n?o posso setar 'required' como true para nenhum
>>>>>>>> dos dois.
>>>>>>>>
>>>>>>>> Eu pensei em algumas alternativas usando v?rios profiles e
>>>>>>>> selecionando o tipo de verifica??o conforme os campos que eu teria
>>>>>>>> dispon?vel. Mas achei meio 'verboso' demais.
>>>>>>>>
>>>>>>>> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me
>>>>>>>> ajudar?
>>>>>>>>
>>>>>>>>
>>>>>>>> Obrigado!
>>>>>>>>
>>>>>>>>
>>>>>>>> --
>>>>>>>> Andr? Garcia Carneiro
>>>>>>>> Software Engineer
>>>>>>>> (11)982907780
>>>>>>>>
>>>>>>>> =begin disclaimer
>>>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>>>> =end disclaimer
>>>>>>>>
>>>>>>>>
>>>>>>> =begin disclaimer
>>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>>> =end disclaimer
>>>>>>>
>>>>>>>
>>>>>>
>>>>>>
>>>>>> --
>>>>>> Andr? Garcia Carneiro
>>>>>> Software Engineer
>>>>>> (11)982907780
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>> --
>>>>> Andr? Garcia Carneiro
>>>>> Software Engineer
>>>>> (11)982907780
>>>>>
>>>>> =begin disclaimer
>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> =end disclaimer
>>>>>
>>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>>
>>>
>>> --
>>> Andr? Garcia Carneiro
>>> Software Engineer
>>> (11)982907780
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/da4fa8a6/attachment-0001.html>

From lucasmateus.oliveira at gmail.com  Sat Jan 30 18:54:05 2016
From: lucasmateus.oliveira at gmail.com (Lucas Mateus)
Date: Sun, 31 Jan 2016 00:54:05 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CACLgUQKZxmGK59B3uGmqxwuepqMrTA2Wv2VqagPU2E6i_rFLxw@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
	<CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>
	<CABmdQ_TyB=-iDhP_z80YH7xZSr=JfnXvVxTXpAqVm81D9F3kCA@mail.gmail.com>
	<CABoU2P0o6LqyVD_9Qhn7Ryuje61MuJ5QMzVeHORZX2HzNAkqyA@mail.gmail.com>
	<CABoU2P0EOu4f+MGcrv08jqCMuJdVK19pbodMQiLGv8uXWuETug@mail.gmail.com>
	<CABmdQ_SpaXcoLVcePRvCtNo0s7=g=-7-c+roDUAMkzcaWuPS3w@mail.gmail.com>
	<CABoU2P1jq+O_DiLX96PX9KUYo9m4XLdKimQiANGAZP_E0hg9qg@mail.gmail.com>
	<CABmdQ_Q6bemGCGyZdT298YdnmrK0S7zBoJKRcm4y+3RmEmyH6A@mail.gmail.com>
	<CABoU2P3tut4vLKyCPK3QJGMfYdWGF4B3BaEu3CXSNaw1AFjvHg@mail.gmail.com>
	<CACLgUQKZxmGK59B3uGmqxwuepqMrTA2Wv2VqagPU2E6i_rFLxw@mail.gmail.com>
Message-ID: <CACLgUQ+xumBhKMhTS84fwcztBtXvpmdnRuDi9o5fek4it0feQg@mail.gmail.com>

Se for o contr?rio do que eu fiz, basta inverter, coloca um "data => Str"
no profile e valida com post_check mesmo

Em 31 de janeiro de 2016 00:52, Lucas Mateus <lucasmateus.oliveira at gmail.com
> escreveu:

> Andr?, seria algo assim: http://pastebin.com/bcqw9mpf
>
> Em 31 de janeiro de 2016 00:49, Andre Carneiro <
> andregarciacarneiro at gmail.com> escreveu:
>
>> Ah sim, j? tinha visto isso. J? arrumei... :D
>>
>> 2016-01-31 0:36 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>
>>> Blz, s? arrumar a regexp pra ter ^ e $
>>> On Jan 31, 2016 00:34, "Andre Carneiro" <andregarciacarneiro at gmail.com>
>>> wrote:
>>>
>>>>
>>>> Cron, Provavelmente usarei dois profiles e tratarei o 'all' por fora.
>>>>
>>>>
>>>> Lucas Mateus, n?o entendi em que o 'derived' ajudaria nisso. Qual seria
>>>> a sua id?ia?
>>>>
>>>>
>>>> Cheers!
>>>>
>>>> 2016-01-31 0:25 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>>>
>>>>> Entendi. Acho que ? mais simples fazer do jeito que vc falou (sem o
>>>>> data verifier), ou, tem que criar 3 profiler e passar os par?metros
>>>>> guardar os resultados e fazer os ifs do mesmo jeito.
>>>>>
>>>>> Talvez (apaga)porcaria(/apaga) do data::manager possa te ajudar com
>>>>> isso
>>>>> On Jan 31, 2016 00:18, "Andre Carneiro" <andregarciacarneiro at gmail.com>
>>>>> wrote:
>>>>>
>>>>>> Porra, t? parecendo a Dilma... :P
>>>>>>
>>>>>> Explicando melhor. target ? sempre verificado se tem valor: all,
>>>>>> email ou id...
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> 2016-01-31 0:17 GMT-02:00 Andre Carneiro <
>>>>>> andregarciacarneiro at gmail.com>:
>>>>>>
>>>>>>> Cron,
>>>>>>>
>>>>>>> Quando target == 'all', significa que eu quero TODOS os dados.
>>>>>>> Portanto n?o precisa ser verificado(embora target seja verificado).
>>>>>>>
>>>>>>> Cheers!
>>>>>>>
>>>>>>> 2016-01-31 0:15 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>>>>>>
>>>>>>>> Ou seria, se chegou com /id verifica o id
>>>>>>>> Se chegou /email verifica o email
>>>>>>>> ? ter /all que n?o verifica nada?
>>>>>>>>
>>>>>>>> O data verifier pro si s? n?o tem essa intelig?ncia toda pra mudar
>>>>>>>> os required dos campos num mesmo check.
>>>>>>>>
>>>>>>>> N?o entendi, voc? quer validar a string "all", "id" e "email" ou o
>>>>>>>> conte?do?
>>>>>>>> Pois me parece mais simples usar um If looks like integer =
>>>>>>>> procurar por id, else check email = procurar por email, else (erro ou
>>>>>>>> trazer tudo) ?
>>>>>>>> On Jan 30, 2016 23:56, "Andre Carneiro" <
>>>>>>>> andregarciacarneiro at gmail.com> wrote:
>>>>>>>>
>>>>>>>>> Sarav?!
>>>>>>>>>
>>>>>>>>> Preciso de um aux?lio numa quest?o, por gentileza.
>>>>>>>>>
>>>>>>>>> Dado um endpoint GET /account/<TARGET>
>>>>>>>>>
>>>>>>>>> Onde TARGET pode ser: 'id', 'email' ou 'all'
>>>>>>>>>
>>>>>>>>> Preciso verificar os dados em 'id' e 'email'. Para isso, estou
>>>>>>>>> usando o m?dulo Data::Verifier, onde tenho o seguinte 'profile':
>>>>>>>>> http://pastebin.com/L32SyrVg
>>>>>>>>>
>>>>>>>>> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre
>>>>>>>>> porque, na verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou
>>>>>>>>> *outro, portanto n?o posso setar 'required' como true para nenhum
>>>>>>>>> dos dois.
>>>>>>>>>
>>>>>>>>> Eu pensei em algumas alternativas usando v?rios profiles e
>>>>>>>>> selecionando o tipo de verifica??o conforme os campos que eu teria
>>>>>>>>> dispon?vel. Mas achei meio 'verboso' demais.
>>>>>>>>>
>>>>>>>>> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me
>>>>>>>>> ajudar?
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> Obrigado!
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> --
>>>>>>>>> Andr? Garcia Carneiro
>>>>>>>>> Software Engineer
>>>>>>>>> (11)982907780
>>>>>>>>>
>>>>>>>>> =begin disclaimer
>>>>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>>>>> =end disclaimer
>>>>>>>>>
>>>>>>>>>
>>>>>>>> =begin disclaimer
>>>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>>>> =end disclaimer
>>>>>>>>
>>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> --
>>>>>>> Andr? Garcia Carneiro
>>>>>>> Software Engineer
>>>>>>> (11)982907780
>>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> --
>>>>>> Andr? Garcia Carneiro
>>>>>> Software Engineer
>>>>>> (11)982907780
>>>>>>
>>>>>> =begin disclaimer
>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>> =end disclaimer
>>>>>>
>>>>>>
>>>>> =begin disclaimer
>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> =end disclaimer
>>>>>
>>>>>
>>>>
>>>>
>>>> --
>>>> Andr? Garcia Carneiro
>>>> Software Engineer
>>>> (11)982907780
>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> Andr? Garcia Carneiro
>> Software Engineer
>> (11)982907780
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/3a9eb855/attachment.html>

From andregarciacarneiro at gmail.com  Sat Jan 30 19:02:46 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Sun, 31 Jan 2016 01:02:46 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CACLgUQ+xumBhKMhTS84fwcztBtXvpmdnRuDi9o5fek4it0feQg@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
	<CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>
	<CABmdQ_TyB=-iDhP_z80YH7xZSr=JfnXvVxTXpAqVm81D9F3kCA@mail.gmail.com>
	<CABoU2P0o6LqyVD_9Qhn7Ryuje61MuJ5QMzVeHORZX2HzNAkqyA@mail.gmail.com>
	<CABoU2P0EOu4f+MGcrv08jqCMuJdVK19pbodMQiLGv8uXWuETug@mail.gmail.com>
	<CABmdQ_SpaXcoLVcePRvCtNo0s7=g=-7-c+roDUAMkzcaWuPS3w@mail.gmail.com>
	<CABoU2P1jq+O_DiLX96PX9KUYo9m4XLdKimQiANGAZP_E0hg9qg@mail.gmail.com>
	<CABmdQ_Q6bemGCGyZdT298YdnmrK0S7zBoJKRcm4y+3RmEmyH6A@mail.gmail.com>
	<CABoU2P3tut4vLKyCPK3QJGMfYdWGF4B3BaEu3CXSNaw1AFjvHg@mail.gmail.com>
	<CACLgUQKZxmGK59B3uGmqxwuepqMrTA2Wv2VqagPU2E6i_rFLxw@mail.gmail.com>
	<CACLgUQ+xumBhKMhTS84fwcztBtXvpmdnRuDi9o5fek4it0feQg@mail.gmail.com>
Message-ID: <CABoU2P2XHtdhKXMejhMfSw1HzVZS74q=Xo7qE3y_MCW04dE4XQ@mail.gmail.com>

Lucas,

Interessante! N?o tinha pensado em usar o derived desse jeito. Vou dar uma
olhada amanh?(agora que vi que s?o 01:00h da manh?).


Depois escreverei aqui sobre o resultado.


Valeu!

2016-01-31 0:54 GMT-02:00 Lucas Mateus <lucasmateus.oliveira at gmail.com>:

> Se for o contr?rio do que eu fiz, basta inverter, coloca um "data => Str"
> no profile e valida com post_check mesmo
>
> Em 31 de janeiro de 2016 00:52, Lucas Mateus <
> lucasmateus.oliveira at gmail.com> escreveu:
>
>> Andr?, seria algo assim: http://pastebin.com/bcqw9mpf
>>
>> Em 31 de janeiro de 2016 00:49, Andre Carneiro <
>> andregarciacarneiro at gmail.com> escreveu:
>>
>>> Ah sim, j? tinha visto isso. J? arrumei... :D
>>>
>>> 2016-01-31 0:36 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>>
>>>> Blz, s? arrumar a regexp pra ter ^ e $
>>>> On Jan 31, 2016 00:34, "Andre Carneiro" <andregarciacarneiro at gmail.com>
>>>> wrote:
>>>>
>>>>>
>>>>> Cron, Provavelmente usarei dois profiles e tratarei o 'all' por fora.
>>>>>
>>>>>
>>>>> Lucas Mateus, n?o entendi em que o 'derived' ajudaria nisso. Qual
>>>>> seria a sua id?ia?
>>>>>
>>>>>
>>>>> Cheers!
>>>>>
>>>>> 2016-01-31 0:25 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>>>>
>>>>>> Entendi. Acho que ? mais simples fazer do jeito que vc falou (sem o
>>>>>> data verifier), ou, tem que criar 3 profiler e passar os par?metros
>>>>>> guardar os resultados e fazer os ifs do mesmo jeito.
>>>>>>
>>>>>> Talvez (apaga)porcaria(/apaga) do data::manager possa te ajudar com
>>>>>> isso
>>>>>> On Jan 31, 2016 00:18, "Andre Carneiro" <
>>>>>> andregarciacarneiro at gmail.com> wrote:
>>>>>>
>>>>>>> Porra, t? parecendo a Dilma... :P
>>>>>>>
>>>>>>> Explicando melhor. target ? sempre verificado se tem valor: all,
>>>>>>> email ou id...
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> 2016-01-31 0:17 GMT-02:00 Andre Carneiro <
>>>>>>> andregarciacarneiro at gmail.com>:
>>>>>>>
>>>>>>>> Cron,
>>>>>>>>
>>>>>>>> Quando target == 'all', significa que eu quero TODOS os dados.
>>>>>>>> Portanto n?o precisa ser verificado(embora target seja verificado).
>>>>>>>>
>>>>>>>> Cheers!
>>>>>>>>
>>>>>>>> 2016-01-31 0:15 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>>>>>>>
>>>>>>>>> Ou seria, se chegou com /id verifica o id
>>>>>>>>> Se chegou /email verifica o email
>>>>>>>>> ? ter /all que n?o verifica nada?
>>>>>>>>>
>>>>>>>>> O data verifier pro si s? n?o tem essa intelig?ncia toda pra mudar
>>>>>>>>> os required dos campos num mesmo check.
>>>>>>>>>
>>>>>>>>> N?o entendi, voc? quer validar a string "all", "id" e "email" ou o
>>>>>>>>> conte?do?
>>>>>>>>> Pois me parece mais simples usar um If looks like integer =
>>>>>>>>> procurar por id, else check email = procurar por email, else (erro ou
>>>>>>>>> trazer tudo) ?
>>>>>>>>> On Jan 30, 2016 23:56, "Andre Carneiro" <
>>>>>>>>> andregarciacarneiro at gmail.com> wrote:
>>>>>>>>>
>>>>>>>>>> Sarav?!
>>>>>>>>>>
>>>>>>>>>> Preciso de um aux?lio numa quest?o, por gentileza.
>>>>>>>>>>
>>>>>>>>>> Dado um endpoint GET /account/<TARGET>
>>>>>>>>>>
>>>>>>>>>> Onde TARGET pode ser: 'id', 'email' ou 'all'
>>>>>>>>>>
>>>>>>>>>> Preciso verificar os dados em 'id' e 'email'. Para isso, estou
>>>>>>>>>> usando o m?dulo Data::Verifier, onde tenho o seguinte 'profile':
>>>>>>>>>> http://pastebin.com/L32SyrVg
>>>>>>>>>>
>>>>>>>>>> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre
>>>>>>>>>> porque, na verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou
>>>>>>>>>> *outro, portanto n?o posso setar 'required' como true para
>>>>>>>>>> nenhum dos dois.
>>>>>>>>>>
>>>>>>>>>> Eu pensei em algumas alternativas usando v?rios profiles e
>>>>>>>>>> selecionando o tipo de verifica??o conforme os campos que eu teria
>>>>>>>>>> dispon?vel. Mas achei meio 'verboso' demais.
>>>>>>>>>>
>>>>>>>>>> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me
>>>>>>>>>> ajudar?
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>> Obrigado!
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>> --
>>>>>>>>>> Andr? Garcia Carneiro
>>>>>>>>>> Software Engineer
>>>>>>>>>> (11)982907780
>>>>>>>>>>
>>>>>>>>>> =begin disclaimer
>>>>>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>>>>>> =end disclaimer
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>> =begin disclaimer
>>>>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>>>>> =end disclaimer
>>>>>>>>>
>>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> --
>>>>>>>> Andr? Garcia Carneiro
>>>>>>>> Software Engineer
>>>>>>>> (11)982907780
>>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> --
>>>>>>> Andr? Garcia Carneiro
>>>>>>> Software Engineer
>>>>>>> (11)982907780
>>>>>>>
>>>>>>> =begin disclaimer
>>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>>> =end disclaimer
>>>>>>>
>>>>>>>
>>>>>> =begin disclaimer
>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>> =end disclaimer
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>> --
>>>>> Andr? Garcia Carneiro
>>>>> Software Engineer
>>>>> (11)982907780
>>>>>
>>>>> =begin disclaimer
>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> =end disclaimer
>>>>>
>>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>>
>>>
>>> --
>>> Andr? Garcia Carneiro
>>> Software Engineer
>>> (11)982907780
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/495a5270/attachment-0001.html>

From lucasmateus.oliveira at gmail.com  Sat Jan 30 19:05:08 2016
From: lucasmateus.oliveira at gmail.com (Lucas Mateus)
Date: Sun, 31 Jan 2016 01:05:08 -0200
Subject: [SP-pm] Data::Verifier
In-Reply-To: <CABoU2P2XHtdhKXMejhMfSw1HzVZS74q=Xo7qE3y_MCW04dE4XQ@mail.gmail.com>
References: <CABoU2P2XN=RgP65RvbLepE32roSTDMrP_RYuuq-YELv5UammCw@mail.gmail.com>
	<CABmdQ_SPLS5VcR51Mf8bfGHhYiG9S4mPWErOqR1t6LzaC1uH1w@mail.gmail.com>
	<CABmdQ_TyB=-iDhP_z80YH7xZSr=JfnXvVxTXpAqVm81D9F3kCA@mail.gmail.com>
	<CABoU2P0o6LqyVD_9Qhn7Ryuje61MuJ5QMzVeHORZX2HzNAkqyA@mail.gmail.com>
	<CABoU2P0EOu4f+MGcrv08jqCMuJdVK19pbodMQiLGv8uXWuETug@mail.gmail.com>
	<CABmdQ_SpaXcoLVcePRvCtNo0s7=g=-7-c+roDUAMkzcaWuPS3w@mail.gmail.com>
	<CABoU2P1jq+O_DiLX96PX9KUYo9m4XLdKimQiANGAZP_E0hg9qg@mail.gmail.com>
	<CABmdQ_Q6bemGCGyZdT298YdnmrK0S7zBoJKRcm4y+3RmEmyH6A@mail.gmail.com>
	<CABoU2P3tut4vLKyCPK3QJGMfYdWGF4B3BaEu3CXSNaw1AFjvHg@mail.gmail.com>
	<CACLgUQKZxmGK59B3uGmqxwuepqMrTA2Wv2VqagPU2E6i_rFLxw@mail.gmail.com>
	<CACLgUQ+xumBhKMhTS84fwcztBtXvpmdnRuDi9o5fek4it0feQg@mail.gmail.com>
	<CABoU2P2XHtdhKXMejhMfSw1HzVZS74q=Xo7qE3y_MCW04dE4XQ@mail.gmail.com>
Message-ID: <CACLgUQ+wAQCgAHFWm3pXmjCv_dEiO8t0qWe-CPd3thQsHUC5ww@mail.gmail.com>

? n?is

Em 31 de janeiro de 2016 01:02, Andre Carneiro <
andregarciacarneiro at gmail.com> escreveu:

> Lucas,
>
> Interessante! N?o tinha pensado em usar o derived desse jeito. Vou dar uma
> olhada amanh?(agora que vi que s?o 01:00h da manh?).
>
>
> Depois escreverei aqui sobre o resultado.
>
>
> Valeu!
>
> 2016-01-31 0:54 GMT-02:00 Lucas Mateus <lucasmateus.oliveira at gmail.com>:
>
>> Se for o contr?rio do que eu fiz, basta inverter, coloca um "data => Str"
>> no profile e valida com post_check mesmo
>>
>> Em 31 de janeiro de 2016 00:52, Lucas Mateus <
>> lucasmateus.oliveira at gmail.com> escreveu:
>>
>>> Andr?, seria algo assim: http://pastebin.com/bcqw9mpf
>>>
>>> Em 31 de janeiro de 2016 00:49, Andre Carneiro <
>>> andregarciacarneiro at gmail.com> escreveu:
>>>
>>>> Ah sim, j? tinha visto isso. J? arrumei... :D
>>>>
>>>> 2016-01-31 0:36 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>>>
>>>>> Blz, s? arrumar a regexp pra ter ^ e $
>>>>> On Jan 31, 2016 00:34, "Andre Carneiro" <andregarciacarneiro at gmail.com>
>>>>> wrote:
>>>>>
>>>>>>
>>>>>> Cron, Provavelmente usarei dois profiles e tratarei o 'all' por fora.
>>>>>>
>>>>>>
>>>>>> Lucas Mateus, n?o entendi em que o 'derived' ajudaria nisso. Qual
>>>>>> seria a sua id?ia?
>>>>>>
>>>>>>
>>>>>> Cheers!
>>>>>>
>>>>>> 2016-01-31 0:25 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>>>>>
>>>>>>> Entendi. Acho que ? mais simples fazer do jeito que vc falou (sem o
>>>>>>> data verifier), ou, tem que criar 3 profiler e passar os par?metros
>>>>>>> guardar os resultados e fazer os ifs do mesmo jeito.
>>>>>>>
>>>>>>> Talvez (apaga)porcaria(/apaga) do data::manager possa te ajudar com
>>>>>>> isso
>>>>>>> On Jan 31, 2016 00:18, "Andre Carneiro" <
>>>>>>> andregarciacarneiro at gmail.com> wrote:
>>>>>>>
>>>>>>>> Porra, t? parecendo a Dilma... :P
>>>>>>>>
>>>>>>>> Explicando melhor. target ? sempre verificado se tem valor: all,
>>>>>>>> email ou id...
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> 2016-01-31 0:17 GMT-02:00 Andre Carneiro <
>>>>>>>> andregarciacarneiro at gmail.com>:
>>>>>>>>
>>>>>>>>> Cron,
>>>>>>>>>
>>>>>>>>> Quando target == 'all', significa que eu quero TODOS os dados.
>>>>>>>>> Portanto n?o precisa ser verificado(embora target seja verificado).
>>>>>>>>>
>>>>>>>>> Cheers!
>>>>>>>>>
>>>>>>>>> 2016-01-31 0:15 GMT-02:00 Renato Santos <renato.cron at gmail.com>:
>>>>>>>>>
>>>>>>>>>> Ou seria, se chegou com /id verifica o id
>>>>>>>>>> Se chegou /email verifica o email
>>>>>>>>>> ? ter /all que n?o verifica nada?
>>>>>>>>>>
>>>>>>>>>> O data verifier pro si s? n?o tem essa intelig?ncia toda pra
>>>>>>>>>> mudar os required dos campos num mesmo check.
>>>>>>>>>>
>>>>>>>>>> N?o entendi, voc? quer validar a string "all", "id" e "email" ou
>>>>>>>>>> o conte?do?
>>>>>>>>>> Pois me parece mais simples usar um If looks like integer =
>>>>>>>>>> procurar por id, else check email = procurar por email, else (erro ou
>>>>>>>>>> trazer tudo) ?
>>>>>>>>>> On Jan 30, 2016 23:56, "Andre Carneiro" <
>>>>>>>>>> andregarciacarneiro at gmail.com> wrote:
>>>>>>>>>>
>>>>>>>>>>> Sarav?!
>>>>>>>>>>>
>>>>>>>>>>> Preciso de um aux?lio numa quest?o, por gentileza.
>>>>>>>>>>>
>>>>>>>>>>> Dado um endpoint GET /account/<TARGET>
>>>>>>>>>>>
>>>>>>>>>>> Onde TARGET pode ser: 'id', 'email' ou 'all'
>>>>>>>>>>>
>>>>>>>>>>> Preciso verificar os dados em 'id' e 'email'. Para isso, estou
>>>>>>>>>>> usando o m?dulo Data::Verifier, onde tenho o seguinte 'profile':
>>>>>>>>>>> http://pastebin.com/L32SyrVg
>>>>>>>>>>>
>>>>>>>>>>> Repare que 'email' e 'id', n?o s?o obrigat?rios. Isso ocorre
>>>>>>>>>>> porque, na verdade, eu espero fazer  a pesquisa atrav?s de um campo *ou
>>>>>>>>>>> *outro, portanto n?o posso setar 'required' como true para
>>>>>>>>>>> nenhum dos dois.
>>>>>>>>>>>
>>>>>>>>>>> Eu pensei em algumas alternativas usando v?rios profiles e
>>>>>>>>>>> selecionando o tipo de verifica??o conforme os campos que eu teria
>>>>>>>>>>> dispon?vel. Mas achei meio 'verboso' demais.
>>>>>>>>>>>
>>>>>>>>>>> Algu?m teria outra id?ia, ou solu??o de contorno que poderia me
>>>>>>>>>>> ajudar?
>>>>>>>>>>>
>>>>>>>>>>>
>>>>>>>>>>> Obrigado!
>>>>>>>>>>>
>>>>>>>>>>>
>>>>>>>>>>> --
>>>>>>>>>>> Andr? Garcia Carneiro
>>>>>>>>>>> Software Engineer
>>>>>>>>>>> (11)982907780
>>>>>>>>>>>
>>>>>>>>>>> =begin disclaimer
>>>>>>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>>>>>>> =end disclaimer
>>>>>>>>>>>
>>>>>>>>>>>
>>>>>>>>>> =begin disclaimer
>>>>>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>>>>>> =end disclaimer
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> --
>>>>>>>>> Andr? Garcia Carneiro
>>>>>>>>> Software Engineer
>>>>>>>>> (11)982907780
>>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> --
>>>>>>>> Andr? Garcia Carneiro
>>>>>>>> Software Engineer
>>>>>>>> (11)982907780
>>>>>>>>
>>>>>>>> =begin disclaimer
>>>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>>>> =end disclaimer
>>>>>>>>
>>>>>>>>
>>>>>>> =begin disclaimer
>>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>>> =end disclaimer
>>>>>>>
>>>>>>>
>>>>>>
>>>>>>
>>>>>> --
>>>>>> Andr? Garcia Carneiro
>>>>>> Software Engineer
>>>>>> (11)982907780
>>>>>>
>>>>>> =begin disclaimer
>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>> =end disclaimer
>>>>>>
>>>>>>
>>>>> =begin disclaimer
>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> =end disclaimer
>>>>>
>>>>>
>>>>
>>>>
>>>> --
>>>> Andr? Garcia Carneiro
>>>> Software Engineer
>>>> (11)982907780
>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>>
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160131/f16f056a/attachment.html>

From rodrigo at toetec.com.br  Tue Feb  2 11:00:47 2016
From: rodrigo at toetec.com.br (Rodrigo Panchiniak Fernandes)
Date: Tue, 2 Feb 2016 17:00:47 -0200
Subject: [SP-pm] [i18n] [cucumber] code review
Message-ID: <56B0FCDF.7030506@toetec.com.br>

Ol?!

Se algu?m tiver um tempo, agrade?o o code review: 
https://github.com/panchiniak/cucumber-steps2po-file
Quem trabalha com i18n, automa??o de browser, cucumber, pode se interessar.

Abra?o,

Rodrigo Panchiniak Fernandes

PS.: O script ? WIP. Mas, est? fazendo todo o MVP. Portanto, seria 
particularmente interessante um feedback sobre melhorias.

From paulohrpinheiro at gmail.com  Tue Feb 16 07:46:45 2016
From: paulohrpinheiro at gmail.com (Paulo Henrique Rodrigues Pinheiro)
Date: Tue, 16 Feb 2016 13:46:45 -0200
Subject: [SP-pm] =?utf-8?q?Lista_de_exerc=C3=ADcios_orientada_a_testes?=
Message-ID: <56C34465.10203@gmail.com>

Ol?.


Criei uma pequena lista de exerc?cios (bem simples), para treinar o 
trabalho com testes unit?rios.

A ideia ? ter a especifica??o do problema e os testes prontos, e a 
pessoa escreve o c?digo para que os testes passem.

Preparei para Perl5 e Python, agora estou trabalhando com C. Quero ainda 
fazer rust, haskell e C++.

Se algu?m se interessar, e melhor ainda, quiser contribuir, por favor, 
d? uma olhada em:

     https://github.com/paulohrpinheiro/test-driven-learning


Aproveitando, algu?m aqui j? usou testes dentro do pod?

Obrigado, abra?o!

-- 
Paulo Henrique Rodrigues Pinheiro
paulohrpinheiro at gmail.com
http://www.sysincloud.it


From renato.cron at gmail.com  Tue Feb 16 07:54:53 2016
From: renato.cron at gmail.com (Renato Santos)
Date: Tue, 16 Feb 2016 13:54:53 -0200
Subject: [SP-pm] =?utf-8?q?Lista_de_exerc=C3=ADcios_orientada_a_testes?=
In-Reply-To: <56C34465.10203@gmail.com>
References: <56C34465.10203@gmail.com>
Message-ID: <CABmdQ_TfruAA4vgj3H5DuoCEUwfA8QmmJpyFDU=j+LjaP0j5Pw@mail.gmail.com>

Como seriam esses testes dentro do .pod?

Seria alguma coisa tipo __END__ que ele roda o teste no lugar do c?digo, se
for passado com algum par?metro?



2016-02-16 13:46 GMT-02:00 Paulo Henrique Rodrigues Pinheiro <
paulohrpinheiro at gmail.com>:

> Ol?.
>
>
> Criei uma pequena lista de exerc?cios (bem simples), para treinar o
> trabalho com testes unit?rios.
>
> A ideia ? ter a especifica??o do problema e os testes prontos, e a pessoa
> escreve o c?digo para que os testes passem.
>
> Preparei para Perl5 e Python, agora estou trabalhando com C. Quero ainda
> fazer rust, haskell e C++.
>
> Se algu?m se interessar, e melhor ainda, quiser contribuir, por favor, d?
> uma olhada em:
>
>     https://github.com/paulohrpinheiro/test-driven-learning
>
>
> Aproveitando, algu?m aqui j? usou testes dentro do pod?
>
> Obrigado, abra?o!
>
> --
> Paulo Henrique Rodrigues Pinheiro
> paulohrpinheiro at gmail.com
> http://www.sysincloud.it
>
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>



-- 
YAGNI,
Renato CRON
http://www.renatocron.com/blog/
@renato_cron <http://twitter.com/#!/renato_cron>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160216/e48e2c7c/attachment.html>

From renato.cron at gmail.com  Tue Feb 16 07:54:53 2016
From: renato.cron at gmail.com (Renato Santos)
Date: Tue, 16 Feb 2016 13:54:53 -0200
Subject: [SP-pm] =?utf-8?q?Lista_de_exerc=C3=ADcios_orientada_a_testes?=
In-Reply-To: <56C34465.10203@gmail.com>
References: <56C34465.10203@gmail.com>
Message-ID: <CABmdQ_TfruAA4vgj3H5DuoCEUwfA8QmmJpyFDU=j+LjaP0j5Pw@mail.gmail.com>

Como seriam esses testes dentro do .pod?

Seria alguma coisa tipo __END__ que ele roda o teste no lugar do c?digo, se
for passado com algum par?metro?



2016-02-16 13:46 GMT-02:00 Paulo Henrique Rodrigues Pinheiro <
paulohrpinheiro at gmail.com>:

> Ol?.
>
>
> Criei uma pequena lista de exerc?cios (bem simples), para treinar o
> trabalho com testes unit?rios.
>
> A ideia ? ter a especifica??o do problema e os testes prontos, e a pessoa
> escreve o c?digo para que os testes passem.
>
> Preparei para Perl5 e Python, agora estou trabalhando com C. Quero ainda
> fazer rust, haskell e C++.
>
> Se algu?m se interessar, e melhor ainda, quiser contribuir, por favor, d?
> uma olhada em:
>
>     https://github.com/paulohrpinheiro/test-driven-learning
>
>
> Aproveitando, algu?m aqui j? usou testes dentro do pod?
>
> Obrigado, abra?o!
>
> --
> Paulo Henrique Rodrigues Pinheiro
> paulohrpinheiro at gmail.com
> http://www.sysincloud.it
>
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>



-- 
YAGNI,
Renato CRON
http://www.renatocron.com/blog/
@renato_cron <http://twitter.com/#!/renato_cron>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160216/e48e2c7c/attachment-0001.html>

From paulohrpinheiro at gmail.com  Tue Feb 16 08:06:48 2016
From: paulohrpinheiro at gmail.com (Paulo Henrique Rodrigues Pinheiro)
Date: Tue, 16 Feb 2016 14:06:48 -0200
Subject: [SP-pm] =?utf-8?q?Lista_de_exerc=C3=ADcios_orientada_a_testes?=
In-Reply-To: <CABmdQ_TfruAA4vgj3H5DuoCEUwfA8QmmJpyFDU=j+LjaP0j5Pw@mail.gmail.com>
References: <56C34465.10203@gmail.com>
	<CABmdQ_TfruAA4vgj3H5DuoCEUwfA8QmmJpyFDU=j+LjaP0j5Pw@mail.gmail.com>
Message-ID: <56C34918.6040106@gmail.com>

Ol?!


Em 16-02-2016 13:54, Renato Santos escreveu:
> Como seriam esses testes dentro do .pod?
>
> Seria alguma coisa tipo __END__ que ele roda o teste no lugar do 
> c?digo, se for passado com algum par?metro?

N?o expliquei direito. ? escrever os testes como se fossem documenta??o 
pod dentro dos arquivos de c?digo. Esse m?dulo:

http://search.cpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm

>
> 2016-02-16 13:46 GMT-02:00 Paulo Henrique Rodrigues Pinheiro 
> <paulohrpinheiro at gmail.com <mailto:paulohrpinheiro at gmail.com>>:
>
>     Ol?.
>
>
>     Criei uma pequena lista de exerc?cios (bem simples), para treinar
>     o trabalho com testes unit?rios.
>
>     A ideia ? ter a especifica??o do problema e os testes prontos, e a
>     pessoa escreve o c?digo para que os testes passem.
>
>     Preparei para Perl5 e Python, agora estou trabalhando com C. Quero
>     ainda fazer rust, haskell e C++.
>
>     Se algu?m se interessar, e melhor ainda, quiser contribuir, por
>     favor, d? uma olhada em:
>
>     https://github.com/paulohrpinheiro/test-driven-learning
>
>
>     Aproveitando, algu?m aqui j? usou testes dentro do pod?
>

Paulo Henrique Rodrigues Pinheiro
paulohrpinheiro at gmail.com
http://www.sysincloud.it

-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160216/de72be2d/attachment-0001.html>

From creaktive at gmail.com  Tue Feb 16 08:13:55 2016
From: creaktive at gmail.com (Stanislaw Pusep)
Date: Tue, 16 Feb 2016 17:13:55 +0100
Subject: [SP-pm] =?utf-8?q?Lista_de_exerc=C3=ADcios_orientada_a_testes?=
In-Reply-To: <56C34918.6040106@gmail.com>
References: <56C34465.10203@gmail.com>
	<CABmdQ_TfruAA4vgj3H5DuoCEUwfA8QmmJpyFDU=j+LjaP0j5Pw@mail.gmail.com>
	<56C34918.6040106@gmail.com>
Message-ID: <CANgJoADdhj6168K0w8hkJAdaCtxuw5Tx5tvKa1nuaY82k5QB0w@mail.gmail.com>

>
>         http://search.cpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
>

Uma dica que pode salvar vidas: adicione um "m" antes de "cpan.org" no nome
de dom?nio... Tipo assim:
http://search.mcpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160216/46cdb205/attachment.html>

From creaktive at gmail.com  Tue Feb 16 08:13:55 2016
From: creaktive at gmail.com (Stanislaw Pusep)
Date: Tue, 16 Feb 2016 17:13:55 +0100
Subject: [SP-pm] =?utf-8?q?Lista_de_exerc=C3=ADcios_orientada_a_testes?=
In-Reply-To: <56C34918.6040106@gmail.com>
References: <56C34465.10203@gmail.com>
	<CABmdQ_TfruAA4vgj3H5DuoCEUwfA8QmmJpyFDU=j+LjaP0j5Pw@mail.gmail.com>
	<56C34918.6040106@gmail.com>
Message-ID: <CANgJoADdhj6168K0w8hkJAdaCtxuw5Tx5tvKa1nuaY82k5QB0w@mail.gmail.com>

>
>         http://search.cpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
>

Uma dica que pode salvar vidas: adicione um "m" antes de "cpan.org" no nome
de dom?nio... Tipo assim:
http://search.mcpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160216/46cdb205/attachment-0001.html>

From andregarciacarneiro at gmail.com  Wed Feb 17 04:17:06 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Wed, 17 Feb 2016 10:17:06 -0200
Subject: [SP-pm] =?utf-8?q?Lista_de_exerc=C3=ADcios_orientada_a_testes?=
In-Reply-To: <CANgJoADdhj6168K0w8hkJAdaCtxuw5Tx5tvKa1nuaY82k5QB0w@mail.gmail.com>
References: <56C34465.10203@gmail.com>
	<CABmdQ_TfruAA4vgj3H5DuoCEUwfA8QmmJpyFDU=j+LjaP0j5Pw@mail.gmail.com>
	<56C34918.6040106@gmail.com>
	<CANgJoADdhj6168K0w8hkJAdaCtxuw5Tx5tvKa1nuaY82k5QB0w@mail.gmail.com>
Message-ID: <CABoU2P0bLMORkedKS0yNZzt=jr61-FHJA-4bieDEDvYBSrCP3g@mail.gmail.com>

Nossa, que legal isso!

Eu particularmente gosto bastante de POD. Algu?m j? usou isso com Catalyst?

2016-02-16 14:13 GMT-02:00 Stanislaw Pusep <creaktive at gmail.com>:

>         http://search.cpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
>>
>
> Uma dica que pode salvar vidas: adicione um "m" antes de "cpan.org" no
> nome de dom?nio... Tipo assim:
> http://search.mcpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160217/93e93dbe/attachment.html>

From andregarciacarneiro at gmail.com  Wed Feb 17 04:17:06 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Wed, 17 Feb 2016 10:17:06 -0200
Subject: [SP-pm] =?utf-8?q?Lista_de_exerc=C3=ADcios_orientada_a_testes?=
In-Reply-To: <CANgJoADdhj6168K0w8hkJAdaCtxuw5Tx5tvKa1nuaY82k5QB0w@mail.gmail.com>
References: <56C34465.10203@gmail.com>
	<CABmdQ_TfruAA4vgj3H5DuoCEUwfA8QmmJpyFDU=j+LjaP0j5Pw@mail.gmail.com>
	<56C34918.6040106@gmail.com>
	<CANgJoADdhj6168K0w8hkJAdaCtxuw5Tx5tvKa1nuaY82k5QB0w@mail.gmail.com>
Message-ID: <CABoU2P0bLMORkedKS0yNZzt=jr61-FHJA-4bieDEDvYBSrCP3g@mail.gmail.com>

Nossa, que legal isso!

Eu particularmente gosto bastante de POD. Algu?m j? usou isso com Catalyst?

2016-02-16 14:13 GMT-02:00 Stanislaw Pusep <creaktive at gmail.com>:

>         http://search.cpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
>>
>
> Uma dica que pode salvar vidas: adicione um "m" antes de "cpan.org" no
> nome de dom?nio... Tipo assim:
> http://search.mcpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160217/93e93dbe/attachment-0001.html>

From blabos at gmail.com  Wed Feb 17 04:41:19 2016
From: blabos at gmail.com (Blabos de Blebe)
Date: Wed, 17 Feb 2016 10:41:19 -0200
Subject: [SP-pm] =?utf-8?q?Lista_de_exerc=C3=ADcios_orientada_a_testes?=
In-Reply-To: <CABoU2P0bLMORkedKS0yNZzt=jr61-FHJA-4bieDEDvYBSrCP3g@mail.gmail.com>
References: <56C34465.10203@gmail.com>
	<CABmdQ_TfruAA4vgj3H5DuoCEUwfA8QmmJpyFDU=j+LjaP0j5Pw@mail.gmail.com>
	<56C34918.6040106@gmail.com>
	<CANgJoADdhj6168K0w8hkJAdaCtxuw5Tx5tvKa1nuaY82k5QB0w@mail.gmail.com>
	<CABoU2P0bLMORkedKS0yNZzt=jr61-FHJA-4bieDEDvYBSrCP3g@mail.gmail.com>
Message-ID: <CAAxpsibtF-wZs2=v=DFeAjs2wWSoUj12y4QYZq87qT+kPx9K_g@mail.gmail.com>

Opa,

J? pensou em usar Test::Most?

A parte de testes com listas ficaria muito mais simples.

[]'s


2016-02-17 10:17 GMT-02:00 Andre Carneiro <andregarciacarneiro at gmail.com>:

> Nossa, que legal isso!
>
> Eu particularmente gosto bastante de POD. Algu?m j? usou isso com Catalyst?
>
> 2016-02-16 14:13 GMT-02:00 Stanislaw Pusep <creaktive at gmail.com>:
>
>>
>>> http://search.cpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
>>>
>>
>> Uma dica que pode salvar vidas: adicione um "m" antes de "cpan.org" no
>> nome de dom?nio... Tipo assim:
>> http://search.mcpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160217/ce235747/attachment.html>

From paulohrpinheiro at gmail.com  Wed Feb 17 05:52:54 2016
From: paulohrpinheiro at gmail.com (Paulo Henrique Rodrigues Pinheiro)
Date: Wed, 17 Feb 2016 11:52:54 -0200
Subject: [SP-pm] =?utf-8?q?Lista_de_exerc=C3=ADcios_orientada_a_testes?=
In-Reply-To: <CAAxpsibtF-wZs2=v=DFeAjs2wWSoUj12y4QYZq87qT+kPx9K_g@mail.gmail.com>
References: <56C34465.10203@gmail.com>
	<CABmdQ_TfruAA4vgj3H5DuoCEUwfA8QmmJpyFDU=j+LjaP0j5Pw@mail.gmail.com>
	<56C34918.6040106@gmail.com>
	<CANgJoADdhj6168K0w8hkJAdaCtxuw5Tx5tvKa1nuaY82k5QB0w@mail.gmail.com>
	<CABoU2P0bLMORkedKS0yNZzt=jr61-FHJA-4bieDEDvYBSrCP3g@mail.gmail.com>
	<CAAxpsibtF-wZs2=v=DFeAjs2wWSoUj12y4QYZq87qT+kPx9K_g@mail.gmail.com>
Message-ID: <56C47B36.8070907@gmail.com>

Ol?.


Agora que li a respeito, estou pensando :)

Obrigado, abra?o.

Paulo Henrique Rodrigues Pinheiro
paulohrpinheiro at gmail.com
http://www.sysincloud.it

Em 17-02-2016 10:41, Blabos de Blebe escreveu:
> Opa,
>
> J? pensou em usar Test::Most?
>
> A parte de testes com listas ficaria muito mais simples.
>
> []'s
>
>
> 2016-02-17 10:17 GMT-02:00 Andre Carneiro 
> <andregarciacarneiro at gmail.com <mailto:andregarciacarneiro at gmail.com>>:
>
>     Nossa, que legal isso!
>
>     Eu particularmente gosto bastante de POD. Algu?m j? usou isso com
>     Catalyst?
>
>     2016-02-16 14:13 GMT-02:00 Stanislaw Pusep <creaktive at gmail.com
>     <mailto:creaktive at gmail.com>>:
>
>             http://search.cpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
>             <http://search.cpan.org/%7Eadamk/Test-Inline-2.213/lib/Test/Inline.pm>
>
>
>         Uma dica que pode salvar vidas: adicione um "m" antes de
>         "cpan.org <http://cpan.org>" no nome de dom?nio... Tipo assim:
>         http://search.mcpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
>         <http://search.mcpan.org/%7Eadamk/Test-Inline-2.213/lib/Test/Inline.pm>
>
>         =begin disclaimer
>            Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>          SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>         <mailto:SaoPaulo-pm at pm.org>
>          L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>         =end disclaimer
>
>
>
>
>     -- 
>     Andr? Garcia Carneiro
>     Software Engineer
>     (11)982907780
>
>     =begin disclaimer
>        Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>      SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>     <mailto:SaoPaulo-pm at pm.org>
>      L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>     =end disclaimer
>
>
>
>
> =begin disclaimer
>     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>   SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>   L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer

-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160217/c18a6f3f/attachment-0001.html>

From blabos at gmail.com  Wed Feb 17 06:13:36 2016
From: blabos at gmail.com (Blabos de Blebe)
Date: Wed, 17 Feb 2016 12:13:36 -0200
Subject: [SP-pm] =?utf-8?q?Lista_de_exerc=C3=ADcios_orientada_a_testes?=
In-Reply-To: <56C47B36.8070907@gmail.com>
References: <56C34465.10203@gmail.com>
	<CABmdQ_TfruAA4vgj3H5DuoCEUwfA8QmmJpyFDU=j+LjaP0j5Pw@mail.gmail.com>
	<56C34918.6040106@gmail.com>
	<CANgJoADdhj6168K0w8hkJAdaCtxuw5Tx5tvKa1nuaY82k5QB0w@mail.gmail.com>
	<CABoU2P0bLMORkedKS0yNZzt=jr61-FHJA-4bieDEDvYBSrCP3g@mail.gmail.com>
	<CAAxpsibtF-wZs2=v=DFeAjs2wWSoUj12y4QYZq87qT+kPx9K_g@mail.gmail.com>
	<56C47B36.8070907@gmail.com>
Message-ID: <CAAxpsibtbwOUUXN4QkbZ6_RgT9z7XmOGO7gfHRNXGAvsONSbSA@mail.gmail.com>

Opa,

Perl tem todo um arcabou?o para facilitar a vida do programador.

Uma das desculpas esfarrapadas pra n?o se escrever testes ? que "vai
demorar mais pra entregar".

Ent?o d? pra mostrar como os testes mais cabulosos ficam simples se vc usar
o cpan.

Perl sem o cpan n?o ? nada mais que um PHP feito certo...

A? est? o pulo do gato :)

[]'s

2016-02-17 11:52 GMT-02:00 Paulo Henrique Rodrigues Pinheiro <
paulohrpinheiro at gmail.com>:

> Ol?.
>
>
> Agora que li a respeito, estou pensando :)
>
> Obrigado, abra?o.
>
> Paulo Henrique Rodrigues Pinheiropaulohrpinheiro at gmail.comhttp://www.sysincloud.it
>
> Em 17-02-2016 10:41, Blabos de Blebe escreveu:
>
> Opa,
>
> J? pensou em usar Test::Most?
>
> A parte de testes com listas ficaria muito mais simples.
>
> []'s
>
>
> 2016-02-17 10:17 GMT-02:00 Andre Carneiro <andregarciacarneiro at gmail.com>:
>
>> Nossa, que legal isso!
>>
>> Eu particularmente gosto bastante de POD. Algu?m j? usou isso com
>> Catalyst?
>>
>> 2016-02-16 14:13 GMT-02:00 Stanislaw Pusep < <creaktive at gmail.com>
>> creaktive at gmail.com>:
>>
>>>
>>>> http://search.cpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
>>>>
>>>
>>> Uma dica que pode salvar vidas: adicione um "m" antes de "cpan.org" no
>>> nome de dom?nio... Tipo assim:
>>> <http://search.mcpan.org/%7Eadamk/Test-Inline-2.213/lib/Test/Inline.pm>
>>> http://search.mcpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: <http://sao-paulo.pm.org/>
>>> http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: <SaoPaulo-pm at pm.org>SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> Andr? Garcia Carneiro
>> Software Engineer
>> (11)982907780
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> <http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160217/2fa24acc/attachment.html>

From lucasmateus.oliveira at gmail.com  Wed Feb 17 08:10:57 2016
From: lucasmateus.oliveira at gmail.com (Lucas Mateus)
Date: Wed, 17 Feb 2016 14:10:57 -0200
Subject: [SP-pm] =?utf-8?q?Lista_de_exerc=C3=ADcios_orientada_a_testes?=
In-Reply-To: <CAAxpsibtbwOUUXN4QkbZ6_RgT9z7XmOGO7gfHRNXGAvsONSbSA@mail.gmail.com>
References: <56C34465.10203@gmail.com>
	<CABmdQ_TfruAA4vgj3H5DuoCEUwfA8QmmJpyFDU=j+LjaP0j5Pw@mail.gmail.com>
	<56C34918.6040106@gmail.com>
	<CANgJoADdhj6168K0w8hkJAdaCtxuw5Tx5tvKa1nuaY82k5QB0w@mail.gmail.com>
	<CABoU2P0bLMORkedKS0yNZzt=jr61-FHJA-4bieDEDvYBSrCP3g@mail.gmail.com>
	<CAAxpsibtF-wZs2=v=DFeAjs2wWSoUj12y4QYZq87qT+kPx9K_g@mail.gmail.com>
	<56C47B36.8070907@gmail.com>
	<CAAxpsibtbwOUUXN4QkbZ6_RgT9z7XmOGO7gfHRNXGAvsONSbSA@mail.gmail.com>
Message-ID: <CACLgUQJt03PjPudDrGPwPZtE92wY-dyi7Ezo7=7zFAp4-q-6uA@mail.gmail.com>

E para ter um report bonitinho ainda uso o
https://metacpan.org/pod/TAP::Formatter::HTML

Em 17 de fevereiro de 2016 12:13, Blabos de Blebe <blabos at gmail.com>
escreveu:

> Opa,
>
> Perl tem todo um arcabou?o para facilitar a vida do programador.
>
> Uma das desculpas esfarrapadas pra n?o se escrever testes ? que "vai
> demorar mais pra entregar".
>
> Ent?o d? pra mostrar como os testes mais cabulosos ficam simples se vc
> usar o cpan.
>
> Perl sem o cpan n?o ? nada mais que um PHP feito certo...
>
> A? est? o pulo do gato :)
>
> []'s
>
> 2016-02-17 11:52 GMT-02:00 Paulo Henrique Rodrigues Pinheiro <
> paulohrpinheiro at gmail.com>:
>
>> Ol?.
>>
>>
>> Agora que li a respeito, estou pensando :)
>>
>> Obrigado, abra?o.
>>
>> Paulo Henrique Rodrigues Pinheiropaulohrpinheiro at gmail.comhttp://www.sysincloud.it
>>
>> Em 17-02-2016 10:41, Blabos de Blebe escreveu:
>>
>> Opa,
>>
>> J? pensou em usar Test::Most?
>>
>> A parte de testes com listas ficaria muito mais simples.
>>
>> []'s
>>
>>
>> 2016-02-17 10:17 GMT-02:00 Andre Carneiro <andregarciacarneiro at gmail.com>
>> :
>>
>>> Nossa, que legal isso!
>>>
>>> Eu particularmente gosto bastante de POD. Algu?m j? usou isso com
>>> Catalyst?
>>>
>>> 2016-02-16 14:13 GMT-02:00 Stanislaw Pusep < <creaktive at gmail.com>
>>> creaktive at gmail.com>:
>>>
>>>>
>>>>> http://search.cpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
>>>>>
>>>>
>>>> Uma dica que pode salvar vidas: adicione um "m" antes de "cpan.org" no
>>>> nome de dom?nio... Tipo assim:
>>>> <http://search.mcpan.org/%7Eadamk/Test-Inline-2.213/lib/Test/Inline.pm>
>>>> http://search.mcpan.org/~adamk/Test-Inline-2.213/lib/Test/Inline.pm
>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: <http://sao-paulo.pm.org/>
>>>> http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: <SaoPaulo-pm at pm.org>SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>>
>>>
>>> --
>>> Andr? Garcia Carneiro
>>> Software Engineer
>>> (11)982907780
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> <http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160217/2aaaba1f/attachment.html>

From glasswalk3r at yahoo.com.br  Thu Feb 18 07:54:10 2016
From: glasswalk3r at yahoo.com.br (Alceu Rodrigues de Freitas Junior)
Date: Thu, 18 Feb 2016 13:54:10 -0200
Subject: [SP-pm] usando
Message-ID: <56C5E922.8050903@yahoo.com.br>

Ol? monges,

Estou tentando usar a distro Dist::Zilla::App::Command::dhmakeperl para 
gerar pacotes DEB de maneira mais esperta que o dh-make-perl. Como j? 
estou usando Dist::Zilla para minha distribui??o me parece uma solu??o 
inteligente para definir as depend?ncias de forma autom?tica para o 
arquivo control.

O problema ? que Dist::Zilla::App::Command::dhmakeperl depende do 
DhMakePerl que por sua vez depende de outros pacotes que n?o est?o 
dispon?veis no CPAN (como o AptPkg::Cache).

Essas distribui??es est?o inclu?das como pacotes DEB para o Ubuntu 14.04 
que estou usando 
(https://launchpad.net/ubuntu/trusty/+package/libapt-pkg-perl), mas n?o 
consegui instalar as mesmas via o tarball original dos pacotes (falha no 
teste "t/03_cache" mesmo rodando com "prove -b" para achar o que foi 
compilado).

Como estou usando um perl customizado via Perlbrew (com um monte de 
distribui??es n?o dispon?veis no Ubuntu) parece que estou sem sorte.

Voc?s conhecem alguma alternativa mais inteligente para contornar isto? 
Eu tentei o truque "sujo" de usar

perl -I /usr/lib/perl5 -MCPAN -e shell

Para incluir os m?dulos instalados via DEB mas isso n?o funcionou.

Obrigado,

Alceu

From glasswalk3r at yahoo.com.br  Thu Feb 18 08:36:10 2016
From: glasswalk3r at yahoo.com.br (Alceu Rodrigues de Freitas Junior)
Date: Thu, 18 Feb 2016 14:36:10 -0200
Subject: [SP-pm] usando Dist::Zilla para gerar pacotes DEB
In-Reply-To: <56C5E922.8050903@yahoo.com.br>
References: <56C5E922.8050903@yahoo.com.br>
Message-ID: <56C5F2FA.9070602@yahoo.com.br>

Desculpem, esqueci de escrever um texto decente no Assunto. Corrigi isso 
agora.

Em 18-02-2016 13:54, Alceu Rodrigues de Freitas Junior escreveu:
> Ol? monges,
>
> Estou tentando usar a distro Dist::Zilla::App::Command::dhmakeperl para
> gerar pacotes DEB de maneira mais esperta que o dh-make-perl. Como j?
> estou usando Dist::Zilla para minha distribui??o me parece uma solu??o
> inteligente para definir as depend?ncias de forma autom?tica para o
> arquivo control.
>
> O problema ? que Dist::Zilla::App::Command::dhmakeperl depende do
> DhMakePerl que por sua vez depende de outros pacotes que n?o est?o
> dispon?veis no CPAN (como o AptPkg::Cache).
>
> Essas distribui??es est?o inclu?das como pacotes DEB para o Ubuntu 14.04
> que estou usando
> (https://launchpad.net/ubuntu/trusty/+package/libapt-pkg-perl), mas n?o
> consegui instalar as mesmas via o tarball original dos pacotes (falha no
> teste "t/03_cache" mesmo rodando com "prove -b" para achar o que foi
> compilado).
>
> Como estou usando um perl customizado via Perlbrew (com um monte de
> distribui??es n?o dispon?veis no Ubuntu) parece que estou sem sorte.
>
> Voc?s conhecem alguma alternativa mais inteligente para contornar isto?
> Eu tentei o truque "sujo" de usar
>
> perl -I /usr/lib/perl5 -MCPAN -e shell
>
> Para incluir os m?dulos instalados via DEB mas isso n?o funcionou.
>
> Obrigado,
>
> Alceu
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer


From renan.azevedo.carvalho at gmail.com  Sat Mar  5 19:59:29 2016
From: renan.azevedo.carvalho at gmail.com (Renan Carvalho)
Date: Sun, 6 Mar 2016 00:59:29 -0300
Subject: [SP-pm] Disponibilidade freela
Message-ID: <CAOptfsLfyziyyr0kDniLxAZ=ozz9f5W8R-eOf5XZKOUdjZ6J_w@mail.gmail.com>

Eae galera, tudo certo ?

Queria informar que estou disponivel para participar de projetos
freelancers, se algu?m estiver precisando de uma ajuda, estou dispon?vel.

Valeu
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160306/123d8674/attachment.html>

From daniel.oliveira.mantovani at gmail.com  Tue Mar  8 05:19:51 2016
From: daniel.oliveira.mantovani at gmail.com (Daniel de Oliveira Mantovani)
Date: Tue, 8 Mar 2016 10:19:51 -0300
Subject: [SP-pm] ESX Creaktive
Message-ID: <CAEmYuOsKrgXX6gd73HyoaHrEb8SijteK4yuYR8wQz_N4_b-keQ@mail.gmail.com>

Bom dia!

Pessoal, o Stanislaw vir? da Holanda nos visitar. Para quem n?o conhece,
ele ? um Russo que cresceu no Brasil e mora na Holanda. N?s vamos beber
bebidas t?picas dos tr?s pa?ses para celebrar a visitar do nosso amigo.

O ESX ser? no O'Malley's dia 17 de Mar?o a partir das 18:00 horas. Todos
est?o convidados!


--

Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist.
+55 11 9 8538-9897
XOXO
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160308/3da6a7d9/attachment.html>

From daniel.oliveira.mantovani at gmail.com  Tue Mar  8 05:19:51 2016
From: daniel.oliveira.mantovani at gmail.com (Daniel de Oliveira Mantovani)
Date: Tue, 8 Mar 2016 10:19:51 -0300
Subject: [SP-pm] ESX Creaktive
Message-ID: <CAEmYuOsKrgXX6gd73HyoaHrEb8SijteK4yuYR8wQz_N4_b-keQ@mail.gmail.com>

Bom dia!

Pessoal, o Stanislaw vir? da Holanda nos visitar. Para quem n?o conhece,
ele ? um Russo que cresceu no Brasil e mora na Holanda. N?s vamos beber
bebidas t?picas dos tr?s pa?ses para celebrar a visitar do nosso amigo.

O ESX ser? no O'Malley's dia 17 de Mar?o a partir das 18:00 horas. Todos
est?o convidados!


--

Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist.
+55 11 9 8538-9897
XOXO
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160308/3da6a7d9/attachment-0001.html>

From maia at eduardomaia.com  Tue Mar  8 06:04:17 2016
From: maia at eduardomaia.com (Eduardo Maia)
Date: Tue, 8 Mar 2016 11:04:17 -0300
Subject: [SP-pm] ESX Creaktive
In-Reply-To: <CAEmYuOsKrgXX6gd73HyoaHrEb8SijteK4yuYR8wQz_N4_b-keQ@mail.gmail.com>
References: <CAEmYuOsKrgXX6gd73HyoaHrEb8SijteK4yuYR8wQz_N4_b-keQ@mail.gmail.com>
Message-ID: <CAGore=XOS1Bs1r1bFdgb_-uTKrw+YLevr_7rSZgGjW3E_ZByGA@mail.gmail.com>

Estarei presente :)

Qual o endere?o por favor? Alameda Itu 1529?
On Mar 8, 2016 10:20 AM, "Daniel de Oliveira Mantovani" <
daniel.oliveira.mantovani at gmail.com> wrote:

> Bom dia!
>
> Pessoal, o Stanislaw vir? da Holanda nos visitar. Para quem n?o conhece,
> ele ? um Russo que cresceu no Brasil e mora na Holanda. N?s vamos beber
> bebidas t?picas dos tr?s pa?ses para celebrar a visitar do nosso amigo.
>
> O ESX ser? no O'Malley's dia 17 de Mar?o a partir das 18:00 horas. Todos
> est?o convidados!
>
>
> --
>
> Daniel de Oliveira Mantovani
> Business Analytic Specialist
> Perl Evangelist /Astrophysics hobbyist.
> +55 11 9 8538-9897
> XOXO
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160308/5e70b0eb/attachment.html>

From daniel.oliveira.mantovani at gmail.com  Tue Mar  8 06:08:30 2016
From: daniel.oliveira.mantovani at gmail.com (Daniel de Oliveira Mantovani)
Date: Tue, 8 Mar 2016 11:08:30 -0300
Subject: [SP-pm] ESX Creaktive
In-Reply-To: <CAGore=XOS1Bs1r1bFdgb_-uTKrw+YLevr_7rSZgGjW3E_ZByGA@mail.gmail.com>
References: <CAEmYuOsKrgXX6gd73HyoaHrEb8SijteK4yuYR8wQz_N4_b-keQ@mail.gmail.com>
	<CAGore=XOS1Bs1r1bFdgb_-uTKrw+YLevr_7rSZgGjW3E_ZByGA@mail.gmail.com>
Message-ID: <CAEmYuOs2+P+T+nXdBH4=kaxSRKMip_3AQzq_c8q+YX=9kDGFwA@mail.gmail.com>

   Address: Alameda Itu, 1529 - Jardim Paulista, S?o Paulo - SP, 01421-001
   Phone:(11) 3086-0780
   Hours:
   Open today ? 12PM?4AM



2016-03-08 11:04 GMT-03:00 Eduardo Maia <maia at eduardomaia.com>:

> Estarei presente :)
>
> Qual o endere?o por favor? Alameda Itu 1529?
> On Mar 8, 2016 10:20 AM, "Daniel de Oliveira Mantovani" <
> daniel.oliveira.mantovani at gmail.com> wrote:
>
>> Bom dia!
>>
>> Pessoal, o Stanislaw vir? da Holanda nos visitar. Para quem n?o conhece,
>> ele ? um Russo que cresceu no Brasil e mora na Holanda. N?s vamos beber
>> bebidas t?picas dos tr?s pa?ses para celebrar a visitar do nosso amigo.
>>
>> O ESX ser? no O'Malley's dia 17 de Mar?o a partir das 18:00 horas. Todos
>> est?o convidados!
>>
>>
>> --
>>
>> Daniel de Oliveira Mantovani
>> Business Analytic Specialist
>> Perl Evangelist /Astrophysics hobbyist.
>> +55 11 9 8538-9897
>> XOXO
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Thank you very much!

-dom

--

Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist.
+55 11 9 8538-9897
XOXO
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160308/b914a6ea/attachment.html>

From maia at eduardomaia.com  Thu Mar 17 10:18:50 2016
From: maia at eduardomaia.com (Eduardo Maia)
Date: Thu, 17 Mar 2016 14:18:50 -0300
Subject: [SP-pm] ESX Creaktive
In-Reply-To: <CAEmYuOs2+P+T+nXdBH4=kaxSRKMip_3AQzq_c8q+YX=9kDGFwA@mail.gmail.com>
References: <CAEmYuOsKrgXX6gd73HyoaHrEb8SijteK4yuYR8wQz_N4_b-keQ@mail.gmail.com>
	<CAGore=XOS1Bs1r1bFdgb_-uTKrw+YLevr_7rSZgGjW3E_ZByGA@mail.gmail.com>
	<CAEmYuOs2+P+T+nXdBH4=kaxSRKMip_3AQzq_c8q+YX=9kDGFwA@mail.gmail.com>
Message-ID: <CAGore=Ugp3S=QHd47AU7Uoe9FzTnJ=d1BC7TgTCfrtkzmB8ekA@mail.gmail.com>

Est? confirmado hoje?

2016-03-08 11:08 GMT-03:00 Daniel de Oliveira Mantovani <
daniel.oliveira.mantovani at gmail.com>:

>
>    Address: Alameda Itu, 1529 - Jardim Paulista, S?o Paulo - SP, 01421-001
>    Phone:(11) 3086-0780
>    Hours:
>    Open today ? 12PM?4AM
>
>
>
> 2016-03-08 11:04 GMT-03:00 Eduardo Maia <maia at eduardomaia.com>:
>
>> Estarei presente :)
>>
>> Qual o endere?o por favor? Alameda Itu 1529?
>> On Mar 8, 2016 10:20 AM, "Daniel de Oliveira Mantovani" <
>> daniel.oliveira.mantovani at gmail.com> wrote:
>>
>>> Bom dia!
>>>
>>> Pessoal, o Stanislaw vir? da Holanda nos visitar. Para quem n?o conhece,
>>> ele ? um Russo que cresceu no Brasil e mora na Holanda. N?s vamos beber
>>> bebidas t?picas dos tr?s pa?ses para celebrar a visitar do nosso amigo.
>>>
>>> O ESX ser? no O'Malley's dia 17 de Mar?o a partir das 18:00 horas. Todos
>>> est?o convidados!
>>>
>>>
>>> --
>>>
>>> Daniel de Oliveira Mantovani
>>> Business Analytic Specialist
>>> Perl Evangelist /Astrophysics hobbyist.
>>> +55 11 9 8538-9897
>>> XOXO
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Thank you very much!
>
> -dom
>
> --
>
> Daniel de Oliveira Mantovani
> Business Analytic Specialist
> Perl Evangelist /Astrophysics hobbyist.
> +55 11 9 8538-9897
> XOXO
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160317/b4eb2963/attachment.html>

From daniel.oliveira.mantovani at gmail.com  Thu Mar 17 10:23:18 2016
From: daniel.oliveira.mantovani at gmail.com (Daniel de Oliveira Mantovani)
Date: Thu, 17 Mar 2016 14:23:18 -0300
Subject: [SP-pm] ESX Creaktive
In-Reply-To: <CAGore=Ugp3S=QHd47AU7Uoe9FzTnJ=d1BC7TgTCfrtkzmB8ekA@mail.gmail.com>
References: <CAEmYuOsKrgXX6gd73HyoaHrEb8SijteK4yuYR8wQz_N4_b-keQ@mail.gmail.com>
	<CAGore=XOS1Bs1r1bFdgb_-uTKrw+YLevr_7rSZgGjW3E_ZByGA@mail.gmail.com>
	<CAEmYuOs2+P+T+nXdBH4=kaxSRKMip_3AQzq_c8q+YX=9kDGFwA@mail.gmail.com>
	<CAGore=Ugp3S=QHd47AU7Uoe9FzTnJ=d1BC7TgTCfrtkzmB8ekA@mail.gmail.com>
Message-ID: <CAEmYuOsaA5VD3T=Bf9p1Wz_vW2WKnNsaPtjpMUVza2s1FSVFvg@mail.gmail.com>

Sim!

2016-03-17 14:18 GMT-03:00 Eduardo Maia <maia at eduardomaia.com>:

> Est? confirmado hoje?
>
> 2016-03-08 11:08 GMT-03:00 Daniel de Oliveira Mantovani <
> daniel.oliveira.mantovani at gmail.com>:
>
>>
>>    Address: Alameda Itu, 1529 - Jardim Paulista, S?o Paulo - SP,
>>    01421-001
>>    Phone:(11) 3086-0780
>>    Hours:
>>    Open today ? 12PM?4AM
>>
>>
>>
>> 2016-03-08 11:04 GMT-03:00 Eduardo Maia <maia at eduardomaia.com>:
>>
>>> Estarei presente :)
>>>
>>> Qual o endere?o por favor? Alameda Itu 1529?
>>> On Mar 8, 2016 10:20 AM, "Daniel de Oliveira Mantovani" <
>>> daniel.oliveira.mantovani at gmail.com> wrote:
>>>
>>>> Bom dia!
>>>>
>>>> Pessoal, o Stanislaw vir? da Holanda nos visitar. Para quem n?o
>>>> conhece, ele ? um Russo que cresceu no Brasil e mora na Holanda. N?s vamos
>>>> beber bebidas t?picas dos tr?s pa?ses para celebrar a visitar do nosso
>>>> amigo.
>>>>
>>>> O ESX ser? no O'Malley's dia 17 de Mar?o a partir das 18:00 horas.
>>>> Todos est?o convidados!
>>>>
>>>>
>>>> --
>>>>
>>>> Daniel de Oliveira Mantovani
>>>> Business Analytic Specialist
>>>> Perl Evangelist /Astrophysics hobbyist.
>>>> +55 11 9 8538-9897
>>>> XOXO
>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> Thank you very much!
>>
>> -dom
>>
>> --
>>
>> Daniel de Oliveira Mantovani
>> Business Analytic Specialist
>> Perl Evangelist /Astrophysics hobbyist.
>> +55 11 9 8538-9897
>> XOXO
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Thank you very much!

-dom

--

Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist.
+55 11 9 8538-9897
XOXO
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160317/fc781350/attachment.html>

From maia at eduardomaia.com  Thu Mar 17 10:36:40 2016
From: maia at eduardomaia.com (Eduardo Maia)
Date: Thu, 17 Mar 2016 14:36:40 -0300
Subject: [SP-pm] ESX Creaktive
In-Reply-To: <CAEmYuOsaA5VD3T=Bf9p1Wz_vW2WKnNsaPtjpMUVza2s1FSVFvg@mail.gmail.com>
References: <CAEmYuOsKrgXX6gd73HyoaHrEb8SijteK4yuYR8wQz_N4_b-keQ@mail.gmail.com>
	<CAGore=XOS1Bs1r1bFdgb_-uTKrw+YLevr_7rSZgGjW3E_ZByGA@mail.gmail.com>
	<CAEmYuOs2+P+T+nXdBH4=kaxSRKMip_3AQzq_c8q+YX=9kDGFwA@mail.gmail.com>
	<CAGore=Ugp3S=QHd47AU7Uoe9FzTnJ=d1BC7TgTCfrtkzmB8ekA@mail.gmail.com>
	<CAEmYuOsaA5VD3T=Bf9p1Wz_vW2WKnNsaPtjpMUVza2s1FSVFvg@mail.gmail.com>
Message-ID: <CAGore=XipErj2t+vEvGCK6AwEaDjGqUgqKX6H22ZAPqHvAv9gg@mail.gmail.com>

Blz. Vou tentar ir. Devo chegar umas 20hs. Qualquer coisa, mando um Whats
pra ti.

Mais algu?m vai?

2016-03-17 14:23 GMT-03:00 Daniel de Oliveira Mantovani <
daniel.oliveira.mantovani at gmail.com>:

> Sim!
>
> 2016-03-17 14:18 GMT-03:00 Eduardo Maia <maia at eduardomaia.com>:
>
>> Est? confirmado hoje?
>>
>> 2016-03-08 11:08 GMT-03:00 Daniel de Oliveira Mantovani <
>> daniel.oliveira.mantovani at gmail.com>:
>>
>>>
>>>    Address: Alameda Itu, 1529 - Jardim Paulista, S?o Paulo - SP,
>>>    01421-001
>>>    Phone:(11) 3086-0780
>>>    Hours:
>>>    Open today ? 12PM?4AM
>>>
>>>
>>>
>>> 2016-03-08 11:04 GMT-03:00 Eduardo Maia <maia at eduardomaia.com>:
>>>
>>>> Estarei presente :)
>>>>
>>>> Qual o endere?o por favor? Alameda Itu 1529?
>>>> On Mar 8, 2016 10:20 AM, "Daniel de Oliveira Mantovani" <
>>>> daniel.oliveira.mantovani at gmail.com> wrote:
>>>>
>>>>> Bom dia!
>>>>>
>>>>> Pessoal, o Stanislaw vir? da Holanda nos visitar. Para quem n?o
>>>>> conhece, ele ? um Russo que cresceu no Brasil e mora na Holanda. N?s vamos
>>>>> beber bebidas t?picas dos tr?s pa?ses para celebrar a visitar do nosso
>>>>> amigo.
>>>>>
>>>>> O ESX ser? no O'Malley's dia 17 de Mar?o a partir das 18:00 horas.
>>>>> Todos est?o convidados!
>>>>>
>>>>>
>>>>> --
>>>>>
>>>>> Daniel de Oliveira Mantovani
>>>>> Business Analytic Specialist
>>>>> Perl Evangelist /Astrophysics hobbyist.
>>>>> +55 11 9 8538-9897
>>>>> XOXO
>>>>>
>>>>> =begin disclaimer
>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> =end disclaimer
>>>>>
>>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>>
>>>
>>> --
>>> Thank you very much!
>>>
>>> -dom
>>>
>>> --
>>>
>>> Daniel de Oliveira Mantovani
>>> Business Analytic Specialist
>>> Perl Evangelist /Astrophysics hobbyist.
>>> +55 11 9 8538-9897
>>> XOXO
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Thank you very much!
>
> -dom
>
> --
>
> Daniel de Oliveira Mantovani
> Business Analytic Specialist
> Perl Evangelist /Astrophysics hobbyist.
> +55 11 9 8538-9897
> XOXO
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160317/c0b881f9/attachment-0001.html>

From wesley.seidel at gmail.com  Thu Mar 17 11:02:19 2016
From: wesley.seidel at gmail.com (Wesley Seidel)
Date: Thu, 17 Mar 2016 15:02:19 -0300
Subject: [SP-pm] ESX Creaktive
In-Reply-To: <CAGore=XipErj2t+vEvGCK6AwEaDjGqUgqKX6H22ZAPqHvAv9gg@mail.gmail.com>
References: <CAEmYuOsKrgXX6gd73HyoaHrEb8SijteK4yuYR8wQz_N4_b-keQ@mail.gmail.com>
	<CAGore=XOS1Bs1r1bFdgb_-uTKrw+YLevr_7rSZgGjW3E_ZByGA@mail.gmail.com>
	<CAEmYuOs2+P+T+nXdBH4=kaxSRKMip_3AQzq_c8q+YX=9kDGFwA@mail.gmail.com>
	<CAGore=Ugp3S=QHd47AU7Uoe9FzTnJ=d1BC7TgTCfrtkzmB8ekA@mail.gmail.com>
	<CAEmYuOsaA5VD3T=Bf9p1Wz_vW2WKnNsaPtjpMUVza2s1FSVFvg@mail.gmail.com>
	<CAGore=XipErj2t+vEvGCK6AwEaDjGqUgqKX6H22ZAPqHvAv9gg@mail.gmail.com>
Message-ID: <CAJrXqKTBqH4Pwhs1Urc7-_OAfXvKqrr1ebjm0TiEu9M471eJ1A@mail.gmail.com>

Mande minhas lembran?as ao Stan! :D
N?o vai rolar de eu ir de Bel?m a SP hoje. :P

Em 17 de mar?o de 2016 14:36, Eduardo Maia <maia at eduardomaia.com> escreveu:

> Blz. Vou tentar ir. Devo chegar umas 20hs. Qualquer coisa, mando um Whats
> pra ti.
>
> Mais algu?m vai?
>
> 2016-03-17 14:23 GMT-03:00 Daniel de Oliveira Mantovani <
> daniel.oliveira.mantovani at gmail.com>:
>
>> Sim!
>>
>> 2016-03-17 14:18 GMT-03:00 Eduardo Maia <maia at eduardomaia.com>:
>>
>>> Est? confirmado hoje?
>>>
>>> 2016-03-08 11:08 GMT-03:00 Daniel de Oliveira Mantovani <
>>> daniel.oliveira.mantovani at gmail.com>:
>>>
>>>>
>>>>    Address: Alameda Itu, 1529 - Jardim Paulista, S?o Paulo - SP,
>>>>    01421-001
>>>>    Phone:(11) 3086-0780
>>>>    Hours:
>>>>    Open today ? 12PM?4AM
>>>>
>>>>
>>>>
>>>> 2016-03-08 11:04 GMT-03:00 Eduardo Maia <maia at eduardomaia.com>:
>>>>
>>>>> Estarei presente :)
>>>>>
>>>>> Qual o endere?o por favor? Alameda Itu 1529?
>>>>> On Mar 8, 2016 10:20 AM, "Daniel de Oliveira Mantovani" <
>>>>> daniel.oliveira.mantovani at gmail.com> wrote:
>>>>>
>>>>>> Bom dia!
>>>>>>
>>>>>> Pessoal, o Stanislaw vir? da Holanda nos visitar. Para quem n?o
>>>>>> conhece, ele ? um Russo que cresceu no Brasil e mora na Holanda. N?s vamos
>>>>>> beber bebidas t?picas dos tr?s pa?ses para celebrar a visitar do nosso
>>>>>> amigo.
>>>>>>
>>>>>> O ESX ser? no O'Malley's dia 17 de Mar?o a partir das 18:00 horas.
>>>>>> Todos est?o convidados!
>>>>>>
>>>>>>
>>>>>> --
>>>>>>
>>>>>> Daniel de Oliveira Mantovani
>>>>>> Business Analytic Specialist
>>>>>> Perl Evangelist /Astrophysics hobbyist.
>>>>>> +55 11 9 8538-9897
>>>>>> XOXO
>>>>>>
>>>>>> =begin disclaimer
>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>> =end disclaimer
>>>>>>
>>>>>>
>>>>> =begin disclaimer
>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> =end disclaimer
>>>>>
>>>>>
>>>>
>>>>
>>>> --
>>>> Thank you very much!
>>>>
>>>> -dom
>>>>
>>>> --
>>>>
>>>> Daniel de Oliveira Mantovani
>>>> Business Analytic Specialist
>>>> Perl Evangelist /Astrophysics hobbyist.
>>>> +55 11 9 8538-9897
>>>> XOXO
>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> Thank you very much!
>>
>> -dom
>>
>> --
>>
>> Daniel de Oliveira Mantovani
>> Business Analytic Specialist
>> Perl Evangelist /Astrophysics hobbyist.
>> +55 11 9 8538-9897
>> XOXO
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Wesley Seidel Carvalho
11-8169-1163
www.ime.usp.br/~wesleys
www.ltasks.com <http://ltasks.com/>
@wseidel
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160317/3a410cb8/attachment.html>

From andregarciacarneiro at gmail.com  Mon Apr  4 12:51:32 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Mon, 4 Apr 2016 16:51:32 -0300
Subject: [SP-pm] =?utf-8?q?Eu_e_a_=27gangue=27_brasileira_da_Booking=28Tec?=
	=?utf-8?q?nicamente=2C_o_Stan_=C3=A9_russo=2C_mas_foda-se=2E=2E=2E?=
	=?utf-8?q?=29?=
Message-ID: <CABoU2P0YshyFeXEf38NBDJE7KmV=Jrg1au_DwqobwuLfdHDw=A@mail.gmail.com>

?

-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160404/faef3410/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Amsterdam-Perl-gang.JPG
Type: image/jpeg
Size: 307835 bytes
Desc: not available
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160404/faef3410/attachment-0001.jpe>

From ricardostock at bol.com.br  Mon Apr  4 13:12:10 2016
From: ricardostock at bol.com.br (Ricardo Stock)
Date: Mon, 04 Apr 2016 17:12:10 -0300
Subject: [SP-pm] QRcode
Message-ID: <5702ca9ad2332_5e8f15c5beb093cc1515@a4-winter15.mail>

Salve a todos da lista.

Estou com uma duvida. Estou gerando um qrcode para acesso direto ao link(para valida??o) sem problemas, estou gerando utilizando GD:Barcode:Qrcode

Fiz uma pesquisa sobre o tamanho em bits da informa??o a ser representada pelo qrcode, preciso que seja representado at? 512b de informa??o pois o link do cliente ainda nao foi definido de de inform??o tenho ja 364b (link de acesso de chave de verifica?ao)

Peguei nessa tabela http://blog.qr4.nl/page/QR-Code-Data-Capacity.aspx mas n?o entendi como configurar na fun??o que ira gerar o mesmo

Segue o trecho do c?digo. Qualquer ajuda ? v?lida
[code]
use GD::Barcode::QRcode;
binmode(STDOUT);
print "Content-Type: image/png\n\n";
print GD::Barcode::QRcode->new($codigo,
        {Ecc => 'M', Version=>2, ModuleSize =>5})->plot->png;

print "</html>\n";

[/code]

Se entendi, tenho usar ModuleSize4 com a imagem em 33x33 e versao 4. No aguardo e obrigado



Ricado Stock
ricardostock at bol.com.br
Um bom programador tem um desafio
Um programador mediano, tem um problema.

From gabriel.vieira at gmail.com  Mon Apr  4 13:12:01 2016
From: gabriel.vieira at gmail.com (Gabriel Vieira)
Date: Mon, 4 Apr 2016 16:12:01 -0400
Subject: [SP-pm]
	=?utf-8?q?Eu_e_a_=27gangue=27_brasileira_da_Booking=28Tec?=
	=?utf-8?q?nicamente=2C_o_Stan_=C3=A9_russo=2C_mas_foda-se=2E=2E=2E?=
	=?utf-8?q?=29?=
In-Reply-To: <CABoU2P0YshyFeXEf38NBDJE7KmV=Jrg1au_DwqobwuLfdHDw=A@mail.gmail.com>
References: <CABoU2P0YshyFeXEf38NBDJE7KmV=Jrg1au_DwqobwuLfdHDw=A@mail.gmail.com>
Message-ID: <CAFeYYayzE94JY9M88Rp+oRRvpN7ribzOh6nAfYt2Tf7Gj=BsEQ@mail.gmail.com>

Show!!

2016-04-04 15:51 GMT-04:00 Andre Carneiro <andregarciacarneiro at gmail.com>:

>
> ?
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Gabriel Vieira
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160404/936a42cc/attachment-0001.html>
-------------- Pr?xima Parte ----------
Um anexo n?o-texto foi limpo...
Nome: Amsterdam-Perl-gang.JPG
Tipo: image/jpeg
Tamanho: 307835 bytes
Descri??o: n?o dispon?vel
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160404/936a42cc/attachment-0001.jpe>

From ricardostock at bol.com.br  Mon Apr  4 13:14:11 2016
From: ricardostock at bol.com.br (Ricardo Stock)
Date: Mon, 04 Apr 2016 17:14:11 -0300
Subject: [SP-pm]
 =?utf-8?q?Eu_e_a_=27gangue=27_brasileira_da_Booking=28Tec?=
 =?utf-8?q?nicamente=2C_o_Stan_=C3=A9_russo=2C_mas_foda-se=2E=2E=2E=29?=
In-Reply-To: ["CABoU2P0YshyFeXEf38NBDJE7KmV=Jrg1au_DwqobwuLfdHDw=A@mail.gmail.com"]
References: ["CABoU2P0YshyFeXEf38NBDJE7KmV=Jrg1au_DwqobwuLfdHDw=A@mail.gmail.com"]
Message-ID: <5702cb13d1cbb_fe71583b877b3ec538cc@a4-winter11.mail>

Show a foto...

Fred mais magro :-)

Abra?co a todos

Ricado Stock
ricardostock at bol.com.br
Um bom programador tem um desafio
Um programador mediano, tem um problema.




De: andregarciacarneiro at gmail.com
Enviada: Segunda-feira, 4 de Abril de 2016 16:51
Para: saopaulo-pm at pm.org
Assunto: [SP-pm] Eu e a &#39;gangue&#39; brasileira da Booking(Tecnicamente, o Stan ? russo, mas foda-se...)


?

-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780

=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
 L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer


From gabriel at joaogabriel.org  Mon Apr  4 13:25:07 2016
From: gabriel at joaogabriel.org (=?UTF-8?Q?Jo=C3=A3o_Gabriel_Casteluber_Laass?=)
Date: Mon, 4 Apr 2016 17:25:07 -0300
Subject: [SP-pm]
	=?utf-8?q?Eu_e_a_=27gangue=27_brasileira_da_Booking=28Tec?=
	=?utf-8?q?nicamente=2C_o_Stan_=C3=A9_russo=2C_mas_foda-se=2E=2E=2E?=
	=?utf-8?q?=29?=
In-Reply-To: <CABoU2P0YshyFeXEf38NBDJE7KmV=Jrg1au_DwqobwuLfdHDw=A@mail.gmail.com>
References: <CABoU2P0YshyFeXEf38NBDJE7KmV=Jrg1au_DwqobwuLfdHDw=A@mail.gmail.com>
Message-ID: <CAMpp_sCfQ-qTu3RJt9fkCn1GqAFqBN1XQVkwts-cdT4nQSb5ZQ@mail.gmail.com>

Frio massa. Aqui no Esp?rito Santo t? um calor do c?o!!




 Desenvolvimento de Sistemas

 Marketing Digital

 Consultoria em E-commerce

*Jo?o Gabriel Casteluber Laass*

*27* 3076-2913 || *27* 98802-0195

Rua Sete de Setembro, 11, Esquerda

Cruzeiro do Sul, Cariacica / ES

www.orangepixel.com.br





Enviado com MailTrack
<https://mailtrack.io/install?source=signature&lang=pt&referral=jamorreu at gmail.com&idSignature=24>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160404/1c9c7ffb/attachment.html>
-------------- Pr?xima Parte ----------
Um anexo n?o-texto foi limpo...
Nome: logo pequena em png.png
Tipo: image/png
Tamanho: 1255 bytes
Descri??o: n?o dispon?vel
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160404/1c9c7ffb/attachment.png>

From ricardostock at bol.com.br  Tue Apr  5 13:37:49 2016
From: ricardostock at bol.com.br (Ricardo Stock)
Date: Tue, 05 Apr 2016 17:37:49 -0300
Subject: [SP-pm] QRcode
In-Reply-To: ["5702ca9ad2332_5e8f15c5beb093cc1515@a4-winter15.mail"]
References: ["5702ca9ad2332_5e8f15c5beb093cc1515@a4-winter15.mail"]
Message-ID: <5704221d8076_705515c5aadc33ec672a8@a4-winter16.mail>

Galera, value.

Resolvi com JS. alem de ficar melhor, tiro a carga do servidor.

tks

Ricado Stock
ricardostock at bol.com.br
Um bom programador tem um desafio
Um programador mediano, tem um problema.




De: ricardostock at bol.com.br
Enviada: Segunda-feira, 4 de Abril de 2016 17:12
Para: saopaulo-pm at mail.pm.org
Assunto: [SP-pm] QRcode

Salve a todos da lista.

Estou com uma duvida. Estou gerando um qrcode para acesso direto ao link(para valida??o) sem problemas, estou gerando utilizando GD:Barcode:Qrcode

Fiz uma pesquisa sobre o tamanho em bits da informa??o a ser representada pelo qrcode, preciso que seja representado at? 512b de informa??o pois o link do cliente ainda nao foi definido de de inform??o tenho ja 364b (link de acesso de chave de verifica?ao)

Peguei nessa tabela http://blog.qr4.nl/page/QR-Code-Data-Capacity.aspx mas n?o entendi como configurar na fun??o que ira gerar o mesmo

Segue o trecho do c?digo. Qualquer ajuda ? v?lida
[code]
use GD::Barcode::QRcode;
binmode(STDOUT);
print "Content-Type: image/png\n\n";
print GD::Barcode::QRcode->new($codigo,
        {Ecc => &#39;M&#39;, Version=>2, ModuleSize =>5})->plot->png;

print "</html>\n";

[/code]

Se entendi, tenho usar ModuleSize4 com a imagem em 33x33 e versao 4. No aguardo e obrigado



Ricado Stock
ricardostock at bol.com.br
Um bom programador tem um desafio
Um programador mediano, tem um problema.=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
 L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer


From otaviof at gmail.com  Mon Apr 11 01:51:46 2016
From: otaviof at gmail.com (=?UTF-8?Q?Ot=C3=A1vio_Fernandes?=)
Date: Mon, 11 Apr 2016 10:51:46 +0200
Subject: [SP-pm] Testando o Slack (https://brazil-pm.slack.com)
Message-ID: <CAB7zAcWafUut0DE9tVt1+ErfTe1gJueg6inzpLjNmMf33Kws+w@mail.gmail.com>

Ol?,

Estamos testando o Slack como uma alternativa pro IRC. A ideia ? juntar
mais gente relacionada ao Perl do que s? a S?o-Paulo.PM ou Rio.PM,
portanto, sinta-se a vontade para se juntar e convidar mais gente pra
participar. L? dentro n?s podemos nos re-organizar em grupos menores,
porem, a plataforma ? uma s? para quem est? relacionado ao assunto Perl no
Brasil (Brazil).

Os convites inicialmente s?o apenas via email, porem, todo mundo pode
convidar outras pessoas, se voc? precisa de um convite, por favor me d? um
toque. :-)

Com o Slack abrimos um bom leque de op??es para integra??es, interface
mobile e estamos tamb?m modernizando como fazemos a nossa comunica??o,
portando, sinta-se ? vontade pra explorar e brincar com as alternativas que
este servi?o oferece, comente sobre as suas id?ias.

https://brazil-pm.slack.com

Um abra?o,

-- OF
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160411/9dbc2035/attachment.html>

From renan.azevedo.carvalho at gmail.com  Mon Apr 11 02:34:37 2016
From: renan.azevedo.carvalho at gmail.com (Renan Carvalho)
Date: Mon, 11 Apr 2016 06:34:37 -0300
Subject: [SP-pm] [Rio-pm] Testando o Slack (https://brazil-pm.slack.com)
In-Reply-To: <CAB7zAcWafUut0DE9tVt1+ErfTe1gJueg6inzpLjNmMf33Kws+w@mail.gmail.com>
References: <CAB7zAcWafUut0DE9tVt1+ErfTe1gJueg6inzpLjNmMf33Kws+w@mail.gmail.com>
Message-ID: <CAOptfs+aLuj-w2N3pV36G=+BojyR+dbxp0tZ8zTbMj0nAa=fNQ@mail.gmail.com>

Otavio, bom dia

Hoje a maioria dos canais do slack est?o utilizando o convite autom?tico,
acho que seria melhor do que ficar preso esperando alguem fazer convite.

Dessa forma podemos divulgar e s? disponibilizar o link para se convidarem.

obs: gostei da iniciativa
Em 11/04/2016 05:52, "Ot?vio Fernandes" <otaviof at gmail.com> escreveu:

> Ol?,
>
> Estamos testando o Slack como uma alternativa pro IRC. A ideia ? juntar
> mais gente relacionada ao Perl do que s? a S?o-Paulo.PM ou Rio.PM,
> portanto, sinta-se a vontade para se juntar e convidar mais gente pra
> participar. L? dentro n?s podemos nos re-organizar em grupos menores,
> porem, a plataforma ? uma s? para quem est? relacionado ao assunto Perl no
> Brasil (Brazil).
>
> Os convites inicialmente s?o apenas via email, porem, todo mundo pode
> convidar outras pessoas, se voc? precisa de um convite, por favor me d? um
> toque. :-)
>
> Com o Slack abrimos um bom leque de op??es para integra??es, interface
> mobile e estamos tamb?m modernizando como fazemos a nossa comunica??o,
> portando, sinta-se ? vontade pra explorar e brincar com as alternativas que
> este servi?o oferece, comente sobre as suas id?ias.
>
> https://brazil-pm.slack.com
>
> Um abra?o,
>
> -- OF
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm at pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160411/2e476d70/attachment.html>

From ricardostock at bol.com.br  Tue Apr 12 05:09:09 2016
From: ricardostock at bol.com.br (Ricardo Stock)
Date: Tue, 12 Apr 2016 09:09:09 -0300
Subject: [SP-pm] Testando o Slack (https://brazil-pm.slack.com)
In-Reply-To: <CAB7zAcWafUut0DE9tVt1+ErfTe1gJueg6inzpLjNmMf33Kws+w@mail.gmail.com>
References: <CAB7zAcWafUut0DE9tVt1+ErfTe1gJueg6inzpLjNmMf33Kws+w@mail.gmail.com>
Message-ID: <3FE80852FE064486AF6652F7899D70EB@RicardoPC>


Leal a ideia, eu mesmo nunca utilizei o irc. O problema do slack ? esperar o convite  

Ricardo Stock
ricardo at stocksistemas.com.br
www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700

From: Ot?vio Fernandes 
Sent: Monday, April 11, 2016 5:51 AM
To: saopaulo-pm at mail.pm.org ; Perl Mongers Rio de Janeiro ; Cascavel Perl Mongers 
Subject: [SP-pm] Testando o Slack (https://brazil-pm.slack.com)

Ol?,


Estamos testando o Slack como uma alternativa pro IRC. A ideia ? juntar mais gente relacionada ao Perl do que s? a S?o-Paulo.PM ou Rio.PM, portanto, sinta-se a vontade para se juntar e convidar mais gente pra participar. L? dentro n?s podemos nos re-organizar em grupos menores, porem, a plataforma ? uma s? para quem est? relacionado ao assunto Perl no Brasil (Brazil).


Os convites inicialmente s?o apenas via email, porem, todo mundo pode convidar outras pessoas, se voc? precisa de um convite, por favor me d? um toque. :-)


Com o Slack abrimos um bom leque de op??es para integra??es, interface mobile e estamos tamb?m modernizando como fazemos a nossa comunica??o, portando, sinta-se ? vontade pra explorar e brincar com as alternativas que este servi?o oferece, comente sobre as suas id?ias.

https://brazil-pm.slack.com


Um abra?o,


-- OF



--------------------------------------------------------------------------------
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160412/992b6582/attachment.html>
-------------- Pr?xima Parte ----------
Um anexo n?o-texto foi limpo...
Nome: n?o dispon?vel
Tipo: application/octet-stream
Tamanho: 1046 bytes
Descri??o: n?o dispon?vel
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160412/992b6582/attachment.obj>

From renato.cron at gmail.com  Tue Apr 12 05:40:00 2016
From: renato.cron at gmail.com (Renato Santos)
Date: Tue, 12 Apr 2016 09:40:00 -0300
Subject: [SP-pm] Testando o Slack (https://brazil-pm.slack.com)
In-Reply-To: <3FE80852FE064486AF6652F7899D70EB@RicardoPC>
References: <CAB7zAcWafUut0DE9tVt1+ErfTe1gJueg6inzpLjNmMf33Kws+w@mail.gmail.com>
	<3FE80852FE064486AF6652F7899D70EB@RicardoPC>
Message-ID: <CABmdQ_R6YAYKQM61ge1h7s4d_55LoXZGcEADo6bJC_Vi2e4Cng@mail.gmail.com>

nao tem como criar um canal com auto-subscribe?

Parece que tem isso, ou alguma API que podemos chamar via backend..


2016-04-12 9:09 GMT-03:00 Ricardo Stock <ricardostock at bol.com.br>:

>
> Leal a ideia, eu mesmo nunca utilizei o irc. O problema do slack ? esperar
> o convite [image: Alegre]
>
> Ricardo Stock
> ricardo at stocksistemas.com.br
> www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700
>
> *From:* Ot?vio Fernandes <otaviof at gmail.com>
> *Sent:* Monday, April 11, 2016 5:51 AM
> *To:* saopaulo-pm at mail.pm.org ; Perl Mongers Rio de Janeiro
> <rio-pm at pm.org> ; Cascavel Perl Mongers <cascavel-pm at pm.org>
> *Subject:* [SP-pm] Testando o Slack (https://brazil-pm.slack.com)
>
> Ol?,
>
> Estamos testando o Slack como uma alternativa pro IRC. A ideia ? juntar
> mais gente relacionada ao Perl do que s? a S?o-Paulo.PM ou Rio.PM,
> portanto, sinta-se a vontade para se juntar e convidar mais gente pra
> participar. L? dentro n?s podemos nos re-organizar em grupos menores,
> porem, a plataforma ? uma s? para quem est? relacionado ao assunto Perl no
> Brasil (Brazil).
>
> Os convites inicialmente s?o apenas via email, porem, todo mundo pode
> convidar outras pessoas, se voc? precisa de um convite, por favor me d? um
> toque. :-)
>
> Com o Slack abrimos um bom leque de op??es para integra??es, interface
> mobile e estamos tamb?m modernizando como fazemos a nossa comunica??o,
> portando, sinta-se ? vontade pra explorar e brincar com as alternativas que
> este servi?o oferece, comente sobre as suas id?ias.
>
> https://brazil-pm.slack.com
>
> Um abra?o,
>
> -- OF
>
> ------------------------------
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
YAGNI,
Renato CRON
http://www.renatocron.com/blog/
@renato_cron <http://twitter.com/#!/renato_cron>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160412/982ccd9f/attachment.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: wlEmoticon-smile[1].png
Type: application/octet-stream
Size: 1046 bytes
Desc: not available
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160412/982ccd9f/attachment.obj>

From hernanlopes at gmail.com  Tue Apr 12 06:01:47 2016
From: hernanlopes at gmail.com (Hernan Lopes)
Date: Tue, 12 Apr 2016 10:01:47 -0300
Subject: [SP-pm] Testando o Slack (https://brazil-pm.slack.com)
In-Reply-To: <CAB7zAcWafUut0DE9tVt1+ErfTe1gJueg6inzpLjNmMf33Kws+w@mail.gmail.com>
References: <CAB7zAcWafUut0DE9tVt1+ErfTe1gJueg6inzpLjNmMf33Kws+w@mail.gmail.com>
Message-ID: <CACE0rhqOiGM=dZKUwoz=DC38bPUbHEcECUt=Qx66aRy0KL4WNA@mail.gmail.com>

A comunidade perl ? muito privilegiada de ter sua pr?pria infraestrutura
IRC com alguns servers.
O irc ? antigo, perl ? antigo, a internet ? antiga ... e nem por isso est?o
obsoletos.
N?o acho que isso vai atrair mais pessoas.
A iniciativa ? boa, mas eu prefiro a infra j? existente que est? mais
pr?xima dos outros projetos internacionais em seus canais respectivos no
irc,perl.org

sorte para a iniciativa!!

o/

2016-04-11 5:51 GMT-03:00 Ot?vio Fernandes <otaviof at gmail.com>:

> Ol?,
>
> Estamos testando o Slack como uma alternativa pro IRC. A ideia ? juntar
> mais gente relacionada ao Perl do que s? a S?o-Paulo.PM ou Rio.PM,
> portanto, sinta-se a vontade para se juntar e convidar mais gente pra
> participar. L? dentro n?s podemos nos re-organizar em grupos menores,
> porem, a plataforma ? uma s? para quem est? relacionado ao assunto Perl no
> Brasil (Brazil).
>
> Os convites inicialmente s?o apenas via email, porem, todo mundo pode
> convidar outras pessoas, se voc? precisa de um convite, por favor me d? um
> toque. :-)
>
> Com o Slack abrimos um bom leque de op??es para integra??es, interface
> mobile e estamos tamb?m modernizando como fazemos a nossa comunica??o,
> portando, sinta-se ? vontade pra explorar e brincar com as alternativas que
> este servi?o oferece, comente sobre as suas id?ias.
>
> https://brazil-pm.slack.com
>
> Um abra?o,
>
> -- OF
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160412/65fcb16c/attachment-0001.html>

From ricardo_filipo at yahoo.com.br  Tue Apr 12 06:22:47 2016
From: ricardo_filipo at yahoo.com.br (Ricardo Filipo)
Date: Tue, 12 Apr 2016 13:22:47 +0000 (UTC)
Subject: [SP-pm] Testando o Slack (https://brazil-pm.slack.com)
In-Reply-To: <CACE0rhqOiGM=dZKUwoz=DC38bPUbHEcECUt=Qx66aRy0KL4WNA@mail.gmail.com>
References: <CACE0rhqOiGM=dZKUwoz=DC38bPUbHEcECUt=Qx66aRy0KL4WNA@mail.gmail.com>
Message-ID: <2014663434.1232541.1460467367876.JavaMail.yahoo@mail.yahoo.com>

Pode me enviar convite? Obrigado.
 

    Em Ter?a-feira, 12 de Abril de 2016 9:02, Hernan Lopes <hernanlopes at gmail.com> escreveu:
 
 

 A comunidade perl ? muito privilegiada de ter sua pr?pria infraestrutura IRC com alguns servers.
O irc ? antigo, perl ? antigo, a internet ? antiga ... e nem por isso est?o obsoletos.
N?o acho que isso vai atrair mais pessoas.
A iniciativa ? boa, mas eu prefiro a infra j? existente que est? mais pr?xima dos outros projetos internacionais em seus canais respectivos no irc,perl.org

sorte para a iniciativa!!

o/

2016-04-11 5:51 GMT-03:00 Ot?vio Fernandes <otaviof at gmail.com>:

Ol?,

Estamos testando o Slack como uma alternativa pro IRC. A ideia ? juntar mais gente relacionada ao Perl do que s? a S?o-Paulo.PM ou Rio.PM, portanto, sinta-se a vontade para se juntar e convidar mais gente pra participar. L? dentro n?s podemos nos re-organizar em grupos menores, porem, a plataforma ? uma s? para quem est? relacionado ao assunto Perl no Brasil (Brazil).

Os convites inicialmente s?o apenas via email, porem, todo mundo pode convidar outras pessoas, se voc? precisa de um convite, por favor me d? um toque. :-)

Com o Slack abrimos um bom leque de op??es para integra??es, interface mobile e estamos tamb?m modernizando como fazemos a nossa comunica??o, portando, sinta-se ? vontade pra explorar e brincar com as alternativas que este servi?o oferece, comente sobre as suas id?ias.

https://brazil-pm.slack.com

Um abra?o,

-- OF

=begin disclaimer
? ?Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
?SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
?L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer




=begin disclaimer
? Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
 L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer


 
  
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160412/f76960f1/attachment.html>

From otaviof at gmail.com  Tue Apr 12 07:16:31 2016
From: otaviof at gmail.com (=?UTF-8?Q?Ot=C3=A1vio_Fernandes?=)
Date: Tue, 12 Apr 2016 16:16:31 +0200
Subject: [SP-pm] Testando o Slack (https://brazil-pm.slack.com)
In-Reply-To: <CABmdQ_R6YAYKQM61ge1h7s4d_55LoXZGcEADo6bJC_Vi2e4Cng@mail.gmail.com>
References: <CAB7zAcWafUut0DE9tVt1+ErfTe1gJueg6inzpLjNmMf33Kws+w@mail.gmail.com>
	<3FE80852FE064486AF6652F7899D70EB@RicardoPC>
	<CABmdQ_R6YAYKQM61ge1h7s4d_55LoXZGcEADo6bJC_Vi2e4Cng@mail.gmail.com>
Message-ID: <CAB7zAcW1wg_dzQJn=fgSe6puHxKsGxvd-sMtFq_y-Lpk_x1UaQ@mail.gmail.com>

Fala Renato,

At? onde eu sei teria se n?s dividissemos o mesmo dom?nio, porem, aqui na
lista n?s temos a maioria dos usu?rios usando um servidor p?blico de email
o que dificulta um pouco. :-|

Se tiver interessados aqui em explorar esta parte, vamos conversar,
concordo que o quanto mais f?cil melhor, e talvez eu ainda n?o saiba alguns
"tips and tricks" do Slack.

um abra?o,

-- OF

2016-04-12 14:40 GMT+02:00 Renato Santos <renato.cron at gmail.com>:

> nao tem como criar um canal com auto-subscribe?
>
> Parece que tem isso, ou alguma API que podemos chamar via backend..
>
>
> 2016-04-12 9:09 GMT-03:00 Ricardo Stock <ricardostock at bol.com.br>:
>
>>
>> Leal a ideia, eu mesmo nunca utilizei o irc. O problema do slack ?
>> esperar o convite [image: Alegre]
>>
>> Ricardo Stock
>> ricardo at stocksistemas.com.br
>> www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700
>>
>> *From:* Ot?vio Fernandes <otaviof at gmail.com>
>> *Sent:* Monday, April 11, 2016 5:51 AM
>> *To:* saopaulo-pm at mail.pm.org ; Perl Mongers Rio de Janeiro
>> <rio-pm at pm.org> ; Cascavel Perl Mongers <cascavel-pm at pm.org>
>> *Subject:* [SP-pm] Testando o Slack (https://brazil-pm.slack.com)
>>
>> Ol?,
>>
>> Estamos testando o Slack como uma alternativa pro IRC. A ideia ? juntar
>> mais gente relacionada ao Perl do que s? a S?o-Paulo.PM ou Rio.PM,
>> portanto, sinta-se a vontade para se juntar e convidar mais gente pra
>> participar. L? dentro n?s podemos nos re-organizar em grupos menores,
>> porem, a plataforma ? uma s? para quem est? relacionado ao assunto Perl no
>> Brasil (Brazil).
>>
>> Os convites inicialmente s?o apenas via email, porem, todo mundo pode
>> convidar outras pessoas, se voc? precisa de um convite, por favor me d? um
>> toque. :-)
>>
>> Com o Slack abrimos um bom leque de op??es para integra??es, interface
>> mobile e estamos tamb?m modernizando como fazemos a nossa comunica??o,
>> portando, sinta-se ? vontade pra explorar e brincar com as alternativas que
>> este servi?o oferece, comente sobre as suas id?ias.
>>
>> https://brazil-pm.slack.com
>>
>> Um abra?o,
>>
>> -- OF
>>
>> ------------------------------
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> YAGNI,
> Renato CRON
> http://www.renatocron.com/blog/
> @renato_cron <http://twitter.com/#!/renato_cron>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160412/b121419c/attachment.html>
-------------- Pr?xima Parte ----------
Um anexo n?o-texto foi limpo...
Nome: wlEmoticon-smile[1].png
Tipo: application/octet-stream
Tamanho: 1046 bytes
Descri??o: n?o dispon?vel
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160412/b121419c/attachment.obj>

From otaviof at gmail.com  Tue Apr 12 07:26:01 2016
From: otaviof at gmail.com (=?UTF-8?Q?Ot=C3=A1vio_Fernandes?=)
Date: Tue, 12 Apr 2016 16:26:01 +0200
Subject: [SP-pm] Testando o Slack (https://brazil-pm.slack.com)
In-Reply-To: <CACE0rhqOiGM=dZKUwoz=DC38bPUbHEcECUt=Qx66aRy0KL4WNA@mail.gmail.com>
References: <CAB7zAcWafUut0DE9tVt1+ErfTe1gJueg6inzpLjNmMf33Kws+w@mail.gmail.com>
	<CACE0rhqOiGM=dZKUwoz=DC38bPUbHEcECUt=Qx66aRy0KL4WNA@mail.gmail.com>
Message-ID: <CAB7zAcU6dusa_q8Rccdj_XMU+=V6hMNNShkydCsnmkzo8_RPqg@mail.gmail.com>

Ol? Hernan,

N?o sei quanto ao seu trabalho, porem, aqui estamos cada vez mais usando
Slack e n?o s? pra parte de comunica??o, mas tamb?m explorando as
integra??es que o servi?o oferece. A ideia ? ter um lugar comum pra
discutir os inputs que os diversos canais v?o trazer, como ver os tickets
que est?o sendo criados no JIRA, TravisCI, Jenkins, Splunk Alerts, etc.

J? viu o ChatOps do Gtihub? Ent?o, ? uma ideia razoavelmente antiga que
ganhou uma nova abordagem. Bom, nada contra o antigo, mas vamos evitar se
transformar em "ultrapassados". ;-)

Mais usu?rios?! Porra, seria ?timo! Mas a ideia ? mesmo fortalecer a
comunica??o e adicionar op??es.

um abra?o,

-- OF

2016-04-12 15:01 GMT+02:00 Hernan Lopes <hernanlopes at gmail.com>:

> A comunidade perl ? muito privilegiada de ter sua pr?pria infraestrutura
> IRC com alguns servers.
> O irc ? antigo, perl ? antigo, a internet ? antiga ... e nem por isso
> est?o obsoletos.
> N?o acho que isso vai atrair mais pessoas.
> A iniciativa ? boa, mas eu prefiro a infra j? existente que est? mais
> pr?xima dos outros projetos internacionais em seus canais respectivos no
> irc,perl.org
>
> sorte para a iniciativa!!
>
> o/
>
> 2016-04-11 5:51 GMT-03:00 Ot?vio Fernandes <otaviof at gmail.com>:
>
>> Ol?,
>>
>> Estamos testando o Slack como uma alternativa pro IRC. A ideia ? juntar
>> mais gente relacionada ao Perl do que s? a S?o-Paulo.PM ou Rio.PM,
>> portanto, sinta-se a vontade para se juntar e convidar mais gente pra
>> participar. L? dentro n?s podemos nos re-organizar em grupos menores,
>> porem, a plataforma ? uma s? para quem est? relacionado ao assunto Perl no
>> Brasil (Brazil).
>>
>> Os convites inicialmente s?o apenas via email, porem, todo mundo pode
>> convidar outras pessoas, se voc? precisa de um convite, por favor me d? um
>> toque. :-)
>>
>> Com o Slack abrimos um bom leque de op??es para integra??es, interface
>> mobile e estamos tamb?m modernizando como fazemos a nossa comunica??o,
>> portando, sinta-se ? vontade pra explorar e brincar com as alternativas que
>> este servi?o oferece, comente sobre as suas id?ias.
>>
>> https://brazil-pm.slack.com
>>
>> Um abra?o,
>>
>> -- OF
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160412/bde07756/attachment-0001.html>

From leprevostfv at gmail.com  Tue Apr 12 07:26:33 2016
From: leprevostfv at gmail.com (Felipe Leprevost)
Date: Tue, 12 Apr 2016 14:26:33 +0000
Subject: [SP-pm] Testando o Slack (https://brazil-pm.slack.com)
In-Reply-To: <CAB7zAcW1wg_dzQJn=fgSe6puHxKsGxvd-sMtFq_y-Lpk_x1UaQ@mail.gmail.com>
References: <CAB7zAcWafUut0DE9tVt1+ErfTe1gJueg6inzpLjNmMf33Kws+w@mail.gmail.com>
	<3FE80852FE064486AF6652F7899D70EB@RicardoPC>
	<CABmdQ_R6YAYKQM61ge1h7s4d_55LoXZGcEADo6bJC_Vi2e4Cng@mail.gmail.com>
	<CAB7zAcW1wg_dzQJn=fgSe6puHxKsGxvd-sMtFq_y-Lpk_x1UaQ@mail.gmail.com>
Message-ID: <CAO8PE-AJOX1+A=fDqVqdLVfLKKuvvTrc8WTSf+2bWv6T7ZQxwA@mail.gmail.com>

Bom, se a motiva??o ? t?cnica, posso dizer que tanto aqui na Universidade
que trabalho quanto o pessoal de Curitiba que esta na Sascar, o acesso ao
IRC eh bloqueado. Solu??es como Slack e Gitter funcionam normalmente.

On Tue, Apr 12, 2016 at 10:17 AM Ot?vio Fernandes <otaviof at gmail.com> wrote:

> Fala Renato,
>
> At? onde eu sei teria se n?s dividissemos o mesmo dom?nio, porem, aqui na
> lista n?s temos a maioria dos usu?rios usando um servidor p?blico de email
> o que dificulta um pouco. :-|
>
> Se tiver interessados aqui em explorar esta parte, vamos conversar,
> concordo que o quanto mais f?cil melhor, e talvez eu ainda n?o saiba alguns
> "tips and tricks" do Slack.
>
> um abra?o,
>
> -- OF
>
> 2016-04-12 14:40 GMT+02:00 Renato Santos <renato.cron at gmail.com>:
>
>> nao tem como criar um canal com auto-subscribe?
>>
>> Parece que tem isso, ou alguma API que podemos chamar via backend..
>>
>>
>> 2016-04-12 9:09 GMT-03:00 Ricardo Stock <ricardostock at bol.com.br>:
>>
>>>
>>> Leal a ideia, eu mesmo nunca utilizei o irc. O problema do slack ?
>>> esperar o convite [image: wlEmoticon-smile[1].png]
>>>
>>> Ricardo Stock
>>> ricardo at stocksistemas.com.br
>>> www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700
>>>
>>> *From:* Ot?vio Fernandes <otaviof at gmail.com>
>>> *Sent:* Monday, April 11, 2016 5:51 AM
>>> *To:* saopaulo-pm at mail.pm.org ; Perl Mongers Rio de Janeiro
>>> <rio-pm at pm.org> ; Cascavel Perl Mongers <cascavel-pm at pm.org>
>>> *Subject:* [SP-pm] Testando o Slack (https://brazil-pm.slack.com)
>>>
>>> Ol?,
>>>
>>> Estamos testando o Slack como uma alternativa pro IRC. A ideia ? juntar
>>> mais gente relacionada ao Perl do que s? a S?o-Paulo.PM ou Rio.PM,
>>> portanto, sinta-se a vontade para se juntar e convidar mais gente pra
>>> participar. L? dentro n?s podemos nos re-organizar em grupos menores,
>>> porem, a plataforma ? uma s? para quem est? relacionado ao assunto Perl no
>>> Brasil (Brazil).
>>>
>>> Os convites inicialmente s?o apenas via email, porem, todo mundo pode
>>> convidar outras pessoas, se voc? precisa de um convite, por favor me d? um
>>> toque. :-)
>>>
>>> Com o Slack abrimos um bom leque de op??es para integra??es, interface
>>> mobile e estamos tamb?m modernizando como fazemos a nossa comunica??o,
>>> portando, sinta-se ? vontade pra explorar e brincar com as alternativas que
>>> este servi?o oferece, comente sobre as suas id?ias.
>>>
>>> https://brazil-pm.slack.com
>>>
>>> Um abra?o,
>>>
>>> -- OF
>>>
>>> ------------------------------
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> YAGNI,
>> Renato CRON
>> http://www.renatocron.com/blog/
>> @renato_cron <http://twitter.com/#!/renato_cron>
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
-- 
Felipe da Veiga Leprevost, Ph.D.
www.leprevost.com.br
Proteome Bioinformatics Lab
University of Michigan
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160412/422e52d9/attachment.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: wlEmoticon-smile[1].png
Type: image/png
Size: 1046 bytes
Desc: not available
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160412/422e52d9/attachment.png>

From andregarciacarneiro at gmail.com  Tue Apr 12 07:51:22 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Tue, 12 Apr 2016 11:51:22 -0300
Subject: [SP-pm] Testando o Slack (https://brazil-pm.slack.com)
In-Reply-To: <CAO8PE-AJOX1+A=fDqVqdLVfLKKuvvTrc8WTSf+2bWv6T7ZQxwA@mail.gmail.com>
References: <CAB7zAcWafUut0DE9tVt1+ErfTe1gJueg6inzpLjNmMf33Kws+w@mail.gmail.com>
	<3FE80852FE064486AF6652F7899D70EB@RicardoPC>
	<CABmdQ_R6YAYKQM61ge1h7s4d_55LoXZGcEADo6bJC_Vi2e4Cng@mail.gmail.com>
	<CAB7zAcW1wg_dzQJn=fgSe6puHxKsGxvd-sMtFq_y-Lpk_x1UaQ@mail.gmail.com>
	<CAO8PE-AJOX1+A=fDqVqdLVfLKKuvvTrc8WTSf+2bWv6T7ZQxwA@mail.gmail.com>
Message-ID: <CABoU2P1VO4eJ_cRGPRHGQ9E5oQEjRDX0pQoBFDvVuAw0rvPq1g@mail.gmail.com>

Salve!

Ultimamente s? tenho visto empresas usando slack ou alguma solu??o
propriet?ria de chat interno. IRC n?o ? algo comum j? faz um tempo, creio
eu.

Acho o slack v?lido sim.

N?o manjo nada, mas se puder ajudar com algo, me avisem!


Att

2016-04-12 11:26 GMT-03:00 Felipe Leprevost <leprevostfv at gmail.com>:

> Bom, se a motiva??o ? t?cnica, posso dizer que tanto aqui na Universidade
> que trabalho quanto o pessoal de Curitiba que esta na Sascar, o acesso ao
> IRC eh bloqueado. Solu??es como Slack e Gitter funcionam normalmente.
>
> On Tue, Apr 12, 2016 at 10:17 AM Ot?vio Fernandes <otaviof at gmail.com>
> wrote:
>
>> Fala Renato,
>>
>> At? onde eu sei teria se n?s dividissemos o mesmo dom?nio, porem, aqui na
>> lista n?s temos a maioria dos usu?rios usando um servidor p?blico de email
>> o que dificulta um pouco. :-|
>>
>> Se tiver interessados aqui em explorar esta parte, vamos conversar,
>> concordo que o quanto mais f?cil melhor, e talvez eu ainda n?o saiba alguns
>> "tips and tricks" do Slack.
>>
>> um abra?o,
>>
>> -- OF
>>
>> 2016-04-12 14:40 GMT+02:00 Renato Santos <renato.cron at gmail.com>:
>>
>>> nao tem como criar um canal com auto-subscribe?
>>>
>>> Parece que tem isso, ou alguma API que podemos chamar via backend..
>>>
>>>
>>> 2016-04-12 9:09 GMT-03:00 Ricardo Stock <ricardostock at bol.com.br>:
>>>
>>>>
>>>> Leal a ideia, eu mesmo nunca utilizei o irc. O problema do slack ?
>>>> esperar o convite [image: wlEmoticon-smile[1].png]
>>>>
>>>> Ricardo Stock
>>>> ricardo at stocksistemas.com.br
>>>> www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700
>>>>
>>>> *From:* Ot?vio Fernandes <otaviof at gmail.com>
>>>> *Sent:* Monday, April 11, 2016 5:51 AM
>>>> *To:* saopaulo-pm at mail.pm.org ; Perl Mongers Rio de Janeiro
>>>> <rio-pm at pm.org> ; Cascavel Perl Mongers <cascavel-pm at pm.org>
>>>> *Subject:* [SP-pm] Testando o Slack (https://brazil-pm.slack.com)
>>>>
>>>> Ol?,
>>>>
>>>> Estamos testando o Slack como uma alternativa pro IRC. A ideia ? juntar
>>>> mais gente relacionada ao Perl do que s? a S?o-Paulo.PM ou Rio.PM,
>>>> portanto, sinta-se a vontade para se juntar e convidar mais gente pra
>>>> participar. L? dentro n?s podemos nos re-organizar em grupos menores,
>>>> porem, a plataforma ? uma s? para quem est? relacionado ao assunto Perl no
>>>> Brasil (Brazil).
>>>>
>>>> Os convites inicialmente s?o apenas via email, porem, todo mundo pode
>>>> convidar outras pessoas, se voc? precisa de um convite, por favor me d? um
>>>> toque. :-)
>>>>
>>>> Com o Slack abrimos um bom leque de op??es para integra??es, interface
>>>> mobile e estamos tamb?m modernizando como fazemos a nossa comunica??o,
>>>> portando, sinta-se ? vontade pra explorar e brincar com as alternativas que
>>>> este servi?o oferece, comente sobre as suas id?ias.
>>>>
>>>> https://brazil-pm.slack.com
>>>>
>>>> Um abra?o,
>>>>
>>>> -- OF
>>>>
>>>> ------------------------------
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>>
>>>
>>> --
>>> YAGNI,
>>> Renato CRON
>>> http://www.renatocron.com/blog/
>>> @renato_cron <http://twitter.com/#!/renato_cron>
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
> --
> Felipe da Veiga Leprevost, Ph.D.
> www.leprevost.com.br
> Proteome Bioinformatics Lab
> University of Michigan
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160412/ade8eb98/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: wlEmoticon-smile[1].png
Type: image/png
Size: 1046 bytes
Desc: not available
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160412/ade8eb98/attachment-0001.png>

From thiago at eokoe.com  Mon Apr 18 07:57:28 2016
From: thiago at eokoe.com (Thiago Rondon)
Date: Mon, 18 Apr 2016 11:57:28 -0300
Subject: [SP-pm] Meetup Blockchain Ecosystem
Message-ID: <CA+XDWcLmu0ou_F3oB4_XWUztE_tev9LUPFYyJTn4=KT4n7+WOQ@mail.gmail.com>

Pessoal,

Depois de duas edi??es do meetup do Fullstackers, estamos realizando
um novo encontro com palestras r?pidas sobre o ecosistema do
blockchain.

http://www.meetup.com/Fullstack-Developers-Sao-Paulo/

A din?mica do evento ser? baseada em palestras rel?mpagos de at? 15
minutos sobre as tecnologias existentes no ecosistema do blockchain.
Caso voc? tenha interesse em falar, entre em contato conosco!

Estamos buscando fullstackers para falarem sobre Ethereum, Multichain,
Smart Contracts, Merkle trees, Proof of stake, Criptomoedas,
reputa??es, autentica??es e qualquer outro assunto que esteja no
territ?rio.

Bora ?

Abs!
-Thiago Rondon

-- 
Rua Desembargador Eliseu Guilherme, 53 - Cj. 21 - S?o Paulo - SP - Brazil
http://www.eokoe.com/ - Tel.: +55 11 3386-8181

From giovana.piazzetta at ewave.com.br  Wed Apr 20 05:30:22 2016
From: giovana.piazzetta at ewave.com.br (Giovana Guimaraes Piazzetta)
Date: Wed, 20 Apr 2016 12:30:22 +0000
Subject: [SP-pm] =?iso-8859-1?q?Oportunidade_Analista_Desenvolvedor_Perl_P?=
 =?iso-8859-1?q?leno_-_S=E3o_Paulo?=
Message-ID: <05161D72036B534BA35BD36358B7E807F3A1020D@RHMBX04.emailexchange.local>

Bom dia pessoal,

A eWave do Brasil est? com uma oportunidade para atuar como Analista Desenvolvedor Perl Pleno em um cliente da eWave em S?o Paulo (Barra Funda). Esse profissional precisa ter disponibilidade para ficar 1 m?s e meio em Curitiba para treinamento. Abaixo segue o descritivo da oportunidade caso algu?m tenha interesse ou tenha algu?m para indicar.

Analista Desenvolvedor Perl Pleno - S?o Paulo
S?lido conhecimento em linguagem de programa??o PERL
S?lido conhecimento Banco de dados SQL (Postgres/Mysql)
Desej?vel:
Conhecimento em desenvolvimento Web (HTML, Javascript, CSS)
Conhecimento em S.O. Linux
Conhecimento em framework Catalyst
Espanhol intermedi?rio
Atividades:
Atuar como desenvolvedor implementando novas funcionalidades e manuten??o de sistemas em linguagem PERL.

Resolver problemas t?cnicos de implementa??o na linguagem PERL.

Implementar solu??es de banco de dados na linguagem SQL.
Perfil focado em execu??o;
Interessados devem enviar cv com pretens?o salarial para giovana.piazzetta at ewave.com.br<mailto:giovana.piazzetta at ewave.com.br>

Qualquer d?vida, estou ? disposi??o!

Att.
[http://www.ewave.com.br/3por1/Imagens/assinatura/2016/ewave_assinatura_Logo_10anos.jpg]







Giovana Guimar?es Piazzetta



Analista de Recrutamento e Sele??o





[http://www.ewave.com.br/3por1/Imagens/assinatura/2016/ewave_assinatura_Icon_email.jpg]

giovana.piazzetta at ewave.com.br<mailto:giovana.piazzetta at ewave.com.br>

[http://www.ewave.com.br/3por1/Imagens/assinatura/2016/ewave_assinatura_Icon_telefone.jpg]

41 3019-8766

Skype: giovanapiazzetta

[http://www.ewave.com.br/3por1/Imagens/assinatura/2016/ewave_assinatura_Icon_web.jpg]

www.ewave.com.br<http://www.ewave.com.br/>





[http://www.ewave.com.br/3por1/Imagens/assinatura/2016/ewave_assinatura_Icon_linkedin.jpg]



[http://www.ewave.com.br/3por1/Imagens/assinatura/2016/ewave_assinatura_Icon_facebook.jpg]



[http://www.ewave.com.br/3por1/Imagens/assinatura/2016/ewave_assinatura_Icon_twitter.jpg]



[http://www.ewave.com.br/3por1/Imagens/assinatura/2016/ewave_assinatura_Icon_youtube.jpg]




















-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160420/255ce2e6/attachment-0001.html>
-------------- Pr?xima Parte ----------
Um anexo n?o-texto foi limpo...
Nome: image001.jpg
Tipo: image/jpeg
Tamanho: 21994 bytes
Descri??o: image001.jpg
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160420/255ce2e6/attachment-0009.jpg>
-------------- Pr?xima Parte ----------
Um anexo n?o-texto foi limpo...
Nome: image002.jpg
Tipo: image/jpeg
Tamanho: 11427 bytes
Descri??o: image002.jpg
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160420/255ce2e6/attachment-0010.jpg>
-------------- Pr?xima Parte ----------
Um anexo n?o-texto foi limpo...
Nome: image003.jpg
Tipo: image/jpeg
Tamanho: 11916 bytes
Descri??o: image003.jpg
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160420/255ce2e6/attachment-0011.jpg>
-------------- Pr?xima Parte ----------
Um anexo n?o-texto foi limpo...
Nome: image004.jpg
Tipo: image/jpeg
Tamanho: 11918 bytes
Descri??o: image004.jpg
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160420/255ce2e6/attachment-0012.jpg>
-------------- Pr?xima Parte ----------
Um anexo n?o-texto foi limpo...
Nome: image005.jpg
Tipo: image/jpeg
Tamanho: 11917 bytes
Descri??o: image005.jpg
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160420/255ce2e6/attachment-0013.jpg>
-------------- Pr?xima Parte ----------
Um anexo n?o-texto foi limpo...
Nome: image006.jpg
Tipo: image/jpeg
Tamanho: 11558 bytes
Descri??o: image006.jpg
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160420/255ce2e6/attachment-0014.jpg>
-------------- Pr?xima Parte ----------
Um anexo n?o-texto foi limpo...
Nome: image007.jpg
Tipo: image/jpeg
Tamanho: 11533 bytes
Descri??o: image007.jpg
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160420/255ce2e6/attachment-0015.jpg>
-------------- Pr?xima Parte ----------
Um anexo n?o-texto foi limpo...
Nome: image008.jpg
Tipo: image/jpeg
Tamanho: 4337 bytes
Descri??o: image008.jpg
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160420/255ce2e6/attachment-0016.jpg>
-------------- Pr?xima Parte ----------
Um anexo n?o-texto foi limpo...
Nome: image009.jpg
Tipo: image/jpeg
Tamanho: 11565 bytes
Descri??o: image009.jpg
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160420/255ce2e6/attachment-0017.jpg>

From marco.prado.bs at gmail.com  Mon Apr 25 06:44:08 2016
From: marco.prado.bs at gmail.com (Marco Silva)
Date: Mon, 25 Apr 2016 10:44:08 -0300
Subject: [SP-pm] Testando o Slack (https://brazil-pm.slack.com)
In-Reply-To: <CAB7zAcU6dusa_q8Rccdj_XMU+=V6hMNNShkydCsnmkzo8_RPqg@mail.gmail.com>
References: <CAB7zAcWafUut0DE9tVt1+ErfTe1gJueg6inzpLjNmMf33Kws+w@mail.gmail.com>
	<CACE0rhqOiGM=dZKUwoz=DC38bPUbHEcECUt=Qx66aRy0KL4WNA@mail.gmail.com>
	<CAB7zAcU6dusa_q8Rccdj_XMU+=V6hMNNShkydCsnmkzo8_RPqg@mail.gmail.com>
Message-ID: <1461591840-sup-3102@ubatuba>

Excerpts from Ot?vio Fernandes's message of 2016-04-12 16:26:01 +0200:

> integra??es que o servi?o oferece. A ideia ? ter um lugar comum pra
> discutir os inputs que os diversos canais v?o trazer, como ver os tickets
> que est?o sendo criados no JIRA, TravisCI, Jenkins, Splunk Alerts, etc.
Que tal um IRC-bot ?

> J? viu o ChatOps do Gtihub? Ent?o, ? uma ideia razoavelmente antiga que
> ganhou uma nova abordagem. Bom, nada contra o antigo, mas vamos evitar se
> transformar em "ultrapassados". ;-)
KISS continua sendo um bom e velho princ?pio.

-- 
Marco Arthur @ (M)arco Creatives

From lucasmateus.oliveira at gmail.com  Mon Apr 25 06:57:11 2016
From: lucasmateus.oliveira at gmail.com (Lucas Mateus)
Date: Mon, 25 Apr 2016 10:57:11 -0300
Subject: [SP-pm] Testando o Slack (https://brazil-pm.slack.com)
In-Reply-To: <1461591840-sup-3102@ubatuba>
References: <CAB7zAcWafUut0DE9tVt1+ErfTe1gJueg6inzpLjNmMf33Kws+w@mail.gmail.com>
	<CACE0rhqOiGM=dZKUwoz=DC38bPUbHEcECUt=Qx66aRy0KL4WNA@mail.gmail.com>
	<CAB7zAcU6dusa_q8Rccdj_XMU+=V6hMNNShkydCsnmkzo8_RPqg@mail.gmail.com>
	<1461591840-sup-3102@ubatuba>
Message-ID: <CACLgUQJ14FDe_V77J2L7e0=6AH7+d5czWz_0BQ7S0S-nTFR1Vg@mail.gmail.com>

Quero convite tbm :)

lucasmateus.oliveira at gmail.com

Em 25 de abril de 2016 10:44, Marco Silva <marco.prado.bs at gmail.com>
escreveu:

> Excerpts from Ot?vio Fernandes's message of 2016-04-12 16:26:01 +0200:
>
> > integra??es que o servi?o oferece. A ideia ? ter um lugar comum pra
> > discutir os inputs que os diversos canais v?o trazer, como ver os tickets
> > que est?o sendo criados no JIRA, TravisCI, Jenkins, Splunk Alerts, etc.
> Que tal um IRC-bot ?
>
> > J? viu o ChatOps do Gtihub? Ent?o, ? uma ideia razoavelmente antiga que
> > ganhou uma nova abordagem. Bom, nada contra o antigo, mas vamos evitar se
> > transformar em "ultrapassados". ;-)
> KISS continua sendo um bom e velho princ?pio.
>
> --
> Marco Arthur @ (M)arco Creatives
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160425/152feef7/attachment.html>

From Maryana.Tondo at deal.com.br  Tue Apr 26 06:47:02 2016
From: Maryana.Tondo at deal.com.br (Maryana Tondo Fim)
Date: Tue, 26 Apr 2016 10:47:02 -0300
Subject: [SP-pm] Vaga - Perl
Message-ID: <1A6D3848B9AACE498D77BAE78BC5E731DAFE0C6659@exchange.deal.br>


Vaga - Desenvolvedor Perl Pleno

Requisitos: Experi?ncia em desenvolvimento na linguagem Perl
Localidade: S?o Paulo (barra funda)
Skype: Maryana.fim


Principais atividades/perfil:

Atuar como desenvolvedor implementando de novas funcionalidades e manuten??o de sistemas em linguagem PERL.
Resolver problemas t?cnicos de implementa??o na linguagem PERL.


Conhecimentos t?cnico desejados:

S?lido conhecimento em linguagem de programa??o PERL

S?lido conhecimento Banco de dados SQL (Postgres/Mysql)

Desej?vel conhecimento em desenvolvimento Web (HTML , Javascript, CSS)
Desej?vel conhecimento em S.O. Linux


Regards,




[cid:image001.png at 01D19FA8.F75993A0]

 Maryana Tondo Fim
 Human Resources Analyst

   Rua Emiliano Perneta, 390 - 12? andar
   Centro - Curitiba - CEP 80420-080
   *: (041) 3015 6739
   *: (041) 9165 1362
   *:maryana.tondo at deal.com.br
   Skype: maryana.fim
   http://www.deal.com.br<http://www.deal.com.br/>

   [cid:image002.png at 01D19FA8.F75993A0] <https://www.linkedin.com/pub/maryana-tondo-fim-vagas-ti/58/852/496>



Acompanhe a Deal nas m?dias sociais:   [cid:image003.png at 01D19FA8.F75993A0] <https://www.youtube.com/user/dealgroup>   [cid:image004.png at 01D19FA8.F75993A0] <https://pt-br.facebook.com/pages/Deal-Group/116931715051951>   [cid:image005.png at 01D19FA8.F75993A0] <http://www.linkedin.com/company/deal>   [cid:image006.png at 01D19FA8.F75993A0] <https://www.linkedin.com/grp/home?gid=6800056>



[cid:image008.png at 01D19FA8.F75993A0]Antes de imprimir, pense no seu compromisso com o meio-ambiente.
(Programa de sustentabilidade e preserva??o do meio ambiente.




________________________________
* Esta mensagem, incluindo seus anexos, tem car?ter confidencial e seu conte?do ? restrito aos destinat?rios. Caso voc? tenha recebido esta mensagem por engano, queira por favor retorn?-la e apag?-la de seus arquivos. Qualquer uso n?o autorizado, replica??o ou dissemina??o desta mensagem ou parte dela ? expressamente proibido, e pass?vel de a??es e indeniza??es judiciais cab?veis. A Deal Technologies n?o se responsabiliza pelo conte?do da mensagem acima, sendo esta responsabilidade exclusiva de seu autor.

* This message (attachments included) is confidential and restricted to its recipient(s). Unauthorized use, replication or dissemination of its content are prohibited and may be liable to legal procedures and compensation. This message's author (not Deal Technologies) is solely responsible for its content.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160426/1a17709e/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image001.png
Type: image/png
Size: 9626 bytes
Desc: image001.png
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160426/1a17709e/attachment-0008.png>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image002.png
Type: image/png
Size: 6356 bytes
Desc: image002.png
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160426/1a17709e/attachment-0009.png>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image003.png
Type: image/png
Size: 1589 bytes
Desc: image003.png
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160426/1a17709e/attachment-0010.png>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image004.png
Type: image/png
Size: 1301 bytes
Desc: image004.png
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160426/1a17709e/attachment-0011.png>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image005.png
Type: image/png
Size: 1463 bytes
Desc: image005.png
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160426/1a17709e/attachment-0012.png>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image006.png
Type: image/png
Size: 2132 bytes
Desc: image006.png
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160426/1a17709e/attachment-0013.png>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image007.png
Type: image/png
Size: 4147 bytes
Desc: image007.png
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160426/1a17709e/attachment-0014.png>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image008.png
Type: image/png
Size: 1987 bytes
Desc: image008.png
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160426/1a17709e/attachment-0015.png>

From fpolonia at avenuecode.com  Wed Apr 27 14:37:14 2016
From: fpolonia at avenuecode.com (Fernanda Polonia)
Date: Wed, 27 Apr 2016 18:37:14 -0300
Subject: [SP-pm] Avenue Code | Oportunidade | Desenvolvedor Perl
Message-ID: <CADwhj3+4=Kzww+VfMGDaV1Q020bem6g5urcEW2GYuKVcbNF2qw@mail.gmail.com>

Prezados,

A Avenue Code ? uma empresa norte-americana de tecnologia, focada em
metodologias ?geis.  Com mais de 250 funcion?rios distribu?dos entre Brasil
e EUA, estamos sempre em busca de profissionais qualificados e apaixonados
pelo que fazem!  Quer motivos pra ser um Avenue Coder?

 - Fomos premiados como uma das melhoras empresas para se trabalhar (pr?mio
GPTW ? 2015)

- Oportunidade de experi?ncia internacional (S?o Francisco, Fl?rida e Nova
Iorque) - Atua??o com modernas tecnologias

- Flexibilidade de hor?rio - Desenvolvimento do ingl?s (l?ngua oficial da
empresa)

Estamos com uma oportunidade para um* Desenvolvedor Perl*, familiarizado
com LAMP, para atuar em um projeto de cliente internacional, ficando
alocado em nosso escrit?rio em Belo Horizonte.

Requisitos Necess?rios:

-  Conhecimento da tecnologia LAMP (Linux, Apache, MySQL, Perl), com ?nfase
no desenvolvimento de Perl (boas habilidades Perl s?o obrigat?rias)

- Viv?ncia com tecnologias de programa??o web, como HTML5, CSS3, AJAX,
REST, JSON

- Experi?ncia com bancos de dados relacionais (MySQL, PostgreSQL, etc)

- Experi?ncia com bancos de dados NoSQL (MongoDB, ElasticSearch, etc.)

- Familiaridade com HTML :: Mason e Mojolicious

- Experi?ncia com testes de unidade (prove, Test :: Class, integra??o
Jenkins) e integra??o cont?nua

- Disponibilidade para viagens internacionais.

- Ingl?s avan?ado para conversa??o.


Interessados favor encaminhar e-mail com o t?tulo PERL para:

fpolonia at avenuecode.com ou podem se inscrever diretamente em nosso site:


https://www.avenuecode.com/careers/belo-horizonte/desenvolvedor-php-perl


Obrigada!
*FERNANDA MOREIRA POLONIA*
HR Analyst
Analista de RH
<http://www.avenuecode.com/>
*Avenue Code* | *www.avenuecode.com* <http://www.avenuecode.com/>
*P*: BR +55 (31) 2516-1448
Skype: fpolonia.avenuecode
Rua Pernambuco 1000, 8? andar. Funcion?rios. | Belo Horizonte, MG. CEP
30130-151

     <https://www.facebook.com/avenuecode/>
<https://twitter.com/AvenueCode>
<https://www.linkedin.com/company/avenue-code>
<https://www.glassdoor.com/Reviews/Avenue-Code-Reviews-E456173.htm>
*Software innovation is a journey. We can guide you. *

This message may contain confidential and/or privileged information. If you
are not the addressee or authorized person to receive this message, you
must not use, copy, disclose or take any action based on this message or
any information herein. If you have received this message in error, please
advise the sender immediately by replying the e-mail and deleting this
message. Thank you for your cooperation. Before printing, think about your
commitment with the environment.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160427/6c384442/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: GPTW combined.png
Type: image/png
Size: 319534 bytes
Desc: not available
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160427/6c384442/attachment-0001.png>

From marilia.cruz.ti at hotmail.com  Thu Apr 28 12:31:52 2016
From: marilia.cruz.ti at hotmail.com (=?Windows-1252?B?TWFy7WxpYSBDcnV6?=)
Date: Thu, 28 Apr 2016 19:31:52 +0000
Subject: [SP-pm] VAGA
Message-ID: <COL129-W92F55F0161D92EB8EA721EBF650@phx.gbl>

Ol?, 
Gostaria de divulgar uma vaga em SP:
A Deal ? uma
das empresas que mais crescem no Brasil no segmento de Tecnologia, com atua??o
nos principais segmentos de mercado do pa?s e ajudando clientes a expandirem
seus neg?cios. 

Buscamos
profissional conforme requisitos: 

 

Desenvolvedor PERL Pleno ?
SP / Curitiba 

Principais atividades/perfil: 

Atuar como desenvolvedor
implementando de novas funcionalidades e manuten??o de sistemas em linguagem
PERL. 

Resolver problemas t?cnicos de
implementa??o na linguagem PERL. 

Implementar solu??es de banco
de dados na linguagem SQL. 

Perfil focado em execu??o; 

Conhecimentos t?cnico
desejados: 

S?lido conhecimento em
linguagem de programa??o PERL 

S?lido conhecimento Banco de
dados SQL (Postgres/Mysql) 

Desej?vel conhecimento em
desenvolvimento Web (HTML, Javascript, CSS) 

Desej?vel conhecimento em S.O.
Linux 

Forma??o 

Superior Completo em ?rea de TI
(Ci?ncia da Computa??o, An?lise de Sistemas, etc) 

 

Desej?vel 

Idioma Ingl?s B?sico 

Idioma Espanhol Intermedi?rio 

 

Diferencial 

Conhecer framework Catalyst 

 

Requisitos gerais: 

Viv?ncia em projetos ?geis; 

Foco em entrega e gera??o de
resultados; 

Mobilidade entre Curitiba e S?o
Paulo (per?odo de treinamento 1,5 m?s em Curitiba, depois deslocamento para SP)


Boa
comunica??o, Trabalho equipe, Foco em qualidade, Flu?ncia verbal e escrita,
Racioc?nio Logico, Organiza??o

 

Interessados
enviar cv para marilia.cruz at deal.com.br informando pretens?o salarial.

Skype:
marilia.paulacruz
Muito Obrigada!
Mar?lia de PaulaDeal Tecnologies 		 	   		  
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160428/8c725d81/attachment.html>

From daniel.vinciguerra at bivee.com.br  Wed May  4 06:29:27 2016
From: daniel.vinciguerra at bivee.com.br (Daniel Vinciguerra)
Date: Wed, 4 May 2016 10:29:27 -0300
Subject: [SP-pm] Qual o seu setup e sua toolbox
Message-ID: <CALPXWt9nvFsbAwVxF93On-wLpEMyO2kXKqXjM57fg+Lv5=5M5A@mail.gmail.com>

Bom dia senhores,

Estou escrevendo um artigo sobre quais as ferramentas um desenvolvedor perl
(eu no caso) utiliza e como ? configurado o ambiente para come?ar a
trabalhar e me bateu a curiosidade do que cada um de voc?s estariam
utilizando em seus trabalhos.

Acho que a maioria sabe da import?ncia do conjunto perlbrew, local::lib e
um cpanm e ack que n?o fazem mal a ningu?m tbm mas o que mais a galera esta
usando?

Grande abra?o a todos


*Daniel Vinciguerra*
Web Solutions Architect and founder at Bivee
Cel: +55 (47) 9270-6171

*ATEN??O/ATTENTION:*
Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao
uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
mensagem por engano, por favor, notifique o remetente e remova-o
imediatamente.


This e-mail contains confidential information intended only for the use of
the individual or entity named above. If you are not the intended
recipient, please notify the sender and delete it immediately.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160504/a9d15c73/attachment.html>

From renato.cron at gmail.com  Wed May  4 06:32:47 2016
From: renato.cron at gmail.com (Renato Santos)
Date: Wed, 4 May 2016 10:32:47 -0300
Subject: [SP-pm] Qual o seu setup e sua toolbox
In-Reply-To: <CALPXWt9nvFsbAwVxF93On-wLpEMyO2kXKqXjM57fg+Lv5=5M5A@mail.gmail.com>
References: <CALPXWt9nvFsbAwVxF93On-wLpEMyO2kXKqXjM57fg+Lv5=5M5A@mail.gmail.com>
Message-ID: <CABmdQ_TLf=QO+ETRwFNa8rRtkoCd1tDMcF-sb8OLA4dQ8KMPwg@mail.gmail.com>

Respondi isso j? um tempo atras:

https://www.quora.com/Full-Stack-Web-Developers-What-is-your-stack/answer/Renato-Santos-de-Souza


2016-05-04 10:29 GMT-03:00 Daniel Vinciguerra <
daniel.vinciguerra at bivee.com.br>:

>
> Bom dia senhores,
>
> Estou escrevendo um artigo sobre quais as ferramentas um desenvolvedor
> perl (eu no caso) utiliza e como ? configurado o ambiente para come?ar a
> trabalhar e me bateu a curiosidade do que cada um de voc?s estariam
> utilizando em seus trabalhos.
>
> Acho que a maioria sabe da import?ncia do conjunto perlbrew, local::lib e
> um cpanm e ack que n?o fazem mal a ningu?m tbm mas o que mais a galera esta
> usando?
>
> Grande abra?o a todos
>
>
> *Daniel Vinciguerra*
> Web Solutions Architect and founder at Bivee
> Cel: +55 (47) 9270-6171
>
> *ATEN??O/ATTENTION:*
> Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao
> uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
> mensagem por engano, por favor, notifique o remetente e remova-o
> imediatamente.
>
>
> This e-mail contains confidential information intended only for the use of
> the individual or entity named above. If you are not the intended
> recipient, please notify the sender and delete it immediately.
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
YAGNI,
Renato CRON
http://www.renatocron.com/blog/
@renato_cron <http://twitter.com/#!/renato_cron>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160504/b22c79ea/attachment.html>

From renato.cron at gmail.com  Wed May  4 06:32:47 2016
From: renato.cron at gmail.com (Renato Santos)
Date: Wed, 4 May 2016 10:32:47 -0300
Subject: [SP-pm] Qual o seu setup e sua toolbox
In-Reply-To: <CALPXWt9nvFsbAwVxF93On-wLpEMyO2kXKqXjM57fg+Lv5=5M5A@mail.gmail.com>
References: <CALPXWt9nvFsbAwVxF93On-wLpEMyO2kXKqXjM57fg+Lv5=5M5A@mail.gmail.com>
Message-ID: <CABmdQ_TLf=QO+ETRwFNa8rRtkoCd1tDMcF-sb8OLA4dQ8KMPwg@mail.gmail.com>

Respondi isso j? um tempo atras:

https://www.quora.com/Full-Stack-Web-Developers-What-is-your-stack/answer/Renato-Santos-de-Souza


2016-05-04 10:29 GMT-03:00 Daniel Vinciguerra <
daniel.vinciguerra at bivee.com.br>:

>
> Bom dia senhores,
>
> Estou escrevendo um artigo sobre quais as ferramentas um desenvolvedor
> perl (eu no caso) utiliza e como ? configurado o ambiente para come?ar a
> trabalhar e me bateu a curiosidade do que cada um de voc?s estariam
> utilizando em seus trabalhos.
>
> Acho que a maioria sabe da import?ncia do conjunto perlbrew, local::lib e
> um cpanm e ack que n?o fazem mal a ningu?m tbm mas o que mais a galera esta
> usando?
>
> Grande abra?o a todos
>
>
> *Daniel Vinciguerra*
> Web Solutions Architect and founder at Bivee
> Cel: +55 (47) 9270-6171
>
> *ATEN??O/ATTENTION:*
> Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao
> uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
> mensagem por engano, por favor, notifique o remetente e remova-o
> imediatamente.
>
>
> This e-mail contains confidential information intended only for the use of
> the individual or entity named above. If you are not the intended
> recipient, please notify the sender and delete it immediately.
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
YAGNI,
Renato CRON
http://www.renatocron.com/blog/
@renato_cron <http://twitter.com/#!/renato_cron>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160504/b22c79ea/attachment-0003.html>

From glasswalk3r at yahoo.com.br  Wed May  4 07:23:40 2016
From: glasswalk3r at yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Wed, 4 May 2016 14:23:40 +0000 (UTC)
Subject: [SP-pm] Qual o seu setup e sua toolbox
In-Reply-To: <CALPXWt9nvFsbAwVxF93On-wLpEMyO2kXKqXjM57fg+Lv5=5M5A@mail.gmail.com>
References: <CALPXWt9nvFsbAwVxF93On-wLpEMyO2kXKqXjM57fg+Lv5=5M5A@mail.gmail.com>
Message-ID: <2066798745.5982071.1462371820047.JavaMail.yahoo@mail.yahoo.com>

Dist::Zilla e v?rios m?dulos adicionais (Kwalitee e OurPkgVersion, de cabe?a).
Devel::Cover, Perl::Tidy, Perl::Critic. Eu uso o Vim, ent?o gosto do script perl-support pra ele.

Minicpan, apesar que existe a alternativa do Pinto (nome terr?vel eu sei)... mas eu nunca usei o Pinto! Hahaha

| ? |
| ? |  | ? | ? | ? | ? | ? |
| Pinto -- O Seu CPAN PersonalizadoEste ? um artigo escrito por um convidado, Jeffrey Ryan Thalhammer, autor do projetos Pintoe Perl::Critic.  |
|  |
| Visualizar em br.perlmaven.com | Visualizado por Yahoo |
|  |
| ? |



 
      De: Daniel Vinciguerra <daniel.vinciguerra at bivee.com.br>
 Para: saopaulo-pm <saopaulo-pm at pm.org> 
 Enviadas: Quarta-feira, 4 de Maio de 2016 10:29
 Assunto: [SP-pm] Qual o seu setup e sua toolbox
   

Bom dia senhores,

Estou escrevendo um artigo sobre quais as ferramentas um desenvolvedor perl (eu no caso) utiliza e como ? configurado o ambiente para come?ar a trabalhar e me bateu a curiosidade do que cada um de voc?s estariam utilizando em seus trabalhos.

Acho que a maioria sabe da import?ncia do conjunto perlbrew, local::lib e um cpanm e ack que n?o fazem mal a ningu?m tbm mas o que mais a galera esta usando?

Grande abra?o a todos


|  
  |  Daniel Vinciguerra
 Web Solutions Architect and founder at Bivee
 Cel: +55 (47) 9270-6171  |
|  |  |
| 
 |
|  ATEN??O/ATTENTION: 
 Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta mensagem por engano, por favor, notifique o remetente e remova-o imediatamente.  
 This e-mail contains confidential information intended only for the use of the individual or entity named above. If you are not the intended recipient, please notify the sender and delete it immediately.  |


=begin disclaimer
? Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
 L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer


   
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160504/cb97a309/attachment.html>

From daniel.vinciguerra at bivee.com.br  Wed May  4 07:56:29 2016
From: daniel.vinciguerra at bivee.com.br (Daniel Vinciguerra)
Date: Wed, 4 May 2016 11:56:29 -0300
Subject: [SP-pm] Qual o seu setup e sua toolbox
In-Reply-To: <2066798745.5982071.1462371820047.JavaMail.yahoo@mail.yahoo.com>
References: <CALPXWt9nvFsbAwVxF93On-wLpEMyO2kXKqXjM57fg+Lv5=5M5A@mail.gmail.com>
	<2066798745.5982071.1462371820047.JavaMail.yahoo@mail.yahoo.com>
Message-ID: <CALPXWt9zhHFCdtv2Bhaj6gW+2Bd8ET3-twQnuCNRQgeKJF9KKg@mail.gmail.com>

Massa o n?vel de detalhes Cron... nem precisava tanto (mas valeu a
referencia)

Alceu,
Ja ouvi muito falar no Pinto e dizem que ele ? muito bom mas nunca usei
tamb?m! hahaha

Uso o vim tamb?m mas nunca usei nem metade do perl-support acho que vou
criar um fork light dele rs

Abs :)




*Daniel Vinciguerra*
Web Solutions Architect and founder at Bivee
Cel: +55 (47) 9270-6171

*ATEN??O/ATTENTION:*
Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao
uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
mensagem por engano, por favor, notifique o remetente e remova-o
imediatamente.


This e-mail contains confidential information intended only for the use of
the individual or entity named above. If you are not the intended
recipient, please notify the sender and delete it immediately.

2016-05-04 11:23 GMT-03:00 Alceu R. de Freitas Jr. <glasswalk3r at yahoo.com.br
>:

> Dist::Zilla e v?rios m?dulos adicionais (Kwalitee e OurPkgVersion, de
> cabe?a).
>
> Devel::Cover, Perl::Tidy, Perl::Critic. Eu uso o Vim, ent?o gosto do
> script perl-support pra ele.
>
> Minicpan, apesar que existe a alternativa do Pinto
> <http://br.perlmaven.com/tutorial-pinto>(nome terr?vel eu sei)... mas eu
> nunca usei o Pinto! Hahaha
>
>
> [image: image] <http://br.perlmaven.com/tutorial-pinto>
>
>
>
>
>
> Pinto -- O Seu CPAN Personalizado <http://br.perlmaven.com/tutorial-pinto>
> Este ? um artigo escrito por um convidado, Jeffrey Ryan Thalhammer, autor
> do projetos Pinto e Perl::Critic.
> Visualizar em br.perlmaven.com <http://br.perlmaven.com/tutorial-pinto>
> Visualizado por Yahoo
>
>
>
> ------------------------------
> *De:* Daniel Vinciguerra <daniel.vinciguerra at bivee.com.br>
> *Para:* saopaulo-pm <saopaulo-pm at pm.org>
> *Enviadas:* Quarta-feira, 4 de Maio de 2016 10:29
> *Assunto:* [SP-pm] Qual o seu setup e sua toolbox
>
>
> Bom dia senhores,
>
> Estou escrevendo um artigo sobre quais as ferramentas um desenvolvedor
> perl (eu no caso) utiliza e como ? configurado o ambiente para come?ar a
> trabalhar e me bateu a curiosidade do que cada um de voc?s estariam
> utilizando em seus trabalhos.
>
> Acho que a maioria sabe da import?ncia do conjunto perlbrew, local::lib e
> um cpanm e ack que n?o fazem mal a ningu?m tbm mas o que mais a galera esta
> usando?
>
> Grande abra?o a todos
>
>
> *Daniel Vinciguerra*
> Web Solutions Architect and founder at Bivee
> Cel: +55 (47) 9270-6171
>
> *ATEN??O/ATTENTION:*
> Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao
> uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
> mensagem por engano, por favor, notifique o remetente e remova-o
> imediatamente.
>
> This e-mail contains confidential information intended only for the use of
> the individual or entity named above. If you are not the intended
> recipient, please notify the sender and delete it immediately.
>
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160504/02d9bc5e/attachment-0001.html>

From jimmy.tty at gmail.com  Wed May  4 11:12:38 2016
From: jimmy.tty at gmail.com (Ronaldo Ferreira de Lima)
Date: Wed, 4 May 2016 15:12:38 -0300
Subject: [SP-pm] Qual o seu setup e sua toolbox
In-Reply-To: <CALPXWt9nvFsbAwVxF93On-wLpEMyO2kXKqXjM57fg+Lv5=5M5A@mail.gmail.com>
References: <CALPXWt9nvFsbAwVxF93On-wLpEMyO2kXKqXjM57fg+Lv5=5M5A@mail.gmail.com>
Message-ID: <20160504181237.GB1536@textmode>

On Wed, May 04, 2016 at 10:29:27AM -0300, Daniel Vinciguerra wrote:
> Bom dia senhores,
>
> Estou escrevendo um artigo sobre quais as ferramentas um desenvolvedor
> perl (eu no caso) utiliza e como ? configurado o ambiente para come?ar
> a trabalhar e me bateu a curiosidade  do que cada um de voc?s estariam
> utilizando em seus trabalhos.
>
> Acho  que  a  maioria  sabe   da  import?ncia  do  conjunto  perlbrew,
> local::lib e um cpanm e ack que n?o  fazem mal a ningu?m tbm mas o que
> mais a galera esta usando?
Eu adicionaria apenas o Dist::Zilla nesta lista que voc? apresentou. Mas
n?o d? para comparar com a descri??o do Renato Santos.

--
"N?o manejo bem as palavras
Mas manipulo bem as strings."
------------------------------
http://perspicazsite.wordpress.com

From lucasmateus.oliveira at gmail.com  Wed May  4 15:08:01 2016
From: lucasmateus.oliveira at gmail.com (Lucas Mateus)
Date: Wed, 4 May 2016 19:08:01 -0300
Subject: [SP-pm] Qual o seu setup e sua toolbox
In-Reply-To: <20160504181237.GB1536@textmode>
References: <CALPXWt9nvFsbAwVxF93On-wLpEMyO2kXKqXjM57fg+Lv5=5M5A@mail.gmail.com>
	<20160504181237.GB1536@textmode>
Message-ID: <CACLgUQLmUyDRphknJkVkYuu8p4EU-SDXN0NRU16+A=-X9LaZnQ@mail.gmail.com>

*Frameworks / Engines / Libs*
- Catalyst
- DBIx::Class (com components)
- Text::Xslate (templates)
- Starman
- App::Prove::Plugin::HTML (tests report)
- App::githook_perltidy (git hook perltidy)
- Critic (severity 3, severity 5 com Catalyst)
- HTTP::Request::Common (test api)

*DataBase:*
- MySQL 5.7.12
- Oracle
- SQLite (dev)

*Editor:*
- Sublime 3

*Versionamento:*
- Gitlab com CI
- Stepup (versionameto da APP)

*Cache:*
- Redis (em breve ser? substituido pelo MySQL com suporte a NoSQL)
- File (dev)

*Search Engine:*
- Sphinx

*Chat:*
- Socket.IO

*Cloud:*
- Digital Ocean

*Email:*
- Postfix
- Dovecot
- OpenDKIM
- CSS::Inliner
- Foundation for Email (framework css)

*Auth:*
- OpenLDAP

*WebServer:*
- Nginx com suporte http2
- SSL (free com startssl.com)

*Doc API:*
- Swagger (swagger.io)

*Front:*
- Angular (parte logada apenas)
- Foundation For Sites (framework css)
- Font Awesome Framework Icons
- Jquery e plugins
- SCSS

*Backup:*
- S3 (s3cmd)

*Security:*
- fail2ban
- ssh somente com key e root desabilitado
- iptables que eu mesmo fa?o
- ssh tunnel para alguns testes

*OS:*
- CentOS 6.x / 7.x

Em 4 de maio de 2016 15:12, Ronaldo Ferreira de Lima <jimmy.tty at gmail.com>
escreveu:

> On Wed, May 04, 2016 at 10:29:27AM -0300, Daniel Vinciguerra wrote:
> > Bom dia senhores,
> >
> > Estou escrevendo um artigo sobre quais as ferramentas um desenvolvedor
> > perl (eu no caso) utiliza e como ? configurado o ambiente para come?ar
> > a trabalhar e me bateu a curiosidade  do que cada um de voc?s estariam
> > utilizando em seus trabalhos.
> >
> > Acho  que  a  maioria  sabe   da  import?ncia  do  conjunto  perlbrew,
> > local::lib e um cpanm e ack que n?o  fazem mal a ningu?m tbm mas o que
> > mais a galera esta usando?
> Eu adicionaria apenas o Dist::Zilla nesta lista que voc? apresentou. Mas
> n?o d? para comparar com a descri??o do Renato Santos.
>
> --
> "N?o manejo bem as palavras
> Mas manipulo bem as strings."
> ------------------------------
> http://perspicazsite.wordpress.com
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160504/8641b79d/attachment.html>

From fernandocorrea at gmail.com  Sat May  7 13:07:48 2016
From: fernandocorrea at gmail.com (Fernando Oliveira)
Date: Sat, 7 May 2016 13:07:48 -0700
Subject: [SP-pm] Qual o seu setup e sua toolbox
In-Reply-To: <CACLgUQLmUyDRphknJkVkYuu8p4EU-SDXN0NRU16+A=-X9LaZnQ@mail.gmail.com>
References: <CACLgUQLmUyDRphknJkVkYuu8p4EU-SDXN0NRU16+A=-X9LaZnQ@mail.gmail.com>
Message-ID: <CAGbBoQTEH8E0LWqg-kV2DW8MDyssSYdz5HTRNtJcFvVbn1BFpg@mail.gmail.com>

Eu tenho usado muito o carton dentro de um container docker

-- 
Fernando Oliveira

Em 4 de maio de 2016 ?s 19:08:01, Lucas Mateus (
lucasmateus.oliveira at gmail.com) escreveu:

> *Frameworks / Engines / Libs*
> - Catalyst
> - DBIx::Class (com components)
> - Text::Xslate (templates)
> - Starman
> - App::Prove::Plugin::HTML (tests report)
> - App::githook_perltidy (git hook perltidy)
> - Critic (severity 3, severity 5 com Catalyst)
> - HTTP::Request::Common (test api)
>
> *DataBase:*
> - MySQL 5.7.12
> - Oracle
> - SQLite (dev)
>
> *Editor:*
> - Sublime 3
>
> *Versionamento:*
> - Gitlab com CI
> - Stepup (versionameto da APP)
>
> *Cache:*
> - Redis (em breve ser? substituido pelo MySQL com suporte a NoSQL)
> - File (dev)
>
> *Search Engine:*
> - Sphinx
>
> *Chat:*
> - Socket.IO
>
> *Cloud:*
> - Digital Ocean
>
> *Email:*
> - Postfix
> - Dovecot
> - OpenDKIM
> - CSS::Inliner
> - Foundation for Email (framework css)
>
> *Auth:*
> - OpenLDAP
>
> *WebServer:*
> - Nginx com suporte http2
> - SSL (free com startssl.com)
>
> *Doc API:*
> - Swagger (swagger.io)
>
> *Front:*
> - Angular (parte logada apenas)
> - Foundation For Sites (framework css)
> - Font Awesome Framework Icons
> - Jquery e plugins
> - SCSS
>
> *Backup:*
> - S3 (s3cmd)
>
> *Security:*
> - fail2ban
> - ssh somente com key e root desabilitado
> - iptables que eu mesmo fa?o
> - ssh tunnel para alguns testes
>
> *OS:*
> - CentOS 6.x / 7.x
>
> Em 4 de maio de 2016 15:12, Ronaldo Ferreira de Lima <jimmy.tty at gmail.com>
> escreveu:
>
>> On Wed, May 04, 2016 at 10:29:27AM -0300, Daniel Vinciguerra wrote:
>> > Bom dia senhores,
>> >
>> > Estou escrevendo um artigo sobre quais as ferramentas um desenvolvedor
>> > perl (eu no caso) utiliza e como ? configurado o ambiente para come?ar
>> > a trabalhar e me bateu a curiosidade  do que cada um de voc?s estariam
>> > utilizando em seus trabalhos.
>> >
>> > Acho  que  a  maioria  sabe   da  import?ncia  do  conjunto  perlbrew,
>> > local::lib e um cpanm e ack que n?o  fazem mal a ningu?m tbm mas o que
>> > mais a galera esta usando?
>> Eu adicionaria apenas o Dist::Zilla nesta lista que voc? apresentou. Mas
>> n?o d? para comparar com a descri??o do Renato Santos.
>>
>> --
>> "N?o manejo bem as palavras
>> Mas manipulo bem as strings."
>> ------------------------------
>> http://perspicazsite.wordpress.com
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>
> =begin disclaimer
> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160507/c34bca8a/attachment.html>

From daniel.oliveira.mantovani at gmail.com  Sat May  7 14:34:35 2016
From: daniel.oliveira.mantovani at gmail.com (Daniel de Oliveira Mantovani)
Date: Sat, 7 May 2016 18:34:35 -0300
Subject: [SP-pm] Qual o seu setup e sua toolbox
In-Reply-To: <CAGbBoQTEH8E0LWqg-kV2DW8MDyssSYdz5HTRNtJcFvVbn1BFpg@mail.gmail.com>
References: <CACLgUQLmUyDRphknJkVkYuu8p4EU-SDXN0NRU16+A=-X9LaZnQ@mail.gmail.com>
	<CAGbBoQTEH8E0LWqg-kV2DW8MDyssSYdz5HTRNtJcFvVbn1BFpg@mail.gmail.com>
Message-ID: <CAEmYuOtoxr6wfFM8yV2cz3iPXym-Lur2Bt7RekB9TLyXWSov7Q@mail.gmail.com>

Que eu lembre nos ?ltimos meses foi isso:

*Web Backend*
Catalyst
Play Framework(Scala)
Snap(Haskell)


*Identity Resolution*Big Match/MDM AD/Identity Insights

*RDBMS*
Postgres
DB2
Oracle

*MPP*
Hbase
SparkSQL
BigSQL
DB2

*Index Engine*
Solr
PostgreSQL

*OS*
RHEL
AIX
SunOS


*High Availability Storage*HDFS
GPFS


*Build Tool*SBT/G8 (Scala)
Module::Install/ExtUtils::MakeMaker()
The Haskell Tool Stack(Haskell)

*Middleware*
ActiveMQ
ZeroMQ
RabbitMQ
Kafta

*Auth*
OpenLDAP


*Text Editor*Vim

*SQL Query Tool*
RazorSQL

*OS Object Code Decompiler*
Hopper


*Java Decompiler*JD

2016-05-07 17:07 GMT-03:00 Fernando Oliveira <fernandocorrea at gmail.com>:

> Eu tenho usado muito o carton dentro de um container docker
>
> --
> Fernando Oliveira
>
> Em 4 de maio de 2016 ?s 19:08:01, Lucas Mateus (
> lucasmateus.oliveira at gmail.com) escreveu:
>
>> *Frameworks / Engines / Libs*
>> - Catalyst
>> - DBIx::Class (com components)
>> - Text::Xslate (templates)
>> - Starman
>> - App::Prove::Plugin::HTML (tests report)
>> - App::githook_perltidy (git hook perltidy)
>> - Critic (severity 3, severity 5 com Catalyst)
>> - HTTP::Request::Common (test api)
>>
>> *DataBase:*
>> - MySQL 5.7.12
>> - Oracle
>> - SQLite (dev)
>>
>> *Editor:*
>> - Sublime 3
>>
>> *Versionamento:*
>> - Gitlab com CI
>> - Stepup (versionameto da APP)
>>
>> *Cache:*
>> - Redis (em breve ser? substituido pelo MySQL com suporte a NoSQL)
>> - File (dev)
>>
>> *Search Engine:*
>> - Sphinx
>>
>> *Chat:*
>> - Socket.IO
>>
>> *Cloud:*
>> - Digital Ocean
>>
>> *Email:*
>> - Postfix
>> - Dovecot
>> - OpenDKIM
>> - CSS::Inliner
>> - Foundation for Email (framework css)
>>
>> *Auth:*
>> - OpenLDAP
>>
>> *WebServer:*
>> - Nginx com suporte http2
>> - SSL (free com startssl.com)
>>
>> *Doc API:*
>> - Swagger (swagger.io)
>>
>> *Front:*
>> - Angular (parte logada apenas)
>> - Foundation For Sites (framework css)
>> - Font Awesome Framework Icons
>> - Jquery e plugins
>> - SCSS
>>
>> *Backup:*
>> - S3 (s3cmd)
>>
>> *Security:*
>> - fail2ban
>> - ssh somente com key e root desabilitado
>> - iptables que eu mesmo fa?o
>> - ssh tunnel para alguns testes
>>
>> *OS:*
>> - CentOS 6.x / 7.x
>>
>> Em 4 de maio de 2016 15:12, Ronaldo Ferreira de Lima <jimmy.tty at gmail.com
>> > escreveu:
>>
>>> On Wed, May 04, 2016 at 10:29:27AM -0300, Daniel Vinciguerra wrote:
>>> > Bom dia senhores,
>>> >
>>> > Estou escrevendo um artigo sobre quais as ferramentas um desenvolvedor
>>> > perl (eu no caso) utiliza e como ? configurado o ambiente para come?ar
>>> > a trabalhar e me bateu a curiosidade  do que cada um de voc?s estariam
>>> > utilizando em seus trabalhos.
>>> >
>>> > Acho  que  a  maioria  sabe   da  import?ncia  do  conjunto  perlbrew,
>>> > local::lib e um cpanm e ack que n?o  fazem mal a ningu?m tbm mas o que
>>> > mais a galera esta usando?
>>> Eu adicionaria apenas o Dist::Zilla nesta lista que voc? apresentou. Mas
>>> n?o d? para comparar com a descri??o do Renato Santos.
>>>
>>> --
>>> "N?o manejo bem as palavras
>>> Mas manipulo bem as strings."
>>> ------------------------------
>>> http://perspicazsite.wordpress.com
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>
>> =begin disclaimer
>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Thank you very much!

-dom

--

Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist.
+55 11 9 8538-9897
XOXO
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160507/ec94ce62/attachment.html>

From andregarciacarneiro at gmail.com  Mon May  9 13:01:13 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Mon, 9 May 2016 17:01:13 -0300
Subject: [SP-pm] Qual o seu setup e sua toolbox
In-Reply-To: <CAEmYuOtoxr6wfFM8yV2cz3iPXym-Lur2Bt7RekB9TLyXWSov7Q@mail.gmail.com>
References: <CACLgUQLmUyDRphknJkVkYuu8p4EU-SDXN0NRU16+A=-X9LaZnQ@mail.gmail.com>
	<CAGbBoQTEH8E0LWqg-kV2DW8MDyssSYdz5HTRNtJcFvVbn1BFpg@mail.gmail.com>
	<CAEmYuOtoxr6wfFM8yV2cz3iPXym-Lur2Bt7RekB9TLyXWSov7Q@mail.gmail.com>
Message-ID: <CABoU2P3wmj_0d6YvpKd+wqLkPUo+pkLzxgg7Y2YhChEspcOgFQ@mail.gmail.com>

*Web backend*
Perl Catalyst
Python Django

*DB*
Cassandra
Postgres

*Middleware*
Redis
RabbitMQ
Memcached

*Indexers*
Elasticsearch
Solr

*Cache control*
Varnish

*Builders*
DistZilla

*Control version*
git





2016-05-07 18:34 GMT-03:00 Daniel de Oliveira Mantovani <
daniel.oliveira.mantovani at gmail.com>:

> Que eu lembre nos ?ltimos meses foi isso:
>
> *Web Backend*
> Catalyst
> Play Framework(Scala)
> Snap(Haskell)
>
>
> *Identity Resolution*Big Match/MDM AD/Identity Insights
>
> *RDBMS*
> Postgres
> DB2
> Oracle
>
> *MPP*
> Hbase
> SparkSQL
> BigSQL
> DB2
>
> *Index Engine*
> Solr
> PostgreSQL
>
> *OS*
> RHEL
> AIX
> SunOS
>
>
> *High Availability Storage*HDFS
> GPFS
>
>
> *Build Tool*SBT/G8 (Scala)
> Module::Install/ExtUtils::MakeMaker()
> The Haskell Tool Stack(Haskell)
>
> *Middleware*
> ActiveMQ
> ZeroMQ
> RabbitMQ
> Kafta
>
> *Auth*
> OpenLDAP
>
>
> *Text Editor*Vim
>
> *SQL Query Tool*
> RazorSQL
>
> *OS Object Code Decompiler*
> Hopper
>
>
> *Java Decompiler*JD
>
> 2016-05-07 17:07 GMT-03:00 Fernando Oliveira <fernandocorrea at gmail.com>:
>
>> Eu tenho usado muito o carton dentro de um container docker
>>
>> --
>> Fernando Oliveira
>>
>> Em 4 de maio de 2016 ?s 19:08:01, Lucas Mateus (
>> lucasmateus.oliveira at gmail.com) escreveu:
>>
>>> *Frameworks / Engines / Libs*
>>> - Catalyst
>>> - DBIx::Class (com components)
>>> - Text::Xslate (templates)
>>> - Starman
>>> - App::Prove::Plugin::HTML (tests report)
>>> - App::githook_perltidy (git hook perltidy)
>>> - Critic (severity 3, severity 5 com Catalyst)
>>> - HTTP::Request::Common (test api)
>>>
>>> *DataBase:*
>>> - MySQL 5.7.12
>>> - Oracle
>>> - SQLite (dev)
>>>
>>> *Editor:*
>>> - Sublime 3
>>>
>>> *Versionamento:*
>>> - Gitlab com CI
>>> - Stepup (versionameto da APP)
>>>
>>> *Cache:*
>>> - Redis (em breve ser? substituido pelo MySQL com suporte a NoSQL)
>>> - File (dev)
>>>
>>> *Search Engine:*
>>> - Sphinx
>>>
>>> *Chat:*
>>> - Socket.IO
>>>
>>> *Cloud:*
>>> - Digital Ocean
>>>
>>> *Email:*
>>> - Postfix
>>> - Dovecot
>>> - OpenDKIM
>>> - CSS::Inliner
>>> - Foundation for Email (framework css)
>>>
>>> *Auth:*
>>> - OpenLDAP
>>>
>>> *WebServer:*
>>> - Nginx com suporte http2
>>> - SSL (free com startssl.com)
>>>
>>> *Doc API:*
>>> - Swagger (swagger.io)
>>>
>>> *Front:*
>>> - Angular (parte logada apenas)
>>> - Foundation For Sites (framework css)
>>> - Font Awesome Framework Icons
>>> - Jquery e plugins
>>> - SCSS
>>>
>>> *Backup:*
>>> - S3 (s3cmd)
>>>
>>> *Security:*
>>> - fail2ban
>>> - ssh somente com key e root desabilitado
>>> - iptables que eu mesmo fa?o
>>> - ssh tunnel para alguns testes
>>>
>>> *OS:*
>>> - CentOS 6.x / 7.x
>>>
>>> Em 4 de maio de 2016 15:12, Ronaldo Ferreira de Lima <
>>> jimmy.tty at gmail.com> escreveu:
>>>
>>>> On Wed, May 04, 2016 at 10:29:27AM -0300, Daniel Vinciguerra wrote:
>>>> > Bom dia senhores,
>>>> >
>>>> > Estou escrevendo um artigo sobre quais as ferramentas um desenvolvedor
>>>> > perl (eu no caso) utiliza e como ? configurado o ambiente para come?ar
>>>> > a trabalhar e me bateu a curiosidade  do que cada um de voc?s estariam
>>>> > utilizando em seus trabalhos.
>>>> >
>>>> > Acho  que  a  maioria  sabe   da  import?ncia  do  conjunto  perlbrew,
>>>> > local::lib e um cpanm e ack que n?o  fazem mal a ningu?m tbm mas o que
>>>> > mais a galera esta usando?
>>>> Eu adicionaria apenas o Dist::Zilla nesta lista que voc? apresentou. Mas
>>>> n?o d? para comparar com a descri??o do Renato Santos.
>>>>
>>>> --
>>>> "N?o manejo bem as palavras
>>>> Mas manipulo bem as strings."
>>>> ------------------------------
>>>> http://perspicazsite.wordpress.com
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>
>>> =begin disclaimer
>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Thank you very much!
>
> -dom
>
> --
>
> Daniel de Oliveira Mantovani
> Business Analytic Specialist
> Perl Evangelist /Astrophysics hobbyist.
> +55 11 9 8538-9897
> XOXO
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160509/19a75fdf/attachment.html>

From fernandocorrea at gmail.com  Tue May 10 05:19:18 2016
From: fernandocorrea at gmail.com (Fernando Oliveira)
Date: Tue, 10 May 2016 05:19:18 -0700
Subject: [SP-pm] Qual o seu setup e sua toolbox
In-Reply-To: <CABoU2P3wmj_0d6YvpKd+wqLkPUo+pkLzxgg7Y2YhChEspcOgFQ@mail.gmail.com>
References: <CABoU2P3wmj_0d6YvpKd+wqLkPUo+pkLzxgg7Y2YhChEspcOgFQ@mail.gmail.com>
Message-ID: <CAGbBoQTT_teEEG6TWwB4a9weq3v_dC0H9XvfU_Jugp2sycBXuQ@mail.gmail.com>

Mojolicious
Restify
Vert.x + webapp

Postgres
Cassandra
Mongodb

Redis
Memcache
Hazelcast

Tokyo cabinet

Carton
Gulp

Git

-- 
Fernando Oliveira

Em 9 de maio de 2016 ?s 17:01:13, Andre Carneiro (
andregarciacarneiro at gmail.com) escreveu:

> *Web backend*
> Perl Catalyst
> Python Django
>
> *DB*
> Cassandra
> Postgres
>
> *Middleware*
> Redis
> RabbitMQ
> Memcached
>
> *Indexers*
> Elasticsearch
> Solr
>
> *Cache control*
> Varnish
>
> *Builders*
> DistZilla
>
> *Control version*
> git
>
>
>
>
>
> 2016-05-07 18:34 GMT-03:00 Daniel de Oliveira Mantovani <
> daniel.oliveira.mantovani at gmail.com>:
>
>> Que eu lembre nos ?ltimos meses foi isso:
>>
>> *Web Backend*
>> Catalyst
>> Play Framework(Scala)
>> Snap(Haskell)
>>
>>
>> *Identity Resolution*Big Match/MDM AD/Identity Insights
>>
>> *RDBMS*
>> Postgres
>> DB2
>> Oracle
>>
>> *MPP*
>> Hbase
>> SparkSQL
>> BigSQL
>> DB2
>>
>> *Index Engine*
>> Solr
>> PostgreSQL
>>
>> *OS*
>> RHEL
>> AIX
>> SunOS
>>
>>
>> *High Availability Storage*HDFS
>> GPFS
>>
>>
>> *Build Tool*SBT/G8 (Scala)
>> Module::Install/ExtUtils::MakeMaker()
>> The Haskell Tool Stack(Haskell)
>>
>> *Middleware*
>> ActiveMQ
>> ZeroMQ
>> RabbitMQ
>> Kafta
>>
>> *Auth*
>> OpenLDAP
>>
>>
>> *Text Editor*Vim
>>
>> *SQL Query Tool*
>> RazorSQL
>>
>> *OS Object Code Decompiler*
>> Hopper
>>
>>
>> *Java Decompiler*JD
>>
>> 2016-05-07 17:07 GMT-03:00 Fernando Oliveira <fernandocorrea at gmail.com>:
>>
>>> Eu tenho usado muito o carton dentro de um container docker
>>>
>>> --
>>> Fernando Oliveira
>>>
>>> Em 4 de maio de 2016 ?s 19:08:01, Lucas Mateus (
>>> lucasmateus.oliveira at gmail.com) escreveu:
>>>
>>>> *Frameworks / Engines / Libs*
>>>> - Catalyst
>>>> - DBIx::Class (com components)
>>>> - Text::Xslate (templates)
>>>> - Starman
>>>> - App::Prove::Plugin::HTML (tests report)
>>>> - App::githook_perltidy (git hook perltidy)
>>>> - Critic (severity 3, severity 5 com Catalyst)
>>>> - HTTP::Request::Common (test api)
>>>>
>>>> *DataBase:*
>>>> - MySQL 5.7.12
>>>> - Oracle
>>>> - SQLite (dev)
>>>>
>>>> *Editor:*
>>>> - Sublime 3
>>>>
>>>> *Versionamento:*
>>>> - Gitlab com CI
>>>> - Stepup (versionameto da APP)
>>>>
>>>> *Cache:*
>>>> - Redis (em breve ser? substituido pelo MySQL com suporte a NoSQL)
>>>> - File (dev)
>>>>
>>>> *Search Engine:*
>>>> - Sphinx
>>>>
>>>> *Chat:*
>>>> - Socket.IO
>>>>
>>>> *Cloud:*
>>>> - Digital Ocean
>>>>
>>>> *Email:*
>>>> - Postfix
>>>> - Dovecot
>>>> - OpenDKIM
>>>> - CSS::Inliner
>>>> - Foundation for Email (framework css)
>>>>
>>>> *Auth:*
>>>> - OpenLDAP
>>>>
>>>> *WebServer:*
>>>> - Nginx com suporte http2
>>>> - SSL (free com startssl.com)
>>>>
>>>> *Doc API:*
>>>> - Swagger (swagger.io)
>>>>
>>>> *Front:*
>>>> - Angular (parte logada apenas)
>>>> - Foundation For Sites (framework css)
>>>> - Font Awesome Framework Icons
>>>> - Jquery e plugins
>>>> - SCSS
>>>>
>>>> *Backup:*
>>>> - S3 (s3cmd)
>>>>
>>>> *Security:*
>>>> - fail2ban
>>>> - ssh somente com key e root desabilitado
>>>> - iptables que eu mesmo fa?o
>>>> - ssh tunnel para alguns testes
>>>>
>>>> *OS:*
>>>> - CentOS 6.x / 7.x
>>>>
>>>> Em 4 de maio de 2016 15:12, Ronaldo Ferreira de Lima <
>>>> jimmy.tty at gmail.com> escreveu:
>>>>
>>>>> On Wed, May 04, 2016 at 10:29:27AM -0300, Daniel Vinciguerra wrote:
>>>>> > Bom dia senhores,
>>>>> >
>>>>> > Estou escrevendo um artigo sobre quais as ferramentas um
>>>>> desenvolvedor
>>>>> > perl (eu no caso) utiliza e como ? configurado o ambiente para
>>>>> come?ar
>>>>> > a trabalhar e me bateu a curiosidade  do que cada um de voc?s
>>>>> estariam
>>>>> > utilizando em seus trabalhos.
>>>>> >
>>>>> > Acho  que  a  maioria  sabe   da  import?ncia  do  conjunto
>>>>> perlbrew,
>>>>> > local::lib e um cpanm e ack que n?o  fazem mal a ningu?m tbm mas o
>>>>> que
>>>>> > mais a galera esta usando?
>>>>> Eu adicionaria apenas o Dist::Zilla nesta lista que voc? apresentou.
>>>>> Mas
>>>>> n?o d? para comparar com a descri??o do Renato Santos.
>>>>>
>>>>> --
>>>>> "N?o manejo bem as palavras
>>>>> Mas manipulo bem as strings."
>>>>> ------------------------------
>>>>> http://perspicazsite.wordpress.com
>>>>> =begin disclaimer
>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> =end disclaimer
>>>>>
>>>>
>>>> =begin disclaimer
>>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> Thank you very much!
>>
>> -dom
>>
>> --
>>
>> Daniel de Oliveira Mantovani
>> Business Analytic Specialist
>> Perl Evangelist /Astrophysics hobbyist.
>> +55 11 9 8538-9897 <+55%2011%209%208538-9897>
>> XOXO
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
> =begin disclaimer
> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160510/b4be3c42/attachment-0001.html>

From ricardostock at bol.com.br  Fri Jun  3 08:28:43 2016
From: ricardostock at bol.com.br (Ricardo Stock)
Date: Fri, 3 Jun 2016 12:28:43 -0300
Subject: [SP-pm] NFe
Message-ID: <652572568290446082EC5B6D4D0038BB@RicardoPC>

    Galera bom dia

    Estou come?ando agora o projeto de nfe, sei que muitos ja passaram por isso. alguem poderia dar o caminho das pedras.

    Obrigado


Ricardo Stock
ricardo at stocksistemas.com.br
www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160603/de3b0424/attachment.html>
-------------- Pr?xima Parte ----------
Um anexo n?o-texto foi limpo...
Nome: Ricardo.vcf
Tipo: text/x-vcard
Tamanho: 159 bytes
Descri??o: n?o dispon?vel
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160603/de3b0424/attachment.vcf>

From renato.cron at gmail.com  Fri Jun  3 09:16:26 2016
From: renato.cron at gmail.com (Renato Santos)
Date: Fri, 3 Jun 2016 13:16:26 -0300
Subject: [SP-pm] NFe
In-Reply-To: <652572568290446082EC5B6D4D0038BB@RicardoPC>
References: <652572568290446082EC5B6D4D0038BB@RicardoPC>
Message-ID: <CABmdQ_STKi2qxUvQpc1t0Hsfmakfz=9ZPv=dQCAfq7NqPV8o_Q@mail.gmail.com>

Minha sugest?o ?, se o volume for pequeno, v? diretamente para o
https://nfe.io/ pois o custo de manter/desenvolver uma n?o se paga
rapidamente.


2016-06-03 12:28 GMT-03:00 Ricardo Stock <ricardostock at bol.com.br>:

>     Galera bom dia
>
>     Estou come?ando agora o projeto de nfe, sei que muitos ja passaram por
> isso. alguem poderia dar o caminho das pedras.
>
>     Obrigado
>
>
> Ricardo Stock
> ricardo at stocksistemas.com.br
> www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
YAGNI,
Renato CRON
http://www.renatocron.com/blog/
@renato_cron <http://twitter.com/#!/renato_cron>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160603/52b75398/attachment.html>

From daniel.oliveira.mantovani at gmail.com  Fri Jun  3 09:32:27 2016
From: daniel.oliveira.mantovani at gmail.com (Daniel de Oliveira Mantovani)
Date: Fri, 3 Jun 2016 12:32:27 -0400
Subject: [SP-pm] NFe
In-Reply-To: <CABmdQ_STKi2qxUvQpc1t0Hsfmakfz=9ZPv=dQCAfq7NqPV8o_Q@mail.gmail.com>
References: <652572568290446082EC5B6D4D0038BB@RicardoPC>
	<CABmdQ_STKi2qxUvQpc1t0Hsfmakfz=9ZPv=dQCAfq7NqPV8o_Q@mail.gmail.com>
Message-ID: <CAEmYuOsZDGYtts7y4mCu2MzP9hJKUhmLFf9LuXWC+OgF=LgF0w@mail.gmail.com>

Est? tudo documentado no site da receita federal,

https://www.fazenda.sp.gov.br/nfe/url_webservices/url_webservices.asp

Voc? pode testar as chamadas manualmente usando o soapui,
https://www.soapui.org/soap-and-wsdl/working-with-wsdls.html

Para implementar em Perl eu recomendo as seguintes leituras:
http://shop.oreilly.com/product/9780596004200.do
http://www.w3schools.com/xml/xml_wsdl.asp
https://metacpan.org/pod/XML::Compile::WSDL11#Extension
http://www.ebi.ac.uk/Tools/webservices/tutorials/06_programming/perl/soap/xml-compile-soap




2016-06-03 12:16 GMT-04:00 Renato Santos <renato.cron at gmail.com>:

> Minha sugest?o ?, se o volume for pequeno, v? diretamente para o
> https://nfe.io/ pois o custo de manter/desenvolver uma n?o se paga
> rapidamente.
>
>
> 2016-06-03 12:28 GMT-03:00 Ricardo Stock <ricardostock at bol.com.br>:
>
>>     Galera bom dia
>>
>>     Estou come?ando agora o projeto de nfe, sei que muitos ja passaram
>> por isso. alguem poderia dar o caminho das pedras.
>>
>>     Obrigado
>>
>>
>> Ricardo Stock
>> ricardo at stocksistemas.com.br
>> www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> YAGNI,
> Renato CRON
> http://www.renatocron.com/blog/
> @renato_cron <http://twitter.com/#!/renato_cron>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Thank you very much!

-dom

--

Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist.
+55 11 9 8538-9897
XOXO
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160603/32ab1f8a/attachment.html>

From ricardostock at bol.com.br  Sat Jun  4 10:13:25 2016
From: ricardostock at bol.com.br (Ricardo Stock)
Date: Sat, 04 Jun 2016 14:13:25 -0300
Subject: [SP-pm] NFe
In-Reply-To: ["CABmdQ_STKi2qxUvQpc1t0Hsfmakfz=9ZPv=dQCAfq7NqPV8o_Q@mail.gmail.com"]
References: ["652572568290446082EC5B6D4D0038BB@RicardoPC",
	"CABmdQ_STKi2qxUvQpc1t0Hsfmakfz=9ZPv=dQCAfq7NqPV8o_Q@mail.gmail.com"]
Message-ID: <57530c358375_56cc15a0b139b3d8105fa@a4-winter1.mail>

Ola Renato, obrigado.

Parece que a solu??o mais simples, barata e eficiente ser? utilizar um parceiro para a emiss?o ao inv?s de se criar toda a roda.

Obrigado

Ricado Stock
ricardostock at bol.com.br
Um bom programador tem um desafio
Um programador mediano, tem um problema.




De: renato.cron at gmail.com
Enviada: Sexta-feira, 3 de Junho de 2016 13:16
Para: saopaulo-pm at mail.pm.org
Assunto: [SP-pm] NFe

Minha sugest?o ?, se o volume for pequeno, v? diretamente para o?https://nfe.io/ pois o custo de manter/desenvolver uma n?o se paga rapidamente.

2016-06-03 12:28 GMT-03:00 Ricardo Stock <ricardostock at bol.com.br>:




??? Galera bom dia
?
??? Estou come?ando agora o projeto de nfe, sei que muitos 
ja passaram por isso. alguem poderia dar o caminho das pedras.
?
??? Obrigado
?
?
Ricardo 
Stock
ricardo at stocksistemas.com.br
www.stockssitemas.com.br - Tel/Whatsapp 
(13)98826-5700

=begin disclaimer

? ?Sao Paulo Perl Mongers: http://sao-paulo.pm.org/

?SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org

?L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>

=end disclaimer





-- 
YAGNI,Renato CRONhttp://www.renatocron.com/blog/@renato_cron

=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
 L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer


From lucasmateus.oliveira at gmail.com  Mon Jul 18 12:02:17 2016
From: lucasmateus.oliveira at gmail.com (Lucas Mateus)
Date: Mon, 18 Jul 2016 16:02:17 -0300
Subject: [SP-pm] [OT] Um passa tempo
Message-ID: <CACLgUQ+THMamhcCTqdopFGTxu+soyGS90eEh15rfLBTucjAoFw@mail.gmail.com>

https://engineering.linkedin.com/puzzle
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160718/803bdefd/attachment.html>

From lucastiagodemoraes at gmail.com  Mon Jul 18 12:33:36 2016
From: lucastiagodemoraes at gmail.com (Lucas Moraes)
Date: Mon, 18 Jul 2016 16:33:36 -0300
Subject: [SP-pm] [OT] Um passa tempo
In-Reply-To: <CACLgUQ+THMamhcCTqdopFGTxu+soyGS90eEh15rfLBTucjAoFw@mail.gmail.com>
References: <CACLgUQ+THMamhcCTqdopFGTxu+soyGS90eEh15rfLBTucjAoFw@mail.gmail.com>
Message-ID: <CAPpv0_q8wzvDsuD3U2rmiPCp88pPRSpJS73aisMRrdTPLBC-aA@mail.gmail.com>

Muito legal, apenas 12% resolveram.
Valeu.

2016-07-18 16:02 GMT-03:00 Lucas Mateus <lucasmateus.oliveira at gmail.com>:

> https://engineering.linkedin.com/puzzle
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160718/b92cd0b3/attachment.html>

From italo.goncales at gmail.com  Mon Jul 18 12:56:15 2016
From: italo.goncales at gmail.com (=?UTF-8?Q?Italo_Gon=C3=A7ales?=)
Date: Mon, 18 Jul 2016 16:56:15 -0300
Subject: [SP-pm] [OT] Um passa tempo
In-Reply-To: <CAPpv0_q8wzvDsuD3U2rmiPCp88pPRSpJS73aisMRrdTPLBC-aA@mail.gmail.com>
References: <CACLgUQ+THMamhcCTqdopFGTxu+soyGS90eEh15rfLBTucjAoFw@mail.gmail.com>
	<CAPpv0_q8wzvDsuD3U2rmiPCp88pPRSpJS73aisMRrdTPLBC-aA@mail.gmail.com>
Message-ID: <CAOegsZvafhdy8DbB=iiHjO7CHNZyp9S-PoQk9FEi51GejsE=pQ@mail.gmail.com>

Fa?o parte desses 12% agora \o/

Achei bem legal mesmo

Em 18 de julho de 2016 16:33, Lucas Moraes <lucastiagodemoraes at gmail.com>
escreveu:

> Muito legal, apenas 12% resolveram.
> Valeu.
>
> 2016-07-18 16:02 GMT-03:00 Lucas Mateus <lucasmateus.oliveira at gmail.com>:
>
>> https://engineering.linkedin.com/puzzle
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 


Att,

Italo Gon?ales
Perl Developer at Morpho
+55 12 992385982
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160718/e4955f72/attachment.html>

From lucasmateus.oliveira at gmail.com  Mon Jul 18 13:12:43 2016
From: lucasmateus.oliveira at gmail.com (Lucas Mateus)
Date: Mon, 18 Jul 2016 17:12:43 -0300
Subject: [SP-pm] [OT] Um passa tempo
In-Reply-To: <CAPpv0_q8wzvDsuD3U2rmiPCp88pPRSpJS73aisMRrdTPLBC-aA@mail.gmail.com>
References: <CACLgUQ+THMamhcCTqdopFGTxu+soyGS90eEh15rfLBTucjAoFw@mail.gmail.com>
	<CAPpv0_q8wzvDsuD3U2rmiPCp88pPRSpJS73aisMRrdTPLBC-aA@mail.gmail.com>
Message-ID: <CACLgUQLfO4y1R5QJ8=3xNquxcMu_7kzqiGmy0mtWYZia=mN_+g@mail.gmail.com>

Muito f?cil pra ser apenas 12? mas se ta dizendo n?

Em 18 de jul de 2016 4:34 PM, "Lucas Moraes" <lucastiagodemoraes at gmail.com>
escreveu:

> Muito legal, apenas 12% resolveram.
> Valeu.
>
> 2016-07-18 16:02 GMT-03:00 Lucas Mateus <lucasmateus.oliveira at gmail.com>:
>
>> https://engineering.linkedin.com/puzzle
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20160718/1e9cabe7/attachment.html>

From fabio.venuto at itau-unibanco.com.br  Thu Oct 13 14:07:30 2016
From: fabio.venuto at itau-unibanco.com.br (Fabio Venuto Soares)
Date: Thu, 13 Oct 2016 18:07:30 -0300
Subject: [SP-pm] Treinamento Perl
Message-ID: <27117_1476392853_57FFF794_27117_402_1_C60DB6E8171A4E459954C08D007A14ABE34559@VCMTP0289CLD.corp1.rc.itau>

Boa tarde a todos

                Sou da equipe de sustenta??o de sistemas de Risco de Mercado do Atacado do Ita?. Temos interesse em um treinamento de Perl b?sico, com o perfil descrito abaixo


 *   Local: Ita? - Centro tecnol?gico - Av. do Estado 5533, Cambuci, S?o Paulo - SP
 *   Data: A definir, dura??o aproximada de 3 dias
 *   Perfil do p?blico alvo: Analistas de sistemas plenos e seniores com conhecimentos b?sicos de Linux e Shell Script
 *   Tema recomendado: Scripts de manipula??o de arquivos para processamento batch e execu??o de processos da plataforma IBM Algorithmics
 *   Descrever o interesse da empresa/entidade interessada:  Trabalhamos com a ferramenta de mercado IBM Algorithmics, e para nossa instala??o do Ita? foram criados diversos scripts em Perl. Nossa fun??o ? essencialmente avaliar o script quando o mesmo causa erros em ambiente de Produ??o, efetuar eventuais corre??es e melhorias e/ou desenvolver novos  scripts para complementar os processos existentes.
Desde j? agrade?o muito a aten??o dos senhores e aguardamos um retorno, caso haja interesse em nos atender.

Obrigado

Fabio Venuto Soares
DQCPTI | SSSA | GSFR | CSFT
t. 11 2733-5850 (Rota 706)   t. 11 99820 9040
fabio.venuto at itau-unibanco.com.br<mailto:fabio.venuto at itau-unibanco.com.br>

Ita? Unibanco

Av do Estado, 5533
3? andar bloco C
03105 500 S?o Paulo SP

Pensamos e agimos como donos
Esse ? o Nosso Jeito




"Esta mensagem e reservada e sua divulgacao, distribuicao, reproducao ou qualquer forma de uso e proibida e depende de previa autorizacao desta instituicao. O remetente utiliza o correio eletronico no exercicio do seu trabalho ou em razao dele, eximindo esta instituicao de qualquer responsabilidade por utilizacao indevida. Se voce recebeu esta mensagem por engano, favor elimina-la imediatamente."

"This message is reserved and its disclosure, distribution, reproduction or any other form of use is prohibited and shall depend upon previous proper authorization. The sender uses the electronic mail in the exercise of his/her work or by virtue thereof, and the institution accepts no liability for its undue use. If you have received this e-mail by mistake, please delete it immediately."

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161013/c56bc337/attachment.html>

From leonardo at ruoso.com  Thu Oct 13 14:18:53 2016
From: leonardo at ruoso.com (Leonardo Ruoso)
Date: Thu, 13 Oct 2016 18:18:53 -0300
Subject: [SP-pm] Treinamento Perl
In-Reply-To: <27117_1476392853_57FFF794_27117_402_1_C60DB6E8171A4E459954C08D007A14ABE34559@VCMTP0289CLD.corp1.rc.itau>
References: <27117_1476392853_57FFF794_27117_402_1_C60DB6E8171A4E459954C08D007A14ABE34559@VCMTP0289CLD.corp1.rc.itau>
Message-ID: <1D151E09-F0E4-4057-B29B-529C7CEC0FE3@ruoso.com>

Conseguiriamos fornecer esse treinamento em diversos n?veis atrav?s da consultoria em que atuo. +5511989138914

Leonardo Ruoso 

> Em 13 de out de 2016, ?s 18:07, Fabio Venuto Soares <fabio.venuto at itau-unibanco.com.br> escreveu:
> 
> Boa tarde a todos
>  
>                 Sou da equipe de sustenta??o de sistemas de Risco de Mercado do Atacado do Ita?. Temos interesse em um treinamento de Perl b?sico, com o perfil descrito abaixo
>  
> Local: Ita? ? Centro tecnol?gico ? Av. do Estado 5533, Cambuci, S?o Paulo - SP
> Data: A definir, dura??o aproximada de 3 dias
> Perfil do p?blico alvo: Analistas de sistemas plenos e seniores com conhecimentos b?sicos de Linux e Shell Script
> Tema recomendado: Scripts de manipula??o de arquivos para processamento batch e execu??o de processos da plataforma IBM Algorithmics
> Descrever o interesse da empresa/entidade interessada:  Trabalhamos com a ferramenta de mercado IBM Algorithmics, e para nossa instala??o do Ita? foram criados diversos scripts em Perl. Nossa fun??o ? essencialmente avaliar o script quando o mesmo causa erros em ambiente de Produ??o, efetuar eventuais corre??es e melhorias e/ou desenvolver novos  scripts para complementar os processos existentes.
> Desde j? agrade?o muito a aten??o dos senhores e aguardamos um retorno, caso haja interesse em nos atender.
>  
> Obrigado
>  
> Fabio Venuto Soares
> DQCPTI | SSSA | GSFR | CSFT
> t. 11 2733-5850 (Rota 706)   t. 11 99820 9040
> fabio.venuto at itau-unibanco.com.br
> 
> Ita? Unibanco
>  
> Av do Estado, 5533
> 3? andar bloco C
> 03105 500 S?o Paulo SP
>  
> Pensamos e agimos como donos
> Esse ? o Nosso Jeito
>  
> "Esta mensagem e reservada e sua divulgacao, distribuicao, reproducao ou qualquer forma de uso e proibida e depende de previa autorizacao desta instituicao. O remetente utiliza o correio eletronico no exercicio do seu trabalho ou em razao dele, eximindo esta instituicao de qualquer responsabilidade por utilizacao indevida. Se voce recebeu esta mensagem por engano, favor elimina-la imediatamente." "This message is reserved and its disclosure, distribution, reproduction or any other form of use is prohibited and shall depend upon previous proper authorization. The sender uses the electronic mail in the exercise of his/her work or by virtue thereof, and the institution accepts no liability for its undue use. If you have received this e-mail by mistake, please delete it immediately."
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161013/f99acdf2/attachment-0001.html>

From leonardo at ruoso.com  Thu Oct 13 14:18:53 2016
From: leonardo at ruoso.com (Leonardo Ruoso)
Date: Thu, 13 Oct 2016 18:18:53 -0300
Subject: [SP-pm] Treinamento Perl
In-Reply-To: <27117_1476392853_57FFF794_27117_402_1_C60DB6E8171A4E459954C08D007A14ABE34559@VCMTP0289CLD.corp1.rc.itau>
References: <27117_1476392853_57FFF794_27117_402_1_C60DB6E8171A4E459954C08D007A14ABE34559@VCMTP0289CLD.corp1.rc.itau>
Message-ID: <1D151E09-F0E4-4057-B29B-529C7CEC0FE3@ruoso.com>

Conseguiriamos fornecer esse treinamento em diversos n?veis atrav?s da consultoria em que atuo. +5511989138914

Leonardo Ruoso 

> Em 13 de out de 2016, ?s 18:07, Fabio Venuto Soares <fabio.venuto at itau-unibanco.com.br> escreveu:
> 
> Boa tarde a todos
>  
>                 Sou da equipe de sustenta??o de sistemas de Risco de Mercado do Atacado do Ita?. Temos interesse em um treinamento de Perl b?sico, com o perfil descrito abaixo
>  
> Local: Ita? ? Centro tecnol?gico ? Av. do Estado 5533, Cambuci, S?o Paulo - SP
> Data: A definir, dura??o aproximada de 3 dias
> Perfil do p?blico alvo: Analistas de sistemas plenos e seniores com conhecimentos b?sicos de Linux e Shell Script
> Tema recomendado: Scripts de manipula??o de arquivos para processamento batch e execu??o de processos da plataforma IBM Algorithmics
> Descrever o interesse da empresa/entidade interessada:  Trabalhamos com a ferramenta de mercado IBM Algorithmics, e para nossa instala??o do Ita? foram criados diversos scripts em Perl. Nossa fun??o ? essencialmente avaliar o script quando o mesmo causa erros em ambiente de Produ??o, efetuar eventuais corre??es e melhorias e/ou desenvolver novos  scripts para complementar os processos existentes.
> Desde j? agrade?o muito a aten??o dos senhores e aguardamos um retorno, caso haja interesse em nos atender.
>  
> Obrigado
>  
> Fabio Venuto Soares
> DQCPTI | SSSA | GSFR | CSFT
> t. 11 2733-5850 (Rota 706)   t. 11 99820 9040
> fabio.venuto at itau-unibanco.com.br
> 
> Ita? Unibanco
>  
> Av do Estado, 5533
> 3? andar bloco C
> 03105 500 S?o Paulo SP
>  
> Pensamos e agimos como donos
> Esse ? o Nosso Jeito
>  
> "Esta mensagem e reservada e sua divulgacao, distribuicao, reproducao ou qualquer forma de uso e proibida e depende de previa autorizacao desta instituicao. O remetente utiliza o correio eletronico no exercicio do seu trabalho ou em razao dele, eximindo esta instituicao de qualquer responsabilidade por utilizacao indevida. Se voce recebeu esta mensagem por engano, favor elimina-la imediatamente." "This message is reserved and its disclosure, distribution, reproduction or any other form of use is prohibited and shall depend upon previous proper authorization. The sender uses the electronic mail in the exercise of his/her work or by virtue thereof, and the institution accepts no liability for its undue use. If you have received this e-mail by mistake, please delete it immediately."
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161013/f99acdf2/attachment-0002.html>

From fabio.venuto at itau-unibanco.com.br  Fri Oct 14 06:00:54 2016
From: fabio.venuto at itau-unibanco.com.br (Fabio Venuto Soares)
Date: Fri, 14 Oct 2016 10:00:54 -0300
Subject: [SP-pm] RES:  Treinamento Perl
In-Reply-To: <1D151E09-F0E4-4057-B29B-529C7CEC0FE3@ruoso.com>
References: <27117_1476392853_57FFF794_27117_402_1_C60DB6E8171A4E459954C08D007A14ABE34559@VCMTP0289CLD.corp1.rc.itau>
	<1D151E09-F0E4-4057-B29B-529C7CEC0FE3@ruoso.com>
Message-ID: <13565_1476450059_5800D70B_13565_18056_1_C60DB6E8171A4E459954C08D007A14ABE346DD@VCMTP0289CLD.corp1.rc.itau>

Bom dia

                Se voc? puder nos passar as informa??es da consultoria eu agrade?o. O Ita? exige que o contrato seja efetuado com pessoa jur?dica.

Obrigado

Fabio Venuto Soares
DQCPTI | SSSA | GSFR | CSFT
t. 11 2733-5850 (Rota 706)   t. 11 99820 9040
fabio.venuto at itau-unibanco.com.br<mailto:fabio.venuto at itau-unibanco.com.br>

Ita? Unibanco

Av do Estado, 5533
3? andar bloco C
03105 500 S?o Paulo SP

Pensamos e agimos como donos
Esse ? o Nosso Jeito

De: SaoPaulo-pm [mailto:saopaulo-pm-bounces+fabio.venuto=itau-unibanco.com.br at pm.org] Em nome de Leonardo Ruoso
Enviada em: quinta-feira, 13 de outubro de 2016 18:19
Para: saopaulo-pm at mail.pm.org
Cc: SaoPaulo-pm at pm.org
Assunto: Re: [SP-pm] Treinamento Perl

Conseguiriamos fornecer esse treinamento em diversos n?veis atrav?s da consultoria em que atuo. +5511989138914

Leonardo Ruoso

Em 13 de out de 2016, ?s 18:07, Fabio Venuto Soares <fabio.venuto at itau-unibanco.com.br<mailto:fabio.venuto at itau-unibanco.com.br>> escreveu:
Boa tarde a todos

                Sou da equipe de sustenta??o de sistemas de Risco de Mercado do Atacado do Ita?. Temos interesse em um treinamento de Perl b?sico, com o perfil descrito abaixo


 *   Local: Ita? ? Centro tecnol?gico ? Av. do Estado 5533, Cambuci, S?o Paulo - SP
 *   Data: A definir, dura??o aproximada de 3 dias
 *   Perfil do p?blico alvo: Analistas de sistemas plenos e seniores com conhecimentos b?sicos de Linux e Shell Script
 *   Tema recomendado: Scripts de manipula??o de arquivos para processamento batch e execu??o de processos da plataforma IBM Algorithmics
 *   Descrever o interesse da empresa/entidade interessada:  Trabalhamos com a ferramenta de mercado IBM Algorithmics, e para nossa instala??o do Ita? foram criados diversos scripts em Perl. Nossa fun??o ? essencialmente avaliar o script quando o mesmo causa erros em ambiente de Produ??o, efetuar eventuais corre??es e melhorias e/ou desenvolver novos  scripts para complementar os processos existentes.
Desde j? agrade?o muito a aten??o dos senhores e aguardamos um retorno, caso haja interesse em nos atender.

Obrigado

Fabio Venuto Soares
DQCPTI | SSSA | GSFR | CSFT
t. 11 2733-5850 (Rota 706)   t. 11 99820 9040
fabio.venuto at itau-unibanco.com.br<mailto:fabio.venuto at itau-unibanco.com.br>

Ita? Unibanco

Av do Estado, 5533
3? andar bloco C
03105 500 S?o Paulo SP

Pensamos e agimos como donos
Esse ? o Nosso Jeito

"Esta mensagem e reservada e sua divulgacao, distribuicao, reproducao ou qualquer forma de uso e proibida e depende de previa autorizacao desta instituicao. O remetente utiliza o correio eletronico no exercicio do seu trabalho ou em razao dele, eximindo esta instituicao de qualquer responsabilidade por utilizacao indevida. Se voce recebeu esta mensagem por engano, favor elimina-la imediatamente." "This message is reserved and its disclosure, distribution, reproduction or any other form of use is prohibited and shall depend upon previous proper authorization. The sender uses the electronic mail in the exercise of his/her work or by virtue thereof, and the institution accepts no liability for its undue use. If you have received this e-mail by mistake, please delete it immediately."
=begin disclaimer
  Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org<mailto:SaoPaulo-pm at pm.org>
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer



"Esta mensagem e reservada e sua divulgacao, distribuicao, reproducao ou qualquer forma de uso e proibida e depende de previa autorizacao desta instituicao. O remetente utiliza o correio eletronico no exercicio do seu trabalho ou em razao dele, eximindo esta instituicao de qualquer responsabilidade por utilizacao indevida. Se voce recebeu esta mensagem por engano, favor elimina-la imediatamente."

"This message is reserved and its disclosure, distribution, reproduction or any other form of use is prohibited and shall depend upon previous proper authorization. The sender uses the electronic mail in the exercise of his/her work or by virtue thereof, and the institution accepts no liability for its undue use. If you have received this e-mail by mistake, please delete it immediately."

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161014/aa35d00b/attachment-0002.html>

From fabio.venuto at itau-unibanco.com.br  Fri Oct 14 06:00:54 2016
From: fabio.venuto at itau-unibanco.com.br (Fabio Venuto Soares)
Date: Fri, 14 Oct 2016 10:00:54 -0300
Subject: [SP-pm] RES:  Treinamento Perl
In-Reply-To: <1D151E09-F0E4-4057-B29B-529C7CEC0FE3@ruoso.com>
References: <27117_1476392853_57FFF794_27117_402_1_C60DB6E8171A4E459954C08D007A14ABE34559@VCMTP0289CLD.corp1.rc.itau>
	<1D151E09-F0E4-4057-B29B-529C7CEC0FE3@ruoso.com>
Message-ID: <13565_1476450059_5800D70B_13565_18056_1_C60DB6E8171A4E459954C08D007A14ABE346DD@VCMTP0289CLD.corp1.rc.itau>

Bom dia

                Se voc? puder nos passar as informa??es da consultoria eu agrade?o. O Ita? exige que o contrato seja efetuado com pessoa jur?dica.

Obrigado

Fabio Venuto Soares
DQCPTI | SSSA | GSFR | CSFT
t. 11 2733-5850 (Rota 706)   t. 11 99820 9040
fabio.venuto at itau-unibanco.com.br<mailto:fabio.venuto at itau-unibanco.com.br>

Ita? Unibanco

Av do Estado, 5533
3? andar bloco C
03105 500 S?o Paulo SP

Pensamos e agimos como donos
Esse ? o Nosso Jeito

De: SaoPaulo-pm [mailto:saopaulo-pm-bounces+fabio.venuto=itau-unibanco.com.br at pm.org] Em nome de Leonardo Ruoso
Enviada em: quinta-feira, 13 de outubro de 2016 18:19
Para: saopaulo-pm at mail.pm.org
Cc: SaoPaulo-pm at pm.org
Assunto: Re: [SP-pm] Treinamento Perl

Conseguiriamos fornecer esse treinamento em diversos n?veis atrav?s da consultoria em que atuo. +5511989138914

Leonardo Ruoso

Em 13 de out de 2016, ?s 18:07, Fabio Venuto Soares <fabio.venuto at itau-unibanco.com.br<mailto:fabio.venuto at itau-unibanco.com.br>> escreveu:
Boa tarde a todos

                Sou da equipe de sustenta??o de sistemas de Risco de Mercado do Atacado do Ita?. Temos interesse em um treinamento de Perl b?sico, com o perfil descrito abaixo


 *   Local: Ita? ? Centro tecnol?gico ? Av. do Estado 5533, Cambuci, S?o Paulo - SP
 *   Data: A definir, dura??o aproximada de 3 dias
 *   Perfil do p?blico alvo: Analistas de sistemas plenos e seniores com conhecimentos b?sicos de Linux e Shell Script
 *   Tema recomendado: Scripts de manipula??o de arquivos para processamento batch e execu??o de processos da plataforma IBM Algorithmics
 *   Descrever o interesse da empresa/entidade interessada:  Trabalhamos com a ferramenta de mercado IBM Algorithmics, e para nossa instala??o do Ita? foram criados diversos scripts em Perl. Nossa fun??o ? essencialmente avaliar o script quando o mesmo causa erros em ambiente de Produ??o, efetuar eventuais corre??es e melhorias e/ou desenvolver novos  scripts para complementar os processos existentes.
Desde j? agrade?o muito a aten??o dos senhores e aguardamos um retorno, caso haja interesse em nos atender.

Obrigado

Fabio Venuto Soares
DQCPTI | SSSA | GSFR | CSFT
t. 11 2733-5850 (Rota 706)   t. 11 99820 9040
fabio.venuto at itau-unibanco.com.br<mailto:fabio.venuto at itau-unibanco.com.br>

Ita? Unibanco

Av do Estado, 5533
3? andar bloco C
03105 500 S?o Paulo SP

Pensamos e agimos como donos
Esse ? o Nosso Jeito

"Esta mensagem e reservada e sua divulgacao, distribuicao, reproducao ou qualquer forma de uso e proibida e depende de previa autorizacao desta instituicao. O remetente utiliza o correio eletronico no exercicio do seu trabalho ou em razao dele, eximindo esta instituicao de qualquer responsabilidade por utilizacao indevida. Se voce recebeu esta mensagem por engano, favor elimina-la imediatamente." "This message is reserved and its disclosure, distribution, reproduction or any other form of use is prohibited and shall depend upon previous proper authorization. The sender uses the electronic mail in the exercise of his/her work or by virtue thereof, and the institution accepts no liability for its undue use. If you have received this e-mail by mistake, please delete it immediately."
=begin disclaimer
  Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org<mailto:SaoPaulo-pm at pm.org>
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer



"Esta mensagem e reservada e sua divulgacao, distribuicao, reproducao ou qualquer forma de uso e proibida e depende de previa autorizacao desta instituicao. O remetente utiliza o correio eletronico no exercicio do seu trabalho ou em razao dele, eximindo esta instituicao de qualquer responsabilidade por utilizacao indevida. Se voce recebeu esta mensagem por engano, favor elimina-la imediatamente."

"This message is reserved and its disclosure, distribution, reproduction or any other form of use is prohibited and shall depend upon previous proper authorization. The sender uses the electronic mail in the exercise of his/her work or by virtue thereof, and the institution accepts no liability for its undue use. If you have received this e-mail by mistake, please delete it immediately."

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161014/aa35d00b/attachment-0003.html>

From andregarciacarneiro at gmail.com  Sun Nov  6 06:05:31 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Sun, 6 Nov 2016 12:05:31 -0200
Subject: [SP-pm] Microservices
Message-ID: <CABoU2P3zfZbh0xxgKG=dsN9tz9sb=8nhmM3S_vt=8a7KuXy3tA@mail.gmail.com>

Salve!

N?o sei se a lista est? morta, mas vi um artigo interessante sobre
"coisinhas" para utilizar quando se desenvolve em arquitetura de
micro-servi?os em Perl, e deu vontade de compartilhar.

https://engineering.semantics3.com/2016/06/15/a-perl-toolchain-for-building-micro-services-at-scale/

Cheers!

-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161106/cd3ac367/attachment.html>

From glasswalk3r at yahoo.com.br  Sun Nov  6 08:52:28 2016
From: glasswalk3r at yahoo.com.br (Alceu Rodrigues de Freitas Junior)
Date: Sun, 6 Nov 2016 14:52:28 -0200
Subject: [SP-pm] Microservices
In-Reply-To: <CABoU2P3zfZbh0xxgKG=dsN9tz9sb=8nhmM3S_vt=8a7KuXy3tA@mail.gmail.com>
References: <CABoU2P3zfZbh0xxgKG=dsN9tz9sb=8nhmM3S_vt=8a7KuXy3tA@mail.gmail.com>
Message-ID: <8d5dd357-796b-3a3d-0560-b28e1e9932b4@yahoo.com.br>

Andre Carneiro++

Em 06-11-2016 12:05, Andre Carneiro escreveu:
> Salve!
>
> N?o sei se a lista est? morta, mas vi um artigo interessante sobre
> "coisinhas" para utilizar quando se desenvolve em arquitetura de
> micro-servi?os em Perl, e deu vontade de compartilhar.
>
> https://engineering.semantics3.com/2016/06/15/a-perl-toolchain-for-building-micro-services-at-scale/
>
> Cheers!
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>


From daniel.vinciguerra at bivee.com.br  Sun Nov  6 14:08:51 2016
From: daniel.vinciguerra at bivee.com.br (Daniel Vinciguerra)
Date: Sun, 6 Nov 2016 20:08:51 -0200
Subject: [SP-pm] Microservices
In-Reply-To: <8d5dd357-796b-3a3d-0560-b28e1e9932b4@yahoo.com.br>
References: <CABoU2P3zfZbh0xxgKG=dsN9tz9sb=8nhmM3S_vt=8a7KuXy3tA@mail.gmail.com>
	<8d5dd357-796b-3a3d-0560-b28e1e9932b4@yahoo.com.br>
Message-ID: <CALPXWt-L4sj7Y=UGWWAPvnvjf0=8wemWBsCr58pZMXDWJ2W7Fw@mail.gmail.com>

Massa cara! :)



*Daniel Vinciguerra*
Web Solutions Architect and founder at Bivee
Cel: +55 (47) 9270-6171

*ATEN??O/ATTENTION:*
Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao
uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
mensagem por engano, por favor, notifique o remetente e remova-o
imediatamente.


This e-mail contains confidential information intended only for the use of
the individual or entity named above. If you are not the intended
recipient, please notify the sender and delete it immediately.

2016-11-06 14:52 GMT-02:00 Alceu Rodrigues de Freitas Junior <
glasswalk3r at yahoo.com.br>:

> Andre Carneiro++
>
>
> Em 06-11-2016 12:05, Andre Carneiro escreveu:
>
>> Salve!
>>
>> N?o sei se a lista est? morta, mas vi um artigo interessante sobre
>> "coisinhas" para utilizar quando se desenvolve em arquitetura de
>> micro-servi?os em Perl, e deu vontade de compartilhar.
>>
>> https://engineering.semantics3.com/2016/06/15/a-perl-
>> toolchain-for-building-micro-services-at-scale/
>>
>> Cheers!
>>
>> --
>> Andr? Garcia Carneiro
>> Software Engineer
>> (11)982907780
>>
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161106/77a9f3fb/attachment.html>

From lucasmateus.oliveira at gmail.com  Sun Nov  6 14:30:13 2016
From: lucasmateus.oliveira at gmail.com (Lucas Mateus)
Date: Sun, 6 Nov 2016 20:30:13 -0200
Subject: [SP-pm] Microservices
In-Reply-To: <CALPXWt-L4sj7Y=UGWWAPvnvjf0=8wemWBsCr58pZMXDWJ2W7Fw@mail.gmail.com>
References: <CABoU2P3zfZbh0xxgKG=dsN9tz9sb=8nhmM3S_vt=8a7KuXy3tA@mail.gmail.com>
	<8d5dd357-796b-3a3d-0560-b28e1e9932b4@yahoo.com.br>
	<CALPXWt-L4sj7Y=UGWWAPvnvjf0=8wemWBsCr58pZMXDWJ2W7Fw@mail.gmail.com>
Message-ID: <CACLgUQLmKxDbNCWix7FcMFdTWFkToZQ=-xBxmzE3G-XO=_5ORg@mail.gmail.com>

Legal, mas acho que faltou assuntos importantes como versionamento da app,
CI/CD, documenta??o, monitorias e health checks,  algo que mapeie os micro
servi?os e suas depend?ncias, tests integrados... enfim a arquitetura e a
engenharia disso ? bem mais ampla.

Em 6 de nov de 2016 8:09 PM, "Daniel Vinciguerra" <
daniel.vinciguerra at bivee.com.br> escreveu:

> Massa cara! :)
>
>
>
> *Daniel Vinciguerra*
> Web Solutions Architect and founder at Bivee
> Cel: +55 (47) 9270-6171
>
> *ATEN??O/ATTENTION:*
> Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao
> uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
> mensagem por engano, por favor, notifique o remetente e remova-o
> imediatamente.
>
>
> This e-mail contains confidential information intended only for the use of
> the individual or entity named above. If you are not the intended
> recipient, please notify the sender and delete it immediately.
>
> 2016-11-06 14:52 GMT-02:00 Alceu Rodrigues de Freitas Junior <
> glasswalk3r at yahoo.com.br>:
>
>> Andre Carneiro++
>>
>>
>> Em 06-11-2016 12:05, Andre Carneiro escreveu:
>>
>>> Salve!
>>>
>>> N?o sei se a lista est? morta, mas vi um artigo interessante sobre
>>> "coisinhas" para utilizar quando se desenvolve em arquitetura de
>>> micro-servi?os em Perl, e deu vontade de compartilhar.
>>>
>>> https://engineering.semantics3.com/2016/06/15/a-perl-toolcha
>>> in-for-building-micro-services-at-scale/
>>>
>>> Cheers!
>>>
>>> --
>>> Andr? Garcia Carneiro
>>> Software Engineer
>>> (11)982907780
>>>
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>> =begin disclaimer
>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161106/e4717be3/attachment.html>

From blabos at gmail.com  Mon Nov  7 04:37:07 2016
From: blabos at gmail.com (Blabos de Blebe)
Date: Mon, 7 Nov 2016 10:37:07 -0200
Subject: [SP-pm] Microservices
In-Reply-To: <CACLgUQLmKxDbNCWix7FcMFdTWFkToZQ=-xBxmzE3G-XO=_5ORg@mail.gmail.com>
References: <CABoU2P3zfZbh0xxgKG=dsN9tz9sb=8nhmM3S_vt=8a7KuXy3tA@mail.gmail.com>
	<8d5dd357-796b-3a3d-0560-b28e1e9932b4@yahoo.com.br>
	<CALPXWt-L4sj7Y=UGWWAPvnvjf0=8wemWBsCr58pZMXDWJ2W7Fw@mail.gmail.com>
	<CACLgUQLmKxDbNCWix7FcMFdTWFkToZQ=-xBxmzE3G-XO=_5ORg@mail.gmail.com>
Message-ID: <CAAxpsibrvY=hhUF0b3USeTBU-DLW2uSuc547rgb=A0AX4Ly13A@mail.gmail.com>

Parece que os boatos sobre a morte da lista foram meio exagerados...

O texto n?o cobre tudo, mas ainda ? bem interessante. Um ponto de partida.

Gostei

2016-11-06 20:30 GMT-02:00 Lucas Mateus <lucasmateus.oliveira at gmail.com>:

> Legal, mas acho que faltou assuntos importantes como versionamento da app,
> CI/CD, documenta??o, monitorias e health checks,  algo que mapeie os micro
> servi?os e suas depend?ncias, tests integrados... enfim a arquitetura e a
> engenharia disso ? bem mais ampla.
>
> Em 6 de nov de 2016 8:09 PM, "Daniel Vinciguerra" <
> daniel.vinciguerra at bivee.com.br> escreveu:
>
>> Massa cara! :)
>>
>>
>>
>> *Daniel Vinciguerra*
>> Web Solutions Architect and founder at Bivee
>> Cel: +55 (47) 9270-6171
>>
>> *ATEN??O/ATTENTION:*
>> Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao
>> uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
>> mensagem por engano, por favor, notifique o remetente e remova-o
>> imediatamente.
>>
>>
>> This e-mail contains confidential information intended only for the use
>> of the individual or entity named above. If you are not the intended
>> recipient, please notify the sender and delete it immediately.
>>
>> 2016-11-06 14:52 GMT-02:00 Alceu Rodrigues de Freitas Junior <
>> glasswalk3r at yahoo.com.br>:
>>
>>> Andre Carneiro++
>>>
>>>
>>> Em 06-11-2016 12:05, Andre Carneiro escreveu:
>>>
>>>> Salve!
>>>>
>>>> N?o sei se a lista est? morta, mas vi um artigo interessante sobre
>>>> "coisinhas" para utilizar quando se desenvolve em arquitetura de
>>>> micro-servi?os em Perl, e deu vontade de compartilhar.
>>>>
>>>> https://engineering.semantics3.com/2016/06/15/a-perl-toolcha
>>>> in-for-building-micro-services-at-scale/
>>>>
>>>> Cheers!
>>>>
>>>> --
>>>> Andr? Garcia Carneiro
>>>> Software Engineer
>>>> (11)982907780
>>>>
>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>> =begin disclaimer
>>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161107/f3966012/attachment-0001.html>

From glasswalk3r at yahoo.com.br  Mon Nov  7 05:51:45 2016
From: glasswalk3r at yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Mon, 7 Nov 2016 13:51:45 +0000 (UTC)
Subject: [SP-pm] Microservices
References: <1536540907.1550121.1478526705045.ref@mail.yahoo.com>
Message-ID: <1536540907.1550121.1478526705045@mail.yahoo.com>

Estava lendo o Pod do Carton (https://metacpan.org/pod/Carton) mas n?o fiquei muito impressionado com a descri??o feita ali.

Quais as vantagens de us?-lo quando comparado com o Dist::Zilla?

--------------------------------------------
Em dom, 6/11/16, Lucas Mateus <lucasmateus.oliveira at gmail.com> escreveu:

 Assunto: Re: [SP-pm] Microservices
 Para: saopaulo-pm at mail.pm.org
 Data: Domingo, 6 de Novembro de 2016, 20:30
 
 Legal, mas
 acho que faltou assuntos importantes como versionamento da
 app, CI/CD, documenta??o, monitorias e health checks,?
 algo que mapeie os micro servi?os e suas depend?ncias,
 tests integrados... enfim a arquitetura e a engenharia disso
 ? bem mais ampla.
 
 Em 6 de nov de 2016 8:09
 PM, "Daniel Vinciguerra" <daniel.vinciguerra at bivee.com.br>
 escreveu:
 Massa cara! :)
 
 
   
 
   
   Daniel
   Vinciguerra
 
   Web Solutions Architect and founder at Bivee
 
   Cel: +55 (47)
 9270-6171
   
 
   ATEN??O/ATTENTION: 
 
   Este e-mail cont?m informa??es confidenciais e seu
 conte?do ? dirigido ao uso
   do indiv?duo ou da entidade mencionados acima. Se voc?
 recebeu esta mensagem por
   engano, por favor, notifique o remetente e remova-o
 imediatamente. 
   
 
   This e-mail contains confidential information intended
 only for the use of
   the individual or entity named above. If you are not the
 intended recipient,
   please notify the sender and delete it
 immediately.
   
 
 
 
 
 
 2016-11-06 14:52 GMT-02:00
 Alceu Rodrigues de Freitas Junior <glasswalk3r at yahoo.com.br>:
 Andre Carneiro++
 
 
 
 Em 06-11-2016 12:05, Andre Carneiro escreveu:
 
 
 Salve!
 
 
 
 N?o sei se a lista est? morta, mas vi um artigo
 interessante sobre
 
 "coisinhas" para utilizar quando se desenvolve em
 arquitetura de
 
 micro-servi?os em Perl, e deu vontade de compartilhar.
 
 
 
 https://engineering.semantics3
 .com/2016/06/15/a-perl-toolcha
 in-for-building-micro-services -at-scale/
 
 
 
 Cheers!
 
 
 
 --
 
 Andr? Garcia Carneiro
 
 Software Engineer
 
 (11)982907780
 
 
 
 
 
 =begin disclaimer
 
 ? ?Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 
 ?SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
 
 ?L<http://mail.pm.org/mailman/
 listinfo/saopaulo-pm>
 
 =end disclaimer
 
 
 
 
 
 
 =begin disclaimer
 
 ? Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 
 SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
 
 L<http://mail.pm.org/mailman/l
 istinfo/saopaulo-pm>
 
 =end disclaimer
 
 
 
 
 =begin disclaimer
 
 ? ?Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 
 ?SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
 
 ?L<http://mail.pm.org/mailman/
 listinfo/saopaulo-pm>
 
 =end disclaimer
 
 
 
 -----Anexo incorporado-----
 
 =begin disclaimer
 ???Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
 =end disclaimer
 

From luismottacampos at yahoo.co.uk  Mon Nov  7 06:39:56 2016
From: luismottacampos at yahoo.co.uk (Luis Motta Campos)
Date: Mon, 7 Nov 2016 09:39:56 -0500
Subject: [SP-pm] Microservices
In-Reply-To: <CAAxpsibrvY=hhUF0b3USeTBU-DLW2uSuc547rgb=A0AX4Ly13A@mail.gmail.com>
References: <CABoU2P3zfZbh0xxgKG=dsN9tz9sb=8nhmM3S_vt=8a7KuXy3tA@mail.gmail.com>
	<8d5dd357-796b-3a3d-0560-b28e1e9932b4@yahoo.com.br>
	<CALPXWt-L4sj7Y=UGWWAPvnvjf0=8wemWBsCr58pZMXDWJ2W7Fw@mail.gmail.com>
	<CACLgUQLmKxDbNCWix7FcMFdTWFkToZQ=-xBxmzE3G-XO=_5ORg@mail.gmail.com>
	<CAAxpsibrvY=hhUF0b3USeTBU-DLW2uSuc547rgb=A0AX4Ly13A@mail.gmail.com>
Message-ID: <0F24EB65-5696-4741-94DC-EE019FDE0A5C@yahoo.co.uk>

Blabos,

"Boatos sobre a morte da lista" s?o sempre um exagero teatral. Nem eu morro, quem dir? a lista dos SPPMs.

Ali?s, quando foi o ?ltimo social?

Putamplexos.
--
LMC

> On Nov 7, 2016, at 07:37, Blabos de Blebe <blabos at gmail.com> wrote:
> 
> Parece que os boatos sobre a morte da lista foram meio exagerados...
> 
> O texto n?o cobre tudo, mas ainda ? bem interessante. Um ponto de partida.
> 
> Gostei
> 
> 2016-11-06 20:30 GMT-02:00 Lucas Mateus <lucasmateus.oliveira at gmail.com>:
> Legal, mas acho que faltou assuntos importantes como versionamento da app, CI/CD, documenta??o, monitorias e health checks,  algo que mapeie os micro servi?os e suas depend?ncias, tests integrados... enfim a arquitetura e a engenharia disso ? bem mais ampla.
> 
> 
> Em 6 de nov de 2016 8:09 PM, "Daniel Vinciguerra" <daniel.vinciguerra at bivee.com.br> escreveu:
> Massa cara! :)
> 
> 
> 
> 
> Daniel Vinciguerra
> Web Solutions Architect and founder at Bivee
> Cel: +55 (47) 9270-6171
> 
> ATEN??O/ATTENTION: 
> Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta mensagem por engano, por favor, notifique o remetente e remova-o imediatamente.
> 
> 
> This e-mail contains confidential information intended only for the use of the individual or entity named above. If you are not the intended recipient, please notify the sender and delete it immediately.
> 
> 
> 2016-11-06 14:52 GMT-02:00 Alceu Rodrigues de Freitas Junior <glasswalk3r at yahoo.com.br>:
> Andre Carneiro++
> 
> 
> Em 06-11-2016 12:05, Andre Carneiro escreveu:
> Salve!
> 
> N?o sei se a lista est? morta, mas vi um artigo interessante sobre
> "coisinhas" para utilizar quando se desenvolve em arquitetura de
> micro-servi?os em Perl, e deu vontade de compartilhar.
> 
> https://engineering.semantics3.com/2016/06/15/a-perl-toolchain-for-building-micro-services-at-scale/
> 
> Cheers!
> 
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
> 
> 
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
> 
> 
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
> 
> 
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
> 
> 
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
> 
> 
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer


From andregarciacarneiro at gmail.com  Tue Nov  8 04:18:45 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Tue, 8 Nov 2016 10:18:45 -0200
Subject: [SP-pm] Microservices
In-Reply-To: <CAAxpsibrvY=hhUF0b3USeTBU-DLW2uSuc547rgb=A0AX4Ly13A@mail.gmail.com>
References: <CABoU2P3zfZbh0xxgKG=dsN9tz9sb=8nhmM3S_vt=8a7KuXy3tA@mail.gmail.com>
	<8d5dd357-796b-3a3d-0560-b28e1e9932b4@yahoo.com.br>
	<CALPXWt-L4sj7Y=UGWWAPvnvjf0=8wemWBsCr58pZMXDWJ2W7Fw@mail.gmail.com>
	<CACLgUQLmKxDbNCWix7FcMFdTWFkToZQ=-xBxmzE3G-XO=_5ORg@mail.gmail.com>
	<CAAxpsibrvY=hhUF0b3USeTBU-DLW2uSuc547rgb=A0AX4Ly13A@mail.gmail.com>
Message-ID: <CABoU2P23HOESFwEzS18cTtCp9X3D95Wg8+CO7Dn=usvga3ahew@mail.gmail.com>

Lucas,

Creio que o artigo seja uma introdu??o mesmo. Mas como n?o tinha visto
material sobre isso com Perl, achei interessante compartilhar.

De qualquer forma, seria bacana se voc? pudesse(se quiser, ? claro!),
linkar um material com o que falta.



Cheers!



2016-11-07 10:37 GMT-02:00 Blabos de Blebe <blabos at gmail.com>:

> Parece que os boatos sobre a morte da lista foram meio exagerados...
>
> O texto n?o cobre tudo, mas ainda ? bem interessante. Um ponto de partida.
>
> Gostei
>
> 2016-11-06 20:30 GMT-02:00 Lucas Mateus <lucasmateus.oliveira at gmail.com>:
>
>> Legal, mas acho que faltou assuntos importantes como versionamento da
>> app, CI/CD, documenta??o, monitorias e health checks,  algo que mapeie os
>> micro servi?os e suas depend?ncias, tests integrados... enfim a arquitetura
>> e a engenharia disso ? bem mais ampla.
>>
>> Em 6 de nov de 2016 8:09 PM, "Daniel Vinciguerra" <
>> daniel.vinciguerra at bivee.com.br> escreveu:
>>
>>> Massa cara! :)
>>>
>>>
>>>
>>> *Daniel Vinciguerra*
>>> Web Solutions Architect and founder at Bivee
>>> Cel: +55 (47) 9270-6171
>>>
>>> *ATEN??O/ATTENTION:*
>>> Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido
>>> ao uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
>>> mensagem por engano, por favor, notifique o remetente e remova-o
>>> imediatamente.
>>>
>>>
>>> This e-mail contains confidential information intended only for the use
>>> of the individual or entity named above. If you are not the intended
>>> recipient, please notify the sender and delete it immediately.
>>>
>>> 2016-11-06 14:52 GMT-02:00 Alceu Rodrigues de Freitas Junior <
>>> glasswalk3r at yahoo.com.br>:
>>>
>>>> Andre Carneiro++
>>>>
>>>>
>>>> Em 06-11-2016 12:05, Andre Carneiro escreveu:
>>>>
>>>>> Salve!
>>>>>
>>>>> N?o sei se a lista est? morta, mas vi um artigo interessante sobre
>>>>> "coisinhas" para utilizar quando se desenvolve em arquitetura de
>>>>> micro-servi?os em Perl, e deu vontade de compartilhar.
>>>>>
>>>>> https://engineering.semantics3.com/2016/06/15/a-perl-toolcha
>>>>> in-for-building-micro-services-at-scale/
>>>>>
>>>>> Cheers!
>>>>>
>>>>> --
>>>>> Andr? Garcia Carneiro
>>>>> Software Engineer
>>>>> (11)982907780
>>>>>
>>>>>
>>>>> =begin disclaimer
>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> =end disclaimer
>>>>>
>>>>>
>>>> =begin disclaimer
>>>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161108/abec5eec/attachment.html>

From lucasmateus.oliveira at gmail.com  Tue Nov  8 05:02:12 2016
From: lucasmateus.oliveira at gmail.com (Lucas Mateus)
Date: Tue, 8 Nov 2016 11:02:12 -0200
Subject: [SP-pm] Microservices
In-Reply-To: <CABoU2P23HOESFwEzS18cTtCp9X3D95Wg8+CO7Dn=usvga3ahew@mail.gmail.com>
References: <CABoU2P3zfZbh0xxgKG=dsN9tz9sb=8nhmM3S_vt=8a7KuXy3tA@mail.gmail.com>
	<8d5dd357-796b-3a3d-0560-b28e1e9932b4@yahoo.com.br>
	<CALPXWt-L4sj7Y=UGWWAPvnvjf0=8wemWBsCr58pZMXDWJ2W7Fw@mail.gmail.com>
	<CACLgUQLmKxDbNCWix7FcMFdTWFkToZQ=-xBxmzE3G-XO=_5ORg@mail.gmail.com>
	<CAAxpsibrvY=hhUF0b3USeTBU-DLW2uSuc547rgb=A0AX4Ly13A@mail.gmail.com>
	<CABoU2P23HOESFwEzS18cTtCp9X3D95Wg8+CO7Dn=usvga3ahew@mail.gmail.com>
Message-ID: <CACLgUQJAbjz-BPhUUPohusX4xM_M1Lb5ka3-g6V4LZ8nNMp6eA@mail.gmail.com>

   Andr?, n?o tenho a menor d?vida de que o texto ajuda bastante a trilhar
um caminho de DX (developer experience) com ele se refere.

   Comentei com o objetivo de dizer que temos mais coisas sobre isso que
ele n?o trata no texto, ou porque n?o implementam ou porque simplesmente
quis focar apenas nas informa??es sobre Perl.

   S?o detalhes que em conjunto trazem bons benef?cios, seguran?a e
performance para o software.

*Stateless*
    O JWT <https://jwt.io/> (JSON Web Token) resolve um problem?o sobre
stateless, trazendo seguran?a e eliminado o servidor de estado (ex. redis)

*Cache API*
    A maioria dos servi?os que eu conhe?o fazem cache de forma ineficiente,
a request bate na app que vai num cache (redis, memcache) se n?o tiver vai
no banco, cacheia no servi?o de cache e ent?o entrega.

    ? um processo burro, mas se se enquadra em alguns casos. O melhor mesmo
? fazer o cache no nginx <https://www.nginx.com/blog/nginx-caching-guide/> e
deixar passar para a app apenas requisi??es que ela ter? de processar. O
servi?o ficar? absurdamente mais r?pido al?m de exigir menos c?digo, infra,
manuten??o e etc.

*Versionamento de C?digo*
    Gitlab <https://gitlab.com> ? muito melhor que Github, o Gitlab al?m de
gratuito para projetos privados j? tem CI (continuous integration) e CD
(continuous delivery) inclusive com Docker. Aqui voc? j? mata v?rios
coelhos com uma paulada s?, podendo rodar testes integrados e complexos
automaticamente a depender da a??o do desenvolvedor (commit master, create
tag).

*Versionamento APP*
    Utilizo bastante o utilit?rio de comando chamando stepup
<https://github.com/kawamanza/step-up> que faz a gest?o do versionamento da
app (tags) + change log organizado e export?vel em v?rios formatos.

*Mapeamento de depend?ncias*
   Utilizamos solu??o pr?pria, essa eu n?o conhe?o nenhuma solu??o nem free
e nem paga. ? 100% baseada no healthcheck da app e isso da muita
flexibilidade para a monitoria.

   Lembrando que uma empresa pode ter muitos micro servi?os e quando isso
um desses der problema pode ocasionar problemas em muitos outros, as vezes
leva tempo para descobrir a causa raiz no meio de tantos alarmes.

*Teste de carga*
   O famoso jmeter <http://jmeter.apache.org/> consegue dar uma boa vis?o
na performance o servi?o e de todo o conjunto. Somado ao newrelic
<https://newrelic.com/> pode se ter um bom hist?rico de performance.

   Acho que esses pontos deixa a coisa mais completa sobre micro servi?os e
expande um pouco mais para al?m do Perl

--
Lucas Mateus


Em 8 de novembro de 2016 10:18, Andre Carneiro <
andregarciacarneiro at gmail.com> escreveu:

> Lucas,
>
> Creio que o artigo seja uma introdu??o mesmo. Mas como n?o tinha visto
> material sobre isso com Perl, achei interessante compartilhar.
>
> De qualquer forma, seria bacana se voc? pudesse(se quiser, ? claro!),
> linkar um material com o que falta.
>
>
>
> Cheers!
>
>
>
>
> 2016-11-07 10:37 GMT-02:00 Blabos de Blebe <blabos at gmail.com>:
>
>> Parece que os boatos sobre a morte da lista foram meio exagerados...
>>
>> O texto n?o cobre tudo, mas ainda ? bem interessante. Um ponto de partida.
>>
>> Gostei
>>
>> 2016-11-06 20:30 GMT-02:00 Lucas Mateus <lucasmateus.oliveira at gmail.com>:
>>
>>> Legal, mas acho que faltou assuntos importantes como versionamento da
>>> app, CI/CD, documenta??o, monitorias e health checks,  algo que mapeie os
>>> micro servi?os e suas depend?ncias, tests integrados... enfim a arquitetura
>>> e a engenharia disso ? bem mais ampla.
>>>
>>> Em 6 de nov de 2016 8:09 PM, "Daniel Vinciguerra" <
>>> daniel.vinciguerra at bivee.com.br> escreveu:
>>>
>>>> Massa cara! :)
>>>>
>>>>
>>>>
>>>> *Daniel Vinciguerra*
>>>> Web Solutions Architect and founder at Bivee
>>>> Cel: +55 (47) 9270-6171
>>>>
>>>> *ATEN??O/ATTENTION:*
>>>> Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido
>>>> ao uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
>>>> mensagem por engano, por favor, notifique o remetente e remova-o
>>>> imediatamente.
>>>>
>>>>
>>>> This e-mail contains confidential information intended only for the use
>>>> of the individual or entity named above. If you are not the intended
>>>> recipient, please notify the sender and delete it immediately.
>>>>
>>>> 2016-11-06 14:52 GMT-02:00 Alceu Rodrigues de Freitas Junior <
>>>> glasswalk3r at yahoo.com.br>:
>>>>
>>>>> Andre Carneiro++
>>>>>
>>>>>
>>>>> Em 06-11-2016 12:05, Andre Carneiro escreveu:
>>>>>
>>>>>> Salve!
>>>>>>
>>>>>> N?o sei se a lista est? morta, mas vi um artigo interessante sobre
>>>>>> "coisinhas" para utilizar quando se desenvolve em arquitetura de
>>>>>> micro-servi?os em Perl, e deu vontade de compartilhar.
>>>>>>
>>>>>> https://engineering.semantics3.com/2016/06/15/a-perl-toolcha
>>>>>> in-for-building-micro-services-at-scale/
>>>>>>
>>>>>> Cheers!
>>>>>>
>>>>>> --
>>>>>> Andr? Garcia Carneiro
>>>>>> Software Engineer
>>>>>> (11)982907780
>>>>>>
>>>>>>
>>>>>> =begin disclaimer
>>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>>> =end disclaimer
>>>>>>
>>>>>>
>>>>> =begin disclaimer
>>>>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> =end disclaimer
>>>>>
>>>>
>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Andr? Garcia Carneiro
> Software Engineer
> (11)982907780
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161108/44e62715/attachment-0001.html>

From daniel.vinciguerra at bivee.com.br  Tue Nov  8 06:44:10 2016
From: daniel.vinciguerra at bivee.com.br (Daniel Vinciguerra)
Date: Tue, 8 Nov 2016 12:44:10 -0200
Subject: [SP-pm] Microservices
In-Reply-To: <1536540907.1550121.1478526705045@mail.yahoo.com>
References: <1536540907.1550121.1478526705045.ref@mail.yahoo.com>
	<1536540907.1550121.1478526705045@mail.yahoo.com>
Message-ID: <CALPXWt_KME2M6dLCegCkxQdSh6cAxXcorLLgTu+p9tDy49Wa7A@mail.gmail.com>

Alceu,

Na minha mais humilde opini?o, as ferramentas s?o utilzadas para propositos
diferentes:

Enquanto o Dist:Zilla ? uma ferramenta que oferece scaffolding e outras
facilidades para se manter um m?dulo e aplica??es o Carton ? utilizado em
produ??o para resolver as dependencias, instalar (cpanm em background) e
rodar o projeto com as depend?ncias corretas.

Ele segue o mesmo conceito de dependency managers modernos como o bundler
do Ruby, o pip do Python e o npm (ecaa) do Node.

Grande abra?o,





*Daniel Vinciguerra*
Web Solutions Architect and founder at Bivee
Cel: +55 (47) 9270-6171

*ATEN??O/ATTENTION:*
Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao
uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
mensagem por engano, por favor, notifique o remetente e remova-o
imediatamente.


This e-mail contains confidential information intended only for the use of
the individual or entity named above. If you are not the intended
recipient, please notify the sender and delete it immediately.

2016-11-07 11:51 GMT-02:00 Alceu R. de Freitas Jr. <glasswalk3r at yahoo.com.br
>:

> Estava lendo o Pod do Carton (https://metacpan.org/pod/Carton) mas n?o
> fiquei muito impressionado com a descri??o feita ali.
>
> Quais as vantagens de us?-lo quando comparado com o Dist::Zilla?
>
> --------------------------------------------
> Em dom, 6/11/16, Lucas Mateus <lucasmateus.oliveira at gmail.com> escreveu:
>
>  Assunto: Re: [SP-pm] Microservices
>  Para: saopaulo-pm at mail.pm.org
>  Data: Domingo, 6 de Novembro de 2016, 20:30
>
>  Legal, mas
>  acho que faltou assuntos importantes como versionamento da
>  app, CI/CD, documenta??o, monitorias e health checks,
>  algo que mapeie os micro servi?os e suas depend?ncias,
>  tests integrados... enfim a arquitetura e a engenharia disso
>  ? bem mais ampla.
>
>  Em 6 de nov de 2016 8:09
>  PM, "Daniel Vinciguerra" <daniel.vinciguerra at bivee.com.br>
>  escreveu:
>  Massa cara! :)
>
>
>
>
>
>    Daniel
>    Vinciguerra
>
>    Web Solutions Architect and founder at Bivee
>
>    Cel: +55 (47)
>  9270-6171
>
>
>    ATEN??O/ATTENTION:
>
>    Este e-mail cont?m informa??es confidenciais e seu
>  conte?do ? dirigido ao uso
>    do indiv?duo ou da entidade mencionados acima. Se voc?
>  recebeu esta mensagem por
>    engano, por favor, notifique o remetente e remova-o
>  imediatamente.
>
>
>    This e-mail contains confidential information intended
>  only for the use of
>    the individual or entity named above. If you are not the
>  intended recipient,
>    please notify the sender and delete it
>  immediately.
>
>
>
>
>
>
>  2016-11-06 14:52 GMT-02:00
>  Alceu Rodrigues de Freitas Junior <glasswalk3r at yahoo.com.br>:
>  Andre Carneiro++
>
>
>
>  Em 06-11-2016 12:05, Andre Carneiro escreveu:
>
>
>  Salve!
>
>
>
>  N?o sei se a lista est? morta, mas vi um artigo
>  interessante sobre
>
>  "coisinhas" para utilizar quando se desenvolve em
>  arquitetura de
>
>  micro-servi?os em Perl, e deu vontade de compartilhar.
>
>
>
>  https://engineering.semantics3
>  .com/2016/06/15/a-perl-toolcha
>  in-for-building-micro-services -at-scale/
>
>
>
>  Cheers!
>
>
>
>  --
>
>  Andr? Garcia Carneiro
>
>  Software Engineer
>
>  (11)982907780
>
>
>
>
>
>  =begin disclaimer
>
>     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>
>   SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>
>   L<http://mail.pm.org/mailman/
>  listinfo/saopaulo-pm>
>
>  =end disclaimer
>
>
>
>
>
>
>  =begin disclaimer
>
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>
>  L<http://mail.pm.org/mailman/l
>  istinfo/saopaulo-pm>
>
>  =end disclaimer
>
>
>
>
>  =begin disclaimer
>
>     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>
>   SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>
>   L<http://mail.pm.org/mailman/
>  listinfo/saopaulo-pm>
>
>  =end disclaimer
>
>
>
>  -----Anexo incorporado-----
>
>  =begin disclaimer
>     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>   SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>   L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>  =end disclaimer
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161108/72dc8256/attachment.html>

From lucasmateus.oliveira at gmail.com  Tue Nov  8 06:50:02 2016
From: lucasmateus.oliveira at gmail.com (Lucas Mateus)
Date: Tue, 8 Nov 2016 12:50:02 -0200
Subject: [SP-pm] Microservices
In-Reply-To: <CALPXWt_KME2M6dLCegCkxQdSh6cAxXcorLLgTu+p9tDy49Wa7A@mail.gmail.com>
References: <1536540907.1550121.1478526705045.ref@mail.yahoo.com>
	<1536540907.1550121.1478526705045@mail.yahoo.com>
	<CALPXWt_KME2M6dLCegCkxQdSh6cAxXcorLLgTu+p9tDy49Wa7A@mail.gmail.com>
Message-ID: <CACLgUQ+m1Vh=YWNqyKEGphTzCpTot6Si6i8D5Jst+2=_n0hzag@mail.gmail.com>

Mas isso o cpanm com cpanfile resolve muito bem.

Em 8 de nov de 2016 12:45 PM, "Daniel Vinciguerra" <
daniel.vinciguerra at bivee.com.br> escreveu:

> Alceu,
>
> Na minha mais humilde opini?o, as ferramentas s?o utilzadas para
> propositos diferentes:
>
> Enquanto o Dist:Zilla ? uma ferramenta que oferece scaffolding e outras
> facilidades para se manter um m?dulo e aplica??es o Carton ? utilizado em
> produ??o para resolver as dependencias, instalar (cpanm em background) e
> rodar o projeto com as depend?ncias corretas.
>
> Ele segue o mesmo conceito de dependency managers modernos como o bundler
> do Ruby, o pip do Python e o npm (ecaa) do Node.
>
> Grande abra?o,
>
>
>
>
>
> *Daniel Vinciguerra*
> Web Solutions Architect and founder at Bivee
> Cel: +55 (47) 9270-6171
>
> *ATEN??O/ATTENTION:*
> Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao
> uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
> mensagem por engano, por favor, notifique o remetente e remova-o
> imediatamente.
>
>
> This e-mail contains confidential information intended only for the use of
> the individual or entity named above. If you are not the intended
> recipient, please notify the sender and delete it immediately.
>
> 2016-11-07 11:51 GMT-02:00 Alceu R. de Freitas Jr. <
> glasswalk3r at yahoo.com.br>:
>
>> Estava lendo o Pod do Carton (https://metacpan.org/pod/Carton) mas n?o
>> fiquei muito impressionado com a descri??o feita ali.
>>
>> Quais as vantagens de us?-lo quando comparado com o Dist::Zilla?
>>
>> --------------------------------------------
>> Em dom, 6/11/16, Lucas Mateus <lucasmateus.oliveira at gmail.com> escreveu:
>>
>>  Assunto: Re: [SP-pm] Microservices
>>  Para: saopaulo-pm at mail.pm.org
>>  Data: Domingo, 6 de Novembro de 2016, 20:30
>>
>>  Legal, mas
>>  acho que faltou assuntos importantes como versionamento da
>>  app, CI/CD, documenta??o, monitorias e health checks,
>>  algo que mapeie os micro servi?os e suas depend?ncias,
>>  tests integrados... enfim a arquitetura e a engenharia disso
>>  ? bem mais ampla.
>>
>>  Em 6 de nov de 2016 8:09
>>  PM, "Daniel Vinciguerra" <daniel.vinciguerra at bivee.com.br>
>>  escreveu:
>>  Massa cara! :)
>>
>>
>>
>>
>>
>>    Daniel
>>    Vinciguerra
>>
>>    Web Solutions Architect and founder at Bivee
>>
>>    Cel: +55 (47)
>>  9270-6171
>>
>>
>>    ATEN??O/ATTENTION:
>>
>>    Este e-mail cont?m informa??es confidenciais e seu
>>  conte?do ? dirigido ao uso
>>    do indiv?duo ou da entidade mencionados acima. Se voc?
>>  recebeu esta mensagem por
>>    engano, por favor, notifique o remetente e remova-o
>>  imediatamente.
>>
>>
>>    This e-mail contains confidential information intended
>>  only for the use of
>>    the individual or entity named above. If you are not the
>>  intended recipient,
>>    please notify the sender and delete it
>>  immediately.
>>
>>
>>
>>
>>
>>
>>  2016-11-06 14:52 GMT-02:00
>>  Alceu Rodrigues de Freitas Junior <glasswalk3r at yahoo.com.br>:
>>  Andre Carneiro++
>>
>>
>>
>>  Em 06-11-2016 12:05, Andre Carneiro escreveu:
>>
>>
>>  Salve!
>>
>>
>>
>>  N?o sei se a lista est? morta, mas vi um artigo
>>  interessante sobre
>>
>>  "coisinhas" para utilizar quando se desenvolve em
>>  arquitetura de
>>
>>  micro-servi?os em Perl, e deu vontade de compartilhar.
>>
>>
>>
>>  https://engineering.semantics3
>>  .com/2016/06/15/a-perl-toolcha
>>  in-for-building-micro-services -at-scale/
>>
>>
>>
>>  Cheers!
>>
>>
>>
>>  --
>>
>>  Andr? Garcia Carneiro
>>
>>  Software Engineer
>>
>>  (11)982907780
>>
>>
>>
>>
>>
>>  =begin disclaimer
>>
>>     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>
>>   SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>
>>   L<http://mail.pm.org/mailman/
>>  listinfo/saopaulo-pm>
>>
>>  =end disclaimer
>>
>>
>>
>>
>>
>>
>>  =begin disclaimer
>>
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>
>>  L<http://mail.pm.org/mailman/l
>>  istinfo/saopaulo-pm>
>>
>>  =end disclaimer
>>
>>
>>
>>
>>  =begin disclaimer
>>
>>     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>
>>   SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>
>>   L<http://mail.pm.org/mailman/
>>  listinfo/saopaulo-pm>
>>
>>  =end disclaimer
>>
>>
>>
>>  -----Anexo incorporado-----
>>
>>  =begin disclaimer
>>     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>   SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>   L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>  =end disclaimer
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161108/d760b38e/attachment-0001.html>

From glasswalk3r at yahoo.com.br  Tue Nov  8 06:58:30 2016
From: glasswalk3r at yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Tue, 8 Nov 2016 14:58:30 +0000 (UTC)
Subject: [SP-pm] Microservices
References: <1629240791.477124.1478617110402.ref@mail.yahoo.com>
Message-ID: <1629240791.477124.1478617110402@mail.yahoo.com>

O Lucas escreveu exatamente o que eu ia comentar... se eu tiver uma aplica??o criada com Dist::Zilla e usar o cpan para instalar ele (provavelmente com um mirror privado do CPAN - local onde o tal do Pinto se encaixa bem) eu vou ter a mesma coisa.

N?o conhe?o o bundler ou npm, mas acho mais f?cil o pip ter copiado os conceitos do CPAN do que o contr?rio.

--------------------------------------------
Em ter, 8/11/16, Lucas Mateus <lucasmateus.oliveira at gmail.com> escreveu:

 Assunto: Re: [SP-pm] Microservices
 Para: saopaulo-pm at mail.pm.org
 Data: Ter?a-feira, 8 de Novembro de 2016, 12:50
 
 Mas isso o
 cpanm com cpanfile resolve muito bem.
 
 Em 8 de nov de 2016 12:45
 PM, "Daniel Vinciguerra" <daniel.vinciguerra at bivee.com.br>
 escreveu:
 Alceu,
 
 Na minha mais humilde opini?o, as
 ferramentas s?o utilzadas para propositos diferentes:
 
 Enquanto o Dist:Zilla ?
 uma ferramenta que oferece scaffolding e outras facilidades
 para se manter um m?dulo e aplica??es o Carton ?
 utilizado em produ??o para resolver as dependencias,
 instalar (cpanm em background) e rodar o projeto com as
 depend?ncias corretas.
 
 Ele segue o mesmo conceito de dependency
 managers modernos como o bundler do Ruby, o pip do Python e
 o npm (ecaa) do Node.
 
 Grande abra?o,
 
 
 
 
 
   
 
   
   Daniel
   Vinciguerra
 
   Web Solutions Architect and founder at Bivee
 
   Cel: +55 (47)
 9270-6171
   
 
   ATEN??O/ATTENTION: 
 
   Este e-mail cont?m informa??es confidenciais e seu
 conte?do ? dirigido ao uso
   do indiv?duo ou da entidade mencionados acima. Se voc?
 recebeu esta mensagem por
   engano, por favor, notifique o remetente e remova-o
 imediatamente. 
   
 
   This e-mail contains confidential information intended
 only for the use of
   the individual or entity named above. If you are not the
 intended recipient,
   please notify the sender and delete it
 immediately.
   
 
 
 
 
 
 2016-11-07 11:51 GMT-02:00
 Alceu R. de Freitas Jr. <glasswalk3r at yahoo.com.br>:
 Estava lendo o Pod do Carton (https://metacpan.org/pod/Cart
 on) mas n?o fiquei muito impressionado com a
 descri??o feita ali.
 
 
 
 Quais as vantagens de us?-lo quando comparado com o
 Dist::Zilla?
 
 
 
 ------------------------------ --------------
 
 Em dom, 6/11/16, Lucas Mateus <lucasmateus.oliveira at gmail.co
 m> escreveu:
 
 
 
 ?Assunto: Re: [SP-pm] Microservices
 
 ?Para: saopaulo-pm at mail.pm.org
 
 ?Data: Domingo, 6 de Novembro de 2016, 20:30
 
 
 
 ?Legal, mas
 
 ?acho que faltou assuntos importantes como versionamento
 da
 
 ?app, CI/CD, documenta??o, monitorias e health
 checks,?
 
 ?algo que mapeie os micro servi?os e suas
 depend?ncias,
 
 ?tests integrados... enfim a arquitetura e a engenharia
 disso
 
 ?? bem mais ampla.
 
 
 
 ?Em 6 de nov de 2016 8:09
 
 ?PM, "Daniel Vinciguerra" <daniel.vinciguerra at bivee.com.
 br>
 
 ?escreveu:
 
 ?Massa cara! :)
 
 
 
 
 
 
 
 
 
 
 
 ? ?Daniel
 
 ? ?Vinciguerra
 
 
 
 ? ?Web Solutions Architect and founder at Bivee
 
 
 
 ? ?Cel: +55 (47)
 
 ?9270-6171
 
 
 
 
 
 ? ?ATEN??O/ATTENTION:
 
 
 
 ? ?Este e-mail cont?m informa??es confidenciais e
 seu
 
 ?conte?do ? dirigido ao uso
 
 ? ?do indiv?duo ou da entidade mencionados acima. Se
 voc?
 
 ?recebeu esta mensagem por
 
 ? ?engano, por favor, notifique o remetente e remova-o
 
 ?imediatamente.
 
 
 
 
 
 ? ?This e-mail contains confidential information
 intended
 
 ?only for the use of
 
 ? ?the individual or entity named above. If you are not
 the
 
 ?intended recipient,
 
 ? ?please notify the sender and delete it
 
 ?immediately.
 
 
 
 
 
 
 
 
 
 
 
 
 
 ?2016-11-06 14:52 GMT-02:00
 
 ?Alceu Rodrigues de Freitas Junior <glasswalk3r at yahoo.com.br>:
 
 ?Andre Carneiro++
 
 
 
 
 
 
 
 ?Em 06-11-2016 12:05, Andre Carneiro escreveu:
 
 
 
 
 
 ?Salve!
 
 
 
 
 
 
 
 ?N?o sei se a lista est? morta, mas vi um artigo
 
 ?interessante sobre
 
 
 
 ?"coisinhas" para utilizar quando se desenvolve
 em
 
 ?arquitetura de
 
 
 
 ?micro-servi?os em Perl, e deu vontade de compartilhar.
 
 
 
 
 
 
 
 ?https://engineering.
 semantics3
 
 ?.com/2016/06/15/a-perl- toolcha
 
 ?in-for-building-micro- services -at-scale/
 
 
 
 
 
 
 
 ?Cheers!
 
 
 
 
 
 
 
 ?--
 
 
 
 ?Andr? Garcia Carneiro
 
 
 
 ?Software Engineer
 
 
 
 ?(11)982907780
 
 
 
 
 
 
 
 
 
 
 
 ?=begin disclaimer
 
 
 
 ?? ?Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 
 
 
 ??SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
 
 
 
 ??L<http://mail.pm.org/
 mailman/
 
 ?listinfo/saopaulo-pm>
 
 
 
 ?=end disclaimer
 
 
 
 
 
 
 
 
 
 
 
 
 
 ?=begin disclaimer
 
 
 
 ?? Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 
 
 
 ?SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
 
 
 
 ?L<http://mail.pm.org/mailman/
 l
 
 ?istinfo/saopaulo-pm>
 
 
 
 ?=end disclaimer
 
 
 
 
 
 
 
 
 
 ?=begin disclaimer
 
 
 
 ?? ?Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 
 
 
 ??SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
 
 
 
 ??L<http://mail.pm.org/
 mailman/
 
 ?listinfo/saopaulo-pm>
 
 
 
 ?=end disclaimer
 
 
 
 
 
 
 
 ?-----Anexo incorporado-----
 
 
 
 ?=begin disclaimer
 
 ????Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 
 ? SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
 
 ? L<http://mail.pm.org/mailman/l
 istinfo/saopaulo-pm>
 
 ?=end disclaimer
 
 
 
 =begin disclaimer
 
 ? ?Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 
 ?SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
 
 ?L<http://mail.pm.org/mailman/
 listinfo/saopaulo-pm>
 
 =end disclaimer
 
 
 
 
 =begin disclaimer
 
 ? ?Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 
 ?SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
 
 ?L<http://mail.pm.org/mailman/
 listinfo/saopaulo-pm>
 
 =end disclaimer
 
 
 
 -----Anexo incorporado-----
 
 =begin disclaimer
 ???Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
 =end disclaimer
 

From daniel.vinciguerra at bivee.com.br  Tue Nov  8 07:25:55 2016
From: daniel.vinciguerra at bivee.com.br (Daniel Vinciguerra)
Date: Tue, 8 Nov 2016 13:25:55 -0200
Subject: [SP-pm] Microservices
In-Reply-To: <1629240791.477124.1478617110402@mail.yahoo.com>
References: <1629240791.477124.1478617110402.ref@mail.yahoo.com>
	<1629240791.477124.1478617110402@mail.yahoo.com>
Message-ID: <CALPXWt_NcAb3_d90PSCNqgkCUyE8zqami=1a8oKwg3gz1mVVhQ@mail.gmail.com>

Mais ou menos...

A stack cpanm + cpanfile ? muito boa sim e instala as dependencias do
projeto que voc? esta tentando rodar localmente (diretorio do usu?rio) ou
globalmente (lib do sistema).

Imagine que vc tenha o m?dulo XPTO na vers?o 5 instalado e que para rodar
um projeto voc? precise ter  a vers?o 4.

O Carton permite que esta vers?o seja baixada no diret?rio do projeto na
pasta "local" e com o commando "carton exec" vc fa?a uso desta vers?o do
m?dulo especifica, e n?o a que voc? esta rodando localmente.

Ele tamb?m cria um arquivo de snapshot do seu cpanfile para que o mesmo
possa ser versionado.

Voc? n?o precisa instalar um modulo que nunca mais vai usar no perl
local::lib, ou pior, no seu lib global.
Existem v?rios ganhos na minha opini?o.


N?o estou falando que ele ? melhor mais para a minha toolchain uso ele
porque ele me traz beneficios.

Abs,




*Daniel Vinciguerra*
Web Solutions Architect and founder at Bivee
Cel: +55 (47) 9270-6171

*ATEN??O/ATTENTION:*
Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao
uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
mensagem por engano, por favor, notifique o remetente e remova-o
imediatamente.


This e-mail contains confidential information intended only for the use of
the individual or entity named above. If you are not the intended
recipient, please notify the sender and delete it immediately.

2016-11-08 12:58 GMT-02:00 Alceu R. de Freitas Jr. <glasswalk3r at yahoo.com.br
>:

> O Lucas escreveu exatamente o que eu ia comentar... se eu tiver uma
> aplica??o criada com Dist::Zilla e usar o cpan para instalar ele
> (provavelmente com um mirror privado do CPAN - local onde o tal do Pinto se
> encaixa bem) eu vou ter a mesma coisa.
>
> N?o conhe?o o bundler ou npm, mas acho mais f?cil o pip ter copiado os
> conceitos do CPAN do que o contr?rio.
>
> --------------------------------------------
> Em ter, 8/11/16, Lucas Mateus <lucasmateus.oliveira at gmail.com> escreveu:
>
>  Assunto: Re: [SP-pm] Microservices
>  Para: saopaulo-pm at mail.pm.org
>  Data: Ter?a-feira, 8 de Novembro de 2016, 12:50
>
>  Mas isso o
>  cpanm com cpanfile resolve muito bem.
>
>  Em 8 de nov de 2016 12:45
>  PM, "Daniel Vinciguerra" <daniel.vinciguerra at bivee.com.br>
>  escreveu:
>  Alceu,
>
>  Na minha mais humilde opini?o, as
>  ferramentas s?o utilzadas para propositos diferentes:
>
>  Enquanto o Dist:Zilla ?
>  uma ferramenta que oferece scaffolding e outras facilidades
>  para se manter um m?dulo e aplica??es o Carton ?
>  utilizado em produ??o para resolver as dependencias,
>  instalar (cpanm em background) e rodar o projeto com as
>  depend?ncias corretas.
>
>  Ele segue o mesmo conceito de dependency
>  managers modernos como o bundler do Ruby, o pip do Python e
>  o npm (ecaa) do Node.
>
>  Grande abra?o,
>
>
>
>
>
>
>
>
>    Daniel
>    Vinciguerra
>
>    Web Solutions Architect and founder at Bivee
>
>    Cel: +55 (47)
>  9270-6171
>
>
>    ATEN??O/ATTENTION:
>
>    Este e-mail cont?m informa??es confidenciais e seu
>  conte?do ? dirigido ao uso
>    do indiv?duo ou da entidade mencionados acima. Se voc?
>  recebeu esta mensagem por
>    engano, por favor, notifique o remetente e remova-o
>  imediatamente.
>
>
>    This e-mail contains confidential information intended
>  only for the use of
>    the individual or entity named above. If you are not the
>  intended recipient,
>    please notify the sender and delete it
>  immediately.
>
>
>
>
>
>
>  2016-11-07 11:51 GMT-02:00
>  Alceu R. de Freitas Jr. <glasswalk3r at yahoo.com.br>:
>  Estava lendo o Pod do Carton (https://metacpan.org/pod/Cart
>  on) mas n?o fiquei muito impressionado com a
>  descri??o feita ali.
>
>
>
>  Quais as vantagens de us?-lo quando comparado com o
>  Dist::Zilla?
>
>
>
>  ------------------------------ --------------
>
>  Em dom, 6/11/16, Lucas Mateus <lucasmateus.oliveira at gmail.co
>  m> escreveu:
>
>
>
>   Assunto: Re: [SP-pm] Microservices
>
>   Para: saopaulo-pm at mail.pm.org
>
>   Data: Domingo, 6 de Novembro de 2016, 20:30
>
>
>
>   Legal, mas
>
>   acho que faltou assuntos importantes como versionamento
>  da
>
>   app, CI/CD, documenta??o, monitorias e health
>  checks,
>
>   algo que mapeie os micro servi?os e suas
>  depend?ncias,
>
>   tests integrados... enfim a arquitetura e a engenharia
>  disso
>
>   ? bem mais ampla.
>
>
>
>   Em 6 de nov de 2016 8:09
>
>   PM, "Daniel Vinciguerra" <daniel.vinciguerra at bivee.com.
>  br>
>
>   escreveu:
>
>   Massa cara! :)
>
>
>
>
>
>
>
>
>
>
>
>     Daniel
>
>     Vinciguerra
>
>
>
>     Web Solutions Architect and founder at Bivee
>
>
>
>     Cel: +55 (47)
>
>   9270-6171
>
>
>
>
>
>     ATEN??O/ATTENTION:
>
>
>
>     Este e-mail cont?m informa??es confidenciais e
>  seu
>
>   conte?do ? dirigido ao uso
>
>     do indiv?duo ou da entidade mencionados acima. Se
>  voc?
>
>   recebeu esta mensagem por
>
>     engano, por favor, notifique o remetente e remova-o
>
>   imediatamente.
>
>
>
>
>
>     This e-mail contains confidential information
>  intended
>
>   only for the use of
>
>     the individual or entity named above. If you are not
>  the
>
>   intended recipient,
>
>     please notify the sender and delete it
>
>   immediately.
>
>
>
>
>
>
>
>
>
>
>
>
>
>   2016-11-06 14:52 GMT-02:00
>
>   Alceu Rodrigues de Freitas Junior <glasswalk3r at yahoo.com.br>:
>
>   Andre Carneiro++
>
>
>
>
>
>
>
>   Em 06-11-2016 12:05, Andre Carneiro escreveu:
>
>
>
>
>
>   Salve!
>
>
>
>
>
>
>
>   N?o sei se a lista est? morta, mas vi um artigo
>
>   interessante sobre
>
>
>
>   "coisinhas" para utilizar quando se desenvolve
>  em
>
>   arquitetura de
>
>
>
>   micro-servi?os em Perl, e deu vontade de compartilhar.
>
>
>
>
>
>
>
>   https://engineering.
>  semantics3
>
>   .com/2016/06/15/a-perl- toolcha
>
>   in-for-building-micro- services -at-scale/
>
>
>
>
>
>
>
>   Cheers!
>
>
>
>
>
>
>
>   --
>
>
>
>   Andr? Garcia Carneiro
>
>
>
>   Software Engineer
>
>
>
>   (11)982907780
>
>
>
>
>
>
>
>
>
>
>
>   =begin disclaimer
>
>
>
>      Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>
>
>
>    SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>
>
>
>    L<http://mail.pm.org/
>  mailman/
>
>   listinfo/saopaulo-pm>
>
>
>
>   =end disclaimer
>
>
>
>
>
>
>
>
>
>
>
>
>
>   =begin disclaimer
>
>
>
>     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>
>
>
>   SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>
>
>
>   L<http://mail.pm.org/mailman/
>  l
>
>   istinfo/saopaulo-pm>
>
>
>
>   =end disclaimer
>
>
>
>
>
>
>
>
>
>   =begin disclaimer
>
>
>
>      Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>
>
>
>    SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>
>
>
>    L<http://mail.pm.org/
>  mailman/
>
>   listinfo/saopaulo-pm>
>
>
>
>   =end disclaimer
>
>
>
>
>
>
>
>   -----Anexo incorporado-----
>
>
>
>   =begin disclaimer
>
>      Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>
>    SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>
>    L<http://mail.pm.org/mailman/l
>  istinfo/saopaulo-pm>
>
>   =end disclaimer
>
>
>
>  =begin disclaimer
>
>     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>
>   SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>
>   L<http://mail.pm.org/mailman/
>  listinfo/saopaulo-pm>
>
>  =end disclaimer
>
>
>
>
>  =begin disclaimer
>
>     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>
>   SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>
>   L<http://mail.pm.org/mailman/
>  listinfo/saopaulo-pm>
>
>  =end disclaimer
>
>
>
>  -----Anexo incorporado-----
>
>  =begin disclaimer
>     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>   SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>   L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>  =end disclaimer
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161108/0f6619ad/attachment-0001.html>

From andregarciacarneiro at gmail.com  Mon Nov 14 10:03:16 2016
From: andregarciacarneiro at gmail.com (Andre Carneiro)
Date: Mon, 14 Nov 2016 16:03:16 -0200
Subject: [SP-pm] Microservices
In-Reply-To: <CALPXWt_NcAb3_d90PSCNqgkCUyE8zqami=1a8oKwg3gz1mVVhQ@mail.gmail.com>
References: <1629240791.477124.1478617110402.ref@mail.yahoo.com>
	<1629240791.477124.1478617110402@mail.yahoo.com>
	<CALPXWt_NcAb3_d90PSCNqgkCUyE8zqami=1a8oKwg3gz1mVVhQ@mail.gmail.com>
Message-ID: <CABoU2P3tfrDfzzpXGvpjt+_LwA+k+C-W-i5oKOb=T06jhj_1qQ@mail.gmail.com>

Obrigado pelas respostas!

2016-11-08 13:25 GMT-02:00 Daniel Vinciguerra <
daniel.vinciguerra at bivee.com.br>:

> Mais ou menos...
>
> A stack cpanm + cpanfile ? muito boa sim e instala as dependencias do
> projeto que voc? esta tentando rodar localmente (diretorio do usu?rio) ou
> globalmente (lib do sistema).
>
> Imagine que vc tenha o m?dulo XPTO na vers?o 5 instalado e que para rodar
> um projeto voc? precise ter  a vers?o 4.
>
> O Carton permite que esta vers?o seja baixada no diret?rio do projeto na
> pasta "local" e com o commando "carton exec" vc fa?a uso desta vers?o do
> m?dulo especifica, e n?o a que voc? esta rodando localmente.
>
> Ele tamb?m cria um arquivo de snapshot do seu cpanfile para que o mesmo
> possa ser versionado.
>
> Voc? n?o precisa instalar um modulo que nunca mais vai usar no perl
> local::lib, ou pior, no seu lib global.
> Existem v?rios ganhos na minha opini?o.
>
>
> N?o estou falando que ele ? melhor mais para a minha toolchain uso ele
> porque ele me traz beneficios.
>
> Abs,
>
>
>
>
> *Daniel Vinciguerra*
> Web Solutions Architect and founder at Bivee
> Cel: +55 (47) 9270-6171
>
> *ATEN??O/ATTENTION:*
> Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao
> uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
> mensagem por engano, por favor, notifique o remetente e remova-o
> imediatamente.
>
>
> This e-mail contains confidential information intended only for the use of
> the individual or entity named above. If you are not the intended
> recipient, please notify the sender and delete it immediately.
>
> 2016-11-08 12:58 GMT-02:00 Alceu R. de Freitas Jr. <
> glasswalk3r at yahoo.com.br>:
>
>> O Lucas escreveu exatamente o que eu ia comentar... se eu tiver uma
>> aplica??o criada com Dist::Zilla e usar o cpan para instalar ele
>> (provavelmente com um mirror privado do CPAN - local onde o tal do Pinto se
>> encaixa bem) eu vou ter a mesma coisa.
>>
>> N?o conhe?o o bundler ou npm, mas acho mais f?cil o pip ter copiado os
>> conceitos do CPAN do que o contr?rio.
>>
>> --------------------------------------------
>> Em ter, 8/11/16, Lucas Mateus <lucasmateus.oliveira at gmail.com> escreveu:
>>
>>  Assunto: Re: [SP-pm] Microservices
>>  Para: saopaulo-pm at mail.pm.org
>>  Data: Ter?a-feira, 8 de Novembro de 2016, 12:50
>>
>>  Mas isso o
>>  cpanm com cpanfile resolve muito bem.
>>
>>  Em 8 de nov de 2016 12:45
>>  PM, "Daniel Vinciguerra" <daniel.vinciguerra at bivee.com.br>
>>  escreveu:
>>  Alceu,
>>
>>  Na minha mais humilde opini?o, as
>>  ferramentas s?o utilzadas para propositos diferentes:
>>
>>  Enquanto o Dist:Zilla ?
>>  uma ferramenta que oferece scaffolding e outras facilidades
>>  para se manter um m?dulo e aplica??es o Carton ?
>>  utilizado em produ??o para resolver as dependencias,
>>  instalar (cpanm em background) e rodar o projeto com as
>>  depend?ncias corretas.
>>
>>  Ele segue o mesmo conceito de dependency
>>  managers modernos como o bundler do Ruby, o pip do Python e
>>  o npm (ecaa) do Node.
>>
>>  Grande abra?o,
>>
>>
>>
>>
>>
>>
>>
>>
>>    Daniel
>>    Vinciguerra
>>
>>    Web Solutions Architect and founder at Bivee
>>
>>    Cel: +55 (47)
>>  9270-6171
>>
>>
>>    ATEN??O/ATTENTION:
>>
>>    Este e-mail cont?m informa??es confidenciais e seu
>>  conte?do ? dirigido ao uso
>>    do indiv?duo ou da entidade mencionados acima. Se voc?
>>  recebeu esta mensagem por
>>    engano, por favor, notifique o remetente e remova-o
>>  imediatamente.
>>
>>
>>    This e-mail contains confidential information intended
>>  only for the use of
>>    the individual or entity named above. If you are not the
>>  intended recipient,
>>    please notify the sender and delete it
>>  immediately.
>>
>>
>>
>>
>>
>>
>>  2016-11-07 11:51 GMT-02:00
>>  Alceu R. de Freitas Jr. <glasswalk3r at yahoo.com.br>:
>>  Estava lendo o Pod do Carton (https://metacpan.org/pod/Cart
>>  on) mas n?o fiquei muito impressionado com a
>>  descri??o feita ali.
>>
>>
>>
>>  Quais as vantagens de us?-lo quando comparado com o
>>  Dist::Zilla?
>>
>>
>>
>>  ------------------------------ --------------
>>
>>  Em dom, 6/11/16, Lucas Mateus <lucasmateus.oliveira at gmail.co
>>  m> escreveu:
>>
>>
>>
>>   Assunto: Re: [SP-pm] Microservices
>>
>>   Para: saopaulo-pm at mail.pm.org
>>
>>   Data: Domingo, 6 de Novembro de 2016, 20:30
>>
>>
>>
>>   Legal, mas
>>
>>   acho que faltou assuntos importantes como versionamento
>>  da
>>
>>   app, CI/CD, documenta??o, monitorias e health
>>  checks,
>>
>>   algo que mapeie os micro servi?os e suas
>>  depend?ncias,
>>
>>   tests integrados... enfim a arquitetura e a engenharia
>>  disso
>>
>>   ? bem mais ampla.
>>
>>
>>
>>   Em 6 de nov de 2016 8:09
>>
>>   PM, "Daniel Vinciguerra" <daniel.vinciguerra at bivee.com.
>>  br>
>>
>>   escreveu:
>>
>>   Massa cara! :)
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>     Daniel
>>
>>     Vinciguerra
>>
>>
>>
>>     Web Solutions Architect and founder at Bivee
>>
>>
>>
>>     Cel: +55 (47)
>>
>>   9270-6171
>>
>>
>>
>>
>>
>>     ATEN??O/ATTENTION:
>>
>>
>>
>>     Este e-mail cont?m informa??es confidenciais e
>>  seu
>>
>>   conte?do ? dirigido ao uso
>>
>>     do indiv?duo ou da entidade mencionados acima. Se
>>  voc?
>>
>>   recebeu esta mensagem por
>>
>>     engano, por favor, notifique o remetente e remova-o
>>
>>   imediatamente.
>>
>>
>>
>>
>>
>>     This e-mail contains confidential information
>>  intended
>>
>>   only for the use of
>>
>>     the individual or entity named above. If you are not
>>  the
>>
>>   intended recipient,
>>
>>     please notify the sender and delete it
>>
>>   immediately.
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>   2016-11-06 14:52 GMT-02:00
>>
>>   Alceu Rodrigues de Freitas Junior <glasswalk3r at yahoo.com.br>:
>>
>>   Andre Carneiro++
>>
>>
>>
>>
>>
>>
>>
>>   Em 06-11-2016 12:05, Andre Carneiro escreveu:
>>
>>
>>
>>
>>
>>   Salve!
>>
>>
>>
>>
>>
>>
>>
>>   N?o sei se a lista est? morta, mas vi um artigo
>>
>>   interessante sobre
>>
>>
>>
>>   "coisinhas" para utilizar quando se desenvolve
>>  em
>>
>>   arquitetura de
>>
>>
>>
>>   micro-servi?os em Perl, e deu vontade de compartilhar.
>>
>>
>>
>>
>>
>>
>>
>>   https://engineering.
>>  semantics3
>>
>>   .com/2016/06/15/a-perl- toolcha
>>
>>   in-for-building-micro- services -at-scale/
>>
>>
>>
>>
>>
>>
>>
>>
>>   Cheers!
>>
>>
>>
>>
>>
>>
>>
>>   --
>>
>>
>>
>>   Andr? Garcia Carneiro
>>
>>
>>
>>   Software Engineer
>>
>>
>>
>>   (11)982907780
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>   =begin disclaimer
>>
>>
>>
>>      Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>
>>
>>
>>    SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>
>>
>>
>>    L<http://mail.pm.org/
>>  mailman/
>>
>>   listinfo/saopaulo-pm>
>>
>>
>>
>>   =end disclaimer
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>   =begin disclaimer
>>
>>
>>
>>     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>
>>
>>
>>   SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>
>>
>>
>>   L<http://mail.pm.org/mailman/
>>  l
>>
>>   istinfo/saopaulo-pm>
>>
>>
>>
>>   =end disclaimer
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>   =begin disclaimer
>>
>>
>>
>>      Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>
>>
>>
>>    SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>
>>
>>
>>    L<http://mail.pm.org/
>>  mailman/
>>
>>   listinfo/saopaulo-pm>
>>
>>
>>
>>   =end disclaimer
>>
>>
>>
>>
>>
>>
>>
>>   -----Anexo incorporado-----
>>
>>
>>
>>   =begin disclaimer
>>
>>      Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>
>>    SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>
>>    L<http://mail.pm.org/mailman/l
>>  istinfo/saopaulo-pm>
>>
>>   =end disclaimer
>>
>>
>>
>>  =begin disclaimer
>>
>>     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>
>>   SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>
>>   L<http://mail.pm.org/mailman/
>>  listinfo/saopaulo-pm>
>>
>>  =end disclaimer
>>
>>
>>
>>
>>  =begin disclaimer
>>
>>     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>
>>   SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>
>>   L<http://mail.pm.org/mailman/
>>  listinfo/saopaulo-pm>
>>
>>  =end disclaimer
>>
>>
>>
>>  -----Anexo incorporado-----
>>
>>  =begin disclaimer
>>     Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>   SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>   L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>  =end disclaimer
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Andr? Garcia Carneiro
Software Engineer
(11)982907780
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161114/6edf64fa/attachment-0001.html>

From daniel.vinciguerra at bivee.com.br  Wed Nov 16 08:53:36 2016
From: daniel.vinciguerra at bivee.com.br (Daniel Vinciguerra)
Date: Wed, 16 Nov 2016 14:53:36 -0200
Subject: [SP-pm] Encontro social SPPM
Message-ID: <CALPXWt-rBqGh9+uP2LQqj=fMi9HcZaUERZZxHhnaHG-5Vw_WTQ@mail.gmail.com>

Quem ai esta afim de tomar umas!?

Abs,


*Daniel Vinciguerra*
Web Solutions Architect and founder at Bivee
Cel: +55 (47) 9270-6171

*ATEN??O/ATTENTION:*
Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao
uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
mensagem por engano, por favor, notifique o remetente e remova-o
imediatamente.


This e-mail contains confidential information intended only for the use of
the individual or entity named above. If you are not the intended
recipient, please notify the sender and delete it immediately.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161116/14bcbc69/attachment.html>

From wesleys at ime.usp.br  Wed Nov 16 12:08:59 2016
From: wesleys at ime.usp.br (Wesley Seidel-USP)
Date: Wed, 16 Nov 2016 18:08:59 -0200
Subject: [SP-pm] Encontro social SPPM
In-Reply-To: <CALPXWt-rBqGh9+uP2LQqj=fMi9HcZaUERZZxHhnaHG-5Vw_WTQ@mail.gmail.com>
References: <CALPXWt-rBqGh9+uP2LQqj=fMi9HcZaUERZZxHhnaHG-5Vw_WTQ@mail.gmail.com>
Message-ID: <CAJrXqKTip9Rc4spoE=A24DU0ehooCKNDis3-x5N=DahrAgL5gA@mail.gmail.com>

Pode ser em Bel?m-PA ? :)

2016-11-16 14:53 GMT-02:00 Daniel Vinciguerra <
daniel.vinciguerra at bivee.com.br>:

>
> Quem ai esta afim de tomar umas!?
>
> Abs,
>
>
> *Daniel Vinciguerra*
> Web Solutions Architect and founder at Bivee
> Cel: +55 (47) 9270-6171
>
> *ATEN??O/ATTENTION:*
> Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao
> uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
> mensagem por engano, por favor, notifique o remetente e remova-o
> imediatamente.
>
>
> This e-mail contains confidential information intended only for the use of
> the individual or entity named above. If you are not the intended
> recipient, please notify the sender and delete it immediately.
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Wesley Seidel Carvalho
91-98814-3247
www.ime.usp.br/~wesleys
@wseidel
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161116/edea5590/attachment.html>

From daniel.vinciguerra at bivee.com.br  Wed Nov 16 14:13:48 2016
From: daniel.vinciguerra at bivee.com.br (Daniel Vinciguerra)
Date: Wed, 16 Nov 2016 20:13:48 -0200
Subject: [SP-pm] Encontro social SPPM
In-Reply-To: <CAJrXqKTip9Rc4spoE=A24DU0ehooCKNDis3-x5N=DahrAgL5gA@mail.gmail.com>
References: <CALPXWt-rBqGh9+uP2LQqj=fMi9HcZaUERZZxHhnaHG-5Vw_WTQ@mail.gmail.com>
	<CAJrXqKTip9Rc4spoE=A24DU0ehooCKNDis3-x5N=DahrAgL5gA@mail.gmail.com>
Message-ID: <CALPXWt8M5L8tKkXiz9nEpTm0aq=XyVXpvxnHx_WbvyGNqfX1OA@mail.gmail.com>

Hahahaha podemos mandar uma cerva via correios! :D

Abs cara! :)



*Daniel Vinciguerra*
Web Solutions Architect and co-founder at Bivee
Cel: +55 (47) 9270-6171

2016-11-16 18:08 GMT-02:00 Wesley Seidel-USP <wesleys at ime.usp.br>:

> Pode ser em Bel?m-PA ? :)
>
> 2016-11-16 14:53 GMT-02:00 Daniel Vinciguerra <
> daniel.vinciguerra at bivee.com.br>:
>
>>
>> Quem ai esta afim de tomar umas!?
>>
>> Abs,
>>
>>
>> *Daniel Vinciguerra*
>> Web Solutions Architect and founder at Bivee
>> Cel: +55 (47) 9270-6171
>>
>> *ATEN??O/ATTENTION:*
>> Este e-mail cont?m informa??es confidenciais e seu conte?do ? dirigido ao
>> uso do indiv?duo ou da entidade mencionados acima. Se voc? recebeu esta
>> mensagem por engano, por favor, notifique o remetente e remova-o
>> imediatamente.
>>
>>
>> This e-mail contains confidential information intended only for the use
>> of the individual or entity named above. If you are not the intended
>> recipient, please notify the sender and delete it immediately.
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Wesley Seidel Carvalho
> 91-98814-3247
> www.ime.usp.br/~wesleys
> @wseidel
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20161116/64680ffb/attachment.html>