3 # Copyright 1996-2013 Ian Jackson <ijackson@chiark.greenend.org.uk>
4 # Copyright 1998 David Damerell <damerell@chiark.greenend.org.uk>
6 # Chancellor Masters and Scholars of the University of Cambridge
7 # Copyright 2010 Tony Finch <fanf@dotat.at>
9 # This is free software; you can redistribute it and/or modify it
10 # under the terms of the GNU General Public License as published by
11 # the Free Software Foundation; either version 3 of the License, or
12 # (at your option) any later version.
14 # This program is distributed in the hope that it will be useful, but
15 # WITHOUT ANY WARRANTY; without even the implied warranty of
16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 # General Public License for more details.
19 # You should have received a copy of the GNU General Public License
20 # along with userv-utils; if not, see http://www.gnu.org/licenses/.
24 $fetchdir= "/var/lib/news/fetch";
25 chdir("/etc/news") || die $!;
27 open(CONF,"nntp-merge.conf") || die $!;
29 next if m/^\#/ || !m/^\S/;
30 next if m/^(myfqdn|xref|server|server-nosearch|fetch|read|post|permit|believe|minreaddays)\s/;
31 if (m/^maxperuser\s+(\d+)\s+$/) {
33 } elsif (m/^extrarc\s+(\S+)\s+$/) {
40 open IGN,"</etc/news/newsrc-ignoredusers" or die $!;
49 open PASS,"</etc/userlist" or die $!;
55 open GL,"userv -t 30 $user newsrc-listgroups |" or die $!;
57 close GL; $? and warn "getgroups: error getting groups for $user (code $?)";
62 open GL,"< $f" or die $!;
67 chdir($fetchdir) || die $!;
68 open(NG,">all-read-groups.new") || die $!;
69 print(NG join("\n",sort keys %yes)."\n") || die $!;
71 rename("all-read-groups.new","all-read-groups") || die $!;
73 printf "total %d groups\n",scalar(keys %yes);
77 my ($where,$toomanyenf) = @_;
80 die "bad group in $where" unless m/^[-a-z0-9+]+\.[-a-z0-9+._]+$/i;
83 warn("too many from $where"), return if $toomanyenf && @g > $maxperuser;
84 map { $yes{$_}=1; } @g;
85 printf "%-20s - %4d groups\n",$where,scalar(@g);