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

Change boundary generation in mmm.

Browse source 
Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
Thomas Hochstein 2019-05-21 19:19:53 +02:00
parent a7c6f72b6f
commit eb086b342f
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,6 +1,6 @@
#! /usr/bin/perl -W
#
# mmm Version 0.2 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
@ -11,7 +11,7 @@
# It can be redistributed and/or modified under the same terms under
# which Perl itself is published.
my $VERSION = "0.2";
my $VERSION = "0.3";
use strict;
use Getopt::Long qw(GetOptions);
@ -82,8 +82,8 @@ exit(0);
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 {