Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-11-29 15:52:07 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix misc warnings.

Browse Source 
Bug #261616 r=timeless
This commit is contained in:
cls%seawood.org 2004-12-01 00:43:28 +00:00
parent 83587d68b0
commit 0f10bab80d
3 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
webtools/bonsai/globals.pl
View File

@ -684,14 +684,14 @@ sub ConstructMailTo {
sub MyFmtClock {
my ($time) = @_;
$time = 1 * 365 * 24 * 60 * 60 + 1 if ($time <= 0);
$time = 1 * 365 * 24 * 60 * 60 + 1 if (!defined($time) || $time <= 0);
return time2str("%Y-%m-%d %T", $time);
}
sub SqlFmtClock {
my ($time) = @_;
$time = 1 * 365 * 24 * 60 * 60 + 1 if ($time <= 0);
$time = 1 * 365 * 24 * 60 * 60 + 1 if (!defined($time) || $time <= 0);
return time2str("%Y-%m-%d %T", $time);
}

8
webtools/bonsai/repophook.cgi
View File

@ -64,16 +64,16 @@ print "<TITLE> Rebooting, please wait...</TITLE>
<p>
Searching for first checkin after " . SqlFmtClock($startfrom) . "...<p>\n";
my $branch = $::TreeInfo{$::TreeID}->{'branch'};
print "<p> $branch <p> \n";
my $inbranch = $::TreeInfo{$::TreeID}->{'branch'};
print "<p> $inbranch <p> \n";
my $sqlstring = "select type, UNIX_TIMESTAMP(ci_when), people.who, repositories.repository, dirs.dir, files.file, revision, stickytag, branches.branch, addedlines, removedlines, descs.description from checkins,people,repositories,dirs,files,branches,descs where people.id=whoid and repositories.id=repositoryid and dirs.id=dirid and files.id=fileid and branches.id=branchid and descs.id=descid and branches.branch='$branch' and ci_when>='" . SqlFmtClock($startfrom) . "' order by ci_when;";
my $sqlstring = "select type, UNIX_TIMESTAMP(ci_when), people.who, repositories.repository, dirs.dir, files.file, revision, stickytag, branches.branch, addedlines, removedlines, descs.description from checkins,people,repositories,dirs,files,branches,descs where people.id=whoid and repositories.id=repositoryid and dirs.id=dirid and files.id=fileid and branches.id=branchid and descs.id=descid and branches.branch='$inbranch' and ci_when>='" . SqlFmtClock($startfrom) . "' order by ci_when;";
print "<p> $sqlstring <p>\n";
SendSQL("$sqlstring");
my ($change, $date, $who, $repos, $dir, $file, $rev, $sticky, $branch, $linesa, $linesr, $log);
my ($lastchange, $lastdate, $lastwho, $lastrepos, $lastdir, $lastrev, $laststicky, $lastbranch, $lastlinesa, $lastlinesr, $lastlog);
my ($id, $info, $lastdate, @files, @fullinfo);
my ($id, $info, @files, @fullinfo);
my ($d, $f, $okdir, $full);
my ($r);
$lastdate = "";

7
webtools/bonsai/viewold.cgi
View File

@ -20,6 +20,13 @@
#
# Contributor(s):
sub StupidFuncToShutUpWarningsByUsingVarsAgain {
my $z;
$z = $::BatchID;
$z = $::TreeID;
$z = $::FORM;
}
require 'CGI.pl';
use strict;