/usr/share/doc/libmime-lite-html-perl/examples/example2.pl is in libmime-lite-html-perl 1.23-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | #!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use strict;
use MIME::Lite;
use MIME::Lite::HTML;
my $cgi = new CGI;
print $cgi->header;
open(FILE, "titlebar.gif");
binmode FILE;
my @data = <FILE>;
close(FILE);
my %hash;
$hash{"http://localhost/testing/titlebar.gif"} = \@data;
$hash{'test'} = "test";
my $msg = new MIME::Lite::HTML (
From => 'MIME-Lite@alianwebserver.com',
To => 'alian@jupiter',
Debug => 1,
HashTemplate => \%hash,
Subject => 'Mail in HTML with images',
);
my $html = qq~<b>This is a <? \$test ?></b>:<p><img src="http://localhost/testing/titlebar.gif"><br>Hoi! ~;
#$html = "http://jupiter";
my $txt = qq~ Testing!! ~;
my $MMail = $msg->parse($html, $txt);
#$MMail->send;
#$MMail->send_by_smtp('jupiter');
#exit;
open(EMAIL, ">email.eml");
print EMAIL $MMail->as_string;
close(EMAIL);
print "Done!";
print join "<br>", $msg->errstr;
|