121 |
print $to,mknav($from_t,($to_t+$int_t),'<small>>></small>'),"</td></tr>\n"; |
print $to,mknav($from_t,($to_t+$int_t),'<small>>></small>'),"</td></tr>\n"; |
122 |
|
|
123 |
# draw hour grid |
# draw hour grid |
124 |
print "<tr><td align=right><small>hour grid</small></td><td colspan=2>"; |
sub hour_grid { |
125 |
my @c = ("255,255,128","255,192,128"); |
print "<tr><td align=right><small>hour grid</small></td><td colspan=2>"; |
126 |
my $hr=strftime("%H",localtime ($from_t)); |
my @c = ("255,255,128","255,192,128"); |
127 |
print color_bar(3600 - $from_t % 3600,$c[0],$hr++ % 24); |
my $hr=strftime("%H",localtime ($from_t)); |
128 |
for (my $i=1; $i<int(($to_t-$from_t)/3600); $i++) { |
print color_bar(3600 - $from_t % 3600,$c[0],sprintf("%02d",$hr++ % 24)); |
129 |
print color_bar(3600,$c[1],sprintf("%02d",$hr++ % 24)); |
for (my $i=1; $i<int(($to_t-$from_t)/3600); $i++) { |
130 |
push @c, shift @c; |
print color_bar(3600,$c[1],sprintf("%02d",$hr++ % 24)); |
131 |
|
push @c, shift @c; |
132 |
|
} |
133 |
|
print color_bar($from_t % 3600,$c[1],sprintf("%02d",$hr % 24)); |
134 |
|
print "</td></tr>\n"; |
135 |
} |
} |
136 |
print color_bar($from_t % 3600,$c[1],$hr % 24); |
|
137 |
print "</td></tr>\n"; |
hour_grid(); |
138 |
|
|
139 |
my $fix_d = 0; # used to fix graph len |
my $fix_d = 0; # used to fix graph len |
140 |
|
|
280 |
undef $sth; |
undef $sth; |
281 |
$dbh->disconnect; |
$dbh->disconnect; |
282 |
|
|
283 |
print "</td></tr>\n</table>"; |
print "</td></tr>\n"; |
284 |
|
hour_grid(); |
285 |
|
print "</table>"; |
286 |
|
|
287 |
|
|
288 |
# label and usage |
# label and usage |