cvs: CVSROOT / loginfo.pl
| From: | Sascha Schumann | Date: | Fri, 20 Oct 2000 23:15:17 +0000 |
| Subject: | cvs: CVSROOT / loginfo.pl | ||
| Groups: | php.cvs | ||
| Request: | Send a blank email to php-cvs+get-2178@lists.php.net to get a copy of this message | ||
sas Fri Oct 20 16:15:17 2000 EDT
Modified files:
/CVSROOT loginfo.pl
Log:
First version of put-large-diffs-into-separate-MIME-part.
For testing purposes, it is enabled by default.
Index: CVSROOT/loginfo.pl
diff -u CVSROOT/loginfo.pl:1.33 CVSROOT/loginfo.pl:1.34
--- CVSROOT/loginfo.pl:1.33 Wed Jun 28 04:24:13 2000
+++ CVSROOT/loginfo.pl Fri Oct 20 16:15:17 2000
@@ -194,18 +194,43 @@
no strict; # quiet warnings after here
-my $email = "".
-"From: $from\n".
-"To: $mailto\n".
-$msgid.
-$rfc822date.
-"Subject: cvs: $module$tag $subj\n".
-"\n".
-"$cvsuser\t\t".localtime()." EDT\n".
-"$msg".
-" Log:\n".
-&indent($logmsg,2)."\n".
-"$diffmsg\n";
+my $email;
+my $common_header = "".
+ "From: $from\n".
+ "To: $mailto\n".
+ $msgid.
+ $rfc822date.
+ "Subject: cvs: $module$tag $subj\n";
+
+my $common_body = "".
+ "$cvsuser\t\t".localtime()." EDT\n".
+ "$msg".
+ " Log:\n".
+ &indent($logmsg,2)."\n";
+
+my $boundary = $cvsuser.time();
+
+if (length($diffmsg) > 5) {
+ $email = $common_header.
+ "MIME-Version: 1.0\n".
+ "Content-Type: multipart/mixed; boundary=\"$boundary\"\n".
+ "\n".
+ "This is a MIME encoded message\n\n".
+ "--$boundary\n".
+ "Content-Type: text/plain\n".
+ "\n".
+ $common_body.
+ "--$boundary\n".
+ "Content-Type: text/plain\n".
+ "\n".
+ "$diffmsg\n".
+ "--$boundary--\n";
+} else {
+ $email = $common_header.
+ "\n".
+ $common_body.
+ "$diffmsg\n";
+}
$email =~ s/\r//g;
$email =~ s/\n/\r\n/g;