<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV>Mais uma vez agradeço a gentileza em responder.</DIV>
<DIV>A minha expectativa nunca foi abusar do conhecimento de vocês.</DIV>
<DIV>Imaginava que a solução para o problema apresentado fosse simples ou</DIV>
<DIV>seja , visível para um especialista em perl.</DIV>
<DIV>Entretanto , pelo visto , a identificação da causa do problema é mais
complexa.</DIV>
<DIV> </DIV>
<DIV>Nota – Vou pesquisar na internet a opção do Lucas.</DIV>
<DIV> </DIV>
<DIV>Desejo a todos um bom 2016 com paz e saúde. </DIV>
<DIV>Abraço a todos ,</DIV>
<DIV> </DIV>
<DIV>kleber</DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A
title=lucasmateus.oliveira@gmail.com
href="mailto:lucasmateus.oliveira@gmail.com">Lucas Mateus</A> </DIV>
<DIV><B>Sent:</B> Monday, January 11, 2016 9:26 PM</DIV>
<DIV><B>To:</B> <A title=saopaulo-pm@mail.pm.org
href="mailto:saopaulo-pm@mail.pm.org">saopaulo-pm@mail.pm.org</A> </DIV>
<DIV><B>Subject:</B> Re: [SP-pm] script perl no windows 10</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<P dir=ltr>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.</P>
<DIV class=gmail_quote>Em 11 de jan de 2016 9:16 PM, "Daniel de Oliveira
Mantovani" <<A
href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</A>>
escreveu:<BR type="attribution">
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex">
<DIV dir=ltr>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.<BR><BR>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.
<DIV>
<DIV> </DIV>
<DIV>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, #<A href="http://sao-paulo.pm" target=_blank>sao-paulo.pm</A> <A
href="http://irc.perl.org" target=_blank>irc.perl.org</A> 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.) <BR></DIV></DIV>
<DIV> </DIV>
<DIV>Seja muito bem-vindo!</DIV>
<DIV> </DIV></DIV>
<DIV class=gmail_extra>
<DIV> </DIV>
<DIV class=gmail_quote>2016-01-11 20:35 GMT-02:00 kleber caetano <SPAN
dir=ltr><<A href="mailto:payback@hotmail.com.br"
target=_blank>payback@hotmail.com.br</A>></SPAN>:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex">
<DIV dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV>Me perdoem em insistir neste assunto.</DIV>
<DIV>Mais uma informação que talvez seja importante :</DIV>
<DIV> </DIV>
<DIV>Parece que o script envia informações vazias ou seja as mensagens que
estavam na tema desaparecem.</DIV>
<DIV>( a parte da tela que apresenta as mensagens ficam em branco inclusive
o tema da reunião ----> acho que é </DIV>
<DIV><iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe"
width="1010" height="480" style="overlap:auto"></iframe> ). </DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV><B>From:</B> <A title=payback@hotmail.com.br
href="mailto:payback@hotmail.com.br" target=_blank>kleber caetano</A> </DIV>
<DIV><B>Sent:</B> Monday, January 11, 2016 8:09 PM</DIV>
<DIV>
<DIV>
<DIV><B>To:</B> <A title=saopaulo-pm@mail.pm.org
href="mailto:saopaulo-pm@mail.pm.org"
target=_blank>saopaulo-pm@mail.pm.org</A> </DIV>
<DIV><B>Subject:</B> Re: [SP-pm] script perl no windows
10</DIV></DIV></DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV>
<DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV>Mais uma informação que talvez seja importante aos amigos :</DIV>
<DIV> </DIV>
<DIV>Apesar de não estar apresentando as mensagens aos participantes da sala
,</DIV>
<DIV>as mensagens enviadas pelos usuários são gravadas nos arquivos de
trabalho.</DIV>
<DIV>( é possível constatar isto ).</DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV><B>From:</B> <A title=payback@hotmail.com.br
href="mailto:payback@hotmail.com.br" target=_blank>kleber caetano</A> </DIV>
<DIV><B>Sent:</B> Monday, January 11, 2016 7:16 PM</DIV>
<DIV><B>To:</B> <A title=saopaulo-pm@mail.pm.org
href="mailto:saopaulo-pm@mail.pm.org"
target=_blank>saopaulo-pm@mail.pm.org</A> </DIV>
<DIV><B>Subject:</B> Re: [SP-pm] script perl no windows 10</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV>Agradeço a gentiliza em responder.</DIV>
<DIV>O Daniel me esculhambou ( rsrsrsrsrss ).</DIV>
<DIV>Apesar do script não ser bem elaborado ou estruturado , ele é simples e
útil ( gostaria de tentar acertar o erro ).</DIV>
<DIV> </DIV>
<DIV>Implementei as sugestão do Daniel e do Lucas [ <FONT
face=Consolas>s<SPAN>etInterval(</SPAN><SPAN><FONT
color=#a52a2a>function</FONT></SPAN><SPAN>(){ window.location.href =
'?</SPAN></FONT><SPAN>todas</SPAN><FONT face=Consolas><SPAN>'</SPAN><SPAN>
}, 5</SPAN><SPAN><FONT color=#0000cd>000</FONT></SPAN><SPAN>);
]</SPAN></FONT></DIV>
<DIV><FONT face=Consolas><SPAN>e o problema passou a ocorrer também no
internet explorer 11( não enviou as mensagens para os participantes
).</SPAN></FONT></DIV>
<DIV><FONT face=Consolas><SPAN></SPAN></FONT> </DIV>
<DIV><FONT face=Consolas><SPAN>Pelo que eu entendo deste script , a ação
reload envia as mensagens para</SPAN></FONT></DIV>
<DIV><iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe"
width="1010" height="480" style="overlap:auto"></iframe></DIV>
<DIV>e com s<SPAN>etInterval não chegou ( porque não chegou lá
).</SPAN></DIV>
<DIV><SPAN></SPAN> </DIV>
<DIV><SPAN>Talvez isto ajude a analisar o problema.</SPAN></DIV>
<DIV> </DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV style="FONT: 10pt tahoma">
<DIV><FONT size=3 face=Calibri></FONT> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV><B>From:</B> <A title=daniel.oliveira.mantovani@gmail.com
href="mailto:daniel.oliveira.mantovani@gmail.com" target=_blank>Daniel de
Oliveira Mantovani</A> </DIV>
<DIV><B>Sent:</B> Monday, January 11, 2016 6:12 PM</DIV>
<DIV><B>To:</B> <A title=saopaulo-pm@mail.pm.org
href="mailto:saopaulo-pm@mail.pm.org"
target=_blank>saopaulo-pm@mail.pm.org</A> </DIV>
<DIV><B>Subject:</B> Re: [SP-pm] script perl no windows 10</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV dir=ltr>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.
<B>Possivelmente</B> em algum desses "opens" um dos argumentos vem do
usuário.<BR><BR><A
href="https://www.securecoding.cert.org/confluence/pages/viewpage.action?pageId=76775519"
target=_blank>https://www.securecoding.cert.org/confluence/pages/viewpage.action?pageId=76775519</A><BR></DIV>
<DIV class=gmail_extra>
<DIV> </DIV>
<DIV class=gmail_quote>On Mon, Jan 11, 2016 at 5:36 PM, Daniel de Oliveira
Mantovani <SPAN dir=ltr><<A
href="mailto:daniel.oliveira.mantovani@gmail.com"
target=_blank>daniel.oliveira.mantovani@gmail.com</A>></SPAN> wrote:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex">
<DIV dir=ltr>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.</DIV>
<DIV class=gmail_extra>
<DIV>
<DIV>
<DIV> </DIV>
<DIV class=gmail_quote>2016-01-11 17:33 GMT-02:00 Lucas Moraes <SPAN
dir=ltr><<A href="mailto:lucastiagodemoraes@gmail.com"
target=_blank>lucastiagodemoraes@gmail.com</A>></SPAN>:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex">
<DIV dir=ltr>Aconselho você atualizar a pagina com javascript.
<DIV> </DIV>
<DIV><SPAN
style="FONT-SIZE: 16px; FONT-FAMILY: consolas,'courier new'; COLOR: rgb(0,0,0); LINE-HEIGHT: 22px">setInterval(</SPAN><SPAN
style="FONT-SIZE: 16px; FONT-FAMILY: consolas,'courier new'; COLOR: brown; LINE-HEIGHT: 22px">function</SPAN><SPAN
style="FONT-SIZE: 16px; FONT-FAMILY: consolas,'courier new'; COLOR: rgb(0,0,0); LINE-HEIGHT: 22px">(){
window.location.href = '?</SPAN><SPAN
style="FONT-SIZE: 16px; FONT-FAMILY: calibri; COLOR: rgb(0,0,0)">todas</SPAN><SPAN
style="FONT-SIZE: 16px; FONT-FAMILY: consolas,'courier new'; COLOR: rgb(0,0,0); LINE-HEIGHT: 22px">'</SPAN><SPAN
style="FONT-SIZE: 16px; FONT-FAMILY: consolas,'courier new'; COLOR: rgb(0,0,0); LINE-HEIGHT: 22px">
}, 5</SPAN><SPAN
style="FONT-SIZE: 16px; FONT-FAMILY: consolas,'courier new'; COLOR: mediumblue; LINE-HEIGHT: 22px">000</SPAN><SPAN
style="FONT-SIZE: 16px; FONT-FAMILY: consolas,'courier new'; COLOR: rgb(0,0,0); LINE-HEIGHT: 22px">);</SPAN></DIV>
<DIV><SPAN
style="FONT-SIZE: 16px; FONT-FAMILY: consolas,'courier new'; COLOR: rgb(0,0,0); LINE-HEIGHT: 22px"><BR></SPAN></DIV>
<DIV>Falou.<SPAN
style="FONT-SIZE: 16px; FONT-FAMILY: consolas,'courier new'; COLOR: rgb(0,0,0); LINE-HEIGHT: 22px"><BR></SPAN></DIV></DIV>
<DIV class=gmail_extra>
<DIV> </DIV>
<DIV class=gmail_quote>
<DIV>
<DIV>Em 11 de janeiro de 2016 17:26, kleber caetano <SPAN dir=ltr><<A
href="mailto:payback@hotmail.com.br"
target=_blank>payback@hotmail.com.br</A>></SPAN>
escreveu:<BR></DIV></DIV>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex">
<DIV>
<DIV>
<DIV dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV dir=ltr>
<DIV>
<DIV>Olá Sr(s),</DIV>
<DIV> </DIV>
<DIV>Migrei para o windows 10 e estou tendo um problema com um
aplicativo em perl quando utilizo o edge ,</DIV>
<DIV>entretanto , quando utilizo o explorer 11 o aplicativo é
executado normalmente.</DIV>
<DIV> </DIV>
<DIV>Nota[1] - Este aplicativo refere-se a um chat ( sala de reunião
online ).</DIV>
<DIV> </DIV>
<DIV>O problema ( no edge ) ocorre quando :</DIV>
<DIV> </DIV>
<DIV>- Ele reenvia as mensagens ( através do comando <meta
http-equiv="refresh" content="5,?todas"/> ) para </DIV>
<DIV> os participantes da sala de reunião ou seja não está
enviando nada.</DIV>
<DIV>- Quando é encerrada a reunião , o aplicativo elimina os arquivos
de trabalho , porém , no edge isto </DIV>
<DIV> não está acontecendo. </DIV>
<DIV> </DIV>
<DIV>Nota[2] - No explorer 11 estes problemas não ocorrem.</DIV>
<DIV> </DIV>
<DIV>Nota[3] - O script em perl foi desenvolvido por um amigo
que conhecia bastante perl </DIV>
<DIV>
entretanto meu conhecimento é limitado. </DIV>
<DIV> </DIV>
<DIV>Nota[4] – Estou trabalhando com
ActivePerl-5.16.3.1603-MSWin32-x86-296746 </DIV>
<DIV> </DIV>
<DIV>Nota[5] – Caso considerem necessário , tenho como disponibilizar
um link de acesso a este site sala.cgi</DIV>
<DIV> </DIV>
<DIV>Nota[6] - <FONT face="Times New Roman">Quando instalei o windows
10 , o reload automático funcionava , entretanto ,
<BR>
ao realizar uma manutenção grande ( nova versão acho ) o problema
apareceu.</FONT></DIV>
<DIV><FONT
face="Times New Roman">
O problema de não eliminar os arquivos temporário de trabalho
existem<BR>
desde a instalação inicial do windows 10</FONT><BR></DIV>
<DIV>Nota[7] – coloquei duas marcas no script onde eu acho que as
funções são executadas:</DIV>
<DIV> </DIV>
<DIV>######################### aqui elimina os arquivos de trabalho
###################################</DIV>
<DIV> </DIV>
<DIV>##################### aqui reenvia mensagens para os
participantes #############################</DIV>
<DIV> </DIV>
<DIV>Alguém sabe como resolver isto ?</DIV>
<DIV> </DIV>
<DIV>Agradeço a atenção ,</DIV>
<DIV> </DIV>
<DIV>kleber </DIV>
<DIV> </DIV>
<DIV>=================================================================================================</DIV>
<DIV>
script em perl ( sala.cgi )</DIV>
<DIV>=================================================================================================</DIV>
<DIV>#!perl</DIV>
<DIV>print "Content-type:text/html\n\n";</DIV>
<DIV>use CGI::Carp(fatalsToBrowser);</DIV>
<DIV> </DIV>
<DIV>###############################################################################################</DIV>
<DIV>#
CONFIGURAÇÕES
GERAIS
#</DIV>
<DIV>#
#</DIV>
<DIV>$titulo = "Sala de Reunião
Online"; # Título do
script
#</DIV>
<DIV>$master =
"master.log";
# Arquivo temporário a guardar primeiro
usuário
#</DIV>
<DIV>$log =
"logs.log";
# Arquivo temporário de logs
totais
#</DIV>
<DIV>$log2 =
"logs2.log";
# Arquivo temporário de logs da
sessão
#</DIV>
<DIV>$online =
"online.log";
# Arquivo temporário com nomes dos usuários
Online
#</DIV>
<DIV>$estilos=
"estilos.css";
# Arquivo com os estilos dentro da pasta
modelos
#</DIV>
<DIV>$topo =
"topo.html";
# Template do
Topo
#</DIV>
<DIV>$fim =
"fim.html";
# Template do
Fim
#</DIV>
<DIV>#
#</DIV>
<DIV>#
#</DIV>
<DIV>#
FIM DAS
CONFIGURAÇÕES
#</DIV>
<DIV>###############################################################################################</DIV>
<DIV> </DIV>
<DIV>read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});</DIV>
<DIV>@conteudo = split(/&/, $buffer);</DIV>
<DIV>foreach $par (@conteudo) {</DIV>
<DIV> ($campo, $valor) =
split(/=/, $par);</DIV>
<DIV> $valor =~ tr/+/
/;</DIV>
<DIV> $valor =~
s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;</DIV>
<DIV> $CAMPO{$campo} =
$valor;</DIV>
<DIV> }</DIV>
<DIV> </DIV>
<DIV>$qs = "$ENV{QUERY_STRING}";</DIV>
<DIV>&data;</DIV>
<DIV>&style;</DIV>
<DIV>if ($qs eq ""){</DIV>
<DIV>print qq|</DIV>
<DIV><BR><BR><BR><BR><BR><BR><BR></DIV>
<DIV>|;</DIV>
<DIV>&topo;</DIV>
<DIV>print qq§</DIV>
<DIV><script language="JavaScript"></DIV>
<DIV><!--</DIV>
<DIV>altura = 690;</DIV>
<DIV>largura= 1090;</DIV>
<DIV>l = (screen.width - largura)/2;</DIV>
<DIV>t = (screen.height - altura - 50)/2; </DIV>
<DIV>var flag = "";</DIV>
<DIV>var idioma=1;</DIV>
<DIV>var strCookie='payback';</DIV>
<DIV> </DIV>
<DIV>function LerCookie(strCookie) {</DIV>
<DIV> var strNomeIgual = strCookie + "=";</DIV>
<DIV> var arrCookies =
document.cookie.split(';');</DIV>
<DIV> for(var i = 0; i < arrCookies.length;
i++)</DIV>
<DIV> {</DIV>
<DIV> var strValorCookie =
arrCookies[i];</DIV>
<DIV>
while(strValorCookie.charAt(0) == ' ')</DIV>
<DIV> {</DIV>
<DIV>
strValorCookie = strValorCookie.substring(1,
strValorCookie.length);</DIV>
<DIV> }</DIV>
<DIV>
if(strValorCookie.indexOf(strNomeIgual) == 0)</DIV>
<DIV> {</DIV>
<DIV>
var mensagem=strValorCookie.substring(strNomeIgual.length,
strValorCookie.length);</DIV>
<DIV>
flag = mensagem;</DIV>
<DIV>
mensagem ='';</DIV>
<DIV>
return;</DIV>
<DIV> }</DIV>
<DIV> }</DIV>
<DIV> alert ( '!!!! Erro crítico : Não foi possível
restaurar área de transferência' );</DIV>
<DIV> top.location.href =
"/payback/index.htm"; </DIV>
<DIV>};</DIV>
<DIV>function init(form) {</DIV>
<DIV>
LerCookie(strCookie);</DIV>
<DIV>
if (flag != null ) {</DIV>
<DIV>
flag = flag.split('|'); </DIV>
<DIV>
document.form.login.value = flag[9];</DIV>
<DIV>
}</DIV>
<DIV>
document.form.tema.focus();</DIV>
<DIV>}</DIV>
<DIV>function Entra(form) {</DIV>
<DIV> if
(document.form.tema.value.length == 0) {</DIV>
<DIV>
alert("O tema da reunião não foi informado");</DIV>
<DIV>
document.form.tema.focus();</DIV>
<DIV>
document.form.tema.select();</DIV>
<DIV>
return false;</DIV>
<DIV> } </DIV>
<DIV> novajanela =
window.open("", "entrar",
"scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l);
</DIV>
<DIV> return true;</DIV>
<DIV>}</DIV>
<DIV>function showSalaHelp() {</DIV>
<DIV> altura1=400;</DIV>
<DIV> largura1= 800;</DIV>
<DIV> l1 = (screen.width - largura +
250)/2;</DIV>
<DIV> t1 = (screen.height - altura +
250)/2; </DIV>
<DIV> var html =
'<HTML><HEAD><TITLE></TITLE></HEAD>';</DIV>
<DIV> html +=
'<BODY background="/reuniao/imagem/papel.jpg"
TEXT="#000066"><br><table
align=center><tr><td><h4><b>SALA
DE REUNIÃO ONLINE
</b></h4></td></tr></table><br><TABLE
ALIGN=CENTER><font
size=2><TR><TD><PRE><b>';
</DIV>
<DIV> html +=
'<li>O dado usuário deve ser único por sala.';</DIV>
<DIV> html +=
'<li>O dado tema da reunião será o ponto de encontro dos
participantes na sala.<br>';</DIV>
<DIV> html +=
' Este texto não pode conter espaço , por exemplo ,
informar Aquisição_de_Filial';</DIV>
<DIV> html +=
'<li>O sistema diferencia letra maiúscula de minúscula para
identificação da sala.';</DIV>
<DIV> html +=
'<li>Cada sala terá um único tema não tendo limitações de
quantidade de aberturas de<br>';</DIV>
<DIV> html +=
' salas e participantes.<br>';</DIV>
<DIV> html +=
'<li>O usuário que abrir a sala ou seja o primeiro a entrar
receberá uma tarefa de<br>';</DIV>
<DIV> 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.';</DIV>
<DIV> html +=
'<li>Ao acionar o batão especial ENCERRAR REUNIÃO , o texto
REUNIÃO FINALIZADA<br>';</DIV>
<DIV> html +=
' é enviado á sala e nenhuma nova mensagem é registrada
pelo sistema.';</DIV>
<DIV> html +=
'<li>É recomendável que os participantes imprimam a ata de
reunião após esta ação.<br>';</DIV>
<DIV> html +=
'<li>Para ajuda de formatação do texto mensagem , na sala de
reunião , acionar a tecla F1';</DIV>
<DIV> html +=
'<li>Os documentos enviados ao servidor para serem apresentados
como anexo ,<br> serão eliminados quando o sistema
operacional for reinicializado.<br>';</DIV>
<DIV> html +=
' Nota - O documento apresentado como anexo , para ser
baixado no servidor , deverá
ter<br> no
máximo 500 kbytes.';</DIV>
<DIV> html +=
'</TABLE></FONT></B></PRE></BODY></HTML>';</DIV>
<DIV> var
newWindow =
window.open("","","scrollbars=auto,height="+altura1+",width="+largura1+",top="+t1+",left="+l1);</DIV>
<DIV>
newWindow.document.write(html);</DIV>
<DIV>
newWindow.document.close();</DIV>
<DIV>
event.cancelBubble = true;</DIV>
<DIV> return
false;</DIV>
<DIV>}</DIV>
<DIV>//--></DIV>
<DIV></script></DIV>
<DIV><style type="text/css"><!--</DIV>
<DIV>.multi_bg { background-image : linear-gradient(to right, rgba(30,
75, 115, 0.5), rgba(30, 75, 115, 0.5)); }</DIV>
<DIV>--></DIV>
<DIV></style></DIV>
<DIV></HEAD></DIV>
<DIV> <body
onload="init(this.form)" onHelp="return showSalaHelp()"
BGCOLOR="#ADB6C6" TEXT="#003366" class="multi_bg"></DIV>
<DIV> <form
action="?entra" method="POST" name="form" target="entrar" id="form"
OnSubmit="return Entra(this)"></DIV>
<DIV> <br></DIV>
<DIV> <strong><font
color="#ffffff"
size="2"> <label
class='sombra'><b>Escolha um tema para
entrar</label></font></strong> <img
src="/reuniao/imagem/help.gif"
onClick="showSalaHelp();document.form.tema.focus()" WIDTH="18"
HEIGHT="18" style="cursor:pointer" title ="Ajuda do sistema"></DIV>
<DIV>
<br><br></DIV>
<DIV> <div
align="center"></DIV>
<DIV>
<table></DIV>
<DIV>
<tr> </DIV>
<DIV>
<!-- <td width="33%"><div align="right"><font
class="sombra"><font color="#ffffff"
size="2"><b>Usuário </b></font></div></td>
--> </DIV>
<DIV>
<td><input type="hidden" name="login" class="campo"
onFocus="document.form.tema.focus()" onHelp="return
showSalaHelp()"></td></DIV>
<DIV>
</tr></DIV>
<DIV>
<tr> </DIV>
<DIV>
<td><div align="right"><font class="sombra"><font
color="#ffffff"
size="2"><b>Tema </b></font></div></td></DIV>
<DIV>
<td><input name="tema" type="text" class="campo" id="tema"
onHelp="return showSalaHelp()"></td></DIV>
<DIV>
</tr></DIV>
<DIV>
</table><br></DIV>
<DIV>
<table></DIV>
<DIV>
<tr></DIV>
<DIV>
<td> </td></DIV>
<DIV>
<td align="center" colspan=2><input type="submit"
value="Entrar" class="botao" STYLE='cursor:
pointer;font-weight:bold'></td></DIV>
<DIV>
</tr></DIV>
<DIV>
</table><br></DIV>
<DIV> </div></DIV>
<DIV>§;&fim;}</DIV>
<DIV> </DIV>
<DIV>if ($qs eq "entra"){</DIV>
<DIV>if ($CAMPO{login} eq ""){ </DIV>
<DIV>print
qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
</DIV>
<DIV>&topo;</DIV>
<DIV>print qq|<br>Você deve digitar um nome de usuário antes de
entrar na sala ! <br><br></DIV>
<DIV><div align="center"></DIV>
<DIV><input type="button" class="botao2"
onClick="javascript:windows.close()" value="Fechar
Janela"><br></DIV>
<DIV></div></DIV>
<DIV>|;</DIV>
<DIV>&fim;</DIV>
<DIV>}else{ </DIV>
<DIV>if ($CAMPO{tema} eq "" ){ </DIV>
<DIV>print
qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
</DIV>
<DIV>&topo;</DIV>
<DIV>print qq|<br>Você deve digitar um tema antes de entrar na
sala ! <br><br></DIV>
<DIV><div align="center"></DIV>
<DIV><input type="button" class="botao2"
onClick="javascript:window.close()" value="Fechar
Janela"><br></DIV>
<DIV></div></DIV>
<DIV>|;</DIV>
<DIV>&fim;</DIV>
<DIV>}else{</DIV>
<DIV>if (-e "$CAMPO{tema}"."_"."$log"){ </DIV>
<DIV>open(ONLINE,"$CAMPO{tema}_$online");</DIV>
<DIV>@online = <ONLINE>;</DIV>
<DIV>close(ONLINE);</DIV>
<DIV> </DIV>
<DIV>foreach (@online){</DIV>
<DIV>chomp;</DIV>
<DIV>s/%//gi;</DIV>
<DIV>if ($CAMPO{login} eq "$_"){</DIV>
<DIV>$repetido = "1";</DIV>
<DIV>}else{</DIV>
<DIV>$repetido = "0";</DIV>
<DIV>}}</DIV>
<DIV>if ($repetido eq "1"){</DIV>
<DIV>print
qq|<br><br><br><br><br><br><br><br><br><br><br><br>|;
</DIV>
<DIV>&topo;</DIV>
<DIV>print qq|<br>Este nome de usuário já está em uso! Por favor
escolha outro.<br><br></DIV>
<DIV><div align="center"></DIV>
<DIV><input type="button" class="botao2"
onClick="javascript:window.close()" value="Fechar
Janela"><br></DIV>
<DIV></div></DIV>
<DIV>|;&fim;</DIV>
<DIV>}else{</DIV>
<DIV>open(MASTER,"$CAMPO{tema}_$master");</DIV>
<DIV>$master = <MASTER>;</DIV>
<DIV>close(MASTER);</DIV>
<DIV>chomp $master;</DIV>
<DIV>$master =~ s/%//gi;</DIV>
<DIV> </DIV>
<DIV>if ($CAMPO{login} eq $master){$a = "1";} else {$a = "0";}</DIV>
<DIV>open(ONLINE,">>$CAMPO{tema}_$online");</DIV>
<DIV>print ONLINE qq|%$CAMPO{login}%\n|;</DIV>
<DIV>close(ONLINE);</DIV>
<DIV> </DIV>
<DIV>open (SALA, ">>$CAMPO{tema}_$log");</DIV>
<DIV>print SALA qq|<font
class="texto"><i>($data)</i>
<b>$CAMPO{login}</b> entrou na
sala</b></font><br>\n|;</DIV>
<DIV>close(SALA);</DIV>
<DIV> </DIV>
<DIV>open (SALA, ">>$CAMPO{tema}_$log2");</DIV>
<DIV>print SALA qq|<font
class="texto"><i>($data)</i>
<b>$CAMPO{login}</b> entrou na
sala</b></font><br>\n|;</DIV>
<DIV>close(SALA);</DIV>
<DIV> </DIV>
<DIV>&topo;&msg;&fim;</DIV>
<DIV>}}else{</DIV>
<DIV> </DIV>
<DIV>open(MASTER,">$CAMPO{tema}_$master");</DIV>
<DIV>print MASTER qq|%$CAMPO{login}%\n|;</DIV>
<DIV>close(MASTER);</DIV>
<DIV> </DIV>
<DIV>open(ONLINE,">>$CAMPO{tema}_$online");</DIV>
<DIV>print ONLINE qq|%$CAMPO{login}%\n|;</DIV>
<DIV>close(ONLINE);</DIV>
<DIV> </DIV>
<DIV>open (SALA, ">>$CAMPO{tema}_$log");</DIV>
<DIV>print SALA qq|<div align="center"><font
class="texto"><h5>ATA DA REUNIÃO :
<font size=4><b>$CAMPO{tema}
</b></font></div><hr>\n|;</DIV>
<DIV>print SALA qq|<font
class="texto"><i>($data)</i>
<b>$CAMPO{login}</b> entrou na
sala</b></font><br>\n|;</DIV>
<DIV>close(SALA);</DIV>
<DIV> </DIV>
<DIV>open (SALA, ">>$CAMPO{tema}_$log2");</DIV>
<DIV>print SALA qq|<div align="center"><font
class="texto"><h5>ATA DA REUNIÃO :
<font size=4><b>$CAMPO{tema}
</b></font></div><hr>\n|;</DIV>
<DIV>print SALA qq|<font
class="texto"><i>($data)</i>
<b>$CAMPO{login}</b> entrou na
sala</b></font><br>\n|;</DIV>
<DIV>close(SALA);</DIV>
<DIV>$a = "1";</DIV>
<DIV>&topo;&msg;&fim;</DIV>
<DIV>}}}}</DIV>
<DIV> </DIV>
<DIV>if ($qs eq "escreve2"){</DIV>
<DIV>$CAMPO{msg} =~ tr/+/ /;</DIV>
<DIV>$CAMPO{msg} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
hex($1))/eg;</DIV>
<DIV>$CAMPO{tema} =~ tr/+/ /;</DIV>
<DIV>$CAMPO{tema} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
hex($1))/eg;</DIV>
<DIV>if ($CAMPO{msg} eq ""){</DIV>
<DIV>print qq|</DIV>
<DIV><script language="Javascript"></DIV>
<DIV><!--</DIV>
<DIV>alert ('Mensagem não informada')</DIV>
<DIV>//--></DIV>
<DIV></script></DIV>
<DIV><body
onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')"></DIV>
<DIV>|;}else{</DIV>
<DIV> </DIV>
<DIV>if ($CAMPO{msg} eq "REUNIÃO FINALIZADA"){</DIV>
<DIV> </DIV>
<DIV>open(LOG,">>$CAMPO{tema}"."_"."$log");</DIV>
<DIV>print LOG qq|<br><div align="center"><font
class="texto"><b>REUNIÃO
FINALIZADA</b></font></div><br>\n|;</DIV>
<DIV>close(LOG);</DIV>
<DIV> </DIV>
<DIV>open(LOG,">$CAMPO{tema}"."_"."$log2");</DIV>
<DIV>print LOG qq|<br><div align="center"><font
class="texto"><b>REUNIÃO
FINALIZADA</b></font></div><br>\n|;</DIV>
<DIV>close(LOG);</DIV>
<DIV> </DIV>
<DIV>print qq|</DIV>
<DIV><body
onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')"></DIV>
<DIV>|;</DIV>
<DIV>}else{</DIV>
<DIV> </DIV>
<DIV>open(LOG,"$CAMPO{tema}"."_"."$log");</DIV>
<DIV>@log = <LOG>;</DIV>
<DIV>close(LOG);</DIV>
<DIV>$r = "0";</DIV>
<DIV>foreach (@log){</DIV>
<DIV>chomp;</DIV>
<DIV>if($_ eq "<br><div align=\"center\"><font
class=\"texto\"><b>REUNIÃO
FINALIZADA</b></font></div><br>"){</DIV>
<DIV>$r = "1";</DIV>
<DIV>}}</DIV>
<DIV> </DIV>
<DIV>if ($r eq "1"){</DIV>
<DIV>print qq|</DIV>
<DIV><body
onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')"></DIV>
<DIV>|;</DIV>
<DIV>}else{</DIV>
<DIV> </DIV>
<DIV>open(LOG,">>$CAMPO{tema}"."_"."$log");</DIV>
<DIV>print LOG qq|<font class="texto"><i>($data)</i>
<b>$CAMPO{login}</b>
<i>diz</i>
$CAMPO{msg}</font><br>\n|;</DIV>
<DIV>close(LOG);</DIV>
<DIV>open(LOG,">>$CAMPO{tema}"."_"."$log2");</DIV>
<DIV>print LOG qq|<font class="texto"><i>($data)</i>
<b>$CAMPO{login}</b>
<i>diz</i>
$CAMPO{msg}</font><br>\n|;</DIV>
<DIV>close(LOG);</DIV>
<DIV>print qq|</DIV>
<DIV><body
onLoad="this.location.href('?principal2=$CAMPO{tema}-$CAMPO{login}')"></DIV>
<DIV>|;}}}}</DIV>
<DIV> </DIV>
<DIV>if ($qs =~ /imprimir/){</DIV>
<DIV>&imprimir;</DIV>
<DIV>}</DIV>
<DIV> </DIV>
<DIV>if ($qs =~ /logout/){</DIV>
<DIV>&logout;</DIV>
<DIV>}</DIV>
<DIV> </DIV>
<DIV>if ($qs =~ /principal/){</DIV>
<DIV>&principal;</DIV>
<DIV>}</DIV>
<DIV> </DIV>
<DIV>if ($qs =~ /principal2/){</DIV>
<DIV>&principal2;</DIV>
<DIV>}</DIV>
<DIV> </DIV>
<DIV>if ($qs =~ /todas/){</DIV>
<DIV>&todas;</DIV>
<DIV>}</DIV>
<DIV> </DIV>
<DIV>sub data{</DIV>
<DIV>($seg,$min,$hr,$dia,$mes,$ano) = localtime();</DIV>
<DIV>if ($hr < "10"){$hr = "0$hr";}</DIV>
<DIV>if ($min < "10"){$min = "0$min";}</DIV>
<DIV>if ($seg < "10"){$seg = "0$seg";}</DIV>
<DIV> </DIV>
<DIV>@mes =
("janeiro","fevereiro","março","abril","maio","junho","julho","agosto","setembro","outubro","novembro","dezembro");</DIV>
<DIV>$ano = 1900+$ano;</DIV>
<DIV> </DIV>
<DIV>$data = "$hr:$min:$seg, $dia de @mes[$mes] de $ano";</DIV>
<DIV>}</DIV>
<DIV> </DIV>
<DIV>sub fim{</DIV>
<DIV>open(FIM,"$fim");</DIV>
<DIV>@fim=<FIM>;</DIV>
<DIV>close(FIM);</DIV>
<DIV>print "@fim";</DIV>
<DIV>}</DIV>
<DIV> </DIV>
<DIV>sub imprimir {</DIV>
<DIV>$qs =~ s/imprimir=//;</DIV>
<DIV>$qs =~ tr/+/ /;</DIV>
<DIV>$qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;</DIV>
<DIV> </DIV>
<DIV>open (LOG,"$qs"."_"."$log");</DIV>
<DIV>@log = <LOG>;</DIV>
<DIV>close(LOG);</DIV>
<DIV> </DIV>
<DIV>print qq|</DIV>
<DIV><html></DIV>
<DIV><head></DIV>
<DIV><title>$titulo</title></DIV>
<DIV>@style</DIV>
<DIV></head></DIV>
<DIV><body onload="this.window.print()"></DIV>
<DIV>@log</DIV>
<DIV></body></DIV>
<DIV>|;}</DIV>
<DIV> </DIV>
<DIV>sub logout{</DIV>
<DIV>$qs =~ s/logout=//gi;</DIV>
<DIV>($login,$tema) = split (/-/,$qs);</DIV>
<DIV>$login =~ tr/+/ /;</DIV>
<DIV>$login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
hex($1))/eg;</DIV>
<DIV>$tema =~ tr/+/ /;</DIV>
<DIV>$tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;</DIV>
<DIV> </DIV>
<DIV>open(LOG,">>$tema"."_"."$log2");</DIV>
<DIV>print LOG qq|<font class="texto"><i>($data)</i>
<b>$login</b> saiu da
sala</b></font><br>\n|;</DIV>
<DIV>close(LOG);</DIV>
<DIV> </DIV>
<DIV>open(LOG,">>$tema"."_"."$log");</DIV>
<DIV>print LOG qq|<font class="texto"><i>($data)</i>
<b>$login</b> saiu da
sala</b></font><br>\n|;</DIV>
<DIV>close(LOG);</DIV>
<DIV> </DIV>
<DIV>open(ONLINE,"$tema"."_"."$online");</DIV>
<DIV>@online = <ONLINE>;</DIV>
<DIV>close(ONLINE);</DIV>
<DIV> </DIV>
<DIV>@on = @online;</DIV>
<DIV>foreach (@on){</DIV>
<DIV>chomp;</DIV>
<DIV>if ($_ =~ /%$login%/){</DIV>
<DIV>s/$_//;</DIV>
<DIV>}}</DIV>
<DIV> </DIV>
<DIV>open(ONLINE,">$tema"."_"."$online");</DIV>
<DIV>print ONLINE qq|@on|;</DIV>
<DIV>close(ONLINE);</DIV>
<DIV> </DIV>
<DIV>open(ONLINE,"$tema"."_"."$online");</DIV>
<DIV>@online = <ONLINE>;</DIV>
<DIV>close(ONLINE);</DIV>
<DIV> </DIV>
<DIV>if (length ("@online") eq "0"){</DIV>
<DIV>unlink("$tema"."_"."$master"); #########################
aqui elimina os arquivos de trabalho
###################################</DIV>
<DIV>unlink("$tema"."_"."$online");
################# não está sendo executado no
edge
###########################################</DIV>
<DIV>unlink("$tema"."_"."$log2");</DIV>
<DIV>unlink("$tema"."_"."$log");</DIV>
<DIV>}else{}</DIV>
<DIV> </DIV>
<DIV>print qq|</DIV>
<DIV><html></DIV>
<DIV><head></DIV>
<DIV><title>$titulo</title></DIV>
<DIV><meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1"></DIV>
<DIV><script language="JavaScript"></DIV>
<DIV>function Logout(){</DIV>
<DIV>this.window.close()</DIV>
<DIV>}</DIV>
<DIV></script></DIV>
<DIV></head></DIV>
<DIV><body onload="javascript:Logout()"></DIV>
<DIV></body></DIV>
<DIV></html></DIV>
<DIV>|;}</DIV>
<DIV> </DIV>
<DIV>sub msg{</DIV>
<DIV>$qs =~ tr/+/ /;</DIV>
<DIV>$qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;</DIV>
<DIV>open (LOG, "$qs"."_"."$log2");</DIV>
<DIV>@log = <LOG>;</DIV>
<DIV>close(LOG);</DIV>
<DIV> </DIV>
<DIV>$finalizado = "0";</DIV>
<DIV> </DIV>
<DIV>foreach (@log){</DIV>
<DIV>chomp;</DIV>
<DIV>print $_;</DIV>
<DIV>if ($_ eq "REUNIÃO FINALIZADA"){</DIV>
<DIV>$finalizado = "1";</DIV>
<DIV>}}</DIV>
<DIV> </DIV>
<DIV>print qq|</DIV>
<DIV><script language="JavaScript"></DIV>
<DIV>function Imprimir(){</DIV>
<DIV>altura =690;</DIV>
<DIV>largura= 1090;</DIV>
<DIV>l = (screen.width - largura)/2;</DIV>
<DIV>t = (screen.height - altura - 50)/2; </DIV>
<DIV>window.open("?imprimir=$CAMPO{tema}","","scrollbars,height="+altura+",width="+largura+",top="+t+",left="+l);
</DIV>
<DIV>}</DIV>
<DIV></DIV>
<DIV>function unLoad(){</DIV>
<DIV>window.open("?logout=$CAMPO{login}-$CAMPO{tema}","","width=80,height=80")</DIV>
<DIV>}</DIV>
<DIV></script></DIV>
<DIV><body onunLoad="unLoad()"></DIV>
<DIV><table></DIV>
<DIV><tr><td></DIV>
<DIV><font class="texto1"><b> Usuário:
$CAMPO{login}</b></font> </DIV>
<DIV></td><td></DIV>
<DIV> <font class="texto1"><b> Tema:
$CAMPO{tema}<br></b></font></DIV>
<DIV></td><td></DIV>
<DIV>
<img src="/reuniao/imagem/calculadora.gif" onClick="calculadora()"
WIDTH="18" HEIGHT="22" style="cursor:pointer" title ="Calculadora
financeira"> </DIV>
<DIV></td><td></DIV>
<DIV>
<img src="/reuniao/imagem/Email.gif" onClick="email()" WIDTH="24"
HEIGHT="20" style="cursor:pointer" title ="Correspondência
interna"> </DIV>
<DIV></td><td></DIV>
<DIV>
<img src="/reuniao/imagem/acessorio.gif" onClick="acessorio()"
WIDTH="24" HEIGHT="20" style="cursor:pointer" title
="Acessórios"> </DIV>
<DIV></td><TD></DIV>
<DIV>
<img src="/reuniao/imagem/alarme.gif" onClick="alarme()" WIDTH="24"
HEIGHT="20" style="cursor:pointer" title
="Alarme"> </DIV>
<DIV></td></tr></table></DIV>
<DIV><iframe align="middle" src="?todas=$CAMPO{tema}" name="iframe"
width="1010" height="480"
style="overlap:auto"></iframe></DIV>
<DIV><iframe align="middle"
src="?principal2=$CAMPO{tema}-$CAMPO{login}" name="iframe2"
width="1010" height="75" style="overlap:auto"></iframe></DIV>
<DIV><table></DIV>
<DIV><tr></DIV>
<DIV><td><input type="button" class="botao" value="Ata de
reunião" onClick="javascript:Imprimir()"
STYLE='cursor:pointer;font-weight:bold'></td></DIV>
<DIV><td> </td></DIV>
<DIV><td><div align="right"></DIV>
<DIV><input type="button" class="botao2" value="Sair da Sala"
onClick="javascript:window.close()"
STYLE='cursor:pointer;font-weight:bold'></div></td></DIV>
<DIV><td> </td></DIV>
<DIV>|;</DIV>
<DIV> </DIV>
<DIV>if($a eq "1"){print qq|<td><div align="center"></DIV>
<DIV><form name="form" method="post" action="?escreve2"
target="iframe2"></DIV>
<DIV>
<input name="msg" type="hidden" size="80"
class="campo" value="REUNIÃO FINALIZADA"></DIV>
<DIV>
<input name="login" type="hidden" class="campo"
value="$CAMPO{login}"></DIV>
<DIV>
<input name="tema" type="hidden" class="campo"
value="$CAMPO{tema}"></DIV>
<DIV>
<input type="submit" value="Encerrar Reunião" class="botao"
STYLE='cursor:
pointer;font-weight:bold'>
</DIV>
<DIV></form></DIV>
<DIV></div></DIV>
<DIV></div></td></tr>|;}print
qq|</table><br>|;}</DIV>
<DIV> </DIV>
<DIV>sub principal{</DIV>
<DIV>$qs =~ s/principal=//;</DIV>
<DIV>$qs =~ tr/+/ /;</DIV>
<DIV>$qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;</DIV>
<DIV> </DIV>
<DIV>open (LOG, $qs."_".$log2);</DIV>
<DIV>@log = <LOG>;</DIV>
<DIV>close(LOG);</DIV>
<DIV> </DIV>
<DIV>$finalizado = "0";</DIV>
<DIV> </DIV>
<DIV>foreach (@log){</DIV>
<DIV>chomp;</DIV>
<DIV>if ($_ eq "REUNIÃO FINALIZADA"){</DIV>
<DIV>$finalizado = "1";</DIV>
<DIV>}}</DIV>
<DIV>if ($finalizado eq "1"){print qq|</DIV>
<DIV><font class="texto"></DIV>
<DIV>A REUNIÃO FOI FINALIZADA. VOCÊ PODE IMPRIMIR OU VISUALIZAR O
RELATÓRIO</DIV>
<DIV></font>|;</DIV>
<DIV> </DIV>
<DIV>}else{print qq|</DIV>
<DIV><html></DIV>
<DIV><head></DIV>
<DIV> </DIV>
<DIV>@style</DIV>
<DIV><script language="JavaScript"></DIV>
<DIV><!--</DIV>
<DIV> function scroll() {</DIV>
<DIV> if( document.body &&
document.body.clientHeight ) {</DIV>
<DIV> window.innerHeight =
document.body.clientHeight</DIV>
<DIV> }</DIV>
<DIV> window.scrollTo( 0,
(window.innerHeight/0.1) )</DIV>
<DIV> }</DIV>
<DIV> </DIV>
<DIV> function focus(){</DIV>
<DIV> document.form.msg.focus()</DIV>
<DIV> }</DIV>
<DIV> </DIV>
<DIV> function enter(string){</DIV>
<DIV>
insertAtCaret(document.form.msg,string); </DIV>
<DIV>
focus()</DIV>
<DIV> }</DIV>
<DIV> </DIV>
<DIV> function insertAtCaret (textObj, textFeildValue)
{</DIV>
<DIV> if(document.all){ </DIV>
<DIV>
if (textObj.createTextRange && textObj.caretPos) {</DIV>
<DIV>
var caretPos = textObj.caretPos;</DIV>
<DIV>
caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' '
?textFeildValue + ' ' : textFeildValue;</DIV>
<DIV>
}else{</DIV>
<DIV>
textObj.value = textFeildValue;</DIV>
<DIV>
}</DIV>
<DIV> }else{</DIV>
<DIV>
if(textObj.setSelectionRange){</DIV>
<DIV>
var rangeStart = textObj.selectionStart;</DIV>
<DIV>
var rangeEnd = textObj.selectionEnd;</DIV>
<DIV>
var tempStr1 = textObj.value.substring(0,rangeStart);</DIV>
<DIV>
var tempStr2 = textObj.value.substring(rangeEnd);</DIV>
<DIV>
textObj.value = tempStr1 + textFeildValue + tempStr2;</DIV>
<DIV>
}else{</DIV>
<DIV>
alert("Esta versão do navegador não suporta setSelectionRange");</DIV>
<DIV>
}</DIV>
<DIV> }</DIV>
<DIV> }</DIV>
<DIV> </DIV>
<DIV> function clear_field(){</DIV>
<DIV> document.form.msg.value = ''</DIV>
<DIV> document.form.msg.focus()</DIV>
<DIV> document.form.msg.select() </DIV>
<DIV> }</DIV>
<DIV> </DIV>
<DIV> function anexar(){</DIV>
<DIV>
altura = 450;</DIV>
<DIV>
largura= 700;</DIV>
<DIV>
l = (screen.width - largura)/2;</DIV>
<DIV>
t = (screen.height - altura -
50)/2;
</DIV>
<DIV>
var html =
'<HTML><HEAD><TITLE></TITLE>'</DIV>
<DIV>
html += '</HEAD><BODY
background="/reuniao/imagem/papel.jpg" TEXT="#000066">'</DIV>
<DIV>
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>'</DIV>
<DIV>
html += '<FORM NAME="anexo" METHOD="POST"
ACTION="/reuniao/temp/upload.plx"
ENCTYPE="multipart/form-data">'</DIV>
<DIV>
html += '<br>'</DIV>
<DIV>
html += '<TABLE align=center>'</DIV>
<DIV>
html += '<tr>'</DIV>
<DIV>
html += '<td><input type="file" name="arquivo" size="60"
maxlength="90"></td>'</DIV>
<DIV>
html += '</tr>'</DIV>
<DIV>
html += '</table>'</DIV>
<DIV>
html += '<br><br><br>'</DIV>
<DIV>
html += '<TABLE align=center>'</DIV>
<DIV>
html += '<tr>'</DIV>
<DIV>
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>'</DIV>
<DIV>
html += '</TR>'</DIV>
<DIV>
html += '</table>'</DIV>
<DIV>
html += '</form>' </DIV>
<DIV>
html += '</body>'</DIV>
<DIV>
html += '</html>'</DIV>
<DIV>
var newWindow =
window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)</DIV>
<DIV>
newWindow.document.write(html)</DIV>
<DIV>
newWindow.document.close()</DIV>
<DIV>
focus()</DIV>
<DIV>
return
false
</DIV>
<DIV> }</DIV>
<DIV> </DIV>
<DIV> function publicar(){</DIV>
<DIV>
altura = 450;</DIV>
<DIV>
largura= 700;</DIV>
<DIV>
l = (screen.width - largura)/2;</DIV>
<DIV>
t = (screen.height - altura -
50)/2;
</DIV>
<DIV>
var html =
'<HTML><HEAD><TITLE></TITLE>'</DIV>
<DIV>
html += '</HEAD><BODY
background="/reuniao/imagem/papel.jpg" TEXT="#ffffff">'</DIV>
<DIV>
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>'</DIV>
<DIV>
html += '<FORM NAME="publica" METHOD="POST"
ACTION="/reuniao/temp/publica.plx">'</DIV>
<DIV>
html += '<br>'</DIV>
<DIV>
html += '<TABLE align=center>'</DIV>
<DIV>
html += '<tr>'</DIV>
<DIV>
html += '<td><input type="text" name="http" size="60"
maxlength="90" value = "<A>http://"</A>></td>'</DIV>
<DIV>
html += '</tr>'</DIV>
<DIV>
html += '</table>'</DIV>
<DIV>
html += '<br><br><br>'</DIV>
<DIV>
html += '<TABLE align=center>'</DIV>
<DIV>
html += '<tr>'</DIV>
<DIV>
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>'</DIV>
<DIV>
html += '</TR>'</DIV>
<DIV>
html += '</table>'</DIV>
<DIV>
html += '</form>' </DIV>
<DIV>
html += '</body>'</DIV>
<DIV>
html += '</html>'</DIV>
<DIV>
var newWindow =
window.open("","","scrollbars=no,menubar=no,height="+altura+",width="+largura+",top="+t+",left="+l)</DIV>
<DIV>
newWindow.document.write(html)</DIV>
<DIV>
newWindow.document.close()</DIV>
<DIV>
focus()</DIV>
<DIV>
return
false
</DIV>
<DIV> }</DIV>
<DIV> </DIV>
<DIV> function showMsgHelp() {</DIV>
<DIV>
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")</DIV>
<DIV> event.cancelBubble = true</DIV>
<DIV> return false</DIV>
<DIV> } </DIV>
<DIV> </DIV>
<DIV>//--></DIV>
<DIV></script></DIV>
<DIV></head></DIV>
<DIV><body></DIV>
<DIV>@log</DIV>
<DIV></body></DIV>
<DIV></html>|;</DIV>
<DIV>}}</DIV>
<DIV> </DIV>
<DIV>sub principal2 {</DIV>
<DIV>$qs =~ s/principal2=//;</DIV>
<DIV>($tema,$login) = split (/-/,$qs);</DIV>
<DIV>$tema =~ tr/+/ /;</DIV>
<DIV>$tema =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;</DIV>
<DIV>$login =~ tr/+/ /;</DIV>
<DIV>$login =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
hex($1))/eg;</DIV>
<DIV> </DIV>
<DIV>print qq|</DIV>
<DIV>@style</DIV>
<DIV> </DIV>
<DIV><body onLoad="document.form.msg.focus()" onHelp="return
showMsgHelp()" class="table3" leftmargin="0" topmargin="0"
marginwidth="0" marginheight="0"></DIV>
<DIV><div align="center"></DIV>
<DIV><table></DIV>
<DIV> <tr></DIV>
<DIV> <td> </td></DIV>
<DIV> <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></DIV>
<DIV> <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></DIV>
<DIV> <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>
</DIV>
<DIV> <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>
</DIV>
<DIV> <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></DIV>
<DIV> <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></DIV>
<DIV> <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></DIV>
<DIV> <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></DIV>
<DIV> <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></DIV>
<DIV> <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></DIV>
<DIV> <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></DIV>
<DIV> <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></DIV>
<DIV> <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></DIV>
<DIV> <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></DIV>
<DIV> <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></DIV>
<DIV> <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></DIV>
<DIV> <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></DIV>
<DIV> <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></DIV>
<DIV> <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></DIV>
<DIV> <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>
</DIV>
<DIV> <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>
</DIV>
<DIV> <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>
</DIV>
<DIV></tr></DIV>
<DIV></table><br></DIV>
<DIV><table align="center"></DIV>
<DIV> <tr></DIV>
<DIV> <td class="texto"><form name="form"
method="post" action="?escreve2"></DIV>
<DIV> <div
align="center"><b><font size=2><label
class='sombra'> Mensagem
</label></b></fonte> </DIV>
<DIV>
<input name="msg"
type="text" class="campo" size="120"
maxlength="300" onHelp="return showMsgHelp()"></DIV>
<DIV>
<input name="login" type="hidden"
class="campo" value="$login"></DIV>
<DIV>
<input name="tema"
type="hidden" class="campo" value="$tema"></DIV>
<DIV>
<input type="submit" value="Enviar" class="botao"
>
</DIV>
<DIV>
</div></DIV>
<DIV> </td></DIV>
<DIV> </tr></DIV>
<DIV></table></DIV>
<DIV></form></DIV>
<DIV></div></DIV>
<DIV></body></DIV>
<DIV>|;}</DIV>
<DIV> </DIV>
<DIV>sub style{</DIV>
<DIV>open(STYLE, "$estilos");</DIV>
<DIV>@style = <STYLE>;</DIV>
<DIV>close(STYLE);</DIV>
<DIV>}</DIV>
<DIV> </DIV>
<DIV>sub todas{</DIV>
<DIV>$qs =~ s/todas=//;</DIV>
<DIV>$qs =~ tr/+/ /;</DIV>
<DIV>$qs =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;</DIV>
<DIV> </DIV>
<DIV>open (LOG, $qs."_".$log);</DIV>
<DIV>@log = <LOG>;</DIV>
<DIV>close(LOG);</DIV>
<DIV> </DIV>
<DIV>print qq|</DIV>
<DIV><meta http-equiv="refresh" content="5,?todas"/>
##################### aqui reenvia mensagens para os participantes
#############################</DIV>
<DIV>@style</DIV>
<DIV><script></DIV>
<DIV><!--</DIV>
<DIV> function rolar() {</DIV>
<DIV> if( document.body &&
document.body.clientHeight ) {</DIV>
<DIV> window.innerHeight =
document.body.clientHeight</DIV>
<DIV> }</DIV>
<DIV> window.scrollTo( 0, (window.innerHeight/0.1)
);</DIV>
<DIV> }</DIV>
<DIV>//--></DIV>
<DIV></script></DIV>
<DIV><body onLoad="javascript:rolar()"></DIV>
<DIV>@log|;}</DIV>
<DIV> </DIV>
<DIV>sub topo{</DIV>
<DIV>open(TOPO,"$topo");</DIV>
<DIV>@topo=<TOPO>;</DIV>
<DIV>close(TOPO);</DIV>
<DIV>print "@topo";</DIV>
<DIV>}</DIV></DIV></DIV></DIV></DIV></DIV>
<DIV> </DIV></DIV></DIV>=begin disclaimer<BR> Sao
Paulo Perl Mongers: <A href="http://sao-paulo.pm.org/" rel=noreferrer
target=_blank>http://sao-paulo.pm.org/</A><BR>SaoPaulo-pm mailing
list: <A href="mailto:SaoPaulo-pm@pm.org"
target=_blank>SaoPaulo-pm@pm.org</A><BR>L<<A
href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" rel=noreferrer
target=_blank>http://mail.pm.org/mailman/listinfo/saopaulo-pm</A>><BR>=end
disclaimer<BR><BR></BLOCKQUOTE></DIV>
<DIV> </DIV></DIV><BR>=begin disclaimer<BR> Sao Paulo
Perl Mongers: <A href="http://sao-paulo.pm.org/" rel=noreferrer
target=_blank>http://sao-paulo.pm.org/</A><BR>SaoPaulo-pm mailing list:
<A href="mailto:SaoPaulo-pm@pm.org"
target=_blank>SaoPaulo-pm@pm.org</A><BR>L<<A
href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" rel=noreferrer
target=_blank>http://mail.pm.org/mailman/listinfo/saopaulo-pm</A>><BR>=end
disclaimer<BR><BR></BLOCKQUOTE></DIV><BR><BR clear=all>
<DIV> </DIV></DIV></DIV><SPAN><FONT color=#888888>-- <BR>
<DIV>
<DIV dir=ltr>
<DIV>
<DIV dir=ltr>
<DIV dir=ltr>
<DIV dir=ltr>Thank you very much!</DIV>
<DIV dir=ltr> </DIV>
<DIV dir=ltr>-dom</DIV>
<DIV dir=ltr> </DIV>
<DIV dir=ltr>--</DIV>
<DIV dir=ltr> </DIV>
<DIV dir=ltr>Daniel de Oliveira Mantovani</DIV>
<DIV dir=ltr>Business Analytic Specialist</DIV>
<DIV dir=ltr>Perl Evangelist /Astrophysics hobbyist. </DIV>
<DIV dir=ltr>+55 11 9 8538-9897</DIV>
<DIV
dir=ltr>XOXO</DIV></DIV></DIV></DIV></DIV></DIV></FONT></SPAN></DIV></BLOCKQUOTE></DIV><BR><BR
clear=all>
<DIV> </DIV>-- <BR>
<DIV>
<DIV dir=ltr>
<DIV>
<DIV dir=ltr>
<DIV dir=ltr>
<DIV dir=ltr>Thank you very much!</DIV>
<DIV dir=ltr> </DIV>
<DIV dir=ltr>-dom</DIV>
<DIV dir=ltr> </DIV>
<DIV dir=ltr>--</DIV>
<DIV dir=ltr> </DIV>
<DIV dir=ltr>Daniel de Oliveira Mantovani</DIV>
<DIV dir=ltr>Business Analytic Specialist</DIV>
<DIV dir=ltr>Perl Evangelist /Astrophysics hobbyist. </DIV>
<DIV dir=ltr>+55 11 9 8538-9897</DIV>
<DIV dir=ltr>XOXO</DIV></DIV></DIV></DIV></DIV></DIV></DIV>
<HR>
=begin disclaimer<BR> Sao Paulo Perl Mongers: <A
href="http://sao-paulo.pm.org/"
target=_blank>http://sao-paulo.pm.org/</A><BR>SaoPaulo-pm mailing list: <A
href="mailto:SaoPaulo-pm@pm.org"
target=_blank>SaoPaulo-pm@pm.org</A><BR>L<<A
href="http://mail.pm.org/mailman/listinfo/saopaulo-pm"
target=_blank>http://mail.pm.org/mailman/listinfo/saopaulo-pm</A>><BR>=end
disclaimer<BR></DIV></DIV></DIV>
<HR>
=begin disclaimer<BR> Sao Paulo Perl Mongers: <A
href="http://sao-paulo.pm.org/"
target=_blank>http://sao-paulo.pm.org/</A><BR>SaoPaulo-pm mailing list: <A
href="mailto:SaoPaulo-pm@pm.org"
target=_blank>SaoPaulo-pm@pm.org</A><BR>L<<A
href="http://mail.pm.org/mailman/listinfo/saopaulo-pm"
target=_blank>http://mail.pm.org/mailman/listinfo/saopaulo-pm</A>><BR>=end
disclaimer<BR></DIV></DIV></DIV>
<HR>
=begin disclaimer<BR> Sao Paulo Perl Mongers: <A
href="http://sao-paulo.pm.org/"
target=_blank>http://sao-paulo.pm.org/</A><BR>SaoPaulo-pm mailing list: <A
href="mailto:SaoPaulo-pm@pm.org"
target=_blank>SaoPaulo-pm@pm.org</A><BR>L<<A
href="http://mail.pm.org/mailman/listinfo/saopaulo-pm"
target=_blank>http://mail.pm.org/mailman/listinfo/saopaulo-pm</A>><BR>=end
disclaimer<BR></DIV></DIV></DIV></DIV></DIV></DIV><BR>=begin
disclaimer<BR> Sao Paulo Perl Mongers: <A
href="http://sao-paulo.pm.org/" rel=noreferrer
target=_blank>http://sao-paulo.pm.org/</A><BR>SaoPaulo-pm mailing list: <A
href="mailto:SaoPaulo-pm@pm.org"
target=_blank>SaoPaulo-pm@pm.org</A><BR>L<<A
href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" rel=noreferrer
target=_blank>http://mail.pm.org/mailman/listinfo/saopaulo-pm</A>><BR>=end
disclaimer<BR><BR></BLOCKQUOTE></DIV><BR><BR clear=all>
<DIV> </DIV>-- <BR>
<DIV>
<DIV dir=ltr>
<DIV>
<DIV dir=ltr>
<DIV dir=ltr>
<DIV dir=ltr>Thank you very much!</DIV>
<DIV dir=ltr> </DIV>
<DIV dir=ltr>-dom</DIV>
<DIV dir=ltr> </DIV>
<DIV dir=ltr>--</DIV>
<DIV dir=ltr> </DIV>
<DIV dir=ltr>Daniel de Oliveira Mantovani</DIV>
<DIV dir=ltr>Business Analytic Specialist</DIV>
<DIV dir=ltr>Perl Evangelist /Astrophysics hobbyist. </DIV>
<DIV dir=ltr>+55 11 9 8538-9897</DIV>
<DIV dir=ltr>XOXO</DIV></DIV></DIV></DIV></DIV></DIV></DIV><BR>=begin
disclaimer<BR> Sao Paulo Perl Mongers: <A
href="http://sao-paulo.pm.org/" rel=noreferrer
target=_blank>http://sao-paulo.pm.org/</A><BR>SaoPaulo-pm mailing list: <A
href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</A><BR>L<<A
href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" rel=noreferrer
target=_blank>http://mail.pm.org/mailman/listinfo/saopaulo-pm</A>><BR>=end
disclaimer<BR><BR></BLOCKQUOTE></DIV>
<P>
<HR>
=begin disclaimer<BR> Sao Paulo Perl Mongers:
http://sao-paulo.pm.org/<BR>SaoPaulo-pm mailing list:
SaoPaulo-pm@pm.org<BR>L<http://mail.pm.org/mailman/listinfo/saopaulo-pm><BR>=end
disclaimer<BR></DIV></DIV></DIV></BODY></HTML>