"Housen" <rchin@panix.com> wrote in message news:<c5htbp$m4a$1@reader2.panix.com>... Thank you joe you wouldn't have the perl code around would you ? I'd appreciate if you can let me have it. thanks rchin@panix.com "Joe" <nospam@joekaz.net> wrote in message I did something like that by writing a perl program using the module GD:Graph. I wrote it as a generic graphing CGI program that gets all of it's data as parameters. Then in my mod_plsql app, I do all the work to get the data, and format it as a parameter string that my perl CGI script will accept. Then still from mod_plsql, I create a web page where the IMG's tag SRC is a call to the cgi graphic program. The result is that my mod_plsql program can produce any type of graph that GD::Graph can.
No problem. The complete perl code is below. It's a simple program,
but could easily be customized for your own needs. This perl code
should go in your webserver's cgi directory. It can go on any
webserver, it doesn't have to be on the same webserver running 9ias
mod_plsql, but it could be.
You could call this directly from a browser like:
http://yourwebserver.com/cgi-bin/simple_graph.pl?hd=2000-05,2000-06,2000-07,2000-08&d1=90,94,86,74&show_values=1
But what you really want to to is use it as IMG tag in another
program. I integrate this with a 9ias mod_plsql app that I use to
graph some Oracle capacity and performance data. From my plsql
procedure, I query my tables to get the data, then format strings for
the data and headings that I want to pass to the simple_graph cgi.
For example - the whole trick is in the IMG tag:
....
htp.p ('<h1>Tablespace Growth</h1>);
htp.p ('show whatever else you need to show.<br>');
-- hd_string and d_string are the heading and data that you want to
graph
-- and this is just an example, for real you will probably create this
-- in a cursor loop from your data:
--
hd_string := '2000-05,2000-06,2000-07,2000-08';
d_string := '90,94,86,74';
gr_ht := '300';
gr_wd := '600';
graph_type := 'lines';
in_sid := 'HR1';
show_values := 0;
htp.p ('<CENTER>');
htp.p ('<img height='||gr_ht||'width='||gr_wd||
' src="' || cgi_path || 'simple_graph.pl' ||
'?height='||gr_ht||'&width='||gr_wd||
'&plot=' || graph_type ||
'&hd=' || hd_string ||
'&d1=' || d_string ||
'&sid=' || in_sid ||
'&show_values=' || show_values ||
'">' );
htp.p ('</CENTER>');
htp.p ('show more regular html if you want to ...');
....
This is the CGI script simple_graph.pl:
#!/usr/local/bin/perl -w
#
# simple_graph.pl
#
# Runs as cgi, all args are optional, but it works better with some
data!
# Used to produce simple graphs in bar, area, lie or line/point
format.
#
use strict;
use CGI qw/:standard/;
use GD::Graph::Data;
use GD::Graph::colour;
use GD;
use GD::Text;
my $HEIGHT = param('height') || '300';
my $WIDTH = param('width') || '400';
my $SID = param('sid') || '?';
my $PLOT = param('plot') || 'bars';
my @D1 = split /,/, (param('d1') || '0');
my @HD = split /,/, (param('hd') || '0');
my $SHOW_VALUES = param('show_values') || '0';
my $xskip = 0;
my $data = GD::Graph::Data->new([ \@HD, \@D1 ]) or die
GD::Graph::Data->error;
# find max value, with some intelligent rounding up to the next big
digit
#
my $max = (sort {$b<=>$a} @D1)[0];
if ($max >10000) { $max = (int($max/10000)+1)*10000 }
elsif ($max >1000) { $max = (int($max/1000)+1)*1000 }
elsif ($max >100) { $max = (int($max/100)+1)*100 }
elsif ($max >10) { $max = (int($max/10)+1)*10 }
else { }
#
# Too many values on the x-axes is hard to read, so space out based on
how
# many there are. This could be improved with recognition of whether
we
# plotting weekly, monthly, or quarterly data.
#
if ($#HD > 20) { $xskip = int($#HD/20) }
my $my_graph;
if ($PLOT eq 'area') {
use GD::Graph::area;
$my_graph = GD::Graph::area->new($WIDTH,$HEIGHT);
} elsif ($PLOT eq 'lines') {
use GD::Graph::lines;
$my_graph = GD::Graph::lines->new($WIDTH,$HEIGHT);
} elsif ($PLOT eq 'linespoints') {
use GD::Graph::linespoints;
$my_graph = GD::Graph::linespoints->new($WIDTH,$HEIGHT);
} else {
use GD::Graph::bars;
$my_graph = GD::Graph::bars->new($WIDTH,$HEIGHT);
}
$my_graph->set(
x_labels_vertical => 1,
y_max_value => $max,
y_tick_number => 10,
long_ticks => 1,
y_label_skip => 2,
x_label_skip => $xskip,
x_all_ticks => 1,
bar_spacing => 4,
shadow_depth => 3,
fgclr => 'gold',
bgclr => 'black',
boxclr => 'white',
accentclr => 'lorange',
shadowclr => 'dblue',
labelclr => 'gold',
axislabelclr => 'gold',
legendclr => 'white',
textclr => 'cyan',
dclrs => [ qw(marine cyan) ],
transparent => 0,
t_margin => 10,
b_margin => 10,
l_margin => 10,
r_margin => 10,
show_values => $SHOW_VALUES,
)
or warn $my_graph->error;
binmode STDOUT;
print header('image/png');
print $my_graph->plot($data)->png;
#
# END
#
--
Joe
http://www.joekaz.net/
http://www.cafeshops.com/joekaz