Path: ...!newsreader4.netcologne.de!news.netcologne.de!news.imp.ch!news.alphanet.ch!alphanet.ch!.POSTED!not-for-mail
From: Marc SCHAEFER <schaefer@alphanet.ch>
Newsgroups: fr.comp.usenet.serveurs
Subject: Re: alternative =?ISO-8859-1?Q?=E0?= newsx
Date: Thu, 8 Sep 2022 17:56:03 -0000 (UTC)
Organization: Posted through news.alphanet.ch
Message-ID: <tfdabj$uf5$1@shakotay.alphanet.ch>
References: <20220906193337.19fa5839@coffee.novazur.fr> <20220907180322.4bb8a8e5@coffee.novazur.fr> <20220907200406.6367c1ea@coffee.novazur.fr> <tfc0rt$aac$3@shakotay.alphanet.ch> <20220908102233.559e7ade@coffee.novazur.fr>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
Injection-Date: Thu, 8 Sep 2022 17:56:03 -0000 (UTC)
Injection-Info: shakotay.alphanet.ch; posting-account="schaefer";
	logging-data="31205"; mail-complaints-to="usenet@alphanet.ch"; posting-host="634ce6c9682d817d72f6177875e2bb4f.nnrp.alphanet.ch"
User-Agent: tin/2.4.3-20181224 ("Glen Mhor") (UNIX) (Linux/4.19.0-21-amd64 (x86_64))
Cancel-Lock: sha256:NHk/Ch9JoHKzivPb9OXrdo/ubdhgGRmRdHckzUV7f08= sha256:uxb32paLZfS4LGGjXaPvLWs98hVDcG/v+6vWstnUZao=
Bytes: 3055
Lines: 60

Christophe PEREZ <chris@novazur.fr> wrote:
>> Le plus simple serait de trouver un outil qui peut envoyer des
>> articles avec le protocole NNRP.
> 
> Ah ben voilà, c'est là que j'attends les propositions ! :)
> Perso, je fouille le net sans cesse, mais INN est très marginal dans
> les ressources, et les requêtes compliquées.

Sauf erreur si on installe INN2 on peut alors configurer inews pour
envoyer des articles à distance (je crois, jamais essayé).

Sinon, voici un exemple d'outil Perl qui permet de poster un article
dans l'interface normale (utilisateur). C'est sans chiffrement, mais ce
n'est pas très compliqué à ajouter, de mémoire.

#! /usr/bin/perl
use strict;
use warnings;

use News::NNTPClient;

# adapter
my %config = (server => 'nnrp.alphanet.ch',
              port => 119,
              user => 'toto',
              pw => 'yo');
          
sub check {
   my ($c, $what, $re) = @_;

   my $s = $c->code . " " . $c->message;

   die($what . ': ' . $s) if (!($s =~ /$re/));
}

# on peut remplir @article d'un fichier ainsi:
# use File::Slurp;
# my @article = read_file("toto", chomp => 1);

# sinon, à la main:
my $msgid = '<239857@toto.ch>';
my @article = ("Newsgroups: alphanet.test",
               "Subject: cancel meat",
               "From: Yaya <yaya@toto.ch.invalid>",
               "Message-Id: <" . $msgid . ">",
               "",
               "Ceci est un test");

my $c = new News::NNTPClient($config{server}, $config{port}, $debug);

$c->authinfo($config{user}, $config{pw});
check($c, "authinfo", "281");

$c->post(@article);
check($c, "post", 240);

undef $c;

PS: il y a peut-être mieux, mais je ne connais pas, j'ai toujours eu
    l'avantage d'être face à des serveurs, que cela soit en UUCP entre 1987
    et 1996 et en TCP dès 1996 :)