thh/scripts
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Activity

Fix header indentation, update version/copyright.

Browse source 
Wrapped headers must start with FWS.

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

Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
Thomas Hochstein 2016-01-11 22:56:36 +01:00
parent 2c85436c95
commit 1725477449
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
mmm/mmm.pl
View file

@ -1,17 +1,17 @@
#! /usr/bin/perl -W #! /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 # Create a MIME multipart/alternative part, containing
# text/plain (in Markdowen) and text/html, from a # text/plain (in Markdowen) and text/html, from a
# Markdown file. # 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 # It can be redistributed and/or modified under the same terms under
# which Perl itself is published. # which Perl itself is published.
my $VERSION = "0.1"; my $VERSION = "0.2";
use strict; use strict;
use Getopt::Long qw(GetOptions); use Getopt::Long qw(GetOptions);
@ -56,7 +56,7 @@ print "$headers\n" if ($OptHeaderFile);
my $Boundary = &GenBoundary; my $Boundary = &GenBoundary;
print "MIME-Version: 1.0\n"; print "MIME-Version: 1.0\n";
print "Content-Type: multipart/alternative;\n"; print "Content-Type: multipart/alternative;\n";
printf ('boundary="%s"'."\n",$Boundary); printf (' boundary="%s"'."\n",$Boundary);
print "\n"; print "\n";
print "This is a multi-part message in MIME format.\n"; print "This is a multi-part message in MIME format.\n";