#!/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 'CGI.pl'; my $file= $::FORM{'file'}; my $mark= $::FORM{'mark'}; my $ln = ($mark > 10 ? $mark-10 : 1 ); my $rev = $::FORM{'rev'}; my $debug = $::FORM{'debug'}; print "Content-Type: text/html\n\n"; my $CVS_ROOT = $::FORM{'root'}; if( $CVS_ROOT eq '' ){ $CVS_ROOT = pickDefaultRepository(); } validateRepository($CVS_ROOT); my $CVS_REPOS_SUFIX = $CVS_ROOT; $CVS_REPOS_SUFIX =~ s/\//_/g; ConnectToDatabase(); my $f = SqlQuote($file); $qstring = "select distinct dirs.dir from checkins,dirs,files,repositories where dirs.id=dirid and files.id=fileid and repositories.id=repositoryid and repositories.repository='$CVS_ROOT' and files.file=$f order by dirs.dir"; if ($debug) { print "
$qstring\n"; } my (@row, $d, @fl, $s); SendSQL($qstring); while(@row = FetchSQLData()){ $d = $row[0]; push @fl, "$d/$file"; } if( @fl == 0 ){ print "