<div dir="ltr">Kleber,<div><br></div><div>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.</div><div><br></div><div>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.</div><div><br></div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">2016-01-12 8:15 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="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div 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><b>From:</b> <a title="lucasmateus.oliveira@gmail.com" href="mailto:lucasmateus.oliveira@gmail.com" target="_blank">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" 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">
<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" target="_blank">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" 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>
<p>
</p><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><p></p></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><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><div><div><font color="#333333" size="1">YAGNI</font><span style="color:rgb(51,51,51);font-size:x-small">,</span></div><div><span style="color:rgb(51,51,51);font-size:x-small">Renato CRON</span></div><div><div style="text-align:right"><font size="1" color="#333333"><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a></font></div></div><div style="text-align:right"><font size="1" color="#333333"><a href="http://twitter.com/#!/renato_cron" target="_blank">@renato_cron</a></font></div></div></div></div>
</div>