";
print "| Specification | ";
print mknav($from_t,$to_t,'f-1','<<'),$from;
print mknav($from_t,$to_t,'f+1','>>') if ($from_t+$int_t < $to_t);
print " | ";
print mknav($from_t,$to_t,'t-1','<<') if ($to_t+$int_t > $from_t);
print $to,mknav($from_t,$to_t,'t+1','>>')," |
\n";
# draw hour grid
sub hour_grid {
print "| hour grid | ";
my @c = ("255,255,128","255,192,128");
my $hr=strftime("%H",localtime ($from_t));
sub hour_bar {
my ($t,$c,$hr) = @_;
my $clock_hr = $hr % 24;
my $alt = sprintf("%02d:00",$clock_hr);
if ($clock_hr == 0) {
my $pix_hr = int(1 / $width);
print color_bar($pix_hr,"0,0,0",strftime("%Y-%m-%d", localtime($from_t + $hr*3600)));
print color_bar($t-$pix_hr,$c,$alt);
} else {
print color_bar($t,$c,$alt);
}
}
hour_bar(3600 - $from_t % 3600,$c[0],$hr++);
for (my $i=1; $i |
\n";
}
hour_grid();
my $fix_d = 0; # used to fix graph len (in pixels)
my $fix_s = 0; # used to collect round errors of size
sub bar {
my $l = shift @_;
my $status = shift @_;
my $alt = shift @_;
my $col;
if ($status) {
if ($cols{$status}) {
$col .= $cols{$status};
} else {
$col .= "0,0,0"; # unknown status, black
}
$count{$status}++;
} else {
# $col .= '240,240,240';
$col .= '220,220,220';
}
return color_bar($l,$col,$alt,$min_l);
}
sub color_bar {
my $l = shift @_; # lenght of event utime
my $col = shift @_ || '240,240,240'; # default color (filler)
my $alt = shift @_ || undef;
my $min_l = shift @_ || 1;
my $h = shift @_ || $height;
my $size = $l / ($len_t / $width);
$fix_s += $size - int($size);
$size=int($size);
# add rounding error to size
if ($fix_s > 1) {
my $i = $fix_s ; $i = int($i);
$fix_s -= $i;
$size += $i;
}
if ($alt && $size < $min_l) {
$fix_d += ($min_l - $size);
print STDERR "fix_d: $fix_d\n" if ($debug);
$size = $min_l;
}
if ($fix_d && $size > $fix_d+$min_l) {
$size -= $fix_d;
$fix_d = 0;
print STDERR "fix_d: $fix_d\n" if ($debug);
}
print STDERR "bar[$col] len:$l s scale:",($len_t/$width)," size:$size px
alt:$alt\n" if ($debug);
my $html;
my ($html_end, $img_end) = ("","");
if ($repgen_url && $alt =~ m#(\d\d\d\d)/(\d\d)/(\d\d)-(\d+)#) {
$html .= "";
$html_end .= "";
$img_end .= " border=0";
}
$html .= "![](\"".$q-)
url(-relative=>1)."/$col\" width=\"$size\" height=\"$h\"";
if ($use_js && $alt) {
$html .= " onmouseover=\"T('$alt')\" onmouseout=\"T()\"";
} elsif ($alt) {
$html .= " alt=\"$alt\"";
}
$html .= "$img_end>$html_end";
return($html);
}
my $sql = "select start,finish,specification,status,user_group_host,
type,sessionid,device,host
from gantt
where (start < '$from' and finish > '$from') or
(start > '$from' and start < '$to')
order by device,specification,start
";
my $sth = $dbh->prepare($sql) || die "sql: $sql ".$dbh->errstr;
print STDERR "sql: $sql\n" if ($debug);
my %spec; # specification hash
my $curr_spec = "";
my $curr_t = $from_t;
$sth->execute() || die "sql: $sql ".$dbh->errstr;
my $dev; # current device
my @dev_t; # all minutes in one hour [1440]
my @dev_sum_t;
sub sum_bar {
my $label = shift @_;
my @dev_t = @_;
# display device summary
my $max_use = 0;
for (my $i=0; $i < $len_t; $i++) {
$max_use = $dev_t[$i] if (defined $dev_t[$i] && $dev_t[$i] > $max_use);
}
print "| $label [$max_use] | ";
my $last_var = 0;
my $len = 0;
for (my $i=1; $i<= ($to_t-$from_t); $i++) {
my $v = $dev_t[$i] || 0;
if ($v == $last_var) {
$len++;
} else {
my $h = $last_var / $max_use * $height;
my $c = 255 - int (255 * $last_var / $max_use);
print color_bar($len,"$c,$c,$c","$last_var concurrent jobs",1,$h+1);
$len = 0;
$last_var = $v;
}
}
# fix division by zero
$max_use++ if ($max_use == 0);
my $h = $last_var / $max_use * $height;
my $c = 255 - int (255 * $last_var / $max_use);
print color_bar($len,"$c,$c,$c","$last_var concurrent jobs",1,$h+1) if ($len);
print " |
";
}
my @line_t; # all seconds for this specification
my @line_arr = (""); # all segments on line which are not fillers
sub html_spec {
print "| $curr_spec | ";
my $last_var = 0;
my $len = 0;
my $i;
for (my $t=0; $t<=$len_t; $t++) {
$i = $line_t[$t] || 0;
if ($i == $last_var) {
$len++;
} else {
if ($last_var == 0) {
print bar($len);
} else {
print bar($len,split(/\t/,$line_arr[$last_var],2));
}
$len = 0;
$last_var = $i;
}
}
print bar($len,split(/\t/,$line_arr[$i],2));
print " |
\n";
}
while(my $row = $sth->fetchrow_hashref) {
if ($row->{specification} ne $curr_spec) {
if ($curr_t < $to_t && $curr_spec) {
my $t = $to_t - $curr_t;
print STDERR "[end filler $curr_t:$t]" if ($debug);
# print bar($t);
}
# print "\n" if ($curr_t != $from_t);
# init vars for next line
($fix_s,$fix_d) = (0,0); # init fix vars for bar
if ($curr_spec ne "") {
$curr_spec =~ s/ +/ /g;
html_spec;
}
$curr_t = $from_t; # init timeline
$curr_spec = $row->{specification};
@line_t = ();
@line_arr = ( "" );
if ($dev && @dev_t && $dev ne $row->{device}) {
sum_bar("summary for $dev",@dev_t);
$dev = $row->{device};
@dev_t = ();
} elsif (! $dev) {
$dev = $row->{device};
}
}
my $start_t = str2time($row->{start});
my $fin_t = str2time($row->{finish});
# Can I squeeze here 1 pixel of time (many seconds) ?
if ($start_t > $curr_t + ($len_t / $width)) {
my $t = $start_t - $curr_t;
print STDERR "[middle filler $curr_t:$t]" if ($debug);
# print bar($t);
$curr_t = $start_t;
} else {
# prepend too few seconds to next event
$start_t = $curr_t;
}
my $len = $fin_t - $start_t;
# $len = $len_t if ($len > $len_t);
my $less = '';
my $more = '';
if ($start_t < $from_t) {
# $len += ($from_t - $start_t);
$len = ($fin_t - $curr_t);
$less = "<<";
}
if ($fin_t > $to_t) {
# $len -= ($fin_t - $to_t);
$len = ($to_t - $curr_t);
$more = ">>"; # event now shown whole
}
print STDERR "[$less",$row->{status}," $curr_t:$len$more]" if ($debug);
my $alt = $row->{start}." - ".$row->{finish}."
";
$alt =~ s/:\d\d\.\d+//g;
$alt =~ s/\s+/ /g;
$alt .= $row->{specification}."
".
$row->{type}." ".$row->{status}."
".
$row->{user_group_host}." ".$row->{sessionid}."
".
$row->{device}." on ".$row->{host};
# print bar($len,$row->{status},$alt);
push @line_arr,$row->{status}."\t".$alt;
# store use of devices for each minute
for (my $s=0; $s<$len; $s++) {
$line_t[$curr_t-$from_t+$s] = $#line_arr;
$dev_t[$curr_t-$from_t+$s]++;
$dev_sum_t[$curr_t-$from_t+$s]++;
}
$curr_t += $len;
# print Dumper($row);
}
if ($curr_t == $from_t) { # no entries in database!
# print " | ";
}
if ($curr_t < $to_t ) {
my $t = $to_t - $curr_t;
print STDERR "[last_line filler $curr_t:$t]" if ($debug);
}
undef $sth;
$dbh->disconnect;
html_spec();
sum_bar("summary for $dev",@dev_t);
hour_grid();
sum_bar("summary for all devices",@dev_sum_t);
print " |
";
# label and usage
print "