| $ano-$gp_nome | ");
echo("| Maximum Speed |
|---|
");
echo("| ".$titulo[sessao($ses)]." - ". location($loc)." |
|---|
");
tab_bar(4);
}
function gp_sel($b)
{
extract($GLOBALS);
tab_bar(4);
echo("");
tab_bar(4);
}
function GPfic()
{
extract($GLOBALS);
fxhead("Forix: ".$ano.", ".$gp_nome.": ".$titulo[sessao($ses)]);
gp_cab();
tab_bor();
$SQLQuery="SELECT speed.*, papi.rpi, papi.num, pin.nabr as pi_nome FROM speed, papi, pin Where papi.rpa=speed.rpa and papi.rpi=pin.rpi and speed.ses=$ses and speed.loc=$loc and speed.rpa >= ".($rgp*1000)." and speed.rpa < ".($rgp*1000+1000)." order by speed.cla, speed.speed desc, papi.num";
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0) {
if ($rgp<8800)
$ndec=3;
else if ($rgp<9400)
$ndec=2;
else
$ndec=1;
echo("");
echo("| ".$titulo[$N_CLA]." | ");
echo("".$titulo[$N_NUMB]." | ");
echo("".$titulo[$N_DRIV]." | ");
echo("km/h | ");
$seq=0;
$rpi=0;
$BGC=$TR2_BGC;
while ($RSList= mysql_fetch_array($result)) {
$seq++;
if ($BGC==$TR1_BGC) $BGC=$TR2_BGC; else $BGC=$TR1_BGC;
echo("");
echo("| $seq | ");
include ("pa_num.php");
include ("pi_nome.php");
echo(" ");
echo sprintf(sprintf("%%0.%df",$ndec), $RSList["speed"]/1000);
echo(" | ");
}
echo("
|
");
tab_bor();
if ($super_modo==$Modo_total)
echo("| Edit |
");
} else if ($super_modo==$Modo_total) {
if ($ano >= 2001) {
echo(" |
");
} else {
echo("| nn speed |
");
echo(" |
");
}
tab_bor();
}
if ($super_modo>=$Modo_clube)
gp_sel(0);
else
tab_bar(4);
tab_fim();
fxtail();
}
function GPtag()
{
extract($GLOBALS);
// Decode input data
$seq = 0;
$txt = post_arg("txt");
for ($linha = strtok($txt, chr(10)); $linha; $linha = strtok(chr(10))) {
$pieces = explode(" ", $linha);
$n = count($pieces);
switch ($loc) {
case 0:
case 2:
$pos[] = $seq+1;
$num[] = $pieces[0];
$nome[] = $pieces[$n-2];
$s = sscanf($pieces[$n-1], "%f");
break;
case 1:
$pos[] = $pieces[0];
$num[] = $pieces[1];
$nome[] = $pieces[$n-2];
$s = sscanf($pieces[$n-1], "%f");
break;
case 3:
$pos[] = $pieces[0];
$num[] = $pieces[1];
$nome[] = $pieces[$n-3];
$s = sscanf($pieces[$n-2], "%f");
break;
}
$speed[] = intval($s[0]*1000);
$seq++;
}
// Get participations references (possible number sharing)
$n = count($num);
for ($i=0; $i<$n; $i++) {
$sql = "Select papi.rpa from papi, pinomes where papi.rpi=pinomes.rpi and papi.rpa>=".($rgp*1000)." and papi.rpa<".(($rgp+1)*1000)." and papi.num=".$num[$i]." and pinomes.nome like '".$nome[$i]."'";
// echo("$sql
");
if (($result = mysql_query($sql)) and mysql_num_rows($result) == 1) {
$rs = mysql_fetch_array($result);
$rpa[] = $rs["rpa"];
} else
echo("Error rpa: n = ".$num[$i]."
");
// echo("p=".$pos[$i].", n=".$num[$i].", r=".$rpa[$i].", s=".$speed[$i]."
");
}
// Delete old records
$sql = "Delete from speed where speed.ses=$ses and speed.loc=$loc and speed.rpa >= ".($rgp*1000)." and speed.rpa < ".(($rgp+1)*1000);
mysql_query($sql);
// Insert new records
for ($i=0; $i<$n; $i++) {
$sql = "Insert into speed values (".$rpa[$i].",".$speed[$i].",".$pos[$i].",$ses,$loc)";
mysql_query($sql);
}
// Show list
header("Location: speed.asp?$args&r=$rgp&c=$cmdFic&se=$ses&lo=$loc");
}
function GPedi()
{
global $script, $args, $super_modo, $titulo, $ano, $gp_nome, $rgp, $ses, $loc;
global $TR1_BGC, $TR2_BGC, $cmdIns;
fxhead ("Forix: $ano, $gp_nome : ".$titulo[sessao($ses)]);
gp_cab();
$sql = "Select speed.* from speed where speed.ses=$ses and speed.loc=$loc and speed.rpa>=".($rgp*1000)." and speed.rpa<".(($rgp+1)*1000)." order by speed.cla, speed.speed desc, speed.rpa";
if (($result = mysql_query($sql)) and mysql_num_rows($result) > 0) {
if ($rgp < 8800)
$ndiv = 1;
else if ($rgp < 9400)
$ndiv = 10;
else
$ndiv = 100;
tab_bor();
echo("| nn speed |
");
echo(" |
");
tab_bor();
}
if ($super_modo >= Modo_clube)
gp_sel(0);
else
tab_bar(4);
tab_fim();
fxtail();
}
function GPins()
{
global $script, $args, $cmdFic, $ano, $rgp, $ses, $loc;
$erro = 0;
$speed = $_POST['speed'];
for ($ii=0, $n = strtok($speed, chr(10)); $n; $n = strtok(chr(10)), $ii++) {
$items = explode(' ', trim($n));
$nn[] = $items[0];
$ss[] = $items[1];
if ($ss[$ii] < 5000)
$ss[$ii] *= 100;
else if ($ss[$ii] < 50000)
$ss[$ii] *= 10;
if ($ano > 1984 and $ii > 0)
if ($ss[$ii] > $ss[$ii-1])
$erro = $ii;
}
if ($erro > 0)
echo("Error: speed $ss[$erro]
");
else {
// Delete actual records
$sql = "Delete from speed where ses=$ses and loc=$loc and rpa >= ".($rgp*1000)." and rpa < ".($rgp*1000+1000);
mysql_query($sql);
// Insert new records
for ($n=0; $n<$ii; $n++) {
$sql = "Insert into speed values (".($rgp*1000+$nn[$n]).",".$ss[$n].",$n,$ses,$loc)";
mysql_query($sql);
}
header("Location: $script?$args&r=$rgp&c=$cmdFic&se=$ses&lo=$loc");
}
}
function GPlist()
{
extract($GLOBALS);
fxhead("Forix: Maximum Speed");
tab_ini();
tab_bar(2);
echo("| ");
if ($rcp > 0)
echo("".(1900+$rcp)." » ");
echo("Maximum Speed |
");
echo("| Top-10 | Bottom-10 |
");
tab_bar(4);
tab_bor();
tab_bar(4);
if ($rcp>0) {
// Available sessions
$SQLQuery="Select ses from speed where rpa>=".($rcp*100000)." and rpa<".(($rcp+1)*100000)." group by ses order by ses";
$result = mysql_query($SQLQuery);
$ns=0;
while ($RSList= mysql_fetch_array($result)) {
$nses[$ns]=$RSList["ses"];
$ns=$ns+1;
}
if ($ns>0) {
echo("");
echo("| $titulo[$N_GPRIS] | ");
echo("Sessions | ");
for ($ii=0; $ii<=$ns-1; $ii=$ii+1)
echo("| ".sessao_abr($nses[$ii])." | ");
echo(" ");
$SQLQuery="SELECT truncate(speed.rpa/1000,0) AS rgp, ngn.nome as ng_nome, speed.ses, speed.loc FROM speed, papi, ngn where speed.rpa=papi.rpa and papi.rng=ngn.rng and ngn.lin=".$lin." and speed.rpa > ".($rcp*100000)." and speed.rpa < ".(($rcp+1)*100000)." GROUP BY truncate(speed.rpa/1000,0), ngn.nome, ngn.lin, speed.ses, speed.loc ORDER BY rgp, speed.ses, speed.loc";
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0) {
$rgpa=0;
$BGC=$TR2_BGC;
while ($RSList= mysql_fetch_array($result)) {
$rgp=$RSList["rgp"];
$ses=$RSList["ses"];
if ($rgp!=$rgpa) {
if ($rgpa>0) {
echo("");
while($n<$ns) {
echo(" | ");
$n=$n+1;
}
echo("");
}
if ($BGC==$TR1_BGC) $BGC=$TR2_BGC; else $BGC=$TR1_BGC;
echo("| ".$RSList["ng_nome"]." | ");
$rgpa=$rgp;
$n=0;
$sesa=0;
}
if ($ses!=$sesa) {
if ($n>0)
echo("");
while($nses[$n]<$ses) {
echo(" | ");
$n=$n+1;
}
echo("");
$sesa=$ses;
$n=$n+1;
}
echo("". $RSList["loc"] ." ");
}
echo(" | ");
while($n<$ns) {
echo(" | ");
$n=$n+1;
}
echo("
|
");
}
}
}
// Index
$SQLQuery="SELECT truncate(rpa/100000,0) AS ano FROM speed GROUP BY truncate(rpa/100000,0) ORDER BY ano";
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0) {
tab_bor();
tab_bar(4);
echo(" |
");
tab_bar(4);
}
tab_fim();
fxtail();
}
function GPtop($m)
{
extract($GLOBALS);
$rnc=intval(post_arg("rnc"));
if ($m==0)
$tit="Top-10";
else
$tit="Bottom-10";
fxhead("Forix: Maximum Speeds, ".$tit);
tab_ini();
tab_bar(2);
echo("| Maximum Speeds |
");
echo("| ");
if ($rcp>0)
echo("".($rcp+1900)." - ");
echo("$tit |
");
tab_bar(4);
$SQLQuery="Select speed.*, papi.rpi, papi.num, pin.nabr as pi_nome, ngn.nome as ng_nome from speed, papi, pin, ngn where papi.rpa=speed.rpa and papi.rpi=pin.rpi and ngn.rng=papi.rng and ";
if ($rcp>0)
$SQLQuery=$SQLQuery."truncate(speed.rpa/100000,0) >= ".$rcp." and truncate(speed.rpa/100000,0) < ".($rcp+1)." and ";
if ($rnc>0)
$SQLQuery=$SQLQuery."papi.rnc= ".$rnc." and ";
$SQLQuery=$SQLQuery."ngn.lin=".$lin." order by speed.speed ";
if ($m==0)
$SQLQuery=$SQLQuery."desc, speed.rpa limit 10";
else
$SQLQuery=$SQLQuery.", speed.rpa limit 10";
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0) {
$ndec=3;
tab_bor();
?>
|
km/h |
|
Session |
Location |
");
$seq=$seq+1;
$rpa=$RSList["rpa"];
?> |
|
-- |
|
|
");
}
// Select a circuit
tab_bor();
tab_bar(4);
echo("");
tab_bar(4);
tab_fim();
fxtail();
}
$rcp=intval(get_arg("y"));
if ($rcp>=1950)
$rcp=$rcp-1900;
$rgp=intval(get_arg("r"));
$cmd=intval(get_arg("c"));
$ses=intval(get_arg("se"));
$loc=intval(get_arg("lo"));
$rgp2 = $rgp;
$ano = 1900 + intval($rgp/100);
if (isset($_POST['rng'])) {
if (strlen($_POST['ano']) > 0) {
$ano = (int) $_POST['ano'];
if ($ano < 100) {
if ($ano > ($hano - 2000))
$ano += 1900;
else
$ano += 2000;
}
}
$rng = intval(post_arg('rng'));
if ($rng == 0)
$rgp2 = GPref ($ano, GPnome ($rgp));
else
$rgp2 = GPref_rng ($ano, $rng);
}
if ($rgp2 != $rgp) {
$rgp = $rgp2;
$ano = 1900 + intval($rgp/100);
}
if (isset($_POST['session']) and post_arg("session") != "")
$ses=intval(post_arg("session"));
if (isset($_POST['location']) and post_arg("location") != "")
$loc=intval(post_arg("location"));
if ($rgp>0)
{
$ss=intval(substr($rgp,strlen($rgp)-(2)));
$SQLQuery="SELECT cp.ngp From cp Where cp.rcp = ".$ano;
$RScp = mysql_fetch_array(mysql_query($SQLQuery));
$ngp=$RScp["ngp"];
}
$gp_nome= GPnome($rgp);
switch ($cmd) {
case $cmdFic:
GPfic();
break;
case $cmdEdi:
GPedi();
break;
case $cmdIns:
GPins();
break;
case $cmdTag:
GPtag();
break;
case $cmdTop:
GPtop(0);
break;
case $cmdBot:
GPtop(1);
break;
default:
GPlist();
break;
}
?>
|