--- loncom/cgi/graph.png 2001/10/10 16:03:26 1.2 +++ loncom/cgi/graph.png 2003/12/18 16:33:02 1.32 @@ -1,68 +1,246 @@ #!/usr/bin/perl # -# The LearningOnline Network with CAPA +# $Id: graph.png,v 1.32 2003/12/18 16:33:02 matthew Exp $ +# +# Copyright Michigan State University Board of Trustees +# +# This file is part of the LearningOnline Network with CAPA (LON-CAPA). +# +# LON-CAPA is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# LON-CAPA is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with LON-CAPA; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # -# Behrouz Minaei -# 9/13/2001, 9/25/2001 -# 10/6/2001, 10,9,2001 +# /home/httpd/cgi-bin/graph.gif +# +# http://www.lon-capa.org/ +# +# The LearningOnline Network with CAPA # # A CGI script that dynamically outputs a graphical chart for lonstatistics. +# +#### + +=pod + +=head1 NAME + +graph.png + +=head1 SYNOPSIS + +produces plots from data stored in users environment. + +=head1 DESCRIPTION + +graph.png is a cgi-bin script which produces plots based on data stored +in the users environment. The users cookie is checked prior to producing +a plot. The query string is expected to be an identifier, $id. +The parameters defining the plot must be stored in the environment as +$ENV{'cgi.'.$id.'.'.$dataname}. Two types of plots can be produced, 'bar' +and 'xy'. The 'xy' graph can will 1 or 2 y-axes if the parameter +'two_axes' is set to false or true respectively. See perldoc GD::Graph and +loncommon::DrawBarGraph, loncommon::DrawXYGraph, and loncommon::DrawXYYGraph. + +=cut use strict; +use lib '/home/httpd/lib/perl'; use GD::Graph::bars; +use GD::Graph::lines; use GD::Graph::colour; use GD::Graph::Data; +use LONCAPA::loncgi(); + +sub unescape { + my $str=shift; + $str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; + return $str; +} + +sub error { + my ($error) = @_; + my $Str = <<"END"; +Content-type: text/html + + +Bad Graph + +

+There was an error producing the graph you requested. +

+$error +

