mirror of
https://github.com/mozilla/gecko-dev.git
synced 2024-11-07 20:17:37 +00:00
460 lines
10 KiB
Perl
Executable File
460 lines
10 KiB
Perl
Executable File
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
|
#
|
|
# The contents of this file are subject to the Netscape Public License
|
|
# Version 1.0 (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 Bonsai CVS 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.
|
|
|
|
require 'utils.pl';
|
|
|
|
#
|
|
# Constants
|
|
#
|
|
$CI_CHANGE=0;
|
|
$CI_DATE=1;
|
|
$CI_WHO=2;
|
|
$CI_REPOSITORY=3;
|
|
$CI_DIR=4;
|
|
$CI_FILE=5;
|
|
$CI_REV=6;
|
|
$CI_STICKY=7;
|
|
$CI_BRANCH=8;
|
|
$CI_LINES_ADDED=9;
|
|
$CI_LINES_REMOVED=10;
|
|
$CI_LOG=11;
|
|
|
|
$NOT_LOCAL = 1;
|
|
$IS_LOCAL = 2;
|
|
|
|
|
|
if( $CVS_ROOT eq "" ){
|
|
$CVS_ROOT = pickDefaultRepository();
|
|
}
|
|
|
|
#global variables
|
|
|
|
$lines_added = 0;
|
|
$lines_removed = 0;
|
|
|
|
$modules = {};
|
|
|
|
if( $ENV{"OS"} eq "Windows_NT" ){
|
|
# for debugging purposes
|
|
$CVS_MODULES='k:/warp/projects/bonsai/modules';
|
|
}
|
|
else {
|
|
$CVS_MODULES="${CVS_ROOT}/CVSROOT/modules";
|
|
#$CVS_MODULES='data/modules';
|
|
}
|
|
|
|
open( MOD, "<$CVS_MODULES") || die "can't open ${CVS_MODULES}";
|
|
&parse_modules;
|
|
close( MOD );
|
|
|
|
1;
|
|
|
|
#
|
|
# Actually do the query
|
|
#
|
|
sub query_checkins {
|
|
local($mod_map) = @_;
|
|
local($ci,$result,$lastlog,$rev,$begin_tag,$end_tag);
|
|
|
|
if( $query_module ne 'all' && $query_module ne 'allrepositories' && @query_dirs == 0 ){
|
|
$have_mod_map = 1;
|
|
$mod_map = &get_module_map( $query_module );
|
|
}
|
|
else {
|
|
$have_mod_map = 0;
|
|
$mod_map = {};
|
|
}
|
|
|
|
for $i (@query_dirs ){
|
|
$i =~ s:^/::; # Strip leading slash.
|
|
$i =~ s:/$::; # Strip trailing slash.
|
|
|
|
if( !$have_mod_map ){
|
|
$mod_map = {};
|
|
$have_mod_map = 1;
|
|
}
|
|
$mod_map->{$i} = $NOT_LOCAL;
|
|
}
|
|
|
|
if( $query_branch =~ /^[ ]*HEAD[ ]*$/i ){
|
|
$query_branch_head = 1;
|
|
}
|
|
|
|
$begin_tag = "";
|
|
$end_tag = "";
|
|
|
|
if ( $query_begin_tag ne '') {
|
|
$begin_tag = load_tag($query_begin_tag);
|
|
}
|
|
|
|
if ( $query_end_tag ne '') {
|
|
$end_tag = load_tag($query_end_tag);
|
|
}
|
|
|
|
|
|
$result = [];
|
|
|
|
my $db = ConnectToDatabase();
|
|
|
|
my $qstring = "select type, UNIX_TIMESTAMP(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";
|
|
|
|
if( $query_module ne 'allrepositories' ){
|
|
$qstring .= " and repositories.repository = '$CVS_ROOT'";
|
|
}
|
|
|
|
if ($query_date_min) {
|
|
my $t = formatSqlTime($query_date_min);
|
|
$qstring .= " and when >= '$t'";
|
|
}
|
|
if ($query_date_max) {
|
|
my $t = formatSqlTime($query_date_max);
|
|
$qstring .= " and when <= '$t'";
|
|
}
|
|
if ($query_branch_head) {
|
|
$qstring .= " and branches.branch = ''";
|
|
} elsif ($query_branch ne '') {
|
|
my $q = SqlQuote($query_branch);
|
|
if ($query_branchtype eq 'regexp') {
|
|
$qstring .=
|
|
" and branches.branch regexp '$q'";
|
|
} elsif ($query_branchtype eq 'notregexp') {
|
|
$qstring .=
|
|
" and not (branches.branch regexp '$q') ";
|
|
} else {
|
|
$qstring .=
|
|
" and (branches.branch = '$q' or branches.branch = 'T$q')";
|
|
}
|
|
}
|
|
|
|
if( $query_file ne '') {
|
|
my $q = SqlQuote($query_file);
|
|
if ($query_filetype eq 'regexp') {
|
|
$qstring .= " and files.file regexp '$q'";
|
|
} else {
|
|
$qstring .= " and files.file = '$q'";
|
|
}
|
|
}
|
|
if ($query_who ne '') {
|
|
my $q = SqlQuote($query_who);
|
|
if ($query_whotype eq 'regexp') {
|
|
$qstring .= " and people.who regexp '$q'";
|
|
}
|
|
elsif ($query_whotype eq 'notregexp') {
|
|
$qstring .= " and not (people.who regexp '$q')";
|
|
|
|
} else {
|
|
$qstring .= " and people.who = '$q'";
|
|
}
|
|
}
|
|
|
|
if ($query_logexpr ne '') {
|
|
my $q = SqlQuote($query_logexpr);
|
|
$qstring .= " and descs.description regexp '$q'";
|
|
}
|
|
|
|
if ($query_debug) {
|
|
print "<pre wrap> Query: $qstring</PRE>";
|
|
}
|
|
|
|
$query = $db->Query($qstring) || die $Mysql::db_errstr;
|
|
|
|
$lastlog = 0;
|
|
while(@row = $query->fetchrow) {
|
|
$ci = [];
|
|
# print "<pre>";
|
|
for ($i=0 ; $i<=$CI_LOG ; $i++) {
|
|
$ci->[$i] = $row[$i];
|
|
# print "$row[$i] ";
|
|
}
|
|
# print "</pre>";
|
|
|
|
|
|
$key = "$ci->[$CI_DIR]/$ci->[$CI_FILE]";
|
|
if (IsHidden("$ci->[$CI_REPOSITORY]/$key")) {
|
|
next;
|
|
}
|
|
|
|
|
|
|
|
if( $have_mod_map &&
|
|
!&in_module( $mod_map, $ci->[$CI_DIR], $ci->[$CI_FILE] ) ){
|
|
next;
|
|
}
|
|
|
|
if( $begin_tag) {
|
|
$rev = $begin_tag->{$key};
|
|
print "<BR>$key begintag is $rev<BR>\n";
|
|
if ($rev == "" || rev_is_after($ci->[$CI_REV], $rev)) {
|
|
next;
|
|
}
|
|
}
|
|
|
|
if( $end_tag) {
|
|
$rev = $end_tag->{$key};
|
|
print "<BR>$key endtag is $rev<BR>\n";
|
|
if ($rev == "" || rev_is_after($rev, $ci->[$CI_REV])) {
|
|
next;
|
|
}
|
|
}
|
|
|
|
if( $query_logexpr ne '' && !($ci->[$CI_LOG] =~ /$query_logexpr/i) ){
|
|
next;
|
|
}
|
|
|
|
push( @$result, $ci );
|
|
}
|
|
|
|
for $ci (@{$result}) {
|
|
$lines_added += $ci->[$CI_LINES_ADDED];
|
|
$lines_removed += $ci->[$CI_LINES_REMOVED];
|
|
$versioninfo .= "$ci->[$CI_WHO]|$ci->[$CI_DIR]|$ci->[$CI_FILE]|$ci->[$CI_REV],";
|
|
}
|
|
return $result;
|
|
}
|
|
|
|
sub load_tag {
|
|
my $tagname = @_[0];
|
|
|
|
my $tagfile;
|
|
my $cvssuffix;
|
|
my $s;
|
|
my @line;
|
|
my $time;
|
|
my $cmd;
|
|
my $dir;
|
|
|
|
$cvssuffix = $CVS_ROOT;
|
|
$cvssuffix =~ s/\//_/g;
|
|
|
|
$s = $tagname;
|
|
|
|
$s =~ s/ /\%20/g;
|
|
$s =~ s/\%/\%25/g;
|
|
$s =~ s/\//\%2f/g;
|
|
$s =~ s/\?/\%3f/g;
|
|
$s =~ s/\*/\%2a/g;
|
|
|
|
$tagfile = "data/taginfo/$cvssuffix/$s";
|
|
|
|
open(TAG, "<$tagfile") || die "Unknown tag $tagname";
|
|
$result = {};
|
|
|
|
|
|
print "<br>parsing tag $tagname</br>\n";
|
|
while ( <TAG> ) {
|
|
chop;
|
|
@line = split(/\|/);
|
|
$time = shift @line;
|
|
$cmd = shift @line;
|
|
if ($cmd != "add") {
|
|
# We ought to be able to cope with these... XXX
|
|
next;
|
|
}
|
|
$dir = shift @line;
|
|
$dir =~ s:^$CVS_ROOT/::;
|
|
$dir =~ s:^\./::;
|
|
|
|
while (@line) {
|
|
$file = shift @line;
|
|
$file = "$dir/$file";
|
|
$version = shift @line;
|
|
$result->{$file} = $version;
|
|
print "<br>Added ($file,$version) for tag $tagname<br>\n";
|
|
}
|
|
}
|
|
|
|
return $result;
|
|
}
|
|
|
|
|
|
|
|
sub rev_is_after {
|
|
my $r1 = shift @_;
|
|
my $r2 = shift @_;
|
|
|
|
my @a = split /:/, $r1;
|
|
my @b = split /:/, $r2;
|
|
|
|
if (@b > @a) {
|
|
return 1;
|
|
}
|
|
|
|
if (@b < @a) {
|
|
return 0;
|
|
}
|
|
|
|
for (my $i=0 ; $i<@a ; $i++) {
|
|
if ($a[$i] > $b[$i]) {return 1;}
|
|
if ($a[$i] < $b[$i]) {return 0;}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|
|
|
|
sub find_date_offset {
|
|
local( $o, $d, $done, $line );
|
|
$done = 0;
|
|
local($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
|
|
$atime,$mtime,$ctime,$blksize,$blocks) = stat($CHECKIN_INDEX_FILE);
|
|
if ($mtime eq "" || time() - $mtime> 24 * 60 * 60) {
|
|
print "<h1>Please wait -- rebuilding index file...</h1>\n";
|
|
system "./cvsindex.pl $CVS_ROOT";
|
|
print "<h1>...OK, done.</h1>\n";
|
|
}
|
|
Lock();
|
|
if(! open(IDX , "<$CHECKIN_INDEX_FILE") ){
|
|
print "<h1>can't open index</h1>";
|
|
Unlock();
|
|
return 0;
|
|
}
|
|
$i = 0;
|
|
while( ($line = <IDX>) && !$done){
|
|
chop($line);
|
|
($o,$d) = split(/\|/,$line);
|
|
if( $d && $query_date_min > $d ){
|
|
$done = 1;
|
|
}
|
|
$i++;
|
|
}
|
|
if( $F_DEBUG ){
|
|
print "seekdate($d) seekoffset($o) readcount($i)\n";
|
|
}
|
|
close IDX;
|
|
Unlock();
|
|
return $o;
|
|
}
|
|
|
|
|
|
sub in_module {
|
|
local($mod_map, $dirname, $filename ) = @_;
|
|
local( @path );
|
|
local( $i, $fp, $local );
|
|
|
|
#
|
|
#quick check if it is already in there.
|
|
#
|
|
if( $mod_map{$dirname} ){
|
|
return 1;
|
|
}
|
|
|
|
|
|
@path = split(/\//, $dirname);
|
|
|
|
$fp = '';
|
|
|
|
for( $i = 0; $i < @path; $i++){
|
|
|
|
$fp .= ($fp ne '' ? '/' : '') . $path[$i];
|
|
|
|
if( $local = $mod_map->{$fp} ){
|
|
if( $local == $IS_LOCAL ){
|
|
if( $i == (@path-1) ){
|
|
return 1;
|
|
}
|
|
}
|
|
else {
|
|
# Add directories to the map as we encounter them so we go
|
|
# faster
|
|
if( $mod_map{$dirname} == 0 ){
|
|
$mod_map{$dirname} = $IS_LOCAL;
|
|
}
|
|
return 1;
|
|
}
|
|
}
|
|
}
|
|
if( $mod_map->{ $fp . '/' . $filename} ) {
|
|
return 1;
|
|
}
|
|
else {
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
|
|
sub get_module_map {
|
|
local($name) = @_;
|
|
local($mod_map);
|
|
$mod_map = {};
|
|
&build_map( $name, $mod_map );
|
|
return $mod_map;
|
|
}
|
|
|
|
|
|
sub parse_modules {
|
|
while( $l = &get_line ){
|
|
($mod_name, $flag, @params) = split(/[ \t]+/,$l);
|
|
if( $flag eq '-d' ){
|
|
($mod_name, $dummy, $dummy, @params) = split(/[ \t]+/,$l);
|
|
}
|
|
elsif( $flag ne '-a' ){
|
|
next;
|
|
}
|
|
$modules->{$mod_name} = [@params];
|
|
}
|
|
}
|
|
|
|
|
|
sub build_map {
|
|
local($name,$mod_map) = @_;
|
|
local($bFound, $local);
|
|
|
|
$local = $NOT_LOCAL;
|
|
$bFound = 0;
|
|
|
|
for $i ( @{$modules->{$name}} ){
|
|
$bFound = 1;
|
|
if( $i eq '-l' ){
|
|
$local = $IS_LOCAL;
|
|
}
|
|
elsif( !build_map($i, $mod_map )){
|
|
$mod_map->{$i} = $local;
|
|
}
|
|
}
|
|
return $bFound;
|
|
}
|
|
|
|
|
|
|
|
sub get_line {
|
|
local($l, $save);
|
|
|
|
$bContinue = 1;
|
|
|
|
while( $bContinue && ($l = <MOD>) ){
|
|
chop($l);
|
|
if( $l =~ /^[ \t]*\#/
|
|
|| $l =~ /^[ \t]*$/ ){
|
|
$l='';
|
|
}
|
|
elsif( $l =~ /\\[ \t]*$/ ){
|
|
chop ($l);
|
|
$save .= $l . ' ';
|
|
}
|
|
elsif( $l eq '' && $save eq ''){
|
|
# ignore blank lines
|
|
}
|
|
else {
|
|
$bContinue = 0;
|
|
}
|
|
}
|
|
return $save . $l;
|
|
}
|
|
|
|
|