X-Git-Url: https://code.th-h.de/?p=scripts.git;a=blobdiff_plain;f=mmm%2Fmmm.pl;h=2b20fb3aaddfa6e2c372970ed6000a9d0b36945a;hp=1a322a5890baa1aa5fdc661822db01365ac1567f;hb=1725477449fac0a046e14ca8c2bfbffef3d7905b;hpb=afd4787570bf9ab2075752764a677dc0c74cf694

diff --git a/mmm/mmm.pl b/mmm/mmm.pl
index 1a322a5..2b20fb3 100644
--- a/mmm/mmm.pl
+++ b/mmm/mmm.pl
@@ -1,17 +1,17 @@
 #! /usr/bin/perl -W
 #
-# mmm Version 0.1 by Thomas Hochstein
+# 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 Thomas Hochstein <thh@inter.net>
+# 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.1";
+my $VERSION = "0.2";
 
 use strict;
 use Getopt::Long qw(GetOptions);
@@ -56,7 +56,7 @@ 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);
+printf ('   boundary="%s"'."\n",$Boundary);
 print  "\n";
 
 print  "This is a multi-part message in MIME format.\n";
@@ -89,7 +89,7 @@ sub GenBoundary {
 sub ShowVersion {
   print "mmm v$VERSION\n";
   print "MIME multipart/alternative from Markdown - MMM\n";
-  print "Copyright (c) 2014 Thomas Hochstein <thh\@inter.net>\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);