--- CVSROOT/logmail 2005/02/12 23:24:54 1.10 +++ CVSROOT/logmail 2005/02/13 00:09:07 1.11 @@ -139,7 +139,7 @@ sub append_names_to_file { local($filename, $dir, @files) = @_; if (@files) { - open(FILE, ">>$filename") || die("Cannot open file $filename.\n"); + open(FILE, ">>$filename") || die("Cannot open file $filename for writing.\n"); print FILE $dir, "\n"; print FILE join("\n", @files), "\n"; close(FILE); @@ -150,7 +150,7 @@ sub read_line { local($line); local($filename) = @_; - open(FILE, "<$filename") || die("Cannot open file $filename.\n"); + open(FILE, "<$filename") || die("Cannot open file $filename for reading.\n"); $line = ; close(FILE); chop($line); @@ -206,7 +206,7 @@ sub mail_notification { To: $name From: $realname via CVS <$login\@linuxtv.org> Mail-Followup-To: $mailto -Subject: [CVS-LinuxTV] $modulename +Subject: $modulename EOF print MAIL join("\n", @text), "\n"; @@ -261,9 +261,7 @@ while (@ARGV) { ($commitlog) && die("Too many '-f' args\n"); $commitlog = shift @ARGV; } else { - ($donefiles) && die("Too many arguments! Check usage.\n"); - $donefiles = 1; - @files = split(/ /, $arg); + push(@files, $arg); } } ($mailto) || die("No -m mail recipient specified\n"); @@ -316,11 +314,9 @@ if ($debug) { # Check for a new directory first. This appears with files set as follows: # # files[0] - "path/name/newdir" -# files[1] - "-" -# files[2] - "New" -# files[3] - "directory" +# files[1] - "- New directory" # -if ($files[2] =~ /New/ && $files[3] =~ /directory/) { +if ($files[1] eq "- New directory") { local(@text); @text = ();