INN commit: trunk (backends/send-uucp.in frontends/scanspool.in)
INN Commit
Russ_Allbery at isc.org
Tue Sep 18 13:14:28 UTC 2007
Date: Tuesday, September 18, 2007 @ 06:14:28
Author: iulius
Revision: 7682
Remove unused variables, fix paths and another unaccurate newsfeeds
entry for control newsgroups.
Modified:
trunk/backends/send-uucp.in
trunk/frontends/scanspool.in
------------------------+
backends/send-uucp.in | 2 +-
frontends/scanspool.in | 12 ++++++------
2 files changed, 7 insertions(+), 7 deletions(-)
Modified: backends/send-uucp.in
===================================================================
--- backends/send-uucp.in 2007-09-18 12:10:12 UTC (rev 7681)
+++ backends/send-uucp.in 2007-09-18 13:14:28 UTC (rev 7682)
@@ -363,7 +363,7 @@
is kept between S<4 KB> and S<1 KB>:
zoetermeer\
- :*,!junk,!control/!foo\
+ :*,!junk,!control,!control.*/!foo\
:Tf,Wnb,B4096/1024:
=head1 FILES
Modified: frontends/scanspool.in
===================================================================
--- frontends/scanspool.in 2007-09-18 12:10:12 UTC (rev 7681)
+++ frontends/scanspool.in 2007-09-18 13:14:28 UTC (rev 7682)
@@ -7,13 +7,13 @@
#
# This code is placed in the public domain.
#
-# scanspool - perform a big scan over all articles in /usr/spool/news
+# scanspool - perform a big scan over all articles in @SPOOLDIR@/articles
#
# usage:
# scanspool [-a active_file] [-s spool_dir] [-v] [-c] [-n]
#
-# -a active_file active file to use (default /usr/lib/news/active)
-# -s spool_dir spool tree (default /usr/spool/news)
+# -a active_file active file to use (default @DBDIR@/active)
+# -s spool_dir spool tree (default @SPOOLDIR@/articles)
# -v verbose mode
# verbose messages begin with a tab
# show articles found in non-active directories
@@ -98,6 +98,8 @@
#
require "getopts.pl";
+use vars qw($opt_c);
+
# setup non-buffered stdout and stderr
#
select(STDERR);
@@ -159,7 +161,6 @@
local ($low); # low article number
local ($high); # high article number
local ($type); # type of newsgroup (4th active field)
- local ($field5); # 5th active field (should not exist)
local ($dir); # directory path of group from $spool
local ($alias); # realname of an aliased group
local ($linenum); # active file line number
@@ -301,12 +302,11 @@
# lost+found will also be ignored.
#
# given:
-# $spooldir - top of /usr/spool/news article tree
+# $spooldir - top of @SPOOLDIR@/articles tree
#
sub check_spool
{
local ($spooldir) = $_[0]; # top of article tree
- local (*FILEFILE); # pipe from the find files process
local ($filename); # article pathname under $spool
local ($artgrp); # group of an article
local ($artnum); # article number in a group
More information about the inn-committers
mailing list