function Valor_Absoluto ($año,$mes,$dia){
$resultado=0;
$mes=Obtener_Mes($mes);
$fdatos = fopen("../sphereserver/stats/$año/$mes.txt","r");
while (!feof($fdatos)){
$dato=fgets($fdatos,4096);
$dato=explode(" ", $dato);
if ($dia==$dato[1]){
$resultado=$resultado+$dato[3];
}
}
fclose($fdatos);
return $resultado;
}
function Mayor_Cantidad ($año,$mes,$dia){
$maximo=0;
$mes=Obtener_Mes($mes);
$fdatos = fopen("../sphereserver/stats/$año/$mes.txt","r");
while (!feof($fdatos)){
$dato=fgets($fdatos,4096);
$dato=explode(" ", $dato);
if ($dia==$dato[1]){
if ($maximo < (int)$dato[3]){
$maximo=$dato[3];
$resultado="$maximo $dato[2]";
}
}
}
fclose($fdatos);
return $resultado;
}
function Obtener_Clientes ($año,$mes,$dia,$hora){
$clientes=0;
$mes=Obtener_Mes($mes);
$fdatos = fopen("../sphereserver/stats/$año/$mes.txt","r");
while (!feof($fdatos)){
$dato=fgets($fdatos,4096);
$dato=explode(" ", $dato);
if ($dia==$dato[1]){
if ($hora==$dato[2]){
$clientes=$dato[3];
}
}
}
fclose($fdatos);
return $clientes;
}
function Existe($año,$mes,$dia){
$mes=Obtener_Mes($mes);
if ($fdatos = fopen("../sphereserver/stats/$año/$mes.txt","r")){
while (!feof($fdatos)){
$dato=fgets($fdatos,4096);
$dato=explode(" ", $dato);
if ($dia==$dato[1]){
return $dato[0];
fclose($fdatos);
}
}
}
fclose($fdatos);
return false;
}
function Mostrar_Tabla ($año,$mes,$dia,$informe=detallado){
if (!$dia){
$dia=date("d");
}
if (!$mes){
$mes=date("m");
}
if (!$año){
$año=date("Y");
}
if ($dia_semana=Existe($año,$mes,$dia)){
if ($dia_semana==Lunes){
$dia_aux=0;
}else if($dia_semana==Martes){
$dia_aux=-1;
}else if($dia_semana==Miercoles){
$dia_aux=-2;
}else if($dia_semana==Jueves){
$dia_aux=-3;
}else if($dia_semana==Viernes){
$dia_aux=-4;
}else if($dia_semana==Sabado){
$dia_aux=-5;
}else{
$dia_aux=-6;
}
}else if ($informe==detallado){
echo "
No existe información del día $dia de ".Obtener_Mes($mes)." de $año";
return false;
}else {
if ($dia_semana==Lunes){
$dia_aux=0;
}else if($dia_semana==Martes){
$dia_aux=-1;
}else if($dia_semana==Miercoles){
$dia_aux=-2;
}else if($dia_semana==Jueves){
$dia_aux=-3;
}else if($dia_semana==Viernes){
$dia_aux=-4;
}else if($dia_semana==Sabado){
$dia_aux=-5;
}else{
$dia_aux=-6;
}
}
if ($informe==detallado){
$suma_clientes=Valor_Absoluto($año,$mes,$dia);
$maximo=Mayor_Cantidad($año,$mes,$dia);
$maximo=explode(" ",$maximo);
echo "$dia_semana Día $dia de ".Obtener_Mes($mes)." de $año
(Valor máx. alcanzado $maximo[0] clientes a las $maximo[1]:00 horas)";
echo "
";
$clientes=Obtener_Clientes($año,$mes,$dia,0);
for ($i=1; $i < 24; $i++){
//$clientes=Obtener_Clientes($año,$mes,$dia,$i);
$clientes="$clientes,".Obtener_Clientes($año,$mes,$dia,$i)."";
//$altura=((1500/$suma_clientes)*$clientes);
//if ($altura > 200){ $altura=200;}
//echo "
| ";
}
echo "";
//echo "
";
//for ($i=0; $i < 24; $i++){
// echo"$i:00 ".Obtener_Clientes($año,$mes,$dia,$i)." | ";
//}
echo "
";
}else if($informe==semanal){
$dia_aux=$dia_aux+$dia;
$fin=$dia_aux+6;
echo "Semana actual";
echo "";
for ($j=$dia_aux; $j<=$fin; $j++){
$maximo=0;
$maximo=Mayor_Cantidad($año,$mes,$j);
$maximo=explode(" ",$maximo);
$suma_clientes=$suma_clientes+$maximo[0];
$clientes="$clientes $maximo[0]";
}
$clientes=explode(" ",$clientes);
for ($i=1; $i<=7; $i++){
$altura=((300/$suma_clientes)*$clientes[$i]);
if ($altura>150){$altura=150;}
$dia=$fin-(7-$i);
echo "
| ";
}
echo "
";
for ($h=1; $h<=7; $h++){
echo"".Obtener_Dia($h)." | ";
}
echo "
";
}
}
function Obtener_Mes($mes){
if ($mes==1){
$mes="Enero";
}else if ($mes==2){
$mes="Febrero";
}else if ($mes==3){
$mes="Marzo";
}else if ($mes==4){
$mes="Abril";
}else if ($mes==5){
$mes="Mayo";
}else if ($mes==6){
$mes="Junio";
}else if ($mes==7){
$mes="Julio";
}else if ($mes==8){
$mes="Agosto";
}else if ($mes==9){
$mes="Septiembre";
}else if ($mes==10){
$mes="Octubre";
}else if ($mes==11){
$mes="Noviembre";
}else{
$mes="Diciembre";
}
return $mes;
}
function Obtener_Dia($dia){
if ($dia==1){
$dia="Lunes";
}else if ($dia==2){
$dia="Martes";
}else if ($dia==3){
$dia="Miercoles";
}else if ($dia==4){
$dia="Jueves";
}else if ($dia==5){
$dia="Viernes";
}else if ($dia==6){
$dia="Sabado";
}else{
$dia="Domingo";
}
return $dia;
}
function Encabezado(){
?>
Estadísticas: Clientes conectados a UA-Sphere
Clientes conectados a UA-Sphere
|
}
function Creditos(){
echo "
";
echo "
Estadísticas UA-Sphere v.1.2
Última Actualización:14/07/2005
";
}
function ultimoDia($mes,$año){
$ultimo_dia=28;
while (checkdate($dia,$ultimo_dia + 1,$año)){
$ultimo_dia++;
}
return $ultimo_dia;
}
Encabezado();
if(($_GET['Tipo']=="detallado")&&($_GET['A']>0)&&($_GET['M']>0)&&($_GET['D']>0)){
Mostrar_Tabla($_GET['A'],$_GET['M'],$_GET['D'],$_GET['Tipo']);
echo "
-= Volver =-";
}else{
Mostrar_Tabla(date('Y'),date('m'),date('d'),detallado);
Mostrar_Tabla(date('Y'),date('m'),date('d'),semanal);
}
Creditos();
//MostrarCalendario();
function MostrarCalendario(){
$tipo_semana = 1;
$tipo_mes = 1;
$MESCOMPLETO[1] = 'Enero';
$MESCOMPLETO[2] = 'Febrero';
$MESCOMPLETO[3] = 'Marzo';
$MESCOMPLETO[4] = 'Abril';
$MESCOMPLETO[5] = 'Mayo';
$MESCOMPLETO[6] = 'Junio';
$MESCOMPLETO[7] = 'Julio';
$MESCOMPLETO[8] = 'Agosto';
$MESCOMPLETO[9] = 'Septiembre';
$MESCOMPLETO[10] = 'Octubre';
$MESCOMPLETO[11] = 'Noviembre';
$MESCOMPLETO[12] = 'Diciembre';
$MESABREVIADO[1] = 'Ene';
$MESABREVIADO[2] = 'Feb';
$MESABREVIADO[3] = 'Mar';
$MESABREVIADO[4] = 'Abr';
$MESABREVIADO[5] = 'May';
$MESABREVIADO[6] = 'Jun';
$MESABREVIADO[7] = 'Jul';
$MESABREVIADO[8] = 'Ago';
$MESABREVIADO[9] = 'Sep';
$MESABREVIADO[10] = 'Oct';
$MESABREVIADO[11] = 'Nov';
$MESABREVIADO[12] = 'Dic';
$SEMANACOMPLETA[0] = 'Lunes';
$SEMANACOMPLETA[1] = 'Martes';
$SEMANACOMPLETA[2] = 'Miércoles';
$SEMANACOMPLETA[3] = 'Jueves';
$SEMANACOMPLETA[4] = 'Viernes';
$SEMANACOMPLETA[5] = 'Sábado';
$SEMANACOMPLETA[6] = 'Domingo';
$SEMANAABREVIADA[0] = 'Lun';
$SEMANAABREVIADA[1] = 'Mar';
$SEMANAABREVIADA[2] = 'Mie';
$SEMANAABREVIADA[3] = 'Jue';
$SEMANAABREVIADA[4] = 'Vie';
$SEMANAABREVIADA[5] = 'Sáb';
$SEMANAABREVIADA[6] = 'Dom';
////////////////////////////////////
if($tipo_semana == 0){
$ARRDIASSEMANA = $SEMANACOMPLETA;
}elseif($tipo_semana == 1){
$ARRDIASSEMANA = $SEMANAABREVIADA;
}
if($tipo_mes == 0){
$ARRMES = $MESCOMPLETO;
}elseif($tipo_mes == 1){
$ARRMES = $MESABREVIADO;
}
if(!$dia) $dia = date(d);
if(!$mes) $mes = date(n);
if(!$ano) $ano = date(Y);
$TotalDiasMes = date(t,mktime(0,0,0,$mes,$dia,$ano));
$DiaSemanaEmpiezaMes = date(w,mktime(0,0,0,$mes,1,$ano));
$DiaSemanaTerminaMes = date(w,mktime(0,0,0,$mes,$TotalDiasMes,$ano));
$EmpiezaMesCalOffset = $DiaSemanaEmpiezaMes;
$TerminaMesCalOffset = 6 - $DiaSemanaTerminaMes;
$TotalDeCeldas = $TotalDiasMes + $DiaSemanaEmpiezaMes + $TerminaMesCalOffset;
if($mes == 1){
$MesAnterior = 12;
$MesSiguiente = $mes + 1;
$AnoAnterior = $ano - 1;
$AnoSiguiente = $ano;
}elseif($mes == 12){
$MesAnterior = $mes - 1;
$MesSiguiente = 1;
$AnoAnterior = $ano;
$AnoSiguiente = $ano + 1;
}else{
$MesAnterior = $mes - 1;
$MesSiguiente = $mes + 1;
$AnoAnterior = $ano;
$AnoSiguiente = $ano;
$AnoAnteriorAno = $ano - 1;
$AnoSiguienteAno = $ano + 1;
}
print "";
print "";
print "";
print "";
print "";
print "año- | ";
print "mes- | ";
print "" . $ARRMES[$mes] . "-" . $ano . " | ";
print "mes+ | ";
print "año+ | ";
print " ";
print " ";
print " | ";
print "
";
print "";
foreach($ARRDIASSEMANA AS $key){
print "$key | ";
}
print "
";
for($a=1;$a <= $TotalDeCeldas;$a++){
if(!$b) $b = 0;
if($b == 7) $b = 0;
if($b == 0) print "";
if(!$c) $c = 1;
if($a >= $EmpiezaMesCalOffset AND $c <= $TotalDiasMes){
if($c == date(d) && $mes == date(m) && $ano == date(Y)){
if (Existe($ano,$mes,$c))
print "$c
| ";
else
print "$c
| ";
}elseif($b == 5 OR $b == 6){
if (Existe($ano,$mes,$c))
print "$c | ";
else
print "$c | ";
}else{
if (Existe($ano,$mes,$c))
print "$c | ";
else
print "$c | ";
}
$c++;
}else{
print " | ";
}
if($b == 6) print '
';
$b++;
}
print " |
";
print "
";
}
?>