Add the username and hostname to build.h

1 files changed, 3 insertions, 0 deletions

diff --git a/configure.pl b/configure.pl
index 479d85d64..2f3982b9e 100755
--- a/configure.pl
+++ b/configure.pl
@@ -6,6 +6,7 @@ use strict;
 use Getopt::Long;
 use File::Spec;
 use File::Copy;
+use Sys::Hostname;
 
 my $MAJOR_VERSION = 1;
 my $MINOR_VERSION = 7;
@@ -50,6 +51,8 @@ sub main {
 
     $$config{'command-line'} = $0 . ' ' . join(' ', @ARGV);
     $$config{'timestamp'} = gmtime;
+    $$config{'user'} = getpwuid($<) || "unknown";
+    $$config{'hostname'} = hostname;
 
     %CPU = read_info_files($config, 'arch', \&get_arch_info);
     %OPERATING_SYSTEM = read_info_files($config, 'os', \&get_os_info);