file test com cgi

Solfier · Julho 24, 2012

bom dia,

tenho o seguinte codigo:


#!/usr/bin/perl -w
print "Content-type: text/html\r\n\r\n";

$EnviaBMF_esalq_bmf1 = "/mnt/arquivos/ATUALIZA/agrocast/bmf/esalq_bmf.txt";
$EnviaBMF_esalq_bmf2 = "/mnt/arquivos/SERVICOS/ESTADO/BMF/esalq_bmf.txt";
#$teste = "/mnt/teste.txt";

print <<HTML;
<HTML>
<HEAD>
<TITLE>Teste</TITLE>
</HEAD>
<BODY>
<H1>Verificacao de arquivos</H1>
HTML

print "<P>ENVIA_BMF<BR>";
print "<FONT SIZE=2>";
print $EnviaBMF_esalq_bmf1;
print "</FONT><BR>";
if ( -z $EnviaBMF_esalq_bmf1 ) {
  print "S:\\ATUALIZA\\agrocast\\bmf\\esalq_bmf.txt - <B>EXISTE</B>";
} else {
  print "S:\\ATUALIZA\\agrocast\\bmf\\esalq_bmf.txt - <FONT COLOR=RED><B>não EXISTE</B></FONT>";
}
print "<BR>";
if ( -z $EnviaBMF_esalq_bmf2 ) {
  print "S:\\SERVICOS\\ESTADO\\BMF\\esalq_bmf.txt - <B>EXISTE</B>";
} else {
  print "S:\\SERVICOS\\ESTADO\\BMF\\esalq_bmf.txt - <FONT COLOR=RED><B>não EXISTE</B></FONT>";
}

exit;
[/codebox]

/mnt/arquivos é um diretório montado de um outro servidor.

o problema: se eu executo o arquivo .pl como "perl arquivo.pl", os if -z retornam true. Porém, quando executo pelo navegador, esses if -z retornam false.

Caso o teste seja feito com um arquivo local, no navegador retorna true.

Alguma idéia?

Entrar

file test com cgi

Pergunta

Solfier

Link para o comentário

Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades