From 1efb1079538864bc802fc33e3b04fef3b9041210 Mon Sep 17 00:00:00 2001
From: Ole Tange <github.com@tange.dk>
Date: Tue, 6 Mar 2012 15:47:41 +0100
Subject: [PATCH] reniced: uid to username fix.

---
 README          |  3 +++
 reniced/reniced | 12 +++++++-----
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/README b/README
index e69de29..cd7b46a 100644
--- a/README
+++ b/README
@@ -0,0 +1,3 @@
+Tools developed by Ole Tange <ole@tange.dk>.
+
+Probably not useful for you, but then again you never now.
diff --git a/reniced/reniced b/reniced/reniced
index 8218571..2aca2c9 100755
--- a/reniced/reniced
+++ b/reniced/reniced
@@ -28,13 +28,15 @@ sub renice_all {
     my $ps = ps();
     my @pids_to_renice = grep_ps($cpu_seconds,$ps);
     my $user_pid_list = user_pid_list($ps,@pids_to_renice);
+    my ($login,$pass,$uid,$gid);
     for my $user (keys %$user_pid_list) {
-	if($user =~ /^\d+$/) {
-	    # All digits username => probably a >8 char username => lookup uid
-	    my ($login,$pass,$uid,$gid) = getpwnam($user);
-	    $user = $login;
+        if($user =~ /^\d+$/) {
+            # All digits username => probably a >8 char username => lookup uid
+	    ($login,$pass,$uid,$gid) = getpwuid($user);
+	} else {
+	    $login = $user;
 	}
-	renice_user($cpu_seconds, $user, $ps, @{$user_pid_list->{$user}});
+	renice_user($cpu_seconds, $login, $ps, @{$user_pid_list->{$user}});
     }
 }