From 0c4ff9e5a8fde037046bc1e905312a3d9116a461 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@volo>
Date: Thu, 30 Nov 2006 22:29:39 -0800
Subject: [PATCH] add buglog to Debbugs::Common

---
 Debbugs/Common.pm | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index 99c68fd..41641e3 100644
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -31,7 +31,7 @@ BEGIN{
 
      @EXPORT = ();
      %EXPORT_TAGS = (util   => [qw(getbugcomponent getbuglocation getlocationpath get_hashname),
-				qw(appendfile),
+				qw(appendfile buglog),
 			       ],
 		     quit   => [qw(quit)],
 		     lock   => [qw(filelock unfilelock)],
@@ -137,6 +137,22 @@ sub get_hashname {
     return sprintf "%02d", $_[ 0 ] % 100;
 }
 
+=head2 buglog
+
+     buglog($bugnum);
+
+Returns the path to the logfile corresponding to the bug.
+
+=cut
+
+sub buglog {
+    my $bugnum = shift;
+    my $location = getbuglocation($bugnum, 'log');
+    return getbugcomponent($bugnum, 'log', $location) if ($location);
+    $location = getbuglocation($bugnum, 'log.gz');
+    return getbugcomponent($bugnum, 'log.gz', $location);
+}
+
 
 =head2 appendfile
 
-- 
2.39.2