y obtener algo como esto:
Y lo que tengo es lo siguiente:
Using perl Syntax Highlighting
- #!/usr/bin/perl -wT
- #estadisticas.pl
- use strict;
- use CGI qw/:standard/;
- # en caso de errores
- use CGI::Carp qw/fatalsToBrowser/;
- # hacemos uso de plantillas
- use HTML::Template;
- # nuevo obj de tipo cgi
- my $cgi = CGI->new;
- #variable para el uso de un template u otro...
- my $template;
- # imprimo encabezado
- print $cgi->header;
- print $cgi->start_html('Estadisticas de Reclamos');
- if($cgi->param('Dia0') && $cgi->param('Mes0') && $cgi->param('Anio0') &&
- $cgi->param('Dia1') && $cgi->param('Mes1') && $cgi->param('Anio1'))
- {
- $template = 'estadisticas_porcentuales2';
- }else
- {
- $template = 'estadisticas_porcentuales';
- }
- my $t = HTML::Template->new(filename => "/home/reLlene/tmpls/$template.tmpl", associate => + $cgi);
- print $t->output;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Si no tengo parámetros, muestro la siguiente plantilla estadisticas_porcentuales.tmpl:
Using html4strict Syntax Highlighting
- <body background="/bg-body.jpg" style="background-repeat:no-repeat">
- <form ACTION = "estadisticas_porcentuales.pl" method = "POST">
- <center>
- <img src="http://172.17.0.220/images/logo-sioncom.png">
- <h1>Estadisticas de Llamadas Entrantes por Sector</h1>
- <p>Seleccione el rango de fechas para calcular las estadisticas:
- <br>
- <input TYPE=checkbox checked NAME="DesdeFecha"> Desde la fecha :
- <input SIZE=2 NAME="Dia0" VALUE="5">
- <select NAME="Mes0">
- <option VALUE="1" > ENE (1)
- <option VALUE="2" > FEB (2)
- <option VALUE="3" > MAR (3)
- <option VALUE="4" > ABR (4)
- <option VALUE="5" > MAY (5)
- <option VALUE="6" > JUN (6)
- <option VALUE="7" > JUL (7)
- <option VALUE="8" > AGO (8)
- <option VALUE="9" > SEP (9)
- <option selected VALUE="10" > OCT (10)
- <option VALUE="11" > NOV (11)
- <option VALUE="12" > DIC (12)
- </select>
- <select NAME="Anio0">
- <option VALUE="2004" > 2004
- <option VALUE="2005" > 2005
- <option VALUE="2006" > 2006
- <option VALUE="2007" > 2007
- <option VALUE="2008" > 2008
- <option VALUE="2009" > 2009
- <option VALUE="2010" > 2010
- <option VALUE="2011" > 2011
- <option selected VALUE="2012" > 2012
- <option VALUE="2013" > 2013
- <option VALUE="2014" > 2014
- <option VALUE="2015" > 2015
- <option VALUE="2016" > 2016
- <option VALUE="2017" > 2017
- </select>
- <br><br>
- <input TYPE=CHECKBOX CHECKED NAME="HastaFecha"> Hasta la fecha :
- <input SIZE=2 NAME="Dia1" VALUE="5">
- <select NAME="Mes1">
- <option VALUE="1" > ENE (1)
- <option VALUE="2" > FEB (2)
- <option VALUE="3" > MAR (3)
- <option VALUE="4" > ABR (4)
- <option VALUE="5" > MAY (5)
- <option VALUE="6" > JUN (6)
- <option VALUE="7" > JUL (7)
- <option VALUE="8" > AGO (8)
- <option VALUE="9" > SEP (9)
- <option selected VALUE="10" > OCT (10)
- <option VALUE="11" > NOV (11)
- <option VALUE="12" > DIC (12)
- </select>
- <select NAME="Anio1">
- <option VALUE="2004" > 2004
- <option VALUE="2005" > 2005
- <option VALUE="2006" > 2006
- <option VALUE="2007" > 2007
- <option VALUE="2008" > 2008
- <option VALUE="2009" > 2009
- <option VALUE="2010" > 2010
- <option VALUE="2011" > 2011
- <option selected VALUE="2012" > 2012
- <option VALUE="2013" > 2013
- <option VALUE="2014" > 2014
- <option VALUE="2015" > 2015
- <option VALUE="2016" > 2016
- <option VALUE="2017" > 2017
- </select>
- <br><br>
- <input TYPE=submit NAME=Action VALUE="Calcular Estadisticas">
- </center>
- </form>
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
estadisticas_porcentuales2.tmpl:
Using html4strict Syntax Highlighting
- <body background="/bg-body.jpg" style="background-repeat:no-repeat">
- <form ACTION = "estadisticas_porcentuales2.pl" method = "POST">
- <center>
- <img src="http://172.17.0.220/images/logo-sioncom.png">
- <h1>
- Estadisticas
- <br><p>
- <img src="http://localhost/cgi-bin/generador_grafico_circular.pl" alt="Estadisticas">
- </form>
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Y con éste script (generador_grafico_circular) que es llamado desde estadisticas_porcentuales2.tmpl dónde solicito el gráfico (Content type: image/png).
NOTA: los parámetros los coloqué a mano simplemente a modo de mostrar un gráfico cualquiera donde se vea lo que quiero. La consulta a la DB aún no lo hice porque no sé desde dónde sería la mejor opción. Se me ocurre hacerla en éste pero los parámetros recibirlos de la primera plantilla, es decir, de estadisticas_porcentuales.tmpl, pero ¡¡¡NO SÉ CÓMO HACERLO!!!
Using perl Syntax Highlighting
- #!/usr/bin/perl -wT
- use strict;
- use GD::Graph::pie;
- # Eje de abscisas
- my @campos = ('Oct 2003','Nov 2003','Dec 2003','Ene 2004','Feb 2004');
- # Eje de Ordenadas
- my @valores = ('547','2282','2798','2354','4326');
- # Array de array
- my @graf = (\@campos, \@valores);
- # establecemos aca que se trata de un Grafico Circular.
- # new(ancho, alto)
- my $grafico = GD::Graph::pie->new(600, 450);
- # seteo features del grafico
- $grafico->set(
- # rotulo el gráfico
- title => 'Estadisticas',
- ) or warn $grafico->error;
- my $imagen = $grafico->plot(\@graf) or die $grafico->error;
- # hago impresión del contenido imagen
- print "Content-type: image/png\n\n";
- # imprimo el objeto imagen
- print $imagen->png;
- exit(1);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
He visto que puedo pasar parámetros con HTML::Template de la siguiente forma:
Using perl Syntax Highlighting
pero vamos, parece que no me sirve porque lo que yo deseo es TOMAR parámetros, ¡¡¡no PASARLES un VALOR!!!
¡¡¡¡Cualquier sugerencia es bienvenida!!!!