#!/usr/bin/perl
#
#
#

use strict;

my @squadra = ( "" );

my $dbname = "Classifica_u17_2010";

open ( TMP, ">>aggiorna_$dbname" ) || die "Impossibile aprire il file.";


print TMP "<?php

\$mysqli = new mysqli(\"localhost\", \"taverneriobasket\", \"\", \"my_taverneriobasket\" );

if (mysqli_connect_errno()) {
        echo \"Errore in connessione al DBMS: \".mysqli_connect_error();
        exit();
}

else {\n\n";

my $id = "a";

for ( my $i = 0 ; $i <= $#squadra; $i++ ) {

  my $loop = "  // ------------ $squadra[$i]
  if ( \$_POST['" . $id . "'] == 1 ) {
    \$query=\"UPDATE $dbname SET punti = punti + 2, vittorie = vittorie + 1 WHERE squadra = '" . $squadra[$i] . "'\";
    \$mysqli->query('SET NAMES UTF8 ');
    \$result = \$mysqli->query(\$query);

  }
  if ( \$_POST['" . $id . "'] == 2 ) {
    \$query=\"UPDATE $dbname SET sconfitte = sconfitte + 1 WHERE squadra = '" . $squadra[$i] . "'\";
    \$mysqli->query('SET NAMES UTF8 ');
    \$result = \$mysqli->query(\$query);
  }\n\n";

  print TMP $loop;
  $id++;
}

printf TMP "} ?>

<form action=\"aggiornamento_$dbname.php\" method=\"post\">
<table border=\"0\">";

my $id = "a";

for ( my $i = 0 ; $i <= $#squadra; $i++ ) {

  my $loop ="<tr><td>" . $squadra[$i] . "</td><td><input type=\"checkbox\" name=\"". $id ."\" value=\"1\">Vittoria</td><td><input type=\"checkbox\" name=\"". $id ."\" value=\"2\">Sconfitta</td></tr>\n";

  print TMP $loop;

  $id++;
}

print TMP "<tr><td><center><input type=\"submit\" value=\"Aggiorna la classifica\"></center></td></tr>
</table>\n</form>";

close ( TMP );