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 #! /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 # 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
@ -11,7 +11,7 @@
# 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.2"; my $VERSION = "0.3";
use strict; use strict;
use Getopt::Long qw(GetOptions); use Getopt::Long qw(GetOptions);
@ -82,8 +82,8 @@ exit(0);
sub GenBoundary { sub GenBoundary {
my $hex; my $hex;
$hex .= sprintf("%x", rand 16) for 1..20; $hex .= sprintf("%x", rand 16) for 1..25;
return ( "----------" . $hex); return ( "--MMM" . $hex);
} }
sub ShowVersion { sub ShowVersion {