scripts/mmm/mmm.pl
Thomas Hochstein 1725477449 Fix header indentation, update version/copyright.
Wrapped headers must start with FWS.

Fixed version is v0.2.
Bump copyright date to 2016.

Signed-off-by: Thomas Hochstein <thh@inter.net>
2019-05-21 19:13:23 +02:00

102 lines
2.4 KiB
Perl

#! /usr/bin/perl -W
#
# mmm Version 0.2 by Thomas Hochstein
#
# Create a MIME multipart/alternative part, containing
# text/plain (in Markdowen) and text/html, from a
# Markdown file.
#
# Copyright (c) 2015-2016 Thomas Hochstein <thh@inter.net>
#
# It can be redistributed and/or modified under the same terms under
# which Perl itself is published.
my $VERSION = "0.2";
use strict;
use Getopt::Long qw(GetOptions);
use Text::Markdown;
# read commandline option(s)
my ($OptInFile,$OptHeaderFile);
GetOptions ('f|file=s' => \$OptInFile,
't|headers=s' => \$OptHeaderFile,
'H|help' => \&ShowPOD,
'V|version' => \&ShowVersion) or exit 1;
# read input from STDIN or --file
# unset $/
undef $/;
my $markdown;
if ($OptInFile) {
open(FILE, "< $OptInFile") or die "Can't open $OptInFile: $!";
$markdown = <FILE>;
close(FILE);
} else {
$markdown = <>;
}
# read header template
my $headers;
if ($OptHeaderFile) {
open(HEADERS, "< $OptHeaderFile") or die "Can't open $OptHeaderFile: $!";
$headers = <HEADERS>;
close(HEADERS);
# remove all trailing newlines
$headers =~ s/\n+$//;
}
# reset $/
$/ = "\n";
# convert markdown to html
my $html = Text::Markdown::Markdown($markdown);
# output
print "$headers\n" if ($OptHeaderFile);
my $Boundary = &GenBoundary;
print "MIME-Version: 1.0\n";
print "Content-Type: multipart/alternative;\n";
printf (' boundary="%s"'."\n",$Boundary);
print "\n";
print "This is a multi-part message in MIME format.\n";
printf ("--%s\n",$Boundary);
print "Content-Type: text/plain; charset=ISO-8859-15\n";
print "Content-Transfer-Encoding: 8bit\n";
print "\n";
print "$markdown\n";
printf ("--%s\n",$Boundary);
print "Content-Type: text/html; charset=ISO-8859-15\n";
print "Content-Transfer-Encoding: 8bit\n";
print "X-Creator: Markdown/1.0.1\n";
print "\n";
print "$html\n";
printf ("--%s--\n",$Boundary);
exit(0);
################################################################################
sub GenBoundary {
my $hex;
$hex .= sprintf("%x", rand 16) for 1..20;
return ( "----------" . $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 "This program is free software; you may redistribute it ".
"and/or modify it under the same terms as Perl itself.\n";
exit(100);
};
sub ShowPOD {
exec('perldoc', $0);
exit(100);
};