mirror of
https://github.com/mozilla/gecko-dev.git
synced 2025-01-09 13:25:00 +00:00
new time columns, for use in development groups which span multiple time zones. Time_UTC will display the time column in UTC time this has no java script in it and Time_Local will use javascript to determine the browsers local time and display the times apropriately.
This commit is contained in:
kestes%walrus.com
parent
3ed566c36e
commit
3578357ec4
215
webtools/tinderbox2/src/lib/TinderDB/Time_Local.pm
Normal file
215
webtools/tinderbox2/src/lib/TinderDB/Time_Local.pm
Normal file
@ -0,0 +1,215 @@
|
||||
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
||||
#
|
||||
|
||||
# TinderDB::Time_Local - A Java Script replacement for the Time.pm
|
||||
# module. This module displays the time column in the local time (to
|
||||
# the browser, not the server).
|
||||
|
||||
# The contents of this file are subject to the Mozilla Public
|
||||
# License Version 1.1 (the "License"); you may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of
|
||||
# the License at http://www.mozilla.org/NPL/
|
||||
#
|
||||
# Software distributed under the License is distributed on an "AS
|
||||
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
||||
# implied. See the License for the specific language governing
|
||||
# rights and limitations under the License.
|
||||
#
|
||||
# The Original Code is the Tinderbox build tool.
|
||||
#
|
||||
# The Initial Developer of the Original Code is Netscape Communications
|
||||
# Corporation. Portions created by Netscape are
|
||||
# Copyright (C) 1998 Netscape Communications Corporation. All
|
||||
# Rights Reserved.
|
||||
#
|
||||
|
||||
# complete rewrite by Ken Estes:
|
||||
# kestes@staff.mail.com Old work.
|
||||
# kestes@reefedge.com New work.
|
||||
# kestes@walrus.com Home.
|
||||
# Contributor(s):
|
||||
|
||||
|
||||
|
||||
# $Revision: 1.1 $
|
||||
# $Date: 2003/08/16 18:23:02 $
|
||||
# $Author: kestes%walrus.com $
|
||||
# $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/lib/TinderDB/Time_Local.pm,v $
|
||||
# $Name: $
|
||||
|
||||
package TinderDB::Time_Local;
|
||||
|
||||
# Load standard perl libraries
|
||||
|
||||
# Load Tinderbox libraries
|
||||
|
||||
use lib '#tinder_libdir#';
|
||||
|
||||
use VCDisplay;
|
||||
|
||||
|
||||
|
||||
$VERSION = ( qw $Revision: 1.1 $ )[1];
|
||||
|
||||
|
||||
sub new {
|
||||
my $type = shift;
|
||||
my %params = @_;
|
||||
my $self = {};
|
||||
bless $self, $type;
|
||||
}
|
||||
|
||||
# last_hour is specific to each time column in the table it stores the
|
||||
# hour of the time we were computing between calls to
|
||||
# status_table_row. Using this data we can set the full date
|
||||
# appropriately.
|
||||
|
||||
sub last_hour {
|
||||
my $self = shift;
|
||||
if (@_) { $self->{LASTHOUR} = shift }
|
||||
return $self->{LASTHOUR};
|
||||
}
|
||||
|
||||
|
||||
sub loadtree_db {
|
||||
return ;
|
||||
}
|
||||
|
||||
|
||||
sub savetree_db {
|
||||
return ;
|
||||
}
|
||||
|
||||
|
||||
sub trim_db_history {
|
||||
return ;
|
||||
}
|
||||
|
||||
|
||||
sub event_times_vec {
|
||||
return ;
|
||||
}
|
||||
|
||||
|
||||
sub apply_db_updates {
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
|
||||
# where can people attach notices to?
|
||||
# Really this is the names the columns produced by this DB
|
||||
|
||||
sub notice_association {
|
||||
return '';
|
||||
}
|
||||
|
||||
sub status_table_header {
|
||||
|
||||
my $out =<<'EOF';
|
||||
|
||||
<noscript>Time (UTC)</noscript>
|
||||
|
||||
<script type="text/javascript"><!--
|
||||
now = new Date();
|
||||
offset = now.getTimezoneOffset();
|
||||
document.write("Local Time (UTC");
|
||||
if (offset < 0) document.write("+");
|
||||
if (offset) document.write(-offset/60);
|
||||
document.write(")");
|
||||
|
||||
function show_time(month, day, hours, mins, show_date) {
|
||||
now.setMonth(month-1);
|
||||
now.setDate(day);
|
||||
now.setHours(hours);
|
||||
now.setMinutes(mins-offset);
|
||||
if (show_date)
|
||||
document.write( (now.getMonth()+1) + "/" + now.getDate());
|
||||
document.write(" ");
|
||||
document.write(now.getHours() + ":");
|
||||
if (now.getMinutes() <= 9) document.write("0");
|
||||
document.write(now.getMinutes());
|
||||
}
|
||||
|
||||
//--></script>
|
||||
EOF
|
||||
|
||||
return ("\t<th><b>$out</b></th>\n");
|
||||
}
|
||||
|
||||
|
||||
sub status_table_legend {
|
||||
|
||||
return ;
|
||||
}
|
||||
|
||||
|
||||
sub status_table_start {
|
||||
my ($self, $row_times, $tree,) = @_;
|
||||
|
||||
$self->last_hour(-1);
|
||||
}
|
||||
|
||||
|
||||
|
||||
sub status_table_row {
|
||||
my ($self, $row_times, $row_index, $tree,) = @_;
|
||||
|
||||
my $time = $row_times->[$row_index];
|
||||
my ($pretty_time) = HTMLPopUp::gmtimeHTML($time);
|
||||
my ($month, $day) = ( $pretty_time =~ m!(\d\d)/(\d\d)! );
|
||||
my ($hour, $min) = ( $pretty_time =~ m!(\d\d):(\d\d)! );
|
||||
|
||||
$display_time = "\t\t<noscript>$pretty_time</noscript>\n";
|
||||
|
||||
# if it is a new hour or we have checkins for this period make a
|
||||
# link for a cvs query for all checkins since this time otherwise
|
||||
# just display the date.
|
||||
|
||||
my ($query_link) = '';
|
||||
if ($self->last_hour() != $hour) {
|
||||
|
||||
$display_time = (
|
||||
"\t\t<script type=\"text/javascript\">".
|
||||
"show_time($month,$day,$hour,$min, 1);".
|
||||
"</script>\n".
|
||||
"");
|
||||
|
||||
$query_link = "\t\t".
|
||||
VCDisplay::query(
|
||||
'tree' => $tree,
|
||||
'mindate' => $time,
|
||||
'linktxt' => $display_time,
|
||||
);
|
||||
} else {
|
||||
|
||||
$display_time .= (
|
||||
"\t\t<script type=\"text/javascript\">".
|
||||
"show_time($month,$day,$hour,$min, 0);".
|
||||
"</script>\n".
|
||||
"");
|
||||
|
||||
$query_link = $display_time;
|
||||
}
|
||||
|
||||
# the background for odd hours is a light grey,
|
||||
# even hours have white.
|
||||
|
||||
my $hour_color = '';
|
||||
if ($hour % 2) {
|
||||
$hour_color = "bgcolor=#e7e7e7";
|
||||
}
|
||||
|
||||
my(@outrow) = ("\t<!-- Time_Local: $pretty_time -->\n".
|
||||
"\t\t<td align=right $hour_color>\n".
|
||||
$query_link.
|
||||
"\t\t</td>\n");
|
||||
|
||||
$self->last_hour($hour);
|
||||
return @outrow;
|
||||
}
|
||||
|
||||
|
||||
1;
|
||||
__END__
|
||||
|
||||
177
webtools/tinderbox2/src/lib/TinderDB/Time_UTC.pm
Normal file
177
webtools/tinderbox2/src/lib/TinderDB/Time_UTC.pm
Normal file
@ -0,0 +1,177 @@
|
||||
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
||||
#
|
||||
|
||||
# TinderDB::Time_Local - A Java Script replacement for the Time.pm
|
||||
# module. This module displays the time column in the local time (to
|
||||
# the browser, not the server).
|
||||
|
||||
# The contents of this file are subject to the Mozilla Public
|
||||
# License Version 1.1 (the "License"); you may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of
|
||||
# the License at http://www.mozilla.org/NPL/
|
||||
#
|
||||
# Software distributed under the License is distributed on an "AS
|
||||
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
||||
# implied. See the License for the specific language governing
|
||||
# rights and limitations under the License.
|
||||
#
|
||||
# The Original Code is the Tinderbox build tool.
|
||||
#
|
||||
# The Initial Developer of the Original Code is Netscape Communications
|
||||
# Corporation. Portions created by Netscape are
|
||||
# Copyright (C) 1998 Netscape Communications Corporation. All
|
||||
# Rights Reserved.
|
||||
#
|
||||
|
||||
# complete rewrite by Ken Estes:
|
||||
# kestes@staff.mail.com Old work.
|
||||
# kestes@reefedge.com New work.
|
||||
# kestes@walrus.com Home.
|
||||
# Contributor(s):
|
||||
|
||||
|
||||
|
||||
# $Revision: 1.1 $
|
||||
# $Date: 2003/08/16 18:23:01 $
|
||||
# $Author: kestes%walrus.com $
|
||||
# $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/lib/TinderDB/Time_UTC.pm,v $
|
||||
# $Name: $
|
||||
|
||||
package TinderDB::Time_UTC;
|
||||
|
||||
# Load standard perl libraries
|
||||
|
||||
# Load Tinderbox libraries
|
||||
|
||||
use lib '#tinder_libdir#';
|
||||
|
||||
use VCDisplay;
|
||||
|
||||
|
||||
|
||||
$VERSION = ( qw $Revision: 1.1 $ )[1];
|
||||
|
||||
|
||||
sub new {
|
||||
my $type = shift;
|
||||
my %params = @_;
|
||||
my $self = {};
|
||||
bless $self, $type;
|
||||
}
|
||||
|
||||
# last_hour is specific to each time column in the table it stores the
|
||||
# hour of the time we were computing between calls to
|
||||
# status_table_row. Using this data we can set the full date
|
||||
# appropriately.
|
||||
|
||||
sub last_hour {
|
||||
my $self = shift;
|
||||
if (@_) { $self->{LASTHOUR} = shift }
|
||||
return $self->{LASTHOUR};
|
||||
}
|
||||
|
||||
|
||||
sub loadtree_db {
|
||||
return ;
|
||||
}
|
||||
|
||||
|
||||
sub savetree_db {
|
||||
return ;
|
||||
}
|
||||
|
||||
|
||||
sub trim_db_history {
|
||||
return ;
|
||||
}
|
||||
|
||||
|
||||
sub event_times_vec {
|
||||
return ;
|
||||
}
|
||||
|
||||
|
||||
sub apply_db_updates {
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
|
||||
# where can people attach notices to?
|
||||
# Really this is the names the columns produced by this DB
|
||||
|
||||
sub notice_association {
|
||||
return '';
|
||||
}
|
||||
|
||||
sub status_table_header {
|
||||
|
||||
return ("\t<th><b>Time (UTC)</b></th>\n");
|
||||
}
|
||||
|
||||
|
||||
sub status_table_legend {
|
||||
|
||||
return ;
|
||||
}
|
||||
|
||||
|
||||
sub status_table_start {
|
||||
my ($self, $row_times, $tree,) = @_;
|
||||
|
||||
$self->last_hour(-1);
|
||||
}
|
||||
|
||||
|
||||
|
||||
sub status_table_row {
|
||||
my ($self, $row_times, $row_index, $tree,) = @_;
|
||||
|
||||
my $time = $row_times->[$row_index];
|
||||
my ($pretty_time) = HTMLPopUp::gmtimeHTML($time);
|
||||
my ($month, $day) = ( $pretty_time =~ m!(\d\d)/(\d\d)! );
|
||||
my ($hour, $min) = ( $pretty_time =~ m!(\d\d):(\d\d)! );
|
||||
|
||||
$display_time = "\t\t$pretty_time\n";
|
||||
|
||||
# if it is a new hour or we have checkins for this period make a
|
||||
# link for a cvs query for all checkins since this time otherwise
|
||||
# just display the date.
|
||||
|
||||
my ($query_link) = '';
|
||||
if ($self->last_hour() != $hour) {
|
||||
|
||||
$query_link = "\t\t".
|
||||
VCDisplay::query(
|
||||
'tree' => $tree,
|
||||
'mindate' => $time,
|
||||
'linktxt' => $display_time,
|
||||
);
|
||||
} else {
|
||||
# remove the month/day
|
||||
$display_time =~ s/^.* //;
|
||||
|
||||
$query_link = $display_time;
|
||||
}
|
||||
|
||||
# the background for odd hours is a light grey,
|
||||
# even hours have white.
|
||||
|
||||
my $hour_color = '';
|
||||
if ($hour % 2) {
|
||||
$hour_color = "bgcolor=#e7e7e7";
|
||||
}
|
||||
|
||||
my(@outrow) = ("\t<!-- Time_UTC: $pretty_time -->\n".
|
||||
"\t\t<td align=right $hour_color>\n".
|
||||
$query_link.
|
||||
"\t\t</td>\n");
|
||||
|
||||
$self->last_hour($hour);
|
||||
return @outrow;
|
||||
}
|
||||
|
||||
|
||||
1;
|
||||
__END__
|
||||
|
||||
Loading…
Reference in New Issue
Block a user