Learn about new world order
This commit is contained in:
parent
5bd361ab30
commit
ac5e4e9c9e
Notes:
svn2git
2020-12-20 02:59:44 +00:00
svn path=/head/; revision=122994
@ -1,6 +1,6 @@
|
|||||||
#!/usr/bin/perl -w
|
#!/usr/bin/perl -w
|
||||||
#
|
#
|
||||||
# Copyright (c) 2002 Alexey Zelkin <phantom@FreeBSD.org>
|
# Copyright (c) 2002,2003 Alexey Zelkin <phantom@FreeBSD.org>
|
||||||
# All rights reserved.
|
# All rights reserved.
|
||||||
#
|
#
|
||||||
# Redistribution and use in source and binary forms, with or without
|
# Redistribution and use in source and binary forms, with or without
|
||||||
@ -37,9 +37,15 @@ $debug = 0;
|
|||||||
$accessfile = "CVSROOT/access";
|
$accessfile = "CVSROOT/access";
|
||||||
$authorsfile = "doc/en_US.ISO8859-1/share/sgml/authors.ent";
|
$authorsfile = "doc/en_US.ISO8859-1/share/sgml/authors.ent";
|
||||||
|
|
||||||
$cvsroot = $ENV{'CVSROOT'};
|
@cvsroots = qw(
|
||||||
$cvsroot = "/home/ncvs" if !$cvsroot;
|
/home/ncvs
|
||||||
$cvs = "cvs -R -d $cvsroot co -p";
|
/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";
|
open(PASSWD, 'ypcat passwd |') || die "open passwd data: $!\n";
|
||||||
while (<PASSWD>) {
|
while (<PASSWD>) {
|
||||||
@ -51,19 +57,23 @@ while (<PASSWD>) {
|
|||||||
}
|
}
|
||||||
close PASSWD;
|
close PASSWD;
|
||||||
|
|
||||||
print "$cvs $accessfile\n";
|
foreach (@cvsroots) {
|
||||||
open (ACCESS, "$cvs $accessfile |") || die "checkout $accessfile: $!\n";
|
print "$cvs_pfx $_ $cvs_sfx $accessfile\n" if $debug;
|
||||||
while (<ACCESS>) {
|
open (ACCESS, "$cvs_pfx $_ $cvs_sfx $accessfile |") ||
|
||||||
|
die "checkout $accessfile: $!\n";
|
||||||
|
while (<ACCESS>) {
|
||||||
chomp;
|
chomp;
|
||||||
next if /^#/;
|
next if /^#/;
|
||||||
($accuser, undef) = split /\s/;
|
($accuser, undef) = split /\s/;
|
||||||
$accuser =~ s/_//g;
|
$accuser =~ s/_//g;
|
||||||
print "access user: $accuser\n" if $debug;
|
print "access user: $accuser\n" if $debug;
|
||||||
$access{$accuser} = 1;
|
$access{$accuser} = 1;
|
||||||
|
}
|
||||||
|
close ACCESS;
|
||||||
}
|
}
|
||||||
close ACCESS;
|
|
||||||
|
|
||||||
open (AUTHORS, "$cvs $authorsfile |") || die "checkout $authorsfile: $!\n";
|
open (AUTHORS, "$cvs_pfx $doccvsroot $cvs_sfx $authorsfile |") ||
|
||||||
|
die "checkout $authorsfile: $!\n";
|
||||||
while (<AUTHORS>) {
|
while (<AUTHORS>) {
|
||||||
$author = $1 if /ENTITY a\.([^ ]+)/;
|
$author = $1 if /ENTITY a\.([^ ]+)/;
|
||||||
next if !$author;
|
next if !$author;
|
||||||
|
@ -1,13 +1,13 @@
|
|||||||
#!/bin/sh -x
|
#!/bin/sh -x
|
||||||
# Copyright (c) 2002 Alexey Zelkin <phantom@FreeBSD.org>
|
# Copyright (c) 2002,2003 Alexey Zelkin <phantom@FreeBSD.org>
|
||||||
#
|
#
|
||||||
# ent.sh -- this script checks {authors,teams}.ent files for correctness
|
# ent.sh -- this script checks {authors,teams}.ent files for correctness
|
||||||
#
|
#
|
||||||
# $FreeBSD$
|
# $FreeBSD$
|
||||||
|
|
||||||
: ${CVSROOT=/home/ncvs}
|
: ${CVSROOT=/home/dcvs}
|
||||||
prefix=doc/en_US.ISO8859-1/share/sgml
|
prefix=doc/en_US.ISO8859-1/share/sgml
|
||||||
cvs='cvs -Q co -p'
|
cvs='cvs -Q -R co -p'
|
||||||
diff='diff -u'
|
diff='diff -u'
|
||||||
tmp=${TMPDIR-/tmp}/_entities
|
tmp=${TMPDIR-/tmp}/_entities
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user