From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.0 (2014-02-07) on dcvr.yhbt.net X-Spam-Level: X-Spam-ASN: X-Spam-Status: No, score=-4.0 required=3.0 tests=ALL_TRUSTED,BAYES_00 shortcircuit=no autolearn=ham autolearn_force=no version=3.4.0 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id 9EE4D1F858 for ; Thu, 28 Jul 2016 22:01:45 +0000 (UTC) From: Eric Wong To: meta@public-inbox.org Subject: [PATCH] add scripts/xhdr-num2mid example Date: Thu, 28 Jul 2016 22:01:45 +0000 Message-Id: <20160728220145.13024-1-e@80x24.org> List-Id: This is used to quickly generate an article number to Message-ID mapping. Usage: NNTPSERVER=news.example.org ./scripts/xhdr-num2mid GROUP >file --- MANIFEST | 1 + scripts/xhdr-num2mid | 30 ++++++++++++++++++++++++++++++ 2 files changed, 31 insertions(+) create mode 100755 scripts/xhdr-num2mid diff --git a/MANIFEST b/MANIFEST index 297301d..308da06 100644 --- a/MANIFEST +++ b/MANIFEST @@ -102,6 +102,7 @@ scripts/import_vger_from_mbox scripts/report-spam scripts/slrnspool2maildir scripts/ssoma-replay +scripts/xhdr-num2mid t/address.t t/cgi.t t/check-www-inbox.perl diff --git a/scripts/xhdr-num2mid b/scripts/xhdr-num2mid new file mode 100755 index 0000000..f1e7ea3 --- /dev/null +++ b/scripts/xhdr-num2mid @@ -0,0 +1,30 @@ +#!/usr/bin/perl -w +# Copyright (C) 2016 all contributors +# License: AGPL-3.0+ +# Useful for mapping article IDs from existing NNTP servers to MIDs +use strict; +use warnings; +use Net::NNTP; +use Data::Dumper; +my $usage = "usage: NNTPSERVER=news.example.org $0 GROUP [FIRST_NUM]\n"; +my $group = shift or die $usage; +my $nntp = Net::NNTP->new($ENV{NNTPSERVER} || '127.0.0.1'); +my ($num, $first, $last) = $nntp->group($group); +die "Invalid group\n" if !(defined $num && defined $first && defined $last); +my $arg_first = shift; +if (defined $arg_first) { + $arg_first =~ /\A\d+\z/ or die $usage; + $first = $arg_first; +} + +my $batch = 1000; +my $i; +for ($i = $first; $i < $last; $i += $batch) { + my $j = $i + $batch; + $j = $last if $j > $last; + my $num2mid = $nntp->xhdr('Message-ID', "$i-$j"); + for my $n ($i..$j) { + defined(my $mid = $num2mid->{$n}) or next; + print "$n $mid\n"; + } +} -- EW