diff options
author | eadler <eadler@FreeBSD.org> | 2012-09-13 17:49:11 +0000 |
---|---|---|
committer | eadler <eadler@FreeBSD.org> | 2012-09-13 17:49:11 +0000 |
commit | 777230d53d964c620aea991b439d03f292befeaf (patch) | |
tree | 66879c110f5e64bb07e73e5e6ba5c8f59a81c26a /tools/diag | |
parent | 99ffe94748e98cda75294566c8128d5bac3d55ba (diff) | |
download | FreeBSD-src-777230d53d964c620aea991b439d03f292befeaf.zip FreeBSD-src-777230d53d964c620aea991b439d03f292befeaf.tar.gz |
Remove scripts and tools which only functioned when src was using CVS
Approved by: cperciva
MFC after: 1 week
Diffstat (limited to 'tools/diag')
-rw-r--r-- | tools/diag/README | 2 | ||||
-rw-r--r-- | tools/diag/ac/README | 9 | ||||
-rw-r--r-- | tools/diag/ac/cknames.pl | 107 | ||||
-rw-r--r-- | tools/diag/ac/ent.sh | 58 |
4 files changed, 0 insertions, 176 deletions
diff --git a/tools/diag/README b/tools/diag/README index 8147943..30438a2 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 48c1cad..0000000 --- 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 a3ffe31..0000000 --- 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 fbc2219..0000000 --- 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 |