[DRBD-cvs] DRBD CVS: CVSROOT by lars from

[drbd-user@lists.linbit.com]

DRBD CVS committal

Author  : lars
Host    : 
Module  : CVSROOT

Dir     : CVSROOT


Modified Files:
	commit.pl 


Log Message:

drop $host, add more info to subject line


===================================================================
RCS file: /var/lib/cvs/drbd/CVSROOT/commit.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- commit.pl	10 Jan 2004 13:57:51 -0000	1.1
+++ commit.pl	16 Jan 2004 19:11:29 -0000	1.2
@@ -34,7 +34,7 @@
 
 $SENDMAIL    = '/usr/sbin/sendmail';
 $MAILFROM    = 'drbd-cvs@linbit.com';
-$MAILREPLYTO = 'drbd-cvs@linbit.com';
+$MAILREPLYTO = 'drbd-user@linbit.com';
 $MAILTO      = 'drbd-cvs@linbit.com';
 $cvsroot = $ENV{'CVSROOT'};
 #$login = $ENV{'LOGNAME'} || getlogin || (getpwuid($<))[0] || "nobody";
@@ -45,10 +45,23 @@
 # I think what we want is CVS_USER; I may be wrong, though...
 #	-lge
 
-$host = $ENV{'REMOTE_HOST'};
+#seems to not be set for us, so just drop it.
+#$host = $ENV{'REMOTE_HOST'};
 
 @input = <STDIN>;
 
+# a little more informative subject line
+$maxlen = 40;
+for ( $i=0, $add_subject = "";
+      length $add_subject < $maxlen and $i < @input;
+      $i++ )
+{
+	$add_subject .= $input[$i];
+	$add_subject =~ s/\s+/ /gs;
+}
+substr($add_subject,$maxlen) = "..." if length $add_subject > $maxlen;
+	
+
 exit if($pid = fork);
 
 # ok, now we are a background process, and won't deadlock the
@@ -88,14 +101,14 @@
 open(MAIL, "| $SENDMAIL -t");
 print MAIL "To: $MAILTO\n";
 print MAIL "Reply-To: $MAILREPLYTO\n";
-print MAIL "Subject: DRBD CVS: $modulename by $login from $host\n";
+print MAIL "Subject: $modulename by $login; $add_subject\n";
 print MAIL "From: $MAILFROM\n";
 print MAIL "\n";
 
 
 print MAIL "DRBD CVS committal\n\n";
 print MAIL "Author  : $login\n";
-print MAIL "Host    : $host\n";
+#print MAIL "Host    : $host\n";
 print MAIL "Project : $basename\n" if($basename ne $modulename);
 print MAIL "Module  : $modulename\n\n";
 print MAIL "Dir     : $path";