Change mail address.
[scripts.git] / mmm / mmm.pl
index 2b20fb3..e82e0e2 100644 (file)
@@ -1,17 +1,17 @@
 #! /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
 # text/plain (in Markdowen) and text/html, from a
 # Markdown file.
 #
 #
 # Create a MIME multipart/alternative part, containing
 # text/plain (in Markdowen) and text/html, from a
 # Markdown file.
 #
-# Copyright (c) 2015-2016 Thomas Hochstein <thh@inter.net>
+# Copyright (c) 2015-2016 Thomas Hochstein <thh@thh.name>
 #
 # 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.
 
-my $VERSION = "0.2";
+my $VERSION = "0.3";
 
 use strict;
 use Getopt::Long qw(GetOptions);
 
 use strict;
 use Getopt::Long qw(GetOptions);
@@ -82,14 +82,14 @@ exit(0);
 
 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);
 }
 
 sub ShowVersion {
   print "mmm v$VERSION\n";
   print "MIME multipart/alternative from Markdown - MMM\n";
 }
 
 sub ShowVersion {
   print "mmm v$VERSION\n";
   print "MIME multipart/alternative from Markdown - MMM\n";
-  print "Copyright (c) 2015 Thomas Hochstein <thh\@inter.net>\n";
+  print "Copyright (c) 2015 Thomas Hochstein <thh\@thh.name>\n";
   print "This program is free software; you may redistribute it ".
         "and/or modify it under the same terms as Perl itself.\n";
   exit(100);
   print "This program is free software; you may redistribute it ".
         "and/or modify it under the same terms as Perl itself.\n";
   exit(100);
This page took 0.010414 seconds and 4 git commands to generate.