#!/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{ <body>
Here's <i>my</i> image:
<img src="cid:myimage.gif">
</body> }
);
$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__
can't figure out what i'm doing wrong the posted output end sup a MIME::Lite=hashblehbleh
|