aboutsummaryrefslogtreecommitdiff
path: root/tools/diag
diff options
context:
space:
mode:
authorEitan Adler <eadler@FreeBSD.org>2012-09-13 17:49:11 +0000
committerEitan Adler <eadler@FreeBSD.org>2012-09-13 17:49:11 +0000
commit2ab4fdc460bbc8570ce83f4cb11075b372f126df (patch)
tree66879c110f5e64bb07e73e5e6ba5c8f59a81c26a /tools/diag
parent09c024e1a19da4ea510148aa47b6510ca38a3970 (diff)
downloadsrc-2ab4fdc460bbc8570ce83f4cb11075b372f126df.tar.gz
src-2ab4fdc460bbc8570ce83f4cb11075b372f126df.zip
Remove scripts and tools which only functioned when src was using CVS
Approved by: cperciva MFC after: 1 week
Notes
Notes: svn path=/head/; revision=240470
Diffstat (limited to 'tools/diag')
-rw-r--r--tools/diag/README2
-rw-r--r--tools/diag/ac/README9
-rw-r--r--tools/diag/ac/cknames.pl107
-rw-r--r--tools/diag/ac/ent.sh58
4 files changed, 0 insertions, 176 deletions
diff --git a/tools/diag/README b/tools/diag/README
index 814794367921..30438a20ccab 100644
--- a/tools/diag/README
+++ b/tools/diag/README
@@ -8,8 +8,6 @@ the integrity.
Please make a subdir per program, and add a brief description to this file.
-ac Various scripts that checks of style/content correctness of
- committers lists in doc/ area.
dumpvfscache program that can be used to examine the contents of the vfs
name cache.
httpd-error check for Web files which does not exists on your host
diff --git a/tools/diag/ac/README b/tools/diag/ac/README
deleted file mode 100644
index 48c1cad0db79..000000000000
--- a/tools/diag/ac/README
+++ /dev/null
@@ -1,9 +0,0 @@
-Various scripts that checks of style/content correctness of
-committers lists in doc/ area.
-
-ac check if the contributors article is in sync with the
- committers list
-ent.sh check for ordering/content problems in .ent files (authors.ent,
- teams.ent, etc)
-
-$FreeBSD$
diff --git a/tools/diag/ac/cknames.pl b/tools/diag/ac/cknames.pl
deleted file mode 100644
index a3ffe3192f3c..000000000000
--- a/tools/diag/ac/cknames.pl
+++ /dev/null
@@ -1,107 +0,0 @@
-#!/usr/bin/perl -w
-#
-# Copyright (c) 2002,2003 Alexey Zelkin <phantom@FreeBSD.org>
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions
-# are met:
-# 1. Redistributions of source code must retain the above copyright
-# notice, this list of conditions and the following disclaimer.
-# 2. Redistributions in binary form must reproduce the above copyright
-# notice, this list of conditions and the following disclaimer in the
-# documentation and/or other materials provided with the distribution.
-#
-# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
-# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
-# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
-# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
-# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# cknames.pl -- this scripts checks for integrity of person lists
-# between authors.ent, CVSROOT/access and passwd database
-# at freefall.freebsd.org
-#
-# NOTE: This script is supposed to run at freefall.freebsd.org *only*
-#
-# $FreeBSD$
-#
-
-$debug = 0;
-$accessfile = "CVSROOT/access";
-$authorsfile = "doc/en_US.ISO8859-1/share/sgml/authors.ent";
-
-@cvsroots = qw(
- /home/ncvs
- /home/pcvs
- /home/dcvs
-);
-
-$doccvsroot = "/home/dcvs";
-$cvs_pfx = "cvs -Q -R -d ";
-$cvs_sfx = " co -p";
-
-open(PASSWD, 'ypcat passwd |') || die "open passwd data: $!\n";
-while (<PASSWD>) {
- ($login,undef) = split(/:/);
- $login =~ s/_//g; # remove _ from usernames since this
- # character is not allowed in docbook entities
- print "passwd user: $login\n" if $debug;
- $users{$login} = 1;
-}
-close PASSWD;
-
-foreach (@cvsroots) {
- print "$cvs_pfx $_ $cvs_sfx $accessfile\n" if $debug;
- open (ACCESS, "$cvs_pfx $_ $cvs_sfx $accessfile |") ||
- die "checkout $accessfile: $!\n";
- while (<ACCESS>) {
- chomp;
- next if /^#/;
- ($accuser, undef) = split /\s/;
- $accuser =~ s/_//g;
- print "access user: $accuser\n" if $debug;
- $access{$accuser} = 1;
- }
- close ACCESS;
-}
-
-open (AUTHORS, "$cvs_pfx $doccvsroot $cvs_sfx $authorsfile |") ||
- die "checkout $authorsfile: $!\n";
-while (<AUTHORS>) {
- $author = $1 if /ENTITY a\.([^ ]+)/;
- next if !$author;
- print "authors entity: $author\n" if $debug;
- $authors{$author} = 1;
- $author = "";
-}
-close AUTHORS;
-
-print "\n";
-print "People listed in CVSROOT/access, but have no account\n";
-print "----------------------------------------------------\n";
-foreach (keys %access) {
- print "$_\n" if (!defined $users{$_});
-}
-
-print "\n";
-print "People listed in autors.ent, not have no account\n";
-print "------------------------------------------------\n";
-foreach (keys %authors) {
- print "$_\n" if (!defined $users{$_});
-}
-
-print "\n";
-print "People listed in CVSROOT/access, but not listed in authors.ent\n";
-print "--------------------------------------------------------------\n";
-foreach (keys %access) {
- print "$_\n" if (!defined $authors{$_});
-}
-
-print "\n";
diff --git a/tools/diag/ac/ent.sh b/tools/diag/ac/ent.sh
deleted file mode 100644
index fbc2219dd4de..000000000000
--- a/tools/diag/ac/ent.sh
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/bin/sh -x
-# Copyright (c) 2002,2003 Alexey Zelkin <phantom@FreeBSD.org>
-#
-# ent.sh -- this script checks {authors,teams}.ent files for correctness
-#
-# $FreeBSD$
-
-: ${CVSROOT=/home/dcvs}
-prefix=doc/en_US.ISO8859-1/share/sgml
-cvs='cvs -Q -R co -p'
-diff='diff -u'
-tmp=${TMPDIR-/tmp}/_entities
-
-ckfile() {
-
-ckf=$1
-
-$cvs $prefix/$ckf 2>/dev/null |
- grep ENTITY |
- awk '{ print $2 }' > $tmp.entsrc
-sort -u $tmp.entsrc > $tmp.entsrc2
-$diff $tmp.entsrc $tmp.entsrc2 > $ckf.order
-
-$cvs $prefix/$ckf 2>/dev/null |
- perl -ne 'print "$1 -- $2\n" if /ENTITY ([^ ]+).*<email>(.*)<\/email>/' |
- grep -vi freebsd.org > $ckf.addr
-
-}
-
-ckresults() {
-
-ckf=$1
-
-if [ -s $ckf.order ]; then
- echo "Ordering check for $ckf failed. See $ckf.ordering file for details."
-else
- rm -f $ckf.order
- echo "Ordering check for $ckf is Ok. "
-fi
-
-if [ -s $ckf.addr ]; then
- echo "Email addresses for $ckf failed. See $ckf.addr file for details."
-else
- rm -f $ckf.addr
- echo "Email addresses check for $ckf is Ok. "
-fi
-
-}
-
-ckfile "authors.ent"
-ckfile "teams.ent"
-
-echo
-
-ckresults "authors.ent"
-ckresults "teams.ent"
-
-rm -f $tmp.entsrc $tmp.entsrc2