mulitple graphs on one web page.

Tue, 05 Aug 2003 01:19:02 -0700

If you look at my code below you will see I have created two graphs from files.  How can I print both graphs on the same web page???
 
#!C:\perl\bin\perl.exe
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use GD::Graph::lines3d;
use GD::Graph::bars;
use GD::Graph::data;
( $mday,$mon,$year ) = ( localtime() ) [3..5];
my $date = sprintf  "%02d/%02d/%02d\n", $mon+1,$mday,$year+1900;
 
my $q = new CGI;
my $cpu_graph = new GD::Graph::lines3d(700, 200);
my $disk_graph = new GD::Graph::bars( 700, 300 );
my $cpu_data = GD::Graph::Data->new;
my $disk_data = GD::Graph::Data->new;
$cpu_data->read( file => 'c:\progra~1\OptiPerl\webroot\cgi-bin\proclog.dat' ) or die $data->error;
$disk_data->read( file => 'c:\progra~1\OptiPerl\webroot\cgi-bin\disklog.dat' ) or die $data->error;
$cpu_graph->set(
 title  => "CPU Load $date",
 x_label  => "CPU Load",
 y_label  => "Percent",
    long_ticks => 1,
    y_max_value => 100,
    y_min_value => 0,
    y_tick_number => 10,
    y_label_skip => 2,
    x_labels_vertical => 1,
    dclrs  => [ qw( green ) ],
    bar_spacing => 4,
    types  => [ "bars" ],
);
 
$disk_graph->set(
 title  => "Disk Space $date",
 x_label  => "Disk Space",
 y_label  => "Gigabytes",
    long_ticks => 1,
    y_max_value => 10,
    y_min_value => 0,
    y_tick_number => 5,
    y_label_skip => 2,
    x_labels_vertical => 1,
    overwrite => 0,
    dclrs  => [ qw( green blue ) ],
    bar_spacing => 4,
    types  => [ "bars" ],
);
 
my $gd_cpu_image = $cpu_graph->plot($cpu_data);
my $gd_disk_image = $disk_graph->plot($disk_data);
print $q->header(-type => "image/png", -expires => "now", -refresh => '60' );
binmode STDOUT;
print $gd_cpu_image->png;
 
Thanks!
 
Mitch

Reply via email to