From: Thomas Hochstein Date: Mon, 11 Jan 2016 21:56:36 +0000 (+0100) Subject: Fix header indentation, update version/copyright. X-Git-Url: https://code.th-h.de/?p=scripts.git;a=commitdiff_plain;h=1725477449fac0a046e14ca8c2bfbffef3d7905b 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 --- diff --git a/mmm/mmm.pl b/mmm/mmm.pl index c45b28b..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 +# Copyright (c) 2015-2016 Thomas Hochstein # # 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";