From a7ac43c93d98debdf89a66de9e155a3b502a375b Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Thu, 24 Apr 2003 09:13:20 +0000
Subject: - get_user_shells

---
 USER/USER.xs | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/USER/USER.xs b/USER/USER.xs
index 9a64433..5505d95 100644
--- a/USER/USER.xs
+++ b/USER/USER.xs
@@ -146,7 +146,23 @@ Admin_groups_enumerate_full(self, pattern)
         g_ptr_array_free(accounts, TRUE);
         OUTPUT:
         RETVAL
-        
+
+AV *
+Admin_get_user_shells(self)        
+        USER::ADMIN *self
+        CODE:
+        int i = 0;
+        const char *shell;
+        RETVAL = (AV*)sv_2mortal((SV*)newAV());
+        setusershell(); 
+        while ((shell = getusershell()) != NULL) {
+                av_store(RETVAL, i, newSVpv(shell, 0));
+                i++;
+        }
+        endusershell();
+        OUTPUT:
+        RETVAL
+
 MODULE = USER   PACKAGE = USER::ENT    PREFIX = Ent_
 
 USER::ENT *
-- 
cgit v1.2.1