#!/usr/bonsaitools/bin/perl -w # -*- 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 'CGI.pl'; use vars qw(@TreeList); print "Content-type: text/html\n\n"; Lock(); LoadCheckins(); LoadTreeConfig(); Unlock(); my %peoplearray = (); my @list = (); my $versioninfo = ''; my $tweak = $::FORM{'tweak'}; my $delta_size = 1; my ($title, $head, $subhead) = ('', '', ''); my ($checkin, $info); sub BreakBig { my ($str) = @_; my $result = ''; while (length($str) > 20) { my $head = substr($str, 0, 19); my $w = rindex($head, "/"); $w = 19 if ($w < 0); $result .= substr($str, 0, $w++) . "
"; $str = substr($str, $w); } return $result . $str; } if (exists($::FORM{'person'})) { $title = $head = "Checkins for $::FORM{'person'}"; foreach $checkin (@::CheckInList) { $info = eval("\\\%$checkin"); push @list, $checkin if ($$info{'person'} eq $::FORM{'person'}); } } elsif (exists($::FORM{'mindate'}) || exists($::FORM{'maxdate'})) { my ($min, $max) = (0, 1<<30); $title = "Checkins"; if (exists($::FORM{'mindate'})) { $title .= " since " . MyFmtClock($min = $::FORM{'mindate'}); $title .= " and" if (exists($::FORM{'maxdate'})); } $title .= " before" . MyFmtClock($max = $::FORM{'maxdate'}) if (exists($::FORM{'maxdate'})); $head = $title; foreach $checkin (@::CheckInList) { $info = eval("\\\%$checkin"); push @list, $checkin if (($$info{'date'} >= $min) && ($$info{'date'} <= $max)); } } else { $title = $head = "All Checkins"; @list = @::CheckInList; } $subhead .= "
Be aware that you are looking at an old hook!" if (Param('readonly')); PutsHeader($title, $head, $subhead); $::FORM{'sort'} = 'date' unless $::FORM{'sort'}; print " (Current sort is by $::FORM{'sort'}; click on a column header to sort by that column.)"; my @fields = split(/,/, $::FORM{'sort'}); sub Compare { my $rval = 0; my $key; foreach $key (@fields) { if ($key eq 'date') { $rval = $$b{$key} cmp $$a{$key}; } else { $rval = $$a{$key} cmp $$b{$key}; } return $rval unless ($rval == 0); } return $rval; } my $total_added = 0; my $total_removed = 0; # # Calculate delta information # CHECKIN: foreach $info (@list) { $$info{added} = 0; $$info{removed} = 0; if (exists($$info{'fullinfo'})) { my @fullinfos = split(/!NeXt!/, $$info{'fullinfo'}); INFO: foreach my $fullinfo (@fullinfos) { my ($file, $version, $addlines, $removelines, $sticky) = split(/\|/, $fullinfo); # Skip binary files next INFO if (($file =~ /\.gif$/) || ($file =~ /\.bmp$/) || ($sticky =~ /-kb/)); $$info{added} += $addlines; $$info{removed} += $removelines; } } $$info{'lines_changed'} = sprintf("%7d", 1000000 - ($$info{added} - $$info{removed})); $total_added += $$info{added}; $total_removed += $$info{removed}; } # Sort that puppy... @list = sort Compare @list; # $::buffer contains the arguments that we were called with, it is # initialized by CGI.pl my $otherparams; ($otherparams = $::buffer) =~ s/[&?]sort=[^&]*//g; sub NewSort { my ($key) = @_; my @sort_keys = grep(!/^$key$/, split(/,/, $::FORM{'sort'})); unshift(@sort_keys, $key); return $otherparams . "&sort=" . join(',', @sort_keys); } # # Print the table... # print "
\n" if $tweak; print "\n\n\n"; print "\n" if $tweak; print " \n\n"; my $count = 0; my $maxcount = 100; my $branchpart = ''; $branchpart = "&branch=$::TreeInfo{$::TreeID}{branch}" if ($::TreeInfo{$::TreeID}{branch}); foreach $checkin (@list) { $info = eval("\\\%$checkin"); # Don't make tables too big, or toy computers will break. if ($count++ > $maxcount) { $count = 0; print "
When Tree state Who Directory Files +/- Description
\n\n\n"; } print "\n"; print "\n" if $tweak; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; foreach my $fullinfo (split(/!NeXt!/, $$info{'fullinfo'})) { my ($file, $version) = split(/\|/, $fullinfo); $versioninfo .= "$$info{person}|$$info{dir}|$file|$version,"; } print "\n"; print "\n\n"; } print "
\n"; print time2str("%m/%d/%Y %H:%M" , $$info{date}) . "" . (($$info{treeopen})? "open": "CLOSED") . "\n"; print "
$$info{notes}\n" if $$info{notes}; $peoplearray{$$info{person}} = 1; print "
". GenerateUserLookUp($$info{person}) . "" . BreakBig($$info{dir}) . "\n"; foreach my $file (split(/!NeXt!/, $$info{files})) { print " " . "$file\n"; } print "+$$info{added}/-". abs($$info{removed}). "$$info{'log'}
\n"; print scalar @list . " checkins listed.     Lines changed ($total_added/$total_removed).\n"; sub IsSelected { my ($value) = @_; return "SELECTED" if ($value eq $::TreeID); return ""; } if ($tweak) { print "
Check the checkins you wish to affect. Then select one of the below options. And type the magic word. Then click on submit.

Delete these checkins.
Set the tree state on these checkins to be Open.
Set the tree state on these checkins to be Closed.
Move these checkins over to this tree:

Password:

\n"; } else { print "            Tweak some of these checkins.

\n"; } if (exists $::FORM{ltabbhack}) { print "\n"; print "\n"; } PutsTrailer();