#!/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 ""; $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 ""; $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 ""; print "
    Año
    co
    Cat.Ini.
    Cat.Fin.
    Calvas
    Camp
    Media
    Copas
    $year
    $co
    $catin
    $catfin
    $calvas
    $camp
    $media
    $copas
    TOTAL
     
     
     
    $calvas_total
    $camp_total
    $media_total
    $copas_total
    "; 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 "

     

";