the decwrl "mistake" -- details

Thread View: news.config

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Paul Vixie Wed, 05 Sep 1990 07:35

#1225

Author: Paul Vixie
Date: Wed, 05 Sep 1990 07:35

15 lines
1468 bytes

Eliot, Peter, and Larry have all mentioned the recent "re-" release of
articles from decwrl->ames.  As near as I can tell, Ames' nntp server
was not accepting connections from Decwrl for the entire month of August,
during which time they rebuilt their history file so that ID's of messages
received by them more than their expire limit "ago" were lost.  When they
finally fixed their nntp_access file (looks like 31-August at about 6:28am)
to allow connections from decwrl, my nntplink dutifully sent over all the
month-old articles in its batch file.

Uhhh... Obviously this is my fault.  I just don't know how exactly.  Surely
someone else can tell me :-)...
--
Paul Vixie
DEC Western Research Lab	<vixie@wrl.dec.com>
Palo Alto, California		...!decwrl!vixie

the decwrl "mistake" -- quick fix in perl

#1226

Author: Carl Rigney
Date: Thu, 06 Sep 1990 06:41

44 lines
2057 bytes

In case anyone else is about to reinvent the wheel, here's the quickie
script I used on amdcad to locate the bogus articles.  It produces a
file called "name." with the filenames to remove; everything that's
been recieved in the last 7 days that passed from decwrl to ames and
has a date from August 1-9th.  It tagged 9339 articles here.  It could
be greatly improved with a little work but hopefully I won't need it
again, so I didn't put a lot of work into it.  Adjust to taste.

#!/usr/local/bin/perl
# Quick hack to clean up decwrl to ames spill of month-old articles
# Message IDs are printed to msgid.; filenames to remove are printed to name.
# C. Rigney; cdr@amd.com; 90/9/5

$news="/var/spool/news";

open(MSGID,">msgid.") || die "$0: unable to open msgid.; $!\n";
open(NAME,">name.") || die "$0: unable to open name.; $!\n";
open(POSSIBLES,"find $news -type f -mtime -7 -print|") || die "$0: couldn't run find; $!";

while(<POSSIBLES>) {
	chop;
	if (! open(ART,$_)) {
		warn "$0: unable to open $_; $!\n";
		next;
	}
	$name=$_;
	while (<ART>) {
		if (/^Path: /) {
			last unless m/ames!decwrl/;
		}
		if (/^Date: /) {
			last unless m/^Date:\s+\d\s+Aug/;
		}
		if (m/^Message-ID:\s+(.*)$/i) {
			$id=$1;
		}
		if (/^$/) {
			print NAME $name,"\n";
			print MSGID $id,"\n";
			last;
		}
	}
	close(ART);
}

Re: the decwrl "mistake" -- quick fix in perl

#1227

Author: Liz Allen-Mitchell
Date: Thu, 06 Sep 1990 19:44

14 lines
1308 bytes

I tried something like you suggested and overflowed my /var/spool/news
with 10 Meg of names and dates!

I'm currently using:

df; find . -mtime -4 -exec grep '^Date:.*[^23][0-9] Aug' {} \; -print \
 | grep -v 'Date:' | xargs /bin/rm -f; nnadmin EYW; echo ''; df

You can change the date as needed -- I've also run looking for anything
in July.
-- 
		- Liz Allen-Mitchell	liz@grian.cps.altadena.ca.us
					ames!elroy!grian!liz
"God is light; in him there is no darkness at all." -- 1 John 1:5b

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads