Re: alternative à newsx

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 :)