#!/usr/bin/perl -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Netscape Public
# License Version 1.1 (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.
#
# Contributor(s):
sub StupidFuncToShutUpWarningsByUsingVarsAgain {
my $z;
$z = $::BatchID;
$z = $::TreeID;
$z = $::FORM;
}
require 'CGI.pl';
use strict;
LoadCheckins();
sub IsChecked {
my ($value) = (@_);
if ($value == $::BatchID) {
return "CHECKED"
} else {
return ""
}
}
print "Content-type: text/html
Let's do the time warp again...
Which hook would you like to see?
";
my @list;
foreach my $i (glob(DataDir() . "/batch-*\[0-9\].pl")) {
if ($i =~ /batch-([0-9]*)\.pl/) {
push(@list, $1);
}
}
@list = sort {$b <=> $a} @list;
print '\n";
PutsTrailer();