Signed-off-by: Thomas Hochstein <thh@inter.net>
-# 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
#
# Create a MIME multipart/alternative part, containing
# text/plain (in Markdowen) and text/html, from a
# It can be redistributed and/or modified under the same terms under
# which Perl itself is published.
# It can be redistributed and/or modified under the same terms under
# which Perl itself is published.
use strict;
use Getopt::Long qw(GetOptions);
use strict;
use Getopt::Long qw(GetOptions);
sub GenBoundary {
my $hex;
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);