Added better handling for errors at mailscript

From: Mauro Carvalho Chehab <mchehab@infradead.org>

Now, it checks if author have signed its own patch. Also,
prints better error messages.

Signed-off-by: Mauro Carvalho Chehab <mchehab@infradead.org>

1 files changed, 13 insertions, 4 deletions

diff --git a/v4l/scripts/hghead.pl b/v4l/scripts/hghead.pl
index c495abc8b..5c5e63f1f 100755
--- a/v4l/scripts/hghead.pl
+++ b/v4l/scripts/hghead.pl
@@ -19,6 +19,7 @@ my $maintainer_email=$ENV{CHANGE_LOG_EMAIL_ADDRESS};
 my $from="";
 my $body="";
 my $signed="";
+my $fromname="";
 
 open IN,  "<$in";
 
@@ -57,10 +58,11 @@ while ($line = <IN>) {
 			my $email=$2;
 			$name =~ s/\s+$//;
 			$email =~ s/\s+$//;
-			$from= "From: $name <$email>\n";
+			$fromname="$name <$email>";
+			$from= "From: $fromname\n";
 			next;
 		}
-		print "Bad formed author\n";
+		print "Bad: author line have a wrong syntax\n";
 		die;
 	}
 
@@ -86,7 +88,7 @@ while ($line = <IN>) {
 		next;
 	}
 	if ($line =~ m/^Acked-by:.*/) {
-		print $line;
+		$signed="$signed$line";
 		next;
 	}
 
@@ -128,12 +130,19 @@ while ($line = <IN>) {
 close IN;
 
 if ($from eq "") {
-	print "Bad formed author\n";
+	print "Bad: author doesn't exist!\n";
 	die;
 }
+
 if (!$maint_ok) {
 	$signed=$signed."Signed-off-by: $maintainer_name <$maintainer_email>\n";
 }
+
+if (!$signed =~ m/$from/) {
+	print "Bad: Author didn't signed his patch!\n";
+	die;
+}
+
 $body=~s/\n+$//;
 $body=~s/^\n+$//;