summaryrefslogtreecommitdiffstats
path: root/sql-bench/graph-compare-results.sh
diff options
context:
space:
mode:
Diffstat (limited to 'sql-bench/graph-compare-results.sh')
-rwxr-xr-xsql-bench/graph-compare-results.sh661
1 files changed, 661 insertions, 0 deletions
diff --git a/sql-bench/graph-compare-results.sh b/sql-bench/graph-compare-results.sh
new file mode 100755
index 00000000..d43f722c
--- /dev/null
+++ b/sql-bench/graph-compare-results.sh
@@ -0,0 +1,661 @@
+#!/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);
+}
+