dpkg-genbuildinfo: Add Build-Date field

This records the time the build happened. This might be useful when
there is a need to track down problems caused by external time-based
events not visible from inside the build system. Things like hardware,
software deployment or other such failures.

1 files changed, 12 insertions, 2 deletions

diff --git a/scripts/dpkg-genbuildinfo.pl b/scripts/dpkg-genbuildinfo.pl
index ea0f4c5ef..32c7e7344 100755
--- a/scripts/dpkg-genbuildinfo.pl
+++ b/scripts/dpkg-genbuildinfo.pl
@@ -27,7 +27,7 @@ use warnings;
 
 use Cwd;
 use File::Basename;
-use POSIX qw(:fcntl_h strftime);
+use POSIX qw(:fcntl_h :locale_h strftime);
 
 use Dpkg ();
 use Dpkg::Gettext;
@@ -69,6 +69,16 @@ my $checksums = Dpkg::Checksums->new();
 my %archadded;
 my @archvalues;
 
+sub get_build_date {
+    my $date;
+
+    setlocale(LC_TIME, 'C');
+    $date = strftime('%a, %d %b %Y %T %z', localtime);
+    setlocale(LC_TIME, '');
+
+    return $date;
+}
+
 # There is almost the same function in dpkg-checkbuilddeps, they probably
 # should be factored out.
 sub parse_status {
@@ -394,8 +404,8 @@ if ($changelog->{'Binary-Only'}) {
 }
 
 $fields->{'Build-Origin'} = get_current_vendor();
-
 $fields->{'Build-Architecture'} = get_build_arch();
+$fields->{'Build-Date'} = get_build_date();
 
 my $cwd = cwd();
 if ($always_include_path) {