So...I hauled-off and wrote the thing. Work in progress.

$ cat newnewstally.pl
#!/usr/bin/perl

use Net::NNTP;

sub Usage
{ select(STDERR);
print "Usage: $0 group \"dd mmm yyyy\"\n";
exit 1;
}

$group = shift || Usage();
$date = shift || Usage();

$fn_pw = `echo ~/bin/tallypw`;
open($fn_pw,$fn_pw) || die;
$username=<$fn_pw>;
$password=<$fn_pw>;
close($fn_pw);

chomp($username);
chomp($password);

$n = new Net::NNTP('localhost', Port=>120); # using stunnel

$n->authinfo($username,$password);

@status = $n->group($group);

#print "@status\n";
#6055866 2 6055867 alt.fan.rush-limbaugh

$rb = $status[2]+0;
$lb = $rb-10000;

#$fmt = $n->overview_fmt();
#print join(',',@{ $fmt });
#Subject:,From:,Date:,Message-ID:,References:,Bytes:,Lines:,Xref:full

@msg_spec = ($lb,$rb);

$xover = $n->xover(\@msg_spec);

# The return value will be a reference to a hash where
# the keys are the message numbers
# and each value contains
# a reference to an array
# which contains the overview fields for that message.

foreach $key (keys(%{$xover}))
{
# print join("\n",@{ $xover->{$key} });
# print "\n";
# exit 0;
next unless ($xover->{$key}->[2] =~ m#$date#o);
$from = $xover->{$key}->[1];
next if ($from =~ m#^=\?UTF-8#o);
$pcount{$from}++;
}

@sorted = sort
{ $pcount{$b} <=> $pcount{$a} }
(keys(%pcount));

foreach $key (@sorted)
{
printf("%4d %s\n",$pcount{$key},$key);
}

exit 0;
- - cut here %< - -

Sample output:
$ ./newnewstally.pl comp.os.linux.advocacy '26 Aug 2024' | head -20
76 Skeeter <skeeterweed@photonmail.com>
34 Governor Swill <governor.swill@gmail.com>
21 Snit <brock.mcnuggets@gmail.com>
17 pothead <pothead@snakebite.com>
16 Joel <joelcrump@gmail.com>
15 Mitchell Holman <noemail@aol.com>
13 Chris Ahlstrom <OFeem1987@teleworm.us>
11 Blue Lives Matter <Iron_White@Systemic_Patrriotism.KMA>
8 -hh <recscuba_google@huntzinger.com>
7 John Smyth <smythlejon2@outlook.com>
7 "max headroom" <maximusheadroom@gmx.com>
5 Baxter <bax02_spamblock@baxcode.com>
4 rbowman <bowman@montana.com>
3 chrisv <chrisv@nospam.invalid>
3 unknown <novalidemail@toss.net>
3 John Smyth <smythlejon2@hotmail.com>
3 candycanearter07 <candycanearter07@candycanearter07.nomail.afraid>
3 vallor <vallor@cultnix.org>
3 kami <f00@0f0.00f>
2 Farley Flud <ff@linux.rocks>

Comments welcome. :)

--
-v System76 Thelio Mega v1.1 x86_64 NVIDIA RTX 3090 Ti
OS: Linux 6.11.0-rc5 Release: Mint 21.3 Mem: 258G
"People own dogs. Cats own people."

On 8/27/2024 8:45 AM, vallor wrote:
> So...I hauled-off and wrote the thing. Work in progress.
>
> $ cat newnewstally.pl
> #!/usr/bin/perl
>
> use Net::NNTP;
>
> sub Usage
> {
> select(STDERR);
> print "Usage: $0 group \"dd mmm yyyy\"\n";
> exit 1;
> }
>
>
> $group = shift || Usage();
> $date = shift || Usage();
>
> $fn_pw = `echo ~/bin/tallypw`;
> open($fn_pw,$fn_pw) || die;
> $username=<$fn_pw>;
> $password=<$fn_pw>;
> close($fn_pw);
>
> chomp($username);
> chomp($password);
>
> $n = new Net::NNTP('localhost', Port=>120); # using stunnel
>
> $n->authinfo($username,$password);
>
> @status = $n->group($group);
>
> #print "@status\n";
> #6055866 2 6055867 alt.fan.rush-limbaugh
>
> $rb = $status[2]+0;
> $lb = $rb-10000;
>
> #$fmt = $n->overview_fmt();
> #print join(',',@{ $fmt });
> #Subject:,From:,Date:,Message-ID:,References:,Bytes:,Lines:,Xref:full
>
> @msg_spec = ($lb,$rb);
>
> $xover = $n->xover(\@msg_spec);
>
> # The return value will be a reference to a hash where
> # the keys are the message numbers
> # and each value contains
> # a reference to an array
> # which contains the overview fields for that message.
>
> foreach $key (keys(%{$xover}))
> {
> # print join("\n",@{ $xover->{$key} });
> # print "\n";
> # exit 0;
> next unless ($xover->{$key}->[2] =~ m#$date#o);
> $from = $xover->{$key}->[1];
> next if ($from =~ m#^=\?UTF-8#o);
> $pcount{$from}++;
> }
>
> @sorted = sort
> { $pcount{$b} <=> $pcount{$a} }
> (keys(%pcount));
>
> foreach $key (@sorted)
> {
> printf("%4d %s\n",$pcount{$key},$key);
> }
>
> exit 0;
> - - cut here %< - -
>
> Sample output:
> $ ./newnewstally.pl comp.os.linux.advocacy '26 Aug 2024' | head -20
> 76 Skeeter <skeeterweed@photonmail.com>
> 34 Governor Swill <governor.swill@gmail.com>
> 21 Snit <brock.mcnuggets@gmail.com>
> 17 pothead <pothead@snakebite.com>
> 16 Joel <joelcrump@gmail.com>
> 15 Mitchell Holman <noemail@aol.com>
> 13 Chris Ahlstrom <OFeem1987@teleworm.us>
> 11 Blue Lives Matter <Iron_White@Systemic_Patrriotism.KMA>
> 8 -hh <recscuba_google@huntzinger.com>
> 7 John Smyth <smythlejon2@outlook.com>
> 7 "max headroom" <maximusheadroom@gmx.com>
> 5 Baxter <bax02_spamblock@baxcode.com>
> 4 rbowman <bowman@montana.com>
> 3 chrisv <chrisv@nospam.invalid>
> 3 unknown <novalidemail@toss.net>
> 3 John Smyth <smythlejon2@hotmail.com>
> 3 candycanearter07 <candycanearter07@candycanearter07.nomail.afraid>
> 3 vallor <vallor@cultnix.org>
> 3 kami <f00@0f0.00f>
> 2 Farley Flud <ff@linux.rocks>
>
> Comments welcome. :)

Perl is a hideous, dying, write-once language.

This is semi-obfuscated Python
-------------------------------------------------------------------
import sys as y,nntplib as t
s='news.eternal-september.org'
g=y.argv[1]
n=t.NNTP(s,119,'<usr>','<pwd>')
r,a,b,e,gn=n.group(g)
def printStat(st,hd,rg):
r,d=n.xhdr(st,'%s-%s'%rg)
p=[]
for i in range(len(d)):
v=d[i][1]
if st=='Subject':v=v[4:] if v[:3]=='Re:' else v
p.append(v)
x=[(i,p.count(i)) for i in set(p)]
x.sort(key=lambda s:(-s[1],s[0].lower()))
print('Posts %s %s'%(len(set(p)),hd))
for v in x: print(' %s %s'%(v[1],v[0]))
print();print()
m=(int(e)-int(y.argv[2])+1,int(e))
printStat("From","Posters",m)
printStat("Subject","Subjects",m)
printStat("User-Agent","User-Agents",m)
n.quit()
-------------------------------------------------------------------

usage:
$ python stats.py groupname last_N_articles
$ python stats.py comp.os.linux.advocacy 100
$ python stats.py comp.lang.c 1000

On Tue, 27 Aug 2024 09:23:07 -0400, DFS <nospam@dfs.com> wrote in
<vakjvo$309mh$1@dont-email.me>:

> On 8/27/2024 8:45 AM, vallor wrote:
>> So...I hauled-off and wrote the thing. Work in progress.
>>
>> $ cat newnewstally.pl
>> #!/usr/bin/perl
>>
>> use Net::NNTP;
>>
>> sub Usage
>> {
>> select(STDERR);
>> print "Usage: $0 group \"dd mmm yyyy\"\n";
>> exit 1;
>> }
>>
>>
>> $group = shift || Usage();
>> $date = shift || Usage();
>>
>> $fn_pw = `echo ~/bin/tallypw`;
>> open($fn_pw,$fn_pw) || die;
>> $username=<$fn_pw>;
>> $password=<$fn_pw>;
>> close($fn_pw);
>>
>> chomp($username);
>> chomp($password);
>>
>> $n = new Net::NNTP('localhost', Port=>120); # using stunnel
>>
>> $n->authinfo($username,$password);
>>
>> @status = $n->group($group);
>>
>> #print "@status\n";
>> #6055866 2 6055867 alt.fan.rush-limbaugh
>>
>> $rb = $status[2]+0;
>> $lb = $rb-10000;
>>
>> #$fmt = $n->overview_fmt();
>> #print join(',',@{ $fmt });
>> #Subject:,From:,Date:,Message-ID:,References:,Bytes:,Lines:,Xref:full
>>
>> @msg_spec = ($lb,$rb);
>>
>> $xover = $n->xover(\@msg_spec);
>>
>> # The return value will be a reference to a hash where
>> # the keys are the message numbers
>> # and each value contains
>> # a reference to an array
>> # which contains the overview fields for that message.
>>
>> foreach $key (keys(%{$xover}))
>> {
>> # print join("\n",@{ $xover->{$key} });
>> # print "\n";
>> # exit 0;
>> next unless ($xover->{$key}->[2] =~ m#$date#o);
>> $from = $xover->{$key}->[1];
>> next if ($from =~ m#^=\?UTF-8#o);
>> $pcount{$from}++;
>> }
>>
>> @sorted = sort
>> { $pcount{$b} <=> $pcount{$a} }
>> (keys(%pcount));
>>
>> foreach $key (@sorted)
>> {
>> printf("%4d %s\n",$pcount{$key},$key);
>> }
>>
>> exit 0;
>> - - cut here %< - -
>>
>> Sample output:
>> $ ./newnewstally.pl comp.os.linux.advocacy '26 Aug 2024' | head -20
>> 76 Skeeter <skeeterweed@photonmail.com>
>> 34 Governor Swill <governor.swill@gmail.com>
>> 21 Snit <brock.mcnuggets@gmail.com>
>> 17 pothead <pothead@snakebite.com>
>> 16 Joel <joelcrump@gmail.com>
>> 15 Mitchell Holman <noemail@aol.com>
>> 13 Chris Ahlstrom <OFeem1987@teleworm.us>
>> 11 Blue Lives Matter <Iron_White@Systemic_Patrriotism.KMA>
>> 8 -hh <recscuba_google@huntzinger.com>
>> 7 John Smyth <smythlejon2@outlook.com>
>> 7 "max headroom" <maximusheadroom@gmx.com>
>> 5 Baxter <bax02_spamblock@baxcode.com>
>> 4 rbowman <bowman@montana.com>
>> 3 chrisv <chrisv@nospam.invalid>
>> 3 unknown <novalidemail@toss.net>
>> 3 John Smyth <smythlejon2@hotmail.com>
>> 3 candycanearter07 <candycanearter07@candycanearter07.nomail.afraid>
>> 3 vallor <vallor@cultnix.org>
>> 3 kami <f00@0f0.00f>
>> 2 Farley Flud <ff@linux.rocks>
>>
>> Comments welcome. :)
>
>
> Perl is a hideous, dying, write-once language.

Your opinion.

>
>
> This is semi-obfuscated Python

Why obfuscate it?

Also, see below.

> -------------------------------------------------------------------
> import sys as y,nntplib as t
> s='news.eternal-september.org'
> g=y.argv[1]
> n=t.NNTP(s,119,'<usr>','<pwd>')
> r,a,b,e,gn=n.group(g)
> def printStat(st,hd,rg):
> r,d=n.xhdr(st,'%s-%s'%rg)
> p=[]
> for i in range(len(d)):
> v=d[i][1]
> if st=='Subject':v=v[4:] if v[:3]=='Re:' else v
> p.append(v)
> x=[(i,p.count(i)) for i in set(p)]
> x.sort(key=lambda s:(-s[1],s[0].lower()))
> print('Posts %s %s'%(len(set(p)),hd))
> for v in x: print(' %s %s'%(v[1],v[0]))
> print();print()
> m=(int(e)-int(y.argv[2])+1,int(e))
> printStat("From","Posters",m)
> printStat("Subject","Subjects",m)
> printStat("User-Agent","User-Agents",m)
> n.quit()
> -------------------------------------------------------------------
>
> usage:
> $ python stats.py groupname last_N_articles
> $ python stats.py comp.os.linux.advocacy 100
> $ python stats.py comp.lang.c 1000

The point of the exercise was to generate the counts from
xover, which is less harsh on the server.

--
-v System76 Thelio Mega v1.1 x86_64 NVIDIA RTX 3090 Ti
OS: Linux 6.11.0-rc5 Release: Mint 21.3 Mem: 258G
"Cause of crash: Inadvertent contact with the ground."

On 8/27/2024 9:51 AM, vallor wrote:
> On Tue, 27 Aug 2024 09:23:07 -0400, DFS <nospam@dfs.com> wrote in
> <vakjvo$309mh$1@dont-email.me>:
>
>> On 8/27/2024 8:45 AM, vallor wrote:
>>> So...I hauled-off and wrote the thing. Work in progress.
>>>
>>> $ cat newnewstally.pl
>>> #!/usr/bin/perl
>>>
>>> use Net::NNTP;
>>>
>>> sub Usage
>>> {
>>> select(STDERR);
>>> print "Usage: $0 group \"dd mmm yyyy\"\n";
>>> exit 1;
>>> }
>>>
>>>
>>> $group = shift || Usage();
>>> $date = shift || Usage();
>>>
>>> $fn_pw = `echo ~/bin/tallypw`;
>>> open($fn_pw,$fn_pw) || die;
>>> $username=<$fn_pw>;
>>> $password=<$fn_pw>;
>>> close($fn_pw);
>>>
>>> chomp($username);
>>> chomp($password);
>>>
>>> $n = new Net::NNTP('localhost', Port=>120); # using stunnel
>>>
>>> $n->authinfo($username,$password);
>>>
>>> @status = $n->group($group);
>>>
>>> #print "@status\n";
>>> #6055866 2 6055867 alt.fan.rush-limbaugh
>>>
>>> $rb = $status[2]+0;
>>> $lb = $rb-10000;
>>>
>>> #$fmt = $n->overview_fmt();
>>> #print join(',',@{ $fmt });
>>> #Subject:,From:,Date:,Message-ID:,References:,Bytes:,Lines:,Xref:full
>>>
>>> @msg_spec = ($lb,$rb);
>>>
>>> $xover = $n->xover(\@msg_spec);
>>>
>>> # The return value will be a reference to a hash where
>>> # the keys are the message numbers
>>> # and each value contains
>>> # a reference to an array
>>> # which contains the overview fields for that message.
>>>
>>> foreach $key (keys(%{$xover}))
>>> {
>>> # print join("\n",@{ $xover->{$key} });
>>> # print "\n";
>>> # exit 0;
>>> next unless ($xover->{$key}->[2] =~ m#$date#o);
>>> $from = $xover->{$key}->[1];
>>> next if ($from =~ m#^=\?UTF-8#o);
>>> $pcount{$from}++;
>>> }
>>>
>>> @sorted = sort
>>> { $pcount{$b} <=> $pcount{$a} }
>>> (keys(%pcount));
>>>
>>> foreach $key (@sorted)
>>> {
>>> printf("%4d %s\n",$pcount{$key},$key);
>>> }
>>>
>>> exit 0;
>>> - - cut here %< - -
>>>
>>> Sample output:
>>> $ ./newnewstally.pl comp.os.linux.advocacy '26 Aug 2024' | head -20
>>> 76 Skeeter <skeeterweed@photonmail.com>
>>> 34 Governor Swill <governor.swill@gmail.com>
>>> 21 Snit <brock.mcnuggets@gmail.com>
>>> 17 pothead <pothead@snakebite.com>
>>> 16 Joel <joelcrump@gmail.com>
>>> 15 Mitchell Holman <noemail@aol.com>
>>> 13 Chris Ahlstrom <OFeem1987@teleworm.us>
>>> 11 Blue Lives Matter <Iron_White@Systemic_Patrriotism.KMA>
>>> 8 -hh <recscuba_google@huntzinger.com>
>>> 7 John Smyth <smythlejon2@outlook.com>
>>> 7 "max headroom" <maximusheadroom@gmx.com>
>>> 5 Baxter <bax02_spamblock@baxcode.com>
>>> 4 rbowman <bowman@montana.com>
>>> 3 chrisv <chrisv@nospam.invalid>
>>> 3 unknown <novalidemail@toss.net>
>>> 3 John Smyth <smythlejon2@hotmail.com>
>>> 3 candycanearter07 <candycanearter07@candycanearter07.nomail.afraid>
>>> 3 vallor <vallor@cultnix.org>
>>> 3 kami <f00@0f0.00f>
>>> 2 Farley Flud <ff@linux.rocks>
>>>
>>> Comments welcome. :)
>>
>>
>> Perl is a hideous, dying, write-once language.
>
> Your opinion.

It's reality.

>> This is semi-obfuscated Python
>
> Why obfuscate it?

To make it more difficult for previous cola poster 'sbd' and his
developmentally-disabled children to understand.

> Also, see below.
>
>
>> -------------------------------------------------------------------
>> import sys as y,nntplib as t
>> s='news.eternal-september.org'
>> g=y.argv[1]
>> n=t.NNTP(s,119,'<usr>','<pwd>')
>> r,a,b,e,gn=n.group(g)
>> def printStat(st,hd,rg):
>> r,d=n.xhdr(st,'%s-%s'%rg)
>> p=[]
>> for i in range(len(d)):
>> v=d[i][1]
>> if st=='Subject':v=v[4:] if v[:3]=='Re:' else v
>> p.append(v)
>> x=[(i,p.count(i)) for i in set(p)]
>> x.sort(key=lambda s:(-s[1],s[0].lower()))
>> print('Posts %s %s'%(len(set(p)),hd))
>> for v in x: print(' %s %s'%(v[1],v[0]))
>> print();print()
>> m=(int(e)-int(y.argv[2])+1,int(e))
>> printStat("From","Posters",m)
>> printStat("Subject","Subjects",m)
>> printStat("User-Agent","User-Agents",m)
>> n.quit()
>> -------------------------------------------------------------------
>>
>> usage:
>> $ python stats.py groupname last_N_articles
>> $ python stats.py comp.os.linux.advocacy 100
>> $ python stats.py comp.lang.c 1000
>
> The point of the exercise was to generate the counts from
> xover,

I did counts by header.

I used significantly less code and data, but provided significantly more
analysis.

DFS and python ftw.

> which is less harsh on the server.

My 3 xhdr calls were no more harsh on the IT infrastructure and electric
grid than the 1 xover that returns massive amounts of extraneous,
unused data.

On Tue, 27 Aug 2024 09:23:07 -0400, DFS wrote:

> Perl is a hideous, dying, write-once language.
>
> This is semi-obfuscated Python

Did you know Python’s nntplib is being deprecated?

On 9/2/2024 10:15 PM, Lawrence D'Oliveiro wrote:
> On Tue, 27 Aug 2024 09:23:07 -0400, DFS wrote:
>
>> Perl is a hideous, dying, write-once language.
>>
>> This is semi-obfuscated Python
>
> Did you know Python’s nntplib is being deprecated?

Yes, I've known about it since shortly after it was announced.

If you run the code you snipped, it will warn you:

"DeprecationWarning: 'nntplib' is deprecated and slated for removal in
Python 3.13"

To stop the warnings:

import warnings
warnings.filterwarnings("ignore", category=DeprecationWarning)

But I should be able to copy Lib\nntplib.py from <3.13 to 3.13+ and
continue using it.