[BACK]Return to graph.png CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / cgi

Diff for /loncom/cgi/graph.png between versions 1.24 and 1.29

version 1.24, 2003/10/09 22:04:37 version 1.29, 2003/10/27 21:21:08
Line 57  escape( value ) means the values must be Line 57  escape( value ) means the values must be
 use strict;  use strict;
 use lib '/home/httpd/lib/perl';  use lib '/home/httpd/lib/perl';
 use GD::Graph::bars;  use GD::Graph::bars;
   use GD::Graph::lines;
 use GD::Graph::colour;  use GD::Graph::colour;
 use GD::Graph::Data;  use GD::Graph::Data;
 use LONCAPA::loncgi();  use LONCAPA::loncgi();
Line 67  sub unescape { Line 68  sub unescape {
     return $str;      return $str;
 }  }
   
 if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {  sub error {
     print <<END;      my ($error) = @_;
       my $Str = <<"END";
 Content-type: text/html  Content-type: text/html
   
 <html>  <html>
 <head><title>Bad Cookie</title></head>  <head><title>Bad Graph</title></head>
 <body>  <body>
 Your cookie information is incorrect.  What\'s up with that?  <p>
   There was an error producing the graph you requested.
   </p><p>
   $error
   </p>
 </body>  </body>
 </html>  </html>
 END  END
     return;      return $Str;
 }  }
   
 $|=1;   # Autoflush after each print/write  my $id = $ENV{'QUERY_STRING'};
 my $identifier = $ENV{'QUERY_STRING'};  
 my $Title   = &unescape($ENV{$identifier.'.title'});  
 my $xlabel  = &unescape($ENV{$identifier.'.xlabel'});  
 my $ylabel  = &unescape($ENV{$identifier.'.ylabel'});  
 my $Max     = $ENV{$identifier.'.Max'};  
 my $NumBars = $ENV{$identifier.'.NumBars'};  
 my $data1   = $ENV{$identifier.'.data1'};  
 my $data2   = $ENV{$identifier.'.data2'};  
   
 my @data11=split(/\,/,$data1);  
 my @data12=split(/\,/,$data2);  
 my $skip_x = 1;  
 my $bar_width=10;  
   
 #  #
 # Labels are always digits  # &get_env($name,$default)
 my @xlabels;  sub get_env {
 for (my $nIdx=0; $nIdx<$NumBars; $nIdx++ ) {      my $key = 'cgi.'.$id.'.'.(shift());
     $xlabels[$nIdx]=$nIdx+1;      return shift if (! exists($ENV{$key}));
       return $ENV{$key};
 }  }
   
 my @data =(\@xlabels,\@data11,\@data12);  if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {
       print <<END;
   Content-type: text/html
   
 #  <html>
 # Customize graph based on the   <head><title>Bad Cookie</title></head>
 my $width;  <body>
 my $height = 200;  Your cookie information is incorrect.
   </body>
 if ($NumBars < 10) {  </html>
     $width = 120+$NumBars*15;  END
     $skip_x = 1;      exit;
     $bar_width = 15;  
 } elsif ($NumBars <= 25) {  
     $width = 120+$NumBars*11;  
     $skip_x = 5;  
     $bar_width = 8;  
 } elsif ($NumBars <= 50) {  
     $width = 120+$NumBars*8;  
     $skip_x = 5;  
     $bar_width = 4;  
 } else {  
     $width = 120+$NumBars*8;  
     $skip_x = 5;  
     $bar_width = 4;  
 }  }
   
 my $x_tick_offset = 0;  $|=1;   # Autoflush after each print/write
 if ($skip_x > 1) {  
     $x_tick_offset = $skip_x - 1;  
 }  
   
 my $MyGraph = GD::Graph::bars->new($width,$height);  my $colordefaults = join(',',
 my $error = '';                           ('#33ff00', 
 if (! $MyGraph->set( x_label         => $xlabel,                            '#0033cc','#990000','#aaaa66','#663399','#ff9933',
                      y_label         => $ylabel,                            '#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,                       x_label_position => 0.5,
                      long_ticks      => 1,                       dclrs           => [split(',',&get_env('Colors',
                      tick_length     => 0,                                                              $colordefaults))],
                      x_ticks         => 0,  
                      title           => $Title,  
                      y_max_value     => $Max,  
                      x_label_skip    => $skip_x,     
                      x_tick_offset   => $x_tick_offset,  
                      #  
                      dclrs           => [ qw(lgreen dgreen lyellow   
                                              lpurple cyan lorange)],  
                      bar_width       => $bar_width,  
                      cumulate        => 2,  
                      zero_axis       => 1,  
                      fgclr           => 'black',                       fgclr           => 'black',
                      boxclr          => 'white',                       boxclr          => 'white',
                      accentclr       => 'dblue',                       accentclr       => 'dblue',
Line 159  if (! $MyGraph->set( x_label         => Line 138  if (! $MyGraph->set( x_label         =>
                      b_margin        => 10,                       b_margin        => 10,
                      r_margin        => 10,                       r_margin        => 10,
                      t_margin        => 10,                       t_margin        => 10,
                      #  
                      transparent     => 0,                       transparent     => 0,
                      )) {                       );
     $error = $MyGraph->error;  
     print <<"END";  
 Content-type: text/html  
   
 <html>  $GraphSettings{'x_label_skip'}  = &get_env('xskip',1);
 <head><title>Bad Graph</title></head>  $GraphSettings{'x_tick_offset'} = &get_env('x_tick_offset',0);
 <body>  $GraphSettings{'y_max_value'}   = &get_env('Max',undef);
 <p>  
 There was an error producing the graph you requested.  my $MyGraph;
 </p><p>  if ($PlotType eq 'bar') {
 $error      # Pick up bar graph settings
 </p>      $GraphSettings{'bar_width'}     = &get_env('bar_width',undef);
 </body>      $GraphSettings{'long_ticks'}    = 1;
 </html>      $GraphSettings{'tick_length'}   = 0;
 END      $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;
   }
   #
   # 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;      return;
 }  }
   
 my $plot = $MyGraph->plot(\@data);  ##
 if (! defined($plot)) {  ## Build the @Data array
     print <<"END";  my $NumSets = &get_env('NumSets');
 Content-type: text/html  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))]);
   }
   
 <html>  my $error = '';
 <head><title>Bad Graph</title></head>  if (! $MyGraph->set(%GraphSettings)) {
 <body>      print &error($MyGraph->error);
 The system was unable to create the graph you requested.  
 </body>  
 </html>  
 END  
     return;      return;
 }  }
   
   my $plot = $MyGraph->plot(\@Data);
   if (! defined($plot)) {
       my $error = 'Unable to plot the data provided.';
       $error .= '<pre>'.join(',',@{$Data[0]}).'</pre>';
       $error .= '<pre>'.join(',',@{$Data[1]}).'</pre>';
       $error .= '<pre>'.join(',',@{$Data[2]}).'</pre>';
       print &error($error);
       exit;
   }
   
 my $BinaryData=$plot->png;  my $BinaryData=$plot->png;
 undef($MyGraph);  undef($MyGraph);
 undef($plot);  undef($plot);
   
 if (! defined($BinaryData)) {  if (! defined($BinaryData)) {
     print <<"END";      print &error('Unable to render graph as image');
 Content-type: text/html      exit;
   
 <html>  
 <head><title>Bad Graph</title></head>  
 <body>  
 The system was unable to produce a png image of the graph you requested.  
 </body>  
 </html>  
 END  
     return;  
 }  }
   
   
 # Tell the server we are sending a png graphic  # Tell the server we are sending a png graphic
 print <<END;  print <<END;
 Content-type: image/png  Content-type: image/png
Removed from v.1.24  
changed lines
  Added in v.1.29

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>