1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
#!/usr/bin/perl
#
# Copyright 1996-2013 Ian Jackson <ijackson@chiark.greenend.org.uk>
# Copyright 1998 David Damerell <damerell@chiark.greenend.org.uk>
# Copyright 1999,2003
# Chancellor Masters and Scholars of the University of Cambridge
# Copyright 2010 Tony Finch <fanf@dotat.at>
#
# This is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with userv-utils; if not, see http://www.gnu.org/licenses/.
$minreaddays= 21;
$maxperuser= 250;
$fetchdir= "/var/lib/news/fetch";
chdir("/etc/news") || die $!;
open(CONF,"nntp-merge.conf") || die $!;
while(<CONF>) {
next if m/^\#/ || !m/^\S/;
next if m/^(myfqdn|xref|server|server-nosearch|fetch|read|post|permit|believe|minreaddays)\s/;
if (m/^maxperuser\s+(\d+)\s+$/) {
$maxperuser= $1;
} elsif (m/^extrarc\s+(\S+)\s+$/) {
push(@extrarc,$1);
} else {
die "$_ ?";
}
}
open IGN,"</etc/news/newsrc-ignoredusers" or die $!;
while (<IGN>) {
chomp;
next if m/^\#/;
s/\s*$//;
$ign{$_}= 1;
}
close IGN or die $!;
open PASS,"</etc/userlist" or die $!;
while (<PASS>) {
chomp;
next if m/^\#/;
$user= $_;
next if $ign{$user};
open GL,"userv -t 30 $user newsrc-listgroups |" or die $!;
scan("user $user",1);
close GL; $? and warn "getgroups: error getting groups for $user (code $?)";
}
close PASS or die $!;
for $f (@extrarc) {
open GL,"< $f" or die $!;
scan("file $f",0);
close GL or die $!;
}
chdir($fetchdir) || die $!;
open(NG,">all-read-groups.new") || die $!;
print(NG join("\n",sort keys %yes)."\n") || die $!;
close(NG) || die $!;
rename("all-read-groups.new","all-read-groups") || die $!;
printf "total %d groups\n",scalar(keys %yes);
exit(0);
sub scan ($) {
my ($where,$toomanyenf) = @_;
@g= ();
while (<GL>) {
die "bad group in $where" unless m/^[-a-z0-9+]+\.[-a-z0-9+._]+$/i;
push @g, $&;
}
warn("too many from $where"), return if $toomanyenf && @g > $maxperuser;
map { $yes{$_}=1; } @g;
printf "%-20s - %4d groups\n",$where,scalar(@g);
}
|
