#!/usr/bin/perl # # $Id: graph.png,v 1.33 2004/01/08 15:50:17 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 # # /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'}; # # 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; } $|=1; # Autoflush after each print/write ## ## 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 @Legend; # one entry per data set my @xlabels = split(',',&get_env('labels')); push(@Data,\@xlabels); for (my $i=1;$i<=$NumSets;$i++) { push(@Data,[split(',',&get_env('data.'.$i))]); push(@Legend,&get_env('data.'.$i.'.label',undef)); } my $error = ''; if (! $MyGraph->set(%GraphSettings)) { print &error($MyGraph->error); return; } if (join('',@Legend) ne '') { $MyGraph->set_legend(@Legend); } 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 png graphic print </dev/null"; # convert into a gif image #print IMG $BinaryData; # output image #$|=1; # be sure to flush before closing #close IMG; print $BinaryData;