diff options
| author | Olivier Blin <oblin@mandriva.com> | 2007-08-01 09:49:29 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2007-08-01 09:49:29 +0000 |
| commit | f52405d091e20202aff87215648c7cf693600105 (patch) | |
| tree | a1164cebccede2a341971d3ee5d82cd64cfdb262 | |
| parent | 6b8dd80c04378729c5345331fb7ec96d9e453ab0 (diff) | |
| download | transfugdrake-f52405d091e20202aff87215648c7cf693600105.tar transfugdrake-f52405d091e20202aff87215648c7cf693600105.tar.gz transfugdrake-f52405d091e20202aff87215648c7cf693600105.tar.bz2 transfugdrake-f52405d091e20202aff87215648c7cf693600105.tar.xz transfugdrake-f52405d091e20202aff87215648c7cf693600105.zip | |
prefer standard users over administrator
| -rwxr-xr-x | transfugdrake | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/transfugdrake b/transfugdrake index 1b5fb95..152d831 100755 --- a/transfugdrake +++ b/transfugdrake @@ -179,7 +179,9 @@ sub get_windows_disk { sub list_windows_users { my ($win_prefix) = @_; - chomp_(split(/,\s*/, run_program::get_stdout("ma-search-users", "windowsxp", $win_prefix))); + my @users = chomp_(split(/,\s*/, run_program::get_stdout("ma-search-users", "windowsxp", $win_prefix))); + my ($standard, $admin) = partition { $_ ne "Administrator" } @users; + sort(@$standard), @$admin; } sub list_windows_items { |