1999-07-23 18:39:31 +00:00
|
|
|
#!/usr/bonsaitools/bin/perl -w
|
|
|
|
|
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
1998-06-16 21:43:24 +00:00
|
|
|
#
|
|
|
|
|
# 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.
|
|
|
|
|
|
1999-10-18 22:55:01 +00:00
|
|
|
use diagnostics;
|
|
|
|
|
use strict;
|
|
|
|
|
|
|
|
|
|
# Shut up misguided -w warnings about "used only once". "use vars" just
|
|
|
|
|
# doesn't work for me.
|
|
|
|
|
|
|
|
|
|
sub sillyness {
|
|
|
|
|
my $zz;
|
|
|
|
|
$zz = $::BatchID;
|
|
|
|
|
}
|
1999-07-23 18:39:31 +00:00
|
|
|
require 'CGI.pl';
|
1998-06-16 21:43:24 +00:00
|
|
|
|
1999-07-23 18:39:31 +00:00
|
|
|
print "Content-type: text/html
|
1998-06-16 21:43:24 +00:00
|
|
|
|
1999-07-23 18:39:31 +00:00
|
|
|
<HTML>";
|
1998-06-16 21:43:24 +00:00
|
|
|
|
1999-07-23 18:39:31 +00:00
|
|
|
CheckPassword($::FORM{'password'});
|
1998-06-16 21:43:24 +00:00
|
|
|
|
1999-07-23 18:39:31 +00:00
|
|
|
Lock();
|
|
|
|
|
LoadCheckins();
|
1998-06-16 21:43:24 +00:00
|
|
|
|
1999-07-23 18:39:31 +00:00
|
|
|
if (!exists $::FORM{'command'}) {
|
|
|
|
|
$::FORM{'command'} = 'nocommand';
|
1998-06-16 21:43:24 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
1999-07-23 18:39:31 +00:00
|
|
|
my @list;
|
1998-06-16 21:43:24 +00:00
|
|
|
|
1999-07-23 18:39:31 +00:00
|
|
|
foreach my $i (keys %::FORM) {
|
|
|
|
|
my $j = url_decode($i);
|
|
|
|
|
if ($j =~ m/^\:\:checkin_/) {
|
|
|
|
|
if (lsearch(\@::CheckInList, $j) >= 0) {
|
|
|
|
|
push(@list, $j);
|
1998-06-16 21:43:24 +00:00
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
1999-07-23 18:39:31 +00:00
|
|
|
my $origtree = $::TreeID;
|
|
|
|
|
|
|
|
|
|
my $what = "";
|
|
|
|
|
|
|
|
|
|
my $i;
|
1998-06-16 21:43:24 +00:00
|
|
|
|
1999-07-23 18:39:31 +00:00
|
|
|
SWITCH: for ($::FORM{'command'}) {
|
|
|
|
|
/^nuke$/ && do {
|
|
|
|
|
foreach $i (@list) {
|
|
|
|
|
my $w = lsearch(\@::CheckInList, $i);
|
|
|
|
|
if ($w >= 0) {
|
|
|
|
|
splice(@::CheckInList, $w, 1);
|
1998-06-16 21:43:24 +00:00
|
|
|
}
|
|
|
|
|
}
|
1999-07-23 18:39:31 +00:00
|
|
|
$what = "deleted.";
|
|
|
|
|
last SWITCH;
|
|
|
|
|
};
|
|
|
|
|
/^setopen$/ && do {
|
|
|
|
|
foreach $i (@list) {
|
|
|
|
|
my $info = eval("\\%" . $i);
|
|
|
|
|
$info->{'treeopen'} = 1;
|
1998-06-16 21:43:24 +00:00
|
|
|
}
|
1999-07-23 18:39:31 +00:00
|
|
|
$what = "modified to be open.";
|
|
|
|
|
last SWITCH;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/^setclose$/ && do {
|
|
|
|
|
foreach $i (@list) {
|
|
|
|
|
my $info = eval("\\%" . $i);
|
|
|
|
|
$info->{'treeopen'} = 0;
|
1998-06-16 21:43:24 +00:00
|
|
|
}
|
1999-07-23 18:39:31 +00:00
|
|
|
$what = "modified to be closed.";
|
|
|
|
|
last SWITCH;
|
|
|
|
|
};
|
|
|
|
|
/^movetree$/ && do {
|
1999-10-18 22:55:01 +00:00
|
|
|
if ($::TreeID eq $::FORM{'desttree'}) {
|
1999-07-23 18:39:31 +00:00
|
|
|
print "<H1>Pick a different tree</H1>\n";
|
|
|
|
|
print "You attempted to move checkins into the tree that\n";
|
|
|
|
|
print "they're already in. Hit <b>Back</b> and try again.\n";
|
|
|
|
|
PutsTrailer();
|
|
|
|
|
exit();
|
1998-06-16 21:43:24 +00:00
|
|
|
}
|
1999-07-23 18:39:31 +00:00
|
|
|
foreach $i (@list) {
|
|
|
|
|
my $w = lsearch(\@::CheckInList, $i);
|
|
|
|
|
if ($w >= 0) {
|
|
|
|
|
splice(@::CheckInList, $w, 1);
|
1998-06-16 21:43:24 +00:00
|
|
|
}
|
|
|
|
|
}
|
1999-07-23 18:39:31 +00:00
|
|
|
WriteCheckins();
|
|
|
|
|
undef @::CheckInList;
|
|
|
|
|
$::TreeID = $::FORM{'desttree'};
|
|
|
|
|
undef $::BatchID;
|
|
|
|
|
LoadCheckins();
|
|
|
|
|
LoadTreeConfig();
|
|
|
|
|
foreach $i (@list) {
|
|
|
|
|
push(@::CheckInList, $i);
|
1998-06-16 21:43:24 +00:00
|
|
|
}
|
1999-07-23 18:39:31 +00:00
|
|
|
$what = "moved to the $::TreeInfo{$::TreeID}->{'description'} tree.";
|
|
|
|
|
last SWITCH;
|
|
|
|
|
};
|
|
|
|
|
# DEFAULT
|
|
|
|
|
print "<h1>No command selected</h1>\n";
|
|
|
|
|
print "You need to select one of the radio command buttons at the\n";
|
|
|
|
|
print "bottom. Hit <b>Back</b> and try again.\n";
|
|
|
|
|
PutsTrailer();
|
|
|
|
|
exit();
|
1998-06-16 21:43:24 +00:00
|
|
|
}
|
|
|
|
|
|
1999-07-23 18:39:31 +00:00
|
|
|
WriteCheckins();
|
|
|
|
|
Unlock();
|
1998-06-16 21:43:24 +00:00
|
|
|
|
1999-07-23 18:39:31 +00:00
|
|
|
print "
|
1998-06-16 21:43:24 +00:00
|
|
|
<H1>OK, done.</H1>
|
1999-07-23 18:39:31 +00:00
|
|
|
The selected checkins have been $what
|
|
|
|
|
";
|
1998-06-16 21:43:24 +00:00
|
|
|
|
1999-07-23 18:39:31 +00:00
|
|
|
$::TreeInfo = $origtree;
|
1998-06-16 21:43:24 +00:00
|
|
|
|
1999-07-23 18:39:31 +00:00
|
|
|
PutsTrailer();
|
1998-06-16 21:43:24 +00:00
|
|
|
|
