#!/usr/bin/perl -w use strict; use Net::NNTP; my $server = Net::NNTP->new('your.news.server') or die "Can't connect to news server: $@\n"; $server->postok() or die "Can't post to news server\n"; my @lines = ( "From: Nigel Horne <njh\@despammed.com>\n", "Newsgroups: alt.test\n", "Subject: a test posting\n", "Content-Transfer-Encoding: quoted-printable\n", "Content-Type: text/plain; charset=ISO-8859-1;\n", "\n", "A test message\n" ); print (@lines); $server->post(@lines); $server->quit();
In reply to Re: Net::NNTP question
by njh@bandsman.co.uk
in thread Net::NNTP question
by MrHappy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |