#!/usr/bin/perl
#!c:\perl\bin\perl.exe
#!D:\FoxServ\perl\bin\perl
#!c:/sambar_server/perl/perl.exe
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# MODIFICACIONES #
# #
# 28/10/00 fichero de log logcalva.txt refleja los numeros consultados #
# en caso de nš erroneo indica ERROR y el club #
# 30/10/00 si paso como parametro peli imprime el log (.busca2.cgi?peli#
# 15/05/01 cambio la extension de .cgi a .pl, y tambien en el detalle de clubes #
# #
# #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
print "Content-Type: text/html\n\n
AGRUPACION DE CLUBES DE CALVA DE MADRID- estadillo virtual
";
#comprobando si se paso el numero de socio por parametro con ...pl?99
if ($ENV{'QUERY_STRING'})
{
$valor=($ENV{'QUERY_STRING'});
if ($valor eq "peli")
{
open (AR,'../perls/logcalva.txt')|| die "$!\n";
print "";
while ()
{
print "$_
";
}
print "";
end;
}
#comprueba si ha pasado por parametro el club
# co9 o si ha pasado 9 el nuemrodel jugador
if ( $valor =~ "co")
{
$valor=~ s/co//;
$tipo= "CLUB";
}
else
{
$tipo="NUMERO";
}
}
else
{
# se paso el contenido mediante formulario
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@entrada = split(/&/, $buffer);
$valor = $entrada[1];
$valor =~ s/n=//;
#Eliminando los ceros a la izquierda 08/1=8
$valor=$valor/1;
$tipo = $entrada[0];
$tipo =~ s/TIPO=//;
}
#print "
**********Se busca un dato de $tipo que vale $valor ";
print "
";
#cabeza**********************************************
if ($tipo eq "NUMERO")
{
$buscar="n=".$valor."_";
$club= "lo inicializo";
open (AR,'../perls/nombres.txt')|| die "$!\n";
$encontro="NO";
$linea="la inicializo";
while ()
{
if( $_ =~ $buscar)
{
$encontro="SI";
$linea=$_;
}
}
print "\na6 ";
if ($encontro eq "SI")
{
@variables = split(/_/, $linea);
$nu = $variables[0];
$nu =~ s/n=//;
$co = $variables[1];
$club=$co;
print "\na7 ";
# el codigo lo usara para recuperar el club
$nombre = $variables[2]."\n";
$catin = $variables[3];
$catfin = $variables[4];
$calvas = $variables[5];
$camp = $variables[6];
$media = $variables[7];
$copas = $variables[8];
{
open (AR,'../perls/clubes.txt')|| die "$!\n";
while ()
{
if( $_ =~ $club)
{
#print "habrio por segunda vez el fichero";
@variables = split(/_/, $_);
$co = $variables[0];
$co =~ s/n=//;
$club = $variables[1];
}
}
}
print " Datos del jugador";
print " ";
print "";
print " | ";
print "";
print "";
print " | ";
print " Nombre : $nombre ";
print " Club : $club ";
print " No. Ficha: $nu ";
print " |
|
";
}
if ($encontro eq "SI")
{
open (AR,'../perls/historico.txt')|| die "$!\n";
$linea="la inicializo";
print "
Historia deportiva desde la temporada1990 ";
print "
Año |
co |
Cat.Ini. |
Cat.Fin. |
Calvas |
Camp |
Media |
Copas |
";
$contador = 0;
$media_total = 0;
$camp_total = 0;
$calvas_total = 0;
$copas_total = 0;
while ()
{
if( $_ =~ $buscar)
{
#print "habrio por segunda vez el fichero";
@variables = split(/_/, $_);
$nu = $variables[0];
$nu =~ s/n=//;
$year = $variables[1];
if ($year<59)
{
$year= "20".$year;
} else
{
$year ="19".$year;
}
$co = $variables[2];
$catin = $variables[3];
$catfin = $variables[4];
$media = $variables[5];
$camp = $variables[6];
$calvas = $variables[7];
$copas = $variables[8];
print "
$year |
$co |
$catin |
$catfin |
$calvas |
$camp |
$media |
$copas |
";
$contador = $contador + 1;
$media_total = $media_total + $media;
$camp_total = $camp_total + $camp;
$calvas_total = $calvas_total + $calvas;
$copas_total = $copas_total + $copas;
}
}
## $media_total = $media_total / $contador;
$media_total = $calvas_total / $camp_total;
$media_total = sprintf("%.2f", $media_total );
# sprintf("%.2f", $media_total );
print "
TOTAL |
|
|
|
$calvas_total |
$camp_total |
$media_total |
$copas_total |
";
print "
";
print "
Significado de las columnas
Año: Año en que jugo.
Co: Código del Club al que pertenecia ese
año.
Cat. Ini. : Categoría con la que empezó
el año.
Cat Fin: Categoría con la que acabo
el año.
Calvas : Calvas conseguidas .
Camp: Campeonatos jugados.
Media: Media anual de calvas.
Copas: Número de copas conseguidas.
Total: calvas, campeonatos, media, copas desde
el año 1990.
";
# BEGIN codigo del log
$bookfile = "logcalva.txt";
open (FILE, ">>$bookfile")|| die "$!\n";
$date_command = "/usr/bin/date";
# Get the Date for Entry
#$date = `$date_command +"%A, %B %d, %Y at %T (%Z)"`; chop($date);
$date = `$date_command +" %d/%m/%Y %T"`; chop($date);
$shortdate = `$date_command +"%D %T %Z"`; chop($shortdate);
print FILE (sprintf ( "NU:[%03d] CO:[%02d]",$nu,$co));
print FILE "$date|$ENV{REMOTE_HOST} # $ENV{REMOTE_ADDR} # $ENV{REMOTE_PORT} #$ENV{HTTP_USER_AGENT}\n";
# END codigo del log
}
if ($encontro eq "NO")
{
print " ¡¡ERROR!!
El Nº de carnet no corresponde a un jugador en activo.
Número erróneo=";
# elimina el n=
$valor=~ s/n=//;
print $valor;
# BEGIN codigo del log
# si hay error no imprimo
# $bookfile = "logcalva.txt";
# open (FILE, ">>$bookfile")|| die "$!\n";
# $date_command = "/usr/bin/date";
# $date = `$date_command +" %d/%m/%Y %T"`; chop($date);
# $shortdate = `$date_command +"%D %T %Z"`; chop($shortdate);
# print FILE (sprintf ( "ERROR NU:[%03d]",$nu,$co));
# print FILE "$date|$ENV{REMOTE_HOST} # $ENV{REMOTE_ADDR} # $ENV{REMOTE_PORT} #$ENV{HTTP_USER_AGENT}\n";
# END codigo del log
}
}
else # tratamiento de CLUB muestra todos lso jugadores
{
#$codigo=" ";
#print $codigo;
#print "
";
if ($valor==0){
print "Haz la ckonsulta eligiendo un numero de jugador o de club
";
}
else{
print "Haz la ckonsulta eligiendo un numero de de club
";
print "ok";
{
#cogiendo el nombre del club
open (AR,'../perls/clubes.txt')|| die "$!\n";
while ()
{
#print " por segunda vez el fichero";
@variables = split(/_/, $_);
$co = $variables[0];
$co =~ s/co//;
#$valor =~ s/n=//;
# camiamos para que compare 16 con 16 y no co16 con 16
#print "co $co --- valor: $valor
";
if ($valor==$co)
{
$codigo=$co;
$club = $variables[1];
}
}
}
print " JUGADORES DEL CLUB CALVA $club ";
print "(código $codigo)
";
print "
";
print "";
#cogiendo los jugadores
open (AR,'../perls/nombres.txt')|| die "$!\n";
print "" ;
print " | ";
while ()
{
{
#print "habrio por segunda vez el fichero";
@variables = split(/_/, $_);
$nu = $variables[0];
$nu =~ s/n=//;
$co = $variables[1];
# el codigo lo usara para recuperar el club
$nombre = $variables[2]."\n";
$catin = $variables[3];
$catfin = $variables[4];
$calvas = $variables[5];
$camp = $variables[6];
$media = $variables[7];
$copas = $variables[8];
if ($co==$codigo)
{
$espacio_blanco=" ";
print $espacio_blanco x 15;
# muestra foto 20010515
print " |
" ;
print " | ";
print "";
print "(nº $nu)";
print "- $nombre ";
}
}
}
print " |
" ;
}
}
#COLA***************************************
print "