From b5dcf0e1cc15ef906a6ecff5b8f83a657eb60fd1 Mon Sep 17 00:00:00 2001
From: Bas Zoetekouw <bas>
Date: Wed, 1 Oct 2008 16:56:14 +0000
Subject: Add -l (show logs) option for check_trans.pl

CVS version numbers

check_trans.pl: 1.75 -> 1.76
---
 check_trans.pl | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'check_trans.pl')

diff --git a/check_trans.pl b/check_trans.pl
index 023d4f08cea..515c5a9b8e7 100755
--- a/check_trans.pl
+++ b/check_trans.pl
@@ -279,6 +279,17 @@ sub verbose;
 			}
 		}
 
+		# print log if requested and an update is needed
+		if ( $OPT{'l'}  and  $status == ST_NEEDSUPDATE )
+		{
+			my $log = get_log(
+				$file_orig,
+				$rev_transl,
+				$revinfo_orig->{'cmt_rev'},
+			);
+			print $log;
+		}
+
 		# print diff if requested and an update is needed
 		if ( $OPT{'d'}  and  $status == ST_NEEDSUPDATE )
 		{
@@ -750,7 +761,7 @@ sub parse_cmdargs
 	$OPT{s} = '';
 
 	# parse options
-	if ( not getopts( 'adghm:n:p:Qqs:TvV', \%OPT )  )
+	if ( not getopts( 'adghlm:n:p:Qqs:TvV', \%OPT )  )
 	{
 		show_help();
 		exit -1;
-- 
cgit v1.2.3