[Cascavel-pm] Scripts iguais mas resultados diferentes

kamusbr kamusbr em gmail.com
Quarta Junho 22 20:45:45 PDT 2005


Pessoal, gostaria de saber uma coisa, estava testando uns códigos q
peguei em alguns lugares na Internet e no mínimo estou achando curioso o
comportamento de um deles...

Primeira coisa, no meu micro fiz o seguinte:

robson em diamante:~/Desenvolvimento/perl$ diff data.pl data4.pl
robson em diamante:~/Desenvolvimento/perl$

ambos no memso diretório e sem diferenças...

mas qnd executo pelo apache;

O "data.pl", resultado:

Updated: December 31, 1969

Já com "data4.pl" tenho:


  Internal Server Error

The server encountered an internal error or misconfiguration and was
unable to complete your request.

Please contact the server administrator, webmaster em localhost and inform
them of the time the error occurred, and anything you might have done
that may have caused the error.

More information about this error may be available in the server error log.

------------------------------------------------------------------------
Apache/2.0.54 (Debian GNU/Linux) PHP/4.3.10-15 mod_perl/1.999.21
Perl/v5.8.4 Server at 200.165.81.132 Port 80


O código fonte do data.pl

#!/usr/bin/perl

my ($Source)     = $ENV{"REQUEST_URI"};
my ($Path)         = $ENV{"DOCUMENT_ROOT"};
my ($Filename)     = "$Path/$Source";
my ($Day,$Month,$Year)    = (localtime( (stat($Filename))[9] ))[3..5];
my (@Months)    = ('January',
               'February',
               'March',
               'April',
               'May',
               'June',
               'July',
               'August',
               'September',
               'October',
               'November',
               'December');

$Year = $Year+1900;

####################################################################################
# display the status bar with the last updated date, and top link
####################################################################################
print "Content-type: text/html \n\n";
print <<HTML
<tr>
   <td>&nbsp;</td>
      <td style='padding:0 5px;'>
         <table cellpadding='0' cellspacing='0' width='100%'>
         <tr>
         <td width='50%' align='left' style='font-size:20px;color:#000000;'>
            Updated: $Months[$Month] $Day, $Year
         </td>
         <td width='50%' align='right'>
            <a style='font-size:10px;color:#000000;' href='#top'>Top</a>
         </td>
         </tr>
         </table>
         </td>
         </tr>
HTML

Alguma idéia?



Mais detalhes sobre a lista de discussão Cascavel-pm