Ejercicio+2.11.1+draxus+-+07-05-2009


 * Realizar una quiniela AJAX, que al modificar el resultado de un partido, lo almacene en el servidor.**

code format="perl"
 * quiniela.cgi**
 * 1) !/usr/bin/perl

use XML::Simple; use CGI qw(:standard);

my $load = param('load') || 0;

my $doc = XMLin("/var/www/quiniela.db");

if($load){ print header( -type => 'text/html' );

for ( keys %{$doc->{partido}} ){ my $p = $doc->{partido}->{$_}; $html .= ""; $html .= "$p->{local} vs $p->{visitante}"; $html .= "{resultado}' size='1'/>"; $html .= ""; $html .= ""; $html .= " "; $html .= " "; }

print $html;

} else{ print header( -type => 'text/plain' ); my $id = param('id') || -1; my $resultado = param('resultado') || -1;

my $xml = " "; for( keys %{$doc->{partido}} ){ my $p = $doc->{partido}->{$_}; $xml .= ""; $xml .= " $p->{local} "; $xml .= " $p->{visitante} "; if ($id eq $_){ $xml .= " $resultado "; }     else{ $xml .= " $p->{resultado} "; }     $xml .= " "; } $xml .= " ";

open(F1, ">/var/www/quiniela.db"); print F1 $xml; close(F1);

print "ok"; } code

code format="html4strict" Quiniela 2.0    function cargar_quiniela{ $("#res").load("cgi-bin/quiniela.cgi?load=1", function{   $('.form_partido').bind('submit', function(event){ event.preventDefault; $(this).ajaxSubmit({          'target': $("span", this),           'success': function{                $("span", this).fadeIn(1000);           }      }); }); }); } Quiniela 2.0 Introduce el resultado de un partido  code
 * quiniela.html**

code format="xml"  equipo a  equipo b   X  equipo c  equipo d   1  equipo e  equipo f   2 code
 * quiniela.db** (ojo: hay que darle permisos de escritura para todos)