#!/usr/bonsaitools/bin/perl -- # -*- 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 'lloydcgi.pl'; require 'timelocal.pl'; require 'cvsquery.pl'; $| = 1; print "Content-type: text/html "; $CHECKIN_DATA_FILE = 'data/checkinlog_m_src'; $CHECKIN_INDEX_FILE = 'data/index_m_src'; # # build a module map # $query_module = $form{'module'}; @query_dirs = split(/[;, \t]+/, $form{'dir'}); $query_date_type = $form{'date'}; $query_date_min = time-(24*60*60*15); $query_who ='' ; $query_branch = $form{'branch'}; print "

Running Query, this may take a while...

"; $result= &query_checkins( $mod_map ); # # Test code to print the results # if( 0 ) { if( $form{"sortby"} eq "Who" ){ $result = [sort { $a->[$CI_WHO] cmp $b->[$CI_WHO] || $b->[$CI_DATE] <=> $a->[$CI_DATE] } @{$result}] ; $head_who = $SORT_HEAD; } elsif( $form{"sortby"} eq "File" ){ $result = [sort { $a->[$CI_FILE] cmp $b->[$CI_FILE] || $b->[$CI_DATE] <=> $a->[$CI_DATE] || $a->[$CI_DIRECTORY] cmp $b->[$CI_DIRECTORY] } @{$result}] ; $head_file = $SORT_HEAD; } elsif( $form{"sortby"} eq "Directory" ){ $result = [sort { $a->[$CI_DIRECTORY] cmp $b->[$CI_DIRECTORY] || $a->[$CI_FILE] cmp $b->[$CI_FILE] || $b->[$CI_DATE] <=> $a->[$CI_DATE] } @{$result}] ; $head_directory = $SORT_HEAD; } elsif( $form{"sortby"} eq "Change Size" ){ $result = [sort { ($b->[$CI_LINES_ADDED]- $b->[$CI_LINES_REMOVED]) <=> ($a->[$CI_LINES_ADDED]- $a->[$CI_LINES_REMOVED]) #|| $b->[$CI_DATE] <=> $a->[$CI_DATE] } @{$result}] ; $head_delta = $SORT_HEAD; } else{ $result = [sort {$b->[$CI_DATE] <=> $a->[$CI_DATE]} @{$result}] ; $head_date = $SORT_HEAD; } } print "
";
for $ci (@$result) {
    $ci->[$CI_LOG] = '';
    $s = join("|",@$ci);
    print "$s\n";
}