[svn:parrot] r37137 - trunk/lib/Parrot/Harness

[rurban at svn.parrot.org]

Author: rurban
Date: Thu Mar  5 20:20:51 2009
New Revision: 37137
URL: https://trac.parrot.org/parrot/changeset/37137

Log:
[t] TT #323 also add Submitter to smolder (less privacy)

Modified:
   trunk/lib/Parrot/Harness/Smoke.pm

Modified: trunk/lib/Parrot/Harness/Smoke.pm
==============================================================================
--- trunk/lib/Parrot/Harness/Smoke.pm	Thu Mar  5 20:09:29 2009	(r37136)
+++ trunk/lib/Parrot/Harness/Smoke.pm	Thu Mar  5 20:20:51 2009	(r37137)
@@ -118,6 +118,22 @@
         my $info = `svn info .`;
         ($branch) = $info =~ m{URL: .+/parrot/(\w+)$}m;
     }
+    my $me = $^O eq 'MSWin32' ? $ENV{'USERNAME'}
+           : $^O eq 'os2' ? $ENV{'USER'} || $ENV{'LOGNAME'}
+           : $^O eq 'MacOS' ? $ENV{'USER'}
+           : eval { getpwuid($<) };
+    my $domain = '';
+    eval "use Mail::Util;";
+    if (!$@) {
+        $domain = Mail::Util::maildomain();
+    }
+    elsif ($^O eq 'MSWin32') {
+        $domain = $ENV{'USERDOMAIN'};
+    }
+    else {
+        eval { require Sys::Hostname;
+        $domain = Sys::Hostname::hostname(); }
+    }
     my @data = (
         'Architecture' => $arch,
         'Compiler'     => _get_compiler_version(),
@@ -127,6 +143,7 @@
         'Platform'     => $PConfig{osname},
         'SVN Revision' => $PConfig{revision},
         'Version'      => $PConfig{VERSION},
+        'Submitter'    => "$me\@$domain"
     );
     push @data, ( 'Branch' => $branch ) if $branch;
     push @data, ( 'Modifications' => join(" ", @mods) ) if @mods;