Deutsch English Français Italiano |
<tfdabj$uf5$1@shakotay.alphanet.ch> View for Bookmarking (what is this?) Look up another Usenet article |
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 :)