<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV dir=ltr>
<DIV style="FONT-FAMILY: ; COLOR: ">
<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 style="href: 'http://"'">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></BODY></HTML>