#!/usr/bin/perl
$DIR="/home/httpd/html/internet/stats";
print << "END" ;
Content-type: text/html
Estadisticas http://funredes.org
FUNDACIÓN REDES Y DESARROLLO
FUNREDES
END
print "Estadisticas Actuales
\n" ;
opendir(D,$DIR) or die ;
@f=readdir(D) ;
closedir D ;
@f1=grep /^stat-/,@f ;
for $dd (@f1)
{
($y,$m,$d)= $dd=~/stat-(....)(..)(..)/ ;
print "$d/$m/$y
\n" ;
}
print << "END" ;
Copyright © 1999
Fundación Redes y Desarrollo -FUNREDES-
Fecha Creación: 7 I 1999 | Ultima Mofificación: 18 III 1999
END
