1998-06-17 01:43:24 +04:00
# -*- 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'" ;
1998-10-09 02:01:36 +04:00
} elsif ( $ query_branchtype eq 'notregexp' ) {
$ qstring . =
" and not (branches.branch regexp '$q') " ;
1998-06-17 01:43:24 +04:00
} 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'" ;
1998-10-09 02:01:36 +04:00
}
elsif ( $ query_whotype eq 'notregexp' ) {
$ qstring . = " and not (people.who regexp '$q')" ;
1998-06-17 01:43:24 +04:00
} 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>";
1998-06-18 20:47:00 +04:00
$ key = "$ci->[$CI_DIR]/$ci->[$CI_FILE]" ;
if ( IsHidden ( "$ci->[$CI_REPOSITORY]/$key" ) ) {
next ;
}
1998-06-17 01:43:24 +04:00
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 ;
}
1998-08-06 20:54:50 +04:00
1998-06-17 01:43:24 +04:00
sub parse_modules {
while ( $ l = & get_line ) {
( $ mod_name , $ flag , @ params ) = split ( /[ \t]+/ , $ l ) ;
1998-08-06 20:54:50 +04:00
if ( $ flag eq '-d' ) {
( $ mod_name , $ dummy , $ dummy , @ params ) = split ( /[ \t]+/ , $ l ) ;
}
elsif ( $ flag ne '-a' ) {
1998-06-17 01:43:24 +04:00
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 ;
}