From 7c5e4522151de0b73263ce346c5027d9227af74f Mon Sep 17 00:00:00 2001 From: "Leigh B. Stoller" Date: Wed, 24 Dec 2003 02:23:59 +0000 Subject: [PATCH] Downcase group names on plab nodes. This is bound to cause problems for someone since the names won't match local nodes, but not going to worry about till it happens. --- tmcd/common/libsetup.pm | 4 ++++ tmcd/libsetup.pm | 4 ++++ 2 files changed, 8 insertions(+) diff --git a/tmcd/common/libsetup.pm b/tmcd/common/libsetup.pm index 04e03e761..ee8bc87f3 100644 --- a/tmcd/common/libsetup.pm +++ b/tmcd/common/libsetup.pm @@ -1306,6 +1306,10 @@ sub doaccounts() # Group info goes in the hash table. # my $gname = "$1"; + + # New plab images are stupid. + $gname = lc($gname) + if (PLAB()); if (REMOTE() && !JAILED() && !PLAB()) { $gname = "emu-${gname}"; diff --git a/tmcd/libsetup.pm b/tmcd/libsetup.pm index 04e03e761..ee8bc87f3 100644 --- a/tmcd/libsetup.pm +++ b/tmcd/libsetup.pm @@ -1306,6 +1306,10 @@ sub doaccounts() # Group info goes in the hash table. # my $gname = "$1"; + + # New plab images are stupid. + $gname = lc($gname) + if (PLAB()); if (REMOTE() && !JAILED() && !PLAB()) { $gname = "emu-${gname}"; -- GitLab