M
Mike
Hey guys,
I really appeciate all the help you've given me so far regarding
Net::NNTP.
I've been able to successfully view posts in specific newsgroups now,
using a "public" news server. However, I'm trying to post, and
although the program runs without errors, nothing's posting. Can
someone glance this script over and let me know if it's the program or
the server?
#!/usr/bin/perl
use Net::NNTP;
use strict;
my $server = "news.so-net.com.hk";
# one of a few that I tried; also tried my ISP
my $group = "alt.test";
my $nntp = Net::NNTP->new($server, Debug => 0) or die "Can't connect
to server: $!\n";
my @message = (
"Subject: This is a Test",
"From: Mike <csdude\@spampolice.com>",
"Newsgroups: $group",
"\nThis is an Net::NNTP test.\n"
);
$nntp -> post(@message);
$nntp->quit;
print "Content-type: text/html\n\n";
print "Success\n\n";
exit;
TIA,
Mike
I really appeciate all the help you've given me so far regarding
Net::NNTP.
I've been able to successfully view posts in specific newsgroups now,
using a "public" news server. However, I'm trying to post, and
although the program runs without errors, nothing's posting. Can
someone glance this script over and let me know if it's the program or
the server?
#!/usr/bin/perl
use Net::NNTP;
use strict;
my $server = "news.so-net.com.hk";
# one of a few that I tried; also tried my ISP
my $group = "alt.test";
my $nntp = Net::NNTP->new($server, Debug => 0) or die "Can't connect
to server: $!\n";
my @message = (
"Subject: This is a Test",
"From: Mike <csdude\@spampolice.com>",
"Newsgroups: $group",
"\nThis is an Net::NNTP test.\n"
);
$nntp -> post(@message);
$nntp->quit;
print "Content-type: text/html\n\n";
print "Success\n\n";
exit;
TIA,
Mike