This commit is contained in:
kestes%walrus.com 2002-04-27 03:23:02 +00:00
parent 6fa9237285
commit bb553f252d
4 changed files with 29 additions and 9 deletions

View File

@ -1,3 +1,15 @@
Allow users to backdate notices
autmate regeneration of HTML when user uses CGI
interface
Put the C in all build cells.
VC code did the wrong thing when generating old pages and there was
no TreeState data.
Fix Spelling mistakes thoughout code.
Add support for build machines to tell the server to add text/links
into build cells (TinderboxPrint).

View File

@ -6,8 +6,8 @@
# on the tinderbox status page.
# $Revision: 1.16 $
# $Date: 2002/04/27 02:31:08 $
# $Revision: 1.17 $
# $Date: 2002/04/27 03:23:00 $
# $Author: kestes%walrus.com $
# $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/bin/addnote.cgi,v $
# $Name: $
@ -135,6 +135,11 @@ sub get_params {
if (param("effectivetime")) {
$EFFECTIVE_TIME = timestring2time( param("effectivetime") );
# allow people to backdate notices but not forward date them.
if ($EFFECTIVE_TIME > $TIME) {
$EFFECTIVE_TIME = $TIME;
}
} else {
$EFFECTIVE_TIME = time();
}

View File

@ -12,8 +12,8 @@
# the completed string before it is returned.
# $Revision: 1.15 $
# $Date: 2002/04/27 01:13:08 $
# $Revision: 1.16 $
# $Date: 2002/04/27 03:22:57 $
# $Author: kestes%walrus.com $
# $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/lib/HTMLPopUp.pm,v $
# $Name: $
@ -238,8 +238,10 @@ sub split_cgi_args {
sub regenerate_HTML_pages {
my $old_query_string = $ENV{"QUERY_STRING"};
my $old_request_method = $ENV{"REQUEST_METHOD"};
$ENV{"QUERY_STRING"} = '';
$ENV{"REQUEST_METHOD"} = '';
system(
$FileStructure::CGIBIN_DIR.'tinder.cgi',
@ -247,6 +249,7 @@ sub regenerate_HTML_pages {
);
$ENV{"QUERY_STRING"} = $old_query_string;
$ENV{"REQUEST_METHOD"} = $old_request_method;
return 0;
}

View File

@ -78,7 +78,7 @@ use Utils;
use HTMLPopUp;
use TinderDB::BasicTxtDB;
$VERSION = ( qw $Revision: 1.15 $ )[1];
$VERSION = ( qw $Revision: 1.16 $ )[1];
@ISA = qw(TinderDB::BasicTxtDB);
@ -252,11 +252,11 @@ sub render_notice {
# also tell when the note was really posted.
my $localpostedtime;
if ($notice->{'time'} != $notice->{'posttime'}) {
if ( $notice->{'posttime'} - $notice->{'time'} > $main::SECONDS_PER_HOUR) {
$localpostedtime = (
"(Actually posted at: ".
$notice->{'localpostedtime'}.
")".
"<br>(Actually posted at: ".
$notice->{'localposttime'}.
")\n".
"");
}