diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-05-04 18:07:14 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-05-04 18:07:14 +0000 |
commit | a175314c3e5827eb193872241446f2f8f5c9d33c (patch) | |
tree | cd3d60ca99ae00829c52a6ca79150a5b6e62528b /sql-bench/graph-compare-results.sh | |
parent | Initial commit. (diff) | |
download | mariadb-10.5-a175314c3e5827eb193872241446f2f8f5c9d33c.tar.xz mariadb-10.5-a175314c3e5827eb193872241446f2f8f5c9d33c.zip |
Adding upstream version 1:10.5.12.upstream/1%10.5.12upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to '')
-rwxr-xr-x | sql-bench/graph-compare-results.sh | 661 |
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); +} + |