#!/usr/bin/perl -w
use News::NNTPClient;
use MIME::Lite;
$msg = MIME::Lite->new(
To =>'news.directlink.net',
Subject =>'HTML with in-line images!',
Type =>'multipart/related'
);
$msg->attach(Type => 'text/html',
Data => qq{
Here's my image:
}
);
$msg->attach(Type => 'image/gif',
Id => 'myimage.gif',
Path => '/usr/X11R6/share/IglooFTP/html/images/viglooftp.gif',
);
$c = new News::NNTPClient("news.bleh.com");
if ($c->postok()) {
@header = ("Newsgroups: testing", "Subject: he234llo123", "From: test\@test.org");
@body = ("$msg");
$c->post(@header, "", @body);
}
__END__