#! /usr/bin/perl -W
#
-# mmm Version 0.1 by Thomas Hochstein
+# mmm Version 0.3 by Thomas Hochstein
#
# Create a MIME multipart/alternative part, containing
# text/plain (in Markdowen) and text/html, from a
# Markdown file.
#
-# Copyright (c) 2015 Thomas Hochstein <thh@inter.net>
+# Copyright (c) 2015-2016 Thomas Hochstein <thh@thh.name>
#
# It can be redistributed and/or modified under the same terms under
# which Perl itself is published.
-my $VERSION = "0.1";
+my $VERSION = "0.3";
use strict;
use Getopt::Long qw(GetOptions);
my $Boundary = &GenBoundary;
print "MIME-Version: 1.0\n";
print "Content-Type: multipart/alternative;\n";
-printf ('boundary="%s"'."\n",$Boundary);
+printf (' boundary="%s"'."\n",$Boundary);
print "\n";
print "This is a multi-part message in MIME format.\n";
sub GenBoundary {
my $hex;
- $hex .= sprintf("%x", rand 16) for 1..20;
- return ( "----------" . $hex);
+ $hex .= sprintf("%x", rand 16) for 1..25;
+ return ( "--MMM" . $hex);
}
sub ShowVersion {
print "mmm v$VERSION\n";
print "MIME multipart/alternative from Markdown - MMM\n";
- print "Copyright (c) 2015 Thomas Hochstein <thh\@inter.net>\n";
+ print "Copyright (c) 2015 Thomas Hochstein <thh\@thh.name>\n";
print "This program is free software; you may redistribute it ".
"and/or modify it under the same terms as Perl itself.\n";
exit(100);