mirror of
https://github.com/MariaDB/server.git
synced 2025-01-15 19:42:28 +01:00
37c88445e3
On FreeBSD, perl isn't in /usr/bin, its in /usr/local/bin or
elsewhere in the path.
Like storage/{maria/unittest/,}ma_test_* , we use /usr/bin/env to
find perl and run it.
661 lines
22 KiB
Bash
Executable file
661 lines
22 KiB
Bash
Executable file
#!/usr/bin/env perl
|
|
####
|
|
#### Hello ... this is a heavily hacked script by Luuk
|
|
#### instead of printing the result it makes a nice gif
|
|
#### when you want to look at the code ... beware of the
|
|
#### ugliest code ever seen .... but it works ...
|
|
#### and that's sometimes the only thing you want ... isn't it ...
|
|
#### as the original script ... Hope you like it
|
|
####
|
|
#### Greetz..... Luuk de Boer 1997.
|
|
####
|
|
|
|
## if you want the seconds behind the bar printed or not ...
|
|
## or only the one where the bar is too big for the graph ...
|
|
## look at line 535 of this program and below ...
|
|
## look in sub calculate for allmost all hard/soft settings :-)
|
|
|
|
# a little program to generate a table of results
|
|
# just read all the RUN-*.log files and format them nicely
|
|
# Made by Luuk de Boer
|
|
# Patched by Monty
|
|
|
|
use Getopt::Long;
|
|
use GD;
|
|
|
|
$opt_server="mysql";
|
|
$opt_cmp="mysql,pg,solid";
|
|
$opt_cmp="msql,mysql,pg,solid";
|
|
$opt_cmp="empress,mysql,pg,solid";
|
|
$opt_dir="output";
|
|
$opt_machine="";
|
|
$opt_relative=$opt_same_server=$opt_help=$opt_Information=$opt_skip_count=0;
|
|
|
|
GetOptions("Information","help","server=s","cmp=s","machine=s","relative","same-server","dir=s","skip-count") || usage();
|
|
|
|
usage() if ($opt_help || $opt_Information);
|
|
|
|
if ($opt_same_server)
|
|
{
|
|
$files="$opt_dir/RUN-$opt_server-*$opt_machine";
|
|
}
|
|
else
|
|
{
|
|
$files="$opt_dir/RUN-*$opt_machine";
|
|
}
|
|
$files.= "-cmp-$opt_cmp" if (length($opt_cmp));
|
|
|
|
$automatic_files=0;
|
|
if ($#ARGV == -1)
|
|
{
|
|
@ARGV=glob($files);
|
|
$automatic_files=1;
|
|
}
|
|
|
|
|
|
#
|
|
# Go trough all RUN files and gather statistics.
|
|
#
|
|
|
|
foreach (@ARGV)
|
|
{
|
|
$filename = $_;
|
|
next if (defined($found{$_})); # remove duplicates
|
|
$found{$_}=1;
|
|
/RUN-(.*)$/;
|
|
$prog = $1;
|
|
push(@key_order,$prog);
|
|
$next = 0;
|
|
open(TMP, "<$filename") || die "Can't open $filename: $!\n";
|
|
while (<TMP>)
|
|
{
|
|
chomp;
|
|
if ($next == 0) {
|
|
if (/Server version:\s+(\S+.*)/i)
|
|
{
|
|
$tot{$prog}{'server'} = $1;
|
|
}
|
|
elsif (/Arguments:\s+(.+)/i)
|
|
{
|
|
$tot{$prog}{'arguments'} = $1;
|
|
# Remove some standard, not informative arguments
|
|
$tot{$prog}{'arguments'} =~ s/--log|--use-old-results|--server=\S+|--cmp=\S+|--user=\S+|--pass=\S+|--machine=\S+//g;
|
|
$tot{$prog}{'arguments'} =~ s/\s+/ /g;
|
|
}
|
|
elsif (/Comments:\s+(.+)/i) {
|
|
$tot{$prog}{'comments'} = $1;
|
|
} elsif (/^(\S+):\s*(estimated\s|)total\stime:\s+(\d+)\s+secs/i)
|
|
{
|
|
$tmp = $1; $tmp =~ s/://;
|
|
$tot{$prog}{$tmp} = [ $3, (length($2) ? "+" : "")];
|
|
$op1{$tmp} = $tmp;
|
|
} elsif (/Totals per operation:/i) {
|
|
$next = 1;
|
|
next;
|
|
}
|
|
}
|
|
elsif ($next == 1)
|
|
{
|
|
if (/^(\S+)\s+([\d.]+)\s+([\d.]+)\s+([\d.]+)\s+([\d.]+)\s+([\d.]+)\s*([+|?])*/)
|
|
{
|
|
$tot1{$prog}{$1} = [$2,$6,$7];
|
|
$op{$1} = $1;
|
|
#print "TEST - $_ \n * $prog - $1 - $2 - $6 - $7 ****\n";
|
|
# $prog - filename
|
|
# $1 - operation
|
|
# $2 - time in secs
|
|
# $6 - number of loops
|
|
# $7 - nothing / + / ? / * => estimated time ...
|
|
# get the highest value ....
|
|
$highest = ($2/$6) if (($highest < ($2/$6)) && ($1 !~/TOTALS/i));
|
|
$gifcount++;
|
|
$giftotal += ($2/$6);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if (!%op)
|
|
{
|
|
print "Didn't find any files matching: '$files'\n";
|
|
print "Use the --cmp=server,server option to compare benchmarks\n";
|
|
exit 1;
|
|
}
|
|
|
|
|
|
# everything is loaded ...
|
|
# now we have to create a fancy output :-)
|
|
|
|
# I prefer to redirect scripts instead to force it to file ; Monty
|
|
#
|
|
# open(RES, ">$resultfile") || die "Can't write to $resultfile: $!\n";
|
|
# select(RES)
|
|
#
|
|
|
|
#print <<EOF;
|
|
#<cut for this moment>
|
|
#
|
|
#EOF
|
|
|
|
if ($opt_relative)
|
|
{
|
|
# print "Column 1 is in seconds. All other columns are presented relative\n";
|
|
# print "to this. 1.00 is the same, bigger numbers indicates slower\n\n";
|
|
}
|
|
|
|
#print "The result logs which where found and the options:\n";
|
|
|
|
if ($automatic_files)
|
|
{
|
|
if ($key_order[$i] =~ /^$opt_server/)
|
|
{
|
|
if ($key_order[$i] =~ /^$opt_server/)
|
|
{
|
|
unshift(@key_order,$key_order[$i]);
|
|
splice(@key_order,$i+1,1);
|
|
}
|
|
}
|
|
}
|
|
# extra for mysql and mysql_pgcc
|
|
#$number1 = shift(@key_order);
|
|
#$number2 = shift(@key_order);
|
|
#unshift(@key_order,$number1);
|
|
#unshift(@key_order,$number2);
|
|
|
|
# Print header
|
|
|
|
$column_count=0;
|
|
foreach $key (@key_order)
|
|
{
|
|
$column_count++;
|
|
# printf "%2d %-40.40s: %s %s\n", $column_count, $key,
|
|
# $tot{$key}{'server'}, $tot{$key}{'arguments'};
|
|
# print "Comments: $tot{$key}{'comments'}\n"
|
|
# if ($tot{$key}{'comments'} =~ /\w+/);
|
|
}
|
|
|
|
#print "\n";
|
|
|
|
$namewidth=$opt_skip_count ? 20 :25;
|
|
$colwidth= $opt_relative ? 9 : 6;
|
|
|
|
print_sep("=");
|
|
#printf "%-$namewidth.${namewidth}s|", "Operation";
|
|
$count = 1;
|
|
foreach $key (@key_order)
|
|
{
|
|
# printf "%${colwidth}d|", $count;
|
|
$count++;
|
|
}
|
|
#print "\n";
|
|
#print_sep("-");
|
|
#print_string("Results per test:");
|
|
#print_sep("-");
|
|
|
|
foreach $key (sort {$a cmp $b} keys %op1)
|
|
{
|
|
# printf "%-$namewidth.${namewidth}s|", $key;
|
|
$first=undef();
|
|
foreach $server (@key_order)
|
|
{
|
|
print_value($first,$tot{$server}{$key}->[0],$tot{$server}{$key}->[1]);
|
|
$first=$tot{$server}{$key}->[0] if (!defined($first));
|
|
}
|
|
# print "\n";
|
|
}
|
|
|
|
print_sep("-");
|
|
print_string("The results per operation:");
|
|
print_sep("-");
|
|
$luukcounter = 1;
|
|
foreach $key (sort {$a cmp $b} keys %op)
|
|
{
|
|
next if ($key =~ /TOTALS/i);
|
|
$tmp=$key;
|
|
$tmp.= " (" . $tot1{$key_order[0]}{$key}->[1] . ")" if (!$skip_count);
|
|
# printf "%-$namewidth.${namewidth}s|", $tmp;
|
|
$first=undef();
|
|
foreach $server (@key_order)
|
|
{
|
|
print_value($first,$tot1{$server}{$key}->[0],$tot1{$server}{$key}->[2]);
|
|
$first=$tot1{$server}{$key}->[0] if (!defined($first));
|
|
}
|
|
# print "\n";
|
|
$luukcounter++;
|
|
}
|
|
|
|
#print_sep("-");
|
|
$key="TOTALS";
|
|
#printf "%-$namewidth.${namewidth}s|", $key;
|
|
$first=undef();
|
|
foreach $server (@key_order)
|
|
{
|
|
# print_value($first,$tot1{$server}{$key}->[0],$tot1{$server}{$key}->[2]);
|
|
$first=$tot1{$server}{$key}->[0] if (!defined($first));
|
|
}
|
|
#print "\n";
|
|
#print_sep("=");
|
|
&make_gif;
|
|
|
|
exit 0;
|
|
|
|
#
|
|
# some format functions;
|
|
#
|
|
|
|
sub print_sep
|
|
{
|
|
my ($sep)=@_;
|
|
# print $sep x ($namewidth + (($colwidth+1) * $column_count)+1),"\n";
|
|
}
|
|
|
|
|
|
sub print_value
|
|
{
|
|
my ($first,$value,$flags)=@_;
|
|
my ($tmp);
|
|
|
|
if (defined($value))
|
|
{
|
|
if (!defined($first) || !$opt_relative)
|
|
{
|
|
$tmp=sprintf("%d",$value);
|
|
}
|
|
else
|
|
{
|
|
$first=1 if (!$first); # Assume that it took one second instead of 0
|
|
$tmp= sprintf("%.2f",$value/$first);
|
|
}
|
|
if (defined($flags))
|
|
{
|
|
$tmp="+".$tmp if ($flags =~ /\+/);
|
|
$tmp="?".$tmp if ($flags =~ /\?/);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$tmp="";
|
|
}
|
|
$tmp= " " x ($colwidth-length($tmp)) . $tmp if (length($tmp) < $colwidth);
|
|
# print $tmp . "|";
|
|
}
|
|
|
|
|
|
sub print_string
|
|
{
|
|
my ($str)=@_;
|
|
my ($width);
|
|
$width=$namewidth + ($colwidth+1)*$column_count;
|
|
|
|
$str=substr($str,1,$width) if (length($str) > $width);
|
|
# print($str," " x ($width - length($str)),"|\n");
|
|
}
|
|
|
|
sub usage
|
|
{
|
|
exit(0);
|
|
}
|
|
|
|
|
|
|
|
###########################################
|
|
###########################################
|
|
###########################################
|
|
# making here a gif of the results ... (lets try it :-))
|
|
# luuk .... 1997
|
|
###########################################
|
|
## take care that $highest / $giftotal / $gifcount / $luukcounter
|
|
## are getting there value above ... so don't forget them while
|
|
## copying the code to some other program ....
|
|
|
|
sub make_gif {
|
|
&gd; # some base things ....
|
|
&legend; # make the nice legend
|
|
&lines; # yep sometimes you have to print some lines
|
|
&gif("gif/benchmark2-".$opt_cmp); # and finally we can print all to a gif file ...
|
|
}
|
|
##### mmm we are finished now ...
|
|
|
|
|
|
# first we have to calculate some limits and some other stuff
|
|
sub calculate {
|
|
# here is the list which I have to know to make everything .....
|
|
# the small border width ... $sm_border =
|
|
# the border default $border =
|
|
# the step default ... if it must be calculated then no value $step =
|
|
# the highest number $highest =
|
|
# the max length of the text of the x borders $max_len_lb=
|
|
# the max length of a legend entry $max_len_le=
|
|
# number of entries in the legend $num_legen =
|
|
# the length of the color blocks for the legend $legend_block=
|
|
# the width of the gif ...if it must be calculated - no value $width =
|
|
# the height of the gif .. if it must be calculated - no value $height =
|
|
# the width of the grey field ' ' ' ' $width_grey=
|
|
# the height of the grey field ' ' ' ' $height_grey=
|
|
# number of dashed lines $lines=
|
|
# if bars must overlap how much they must be overlapped $overlap=
|
|
# titlebar title of graph in two colors big $titlebar=
|
|
# titlebar1 sub title of graph in small font in black $titlebar1=
|
|
# xlabel $xlabel=
|
|
# ylabel $ylabel=
|
|
# the name of the gif ... $name=
|
|
# then the following things must be knows .....
|
|
# xlabel below or on the left side ?
|
|
# legend yes/no?
|
|
# where must the legend be placed?
|
|
# must the xlabel be printed horizontal or vertical?
|
|
# must the ylabel be printed horizontal or vertical?
|
|
# must the graph be a line or a bar graph?
|
|
# is a xlabel several different entries or some sub entries of one?
|
|
# so xlabel 1 => test1=10, test2=15, test3=7 etc
|
|
# or xlabel 1 => test1a=12, test1b=10, test1c=7 etc
|
|
# must the bars overlap (only with the second example I think)
|
|
# must the number be printed above or next to the bar?
|
|
# when must the number be printed .... only when it extends the graph ...???
|
|
# the space between the bars .... are that the same width of the bars ...
|
|
# or is it a separate space ... defined ???
|
|
# must the date printed below or some where else ....
|
|
|
|
#calculate all space for text and other things ....
|
|
$sm_border = 8; # the grey border around ...
|
|
$border = 40; #default ...
|
|
$left_border = 2.75 * $border; #default ...
|
|
$right_border = $border; #default ...
|
|
$up_border = $border; #default ...
|
|
$down_border = $border; # default ...
|
|
$step = ($height - $up_border - $down_border)/ ($luukcounter + (($#key_order + 1) * $luukcounter));
|
|
# can set $step to get nice graphs ... and change the format ...
|
|
$step = 8; # set hard the step value
|
|
|
|
$gifavg = ($giftotal/$gifcount);
|
|
$highest = 2 * $gifavg;
|
|
$highest = 1; # set hard the highest value ...
|
|
$xhigh = int($highest + .5 * $highest);
|
|
|
|
# here to get the max lenght of the test entries ...
|
|
# so we can calculate the with of the left border
|
|
foreach $oper (sort keys (%op)) {
|
|
$max_len_lb = length($oper) if (length($oper) > $max_len_lb);
|
|
# print "oper = $oper - $max_len_lb\n";
|
|
}
|
|
$max_len_lb = $max_len_lb * gdSmallFont->width;
|
|
$left_border = (3*$sm_border) + $max_len_lb;
|
|
$down_border = (4*$sm_border) + (gdSmallFont->width*(length($xhigh)+3)) + (gdSmallFont->height *2);
|
|
$right_border = (3*$sm_border) + 3 + (gdSmallFont->width*(length($highest)+5));
|
|
|
|
# calculate the space for the legend .....
|
|
foreach $key (@key_order) {
|
|
$tmp = $key;
|
|
$tmp =~ s/-cmp-$opt_cmp//i;
|
|
$giflegend = sprintf "%-24.24s: %-40.40s",$tmp,$tot{$key}{'server'};
|
|
$max_len_le = length($giflegend) if (length($giflegend) > $max_len_le);
|
|
}
|
|
$max_len_le = $max_len_le * gdSmallFont->width;
|
|
$legend_block = 10; # the length of the block in the legend
|
|
$max_high_le = (($#key_order + 1)*(gdSmallFont->height+2)) + (2*$legend_block);
|
|
$down_border += $max_high_le;
|
|
$up_border = (5 * $sm_border) + gdSmallFont->height + gdLargeFont->height;
|
|
|
|
print "Here some things we already know ....\n";
|
|
# print "luukcounter = $luukcounter (number of tests)\n";
|
|
# print "gifcount = $gifcount (number of total entries)\n";
|
|
# print "giftotal = $giftotal (total secs)\n";
|
|
# print "gifavg = $gifavg\n";
|
|
# print "highest = $highest\n";
|
|
# print "xhigh = $xhigh\n";
|
|
# print "step = $step -- $#key_order\n";
|
|
# print "max_len_lb = $max_len_lb\n";
|
|
# printf "Small- width %d - height %s\n",gdSmallFont->width,gdSmallFont->height;
|
|
# printf "Tiny- width %d - height %s\n",gdTinyFont->width,gdTinyFont->height;
|
|
}
|
|
|
|
sub gd {
|
|
&calculate;
|
|
$width = 600; # the width ....
|
|
$height = 500; # the height ...
|
|
$width_greyfield = 430;
|
|
# when $step is set ... count the height ....????
|
|
$width = $width_greyfield + $left_border + $right_border;
|
|
$height = ($step * ($luukcounter + ($luukcounter * ($#key_order + 1)))) + $down_border + $up_border;
|
|
$b_width = $width - ($left_border + $right_border); # width within the grey field
|
|
$overlap = 0; # how far each colum can fall over each other ...nice :-)
|
|
|
|
# make the gif image ....
|
|
$im = new GD::Image($width,$height);
|
|
|
|
# allocate the colors to use ...
|
|
$white = $im->colorAllocate(255,255,255);
|
|
$black = $im->colorAllocate(0,0,0);
|
|
$paper_white = $im->colorAllocate(220, 220, 220);
|
|
$grey1 = $im->colorAllocate(240, 240, 240);
|
|
$grey4 = $im->colorAllocate(229, 229, 229);
|
|
$grey2 = $im->colorAllocate(102, 102, 102);
|
|
$grey3 = $im->colorAllocate(153, 153, 153);
|
|
|
|
$red = $im->colorAllocate(205,0,0); # msql
|
|
$lred = $im->colorAllocate(255,0,0);
|
|
$blue = $im->colorAllocate(0,0,205); # mysql
|
|
$lblue = $im->colorAllocate(0,0,255); # mysql_pgcc
|
|
$green = $im->colorAllocate(0, 205, 0); # postgres
|
|
$lgreen = $im->colorAllocate(0, 255, 0); # pg_fast
|
|
$orange = $im->colorAllocate(205,133, 0); # solid
|
|
$lorange = $im->colorAllocate(255, 165, 0); # Adabas
|
|
$yellow = $im->colorAllocate(205,205,0); # empress
|
|
$lyellow = $im->colorAllocate(255,255,0);
|
|
$magenta = $im->colorAllocate(255,0,255); # oracle
|
|
$lmagenta = $im->colorAllocate(255,200,255);
|
|
$cyan = $im->colorAllocate(0,205,205); # sybase
|
|
$lcyan = $im->colorAllocate(0,255,255);
|
|
$sienna = $im->colorAllocate(139,71,38); # db2
|
|
$lsienna = $im->colorAllocate(160,82,45);
|
|
$coral = $im->colorAllocate(205,91,69); # Informix
|
|
$lcoral = $im->colorAllocate(255,114,86);
|
|
$peach = $im->colorAllocate(205,175,149);
|
|
$lpeach = $im->colorAllocate(255,218,185);
|
|
|
|
@colors = ($red, $blue, $green, $orange, $yellow, $magenta, $cyan, $sienna, $coral, $peach);
|
|
@lcolors = ($lred, $lblue, $lgreen, $lorange, $lyellow, $lmagenta, $lcyan, $lsienna, $lcoral, $lpeach);
|
|
|
|
# set a color per server so in every result it has the same color ....
|
|
foreach $key (@key_order) {
|
|
if ($tot{$key}{'server'} =~ /mysql/i) {
|
|
if ($key =~ /mysql_pgcc/i || $key =~ /mysql_odbc/i || $key =~ /mysql_fast/i) {
|
|
$tot{$key}{'color'} = $lblue;
|
|
} else {
|
|
$tot{$key}{'color'} = $blue;
|
|
}
|
|
} elsif ($tot{$key}{'server'} =~ /msql/i) {
|
|
$tot{$key}{'color'} = $lred;
|
|
} elsif ($tot{$key}{'server'} =~ /postgres/i) {
|
|
if ($key =~ /pg_fast/i) {
|
|
$tot{$key}{'color'} = $lgreen;
|
|
} else {
|
|
$tot{$key}{'color'} = $green;
|
|
}
|
|
} elsif ($tot{$key}{'server'} =~ /solid/i) {
|
|
$tot{$key}{'color'} = $lorange;
|
|
} elsif ($tot{$key}{'server'} =~ /empress/i) {
|
|
$tot{$key}{'color'} = $lyellow;
|
|
} elsif ($tot{$key}{'server'} =~ /oracle/i) {
|
|
$tot{$key}{'color'} = $magenta;
|
|
} elsif ($tot{$key}{'server'} =~ /sybase/i) {
|
|
$tot{$key}{'color'} = $cyan;
|
|
} elsif ($tot{$key}{'server'} =~ /db2/i) {
|
|
$tot{$key}{'color'} = $sienna;
|
|
} elsif ($tot{$key}{'server'} =~ /informix/i) {
|
|
$tot{$key}{'color'} = $coral;
|
|
} elsif ($tot{$key}{'server'} =~ /microsoft/i) {
|
|
$tot{$key}{'color'} = $peach;
|
|
} elsif ($tot{$key}{'server'} =~ /access/i) {
|
|
$tot{$key}{'color'} = $lpeach;
|
|
} elsif ($tot{$key}{'server'} =~ /adabas/i) {
|
|
$tot{$key}{'color'} = $lorange;
|
|
}
|
|
}
|
|
|
|
# make the nice little borders
|
|
# left bar
|
|
$poly0 = new GD::Polygon;
|
|
$poly0->addPt(0,0);
|
|
$poly0->addPt($sm_border,$sm_border);
|
|
$poly0->addPt($sm_border,($height - $sm_border));
|
|
$poly0->addPt(0,$height);
|
|
$im->filledPolygon($poly0,$grey1);
|
|
$im->polygon($poly0, $grey4);
|
|
# upper bar
|
|
$poly3 = new GD::Polygon;
|
|
$poly3->addPt(0,0);
|
|
$poly3->addPt($sm_border,$sm_border);
|
|
$poly3->addPt(($width - $sm_border),$sm_border);
|
|
$poly3->addPt($width,0);
|
|
$im->polygon($poly3, $grey4);
|
|
$tmptime = localtime(time);
|
|
$im->string(gdSmallFont,($width - $sm_border - (gdSmallFont->width * length($tmptime))),($height - ($sm_border) - gdSmallFont->height), $tmptime, $grey3);
|
|
|
|
# right bar
|
|
$poly1 = new GD::Polygon;
|
|
$poly1->addPt($width,0);
|
|
$poly1->addPt(($width - $sm_border),$sm_border);
|
|
$poly1->addPt(($width - $sm_border),($height - $sm_border));
|
|
$poly1->addPt($width,$height);
|
|
$im->filledPolygon($poly1, $grey3);
|
|
$im->stringUp(gdSmallFont,($width - 10),($height - (2 * $sm_border)), "Made by Luuk de Boer - 1997 (c)", $blue);
|
|
#below bar
|
|
$poly2 = new GD::Polygon;
|
|
$poly2->addPt(0,$height);
|
|
$poly2->addPt($sm_border,($height - $sm_border));
|
|
$poly2->addPt(($width - $sm_border),($height - $sm_border));
|
|
$poly2->addPt($width,$height);
|
|
$im->filledPolygon($poly2, $grey2);
|
|
|
|
# do the black line around where in you will print ... (must be done at last
|
|
# but is hard to develop with ... but the filled grey must be done first :-)
|
|
$im->filledRectangle($left_border,$up_border,($width - ($right_border)),($height-$down_border),$grey4);
|
|
|
|
|
|
# print the nice title ...
|
|
$titlebar = "MySQL Benchmark results"; # head title ...
|
|
$titlebar1 = "Compare $opt_cmp "; # sub title
|
|
$header2 = "seconds/test"; # header value
|
|
$center = ($width / 2) - ((gdLargeFont->width * length($titlebar)) / 2);
|
|
$center1 = ($width / 2) - ((gdSmallFont->width * length($titlebar1)) / 2);
|
|
$center2 = ($width_greyfield/2) - ((gdSmallFont->width*length($header2))/2);
|
|
$bovenkant = $sm_border * 3;
|
|
$bovenkant1 = $bovenkant + gdLargeFont->height + (.5*$sm_border);
|
|
$bovenkant2 = $height - $down_border + (1*$sm_border) + (gdSmallFont->width*(length($xhigh)+3));
|
|
$im->string(gdLargeFont,($center),($bovenkant + 1), $titlebar, $grey3);
|
|
$im->string(gdLargeFont,($center),($bovenkant), $titlebar, $red);
|
|
$im->string(gdSmallFont,($center1),($bovenkant1), $titlebar1, $black);
|
|
$im->string(gdSmallFont,($left_border + $center2),($bovenkant2), $header2, $black);
|
|
|
|
$xlength = $width - $left_border - $right_border;
|
|
$lines = 10; # hard coded number of dashed lines
|
|
$xverh = $xlength / $xhigh;
|
|
# print " de verhouding ===> $xverh --- $xlength -- $xhigh \n";
|
|
|
|
$xstep = ($xhigh / $lines) * $xverh;
|
|
$teller = 0;
|
|
# make the nice dashed lines and print the values ...
|
|
for ($i = 0; $i <= $lines; $i++) {
|
|
$st2 = ($left_border) + ($i * $xstep);
|
|
$im->dashedLine($st2,($height-$down_border),$st2,($up_border), $grey3);
|
|
if (($i != 0) && ($teller == 2)) {
|
|
$st3 = sprintf("%.2f", $i*($xhigh/$lines));
|
|
$im->stringUp(gdTinyFont,($st2 - (gdSmallFont->height/2)),($height - $down_border +(.5*$sm_border) + (gdSmallFont->width*(length($xhigh)+3))), $st3, $black);
|
|
$teller = 0;
|
|
}
|
|
$teller++;
|
|
}
|
|
$im->rectangle($left_border,$up_border,($width - ($right_border)),($height-$down_border),$black);
|
|
}
|
|
|
|
sub legend {
|
|
# make the legend ...
|
|
$legxbegin = $left_border;
|
|
|
|
$legybegin = $height - $down_border + (2*$sm_border) + (gdSmallFont->width * (length($xhigh) + 3)) + gdSmallFont->height;
|
|
$legxend = $legxbegin + $max_len_le + (4*$legend_block);
|
|
$legxend = $legxbegin + $width_greyfield;
|
|
$legyend = $legybegin + $max_high_le;
|
|
$im->filledRectangle($legxbegin,$legybegin,$legxend,$legyend,$grey4);
|
|
$im->rectangle($legxbegin,$legybegin,$legxend,$legyend,$black);
|
|
# calculate the space for the legend .....
|
|
$c = 0; $i = 1;
|
|
$legybegin += $legend_block;
|
|
foreach $key (@key_order) {
|
|
$xtmp = $legxbegin + $legend_block;
|
|
$ytmp = $legybegin + ($c * (gdSmallFont->height +2));
|
|
$xtmp1 = $xtmp + $legend_block;
|
|
$ytmp1 = $ytmp + gdSmallFont->height;
|
|
$im->filledRectangle($xtmp,$ytmp,$xtmp1,$ytmp1,$tot{$key}{'color'});
|
|
$im->rectangle($xtmp,$ytmp,$xtmp1,$ytmp1,$black);
|
|
$tmp = $key;
|
|
$tmp =~ s/-cmp-$opt_cmp//i;
|
|
$giflegend = sprintf "%-24.24s: %-40.40s",$tmp,$tot{$key}{'server'};
|
|
$xtmp2 = $xtmp1 + $legend_block;
|
|
$im->string(gdSmallFont,$xtmp2,$ytmp,"$giflegend",$black);
|
|
$c++;
|
|
$i++;
|
|
# print "$c $i -> $giflegend\n";
|
|
}
|
|
|
|
}
|
|
|
|
sub lines {
|
|
|
|
$g = 0;
|
|
$i = 0;
|
|
$ybegin = $up_border + ((($#key_order + 2)/2)*$step);
|
|
$xbegin = $left_border;
|
|
foreach $key (sort {$a cmp $b} keys %op) {
|
|
next if ($key =~ /TOTALS/i);
|
|
$c = 0;
|
|
# print "key - $key\n";
|
|
foreach $server (@key_order) {
|
|
$tot1{$server}{$key}->[1] = 1 if ($tot1{$server}{$key}->[1] == 0);
|
|
$entry = $tot1{$server}{$key}->[0]/$tot1{$server}{$key}->[1];
|
|
$ytmp = $ybegin + ($i * $step) ;
|
|
$xtmp = $xbegin + ($entry * $xverh) ;
|
|
$ytmp1 = $ytmp + $step;
|
|
# print "$server -- $entry --x $xtmp -- y $ytmp - $c\n";
|
|
$entry1 = sprintf("%.2f", $entry);
|
|
if ($entry < $xhigh) {
|
|
$im->filledRectangle($xbegin, $ytmp, $xtmp, $ytmp1, $tot{$server}{'color'});
|
|
$im->rectangle($xbegin, $ytmp, $xtmp, $ytmp1, $black);
|
|
# print the seconds behind the bar (look below for another entry)
|
|
# this entry is for the bars that are not greater then the max width
|
|
# of the grey field ...
|
|
# $im->string(gdTinyFont,(($xtmp+3),($ytmp),"$entry1",$black));
|
|
# if you want the seconds in the color of the bar just uncomment it (below)
|
|
# $im->string(gdTinyFont,(($xtmp+3),($ytmp),"$entry1",$tot{$server}{'color'}));
|
|
} else {
|
|
$im->filledRectangle($xbegin, $ytmp, ($xbegin + ($xhigh*$xverh)), $ytmp1, $tot{$server}{'color'});
|
|
$im->rectangle($xbegin, $ytmp, ($xbegin + ($xhigh*$xverh)), $ytmp1, $black);
|
|
|
|
# print the seconds behind the bar (look below for another entry)
|
|
# here is the seconds printed behind the bar is the bar is too big for
|
|
# the graph ... (seconds is greater then xhigh ...)
|
|
$im->string(gdTinyFont, ($xbegin + ($xhigh*$xverh)+3),($ytmp),"$entry1",$black);
|
|
# if you want the seconds in the color of the bar just uncomment it (below)
|
|
# $im->string(gdTinyFont, ($xbegin + ($xhigh*$xverh)+3),($ytmp),"$entry1",$colors[$c]);
|
|
}
|
|
$c++;
|
|
$i++;
|
|
}
|
|
# see if we can center the text between the bars ...
|
|
$ytmp2 = $ytmp1 - (((($c)*$step) + gdSmallFont->height)/2);
|
|
$im->string(gdSmallFont,($sm_border*2),$ytmp2,$key, $black);
|
|
$i++;
|
|
}
|
|
}
|
|
|
|
|
|
sub gif {
|
|
my ($name) = @_;
|
|
$name_gif = $name . ".gif";
|
|
print "name --> $name_gif\n";
|
|
open (GIF, "> $name_gif") || die "Can't open $name_gif: $!\n";
|
|
print GIF $im->gif;
|
|
close (GIF);
|
|
}
|
|
|