+ + +END + return $Str; +} + +my $id = $ENV{'QUERY_STRING'}; -my ($cid, $Tag, $Max, $PNo, $data) = split(/&/,$ENV{'QUERY_STRING'}); +# +# usage: &get_env($name,$default) +sub get_env { + my $key = 'cgi.'.$id.'.'.(shift()); + return shift if (! exists($ENV{$key})); + return $ENV{$key}; +} + +if (! &LONCAPA::loncgi::check_cookie_and_load_env()) { + print < +Bad Cookie + +Your cookie information is incorrect. + + +END + exit; +} -my @data1=split(/\,/,$data); - -my @xlabels; -for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) { - $xlabels[$nIdx]=$nIdx+1; -} -my @data =(\@xlabels,\@data1); - -my $Range; -if ( $PNo > 10 ) {$Range = 30*$PNo;} -else { $Range = 300+30*$PNo; } - -if ( $Max < 1 ) { $Max = 1; } -elsif ( $Max < 10 ) { $Max = 10; } -elsif ( $Max < 100 ) { $Max = 100; } - -my $MyGraph = GD::Graph::bars->new($Range, 400); - -$MyGraph->set( - x_label => 'Problems #', - y_label => $Tag, - title => 'LON-CAPA Graphical Chart, Course: '.$cid, - y_max_value => $Max, - y_tick_number => 10, - y_label_skip => 1, - x_label_skip => 2, - - # colors - dclrs => [ qw(green lblue lyellow lpurple cyan lorange)], - - # shadows - bar_spacing => 4, - shadow_depth => 1, - shadowclr => 'dred', +$|=1; # Autoflush after each print/write - transparent => 0, -) or warn $MyGraph->error; +## +## Set up the plot +## +my $colordefaults = join(',', + ('#33ff00', + '#0033cc','#990000','#aaaa66','#663399','#ff9933', + '#66ccff','#ff9999','#cccc33','#660000','#33cc66', + )); + +my $height = &get_env('height',300); +my $width = &get_env('width', 400); +my $PlotType = &get_env('PlotType','bar'); + +my %GraphSettings = ( + title => &unescape(&get_env('title','')), + x_label => &unescape(&get_env('xlabel','')), + y_label => &unescape(&get_env('ylabel','')), + x_label_position => 0.5, + dclrs => [split(',',&get_env('Colors', + $colordefaults))], + fgclr => 'black', + boxclr => 'white', + accentclr => 'dblue', + valuesclr => '#ffff77', + l_margin => 10, + b_margin => 10, + r_margin => 10, + t_margin => 10, + transparent => 0, + ); + +$GraphSettings{'x_label_skip'} = &get_env('xskip',1); +$GraphSettings{'x_tick_offset'} = &get_env('x_tick_offset',0); +$GraphSettings{'y_max_value'} = &get_env('y_max_value',1); + +my $MyGraph; +if ($PlotType eq 'bar') { + # Pick up bar graph settings + $GraphSettings{'bar_width'} = &get_env('bar_width',undef); + $GraphSettings{'long_ticks'} = 1; + $GraphSettings{'tick_length'} = 0; + $GraphSettings{'x_ticks'} = 0; + $GraphSettings{'cumulate'} = 2; + $GraphSettings{'zero_axis'} = 1; +} else { + # + # X label skip setup + my $skip_x = &get_env('xskip',1); + my $x_tick_offset = &get_env('x_tick_offset',$skip_x-1); + my $zero_axis = &get_env('zero_axis',1); + # + # Fill up %GraphSettings + $GraphSettings{'long_ticks'} = 1; + $GraphSettings{'tick_length'} = 0; + $GraphSettings{'x_ticks'} = &get_env('x_ticks',0),; + $GraphSettings{'x_label_skip'} = $skip_x; + $GraphSettings{'x_tick_offset'} = $x_tick_offset; + $GraphSettings{'zero_axis'} = 1; + if (&get_env('two_axes',0)) { + $GraphSettings{'two_axes'} = 1; + $GraphSettings{'y1_label'} = &get_env('y1_label', + $GraphSettings{'y_label'}); + $GraphSettings{'y2_label'} = &get_env('y2_label',''); + $GraphSettings{'y1_max_value'} = &get_env('y1_max_value',0); + $GraphSettings{'y1_min_value'} = &get_env('y1_min_value',1); + $GraphSettings{'y2_max_value'} = &get_env('y2_max_value',1); + $GraphSettings{'y2_min_value'} = &get_env('y2_min_value',1); + } +} +# +# Pick up miscellanious values passed in by the user +# +# Create the plot and check it out +if ($PlotType eq 'bar') { + $MyGraph = GD::Graph::bars->new($width,$height); +} else { + $MyGraph = GD::Graph::lines->new($width,$height); +} +if (! defined($MyGraph)) { + print &error('Unable to create initial graph'); + return; +} + +## +## Build the @Data array +my $NumSets = &get_env('NumSets'); +my @Data; # stores the data for the graph +my @xlabels = split(',',&get_env('labels')); +push(@Data,\@xlabels); +for (my $i=1;$i<=$NumSets;$i++) { + push(@Data,[split(',',&get_env('data.'.$i))]); +} + +my $error = ''; +if (! $MyGraph->set(%GraphSettings)) { + print &error($MyGraph->error); + return; +} + +my $plot = $MyGraph->plot(\@Data); +if (! defined($plot)) { + my $error = 'Unable to plot the data provided.'; +# Debugging code: +# $error .= '
'.join(',',@{$Data[0]}).'
'; +# $error .= '
'.join(',',@{$Data[1]}).'
'; +# $error .= '
'.join(',',@{$Data[2]}).'
' if (ref($Data[2])); +# $error .= '
'.join(',',@{$Data[3]}).'
' if (ref($Data[3])); + print &error($error); + exit; +} + +my $BinaryData=$plot->png; +undef($MyGraph); +undef($plot); + +if (! defined($BinaryData)) { + print &error('Unable to render graph as image'); + exit; +} -# Tell the server we are sending a gif graphic +# Tell the server we are sending a png graphic print <plot(\@data)->png; -undef $MyGraph; binmode(STDOUT); -open IMG,"|pngtopnm|ppmtogif 2>/dev/null"; # convert into a gif image -print IMG $BinaryData; # output image -$|=1; # be sure to flush before closing -close IMG; +#open IMG,"|pngtopnm|ppmtogif 2>/dev/null"; # convert into a gif image +#print IMG $BinaryData; # output image +#$|=1; # be sure to flush before closing +#close IMG; +print $BinaryData;