Initial import
[samba] / source / nsswitch / wbinfo.c
diff --git a/source/nsswitch/wbinfo.c b/source/nsswitch/wbinfo.c
new file mode 100644 (file)
index 0000000..3a7a9e4
--- /dev/null
@@ -0,0 +1,1243 @@
+/* 
+   Unix SMB/CIFS implementation.
+
+   Winbind status program.
+
+   Copyright (C) Tim Potter      2000-2003
+   Copyright (C) Andrew Bartlett 2002
+   
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2 of the License, or
+   (at your option) any later version.
+   
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+   
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+*/
+
+#include "includes.h"
+#include "winbindd.h"
+#include "debug.h"
+
+#undef DBGC_CLASS
+#define DBGC_CLASS DBGC_WINBIND
+
+extern int winbindd_fd;
+
+static char winbind_separator_int(BOOL strict)
+{
+       struct winbindd_response response;
+       static BOOL got_sep;
+       static char sep;
+
+       if (got_sep)
+               return sep;
+
+       ZERO_STRUCT(response);
+
+       /* Send off request */
+
+       if (winbindd_request_response(WINBINDD_INFO, NULL, &response) !=
+           NSS_STATUS_SUCCESS) {
+               d_fprintf(stderr, "could not obtain winbind separator!\n");
+               if (strict) {
+                       return 0;
+               }
+               /* HACK: (this module should not call lp_ funtions) */
+               return *lp_winbind_separator();
+       }
+
+       sep = response.data.info.winbind_separator;
+       got_sep = True;
+
+       if (!sep) {
+               d_fprintf(stderr, "winbind separator was NULL!\n");
+               if (strict) {
+                       return 0;
+               }
+               /* HACK: (this module should not call lp_ funtions) */
+               sep = *lp_winbind_separator();
+       }
+       
+       return sep;
+}
+
+static char winbind_separator(void)
+{
+       return winbind_separator_int(False);
+}
+
+static const char *get_winbind_domain(void)
+{
+       struct winbindd_response response;
+       static fstring winbind_domain;
+
+       ZERO_STRUCT(response);
+
+       /* Send off request */
+
+       if (winbindd_request_response(WINBINDD_DOMAIN_NAME, NULL, &response) !=
+           NSS_STATUS_SUCCESS) {
+               d_fprintf(stderr, "could not obtain winbind domain name!\n");
+               
+               /* HACK: (this module should not call lp_ funtions) */
+               return lp_workgroup();
+       }
+
+       fstrcpy(winbind_domain, response.data.domain_name);
+
+       return winbind_domain;
+
+}
+
+/* Copy of parse_domain_user from winbindd_util.c.  Parse a string of the
+   form DOMAIN/user into a domain and a user */
+
+static BOOL parse_wbinfo_domain_user(const char *domuser, fstring domain, 
+                                    fstring user)
+{
+
+       char *p = strchr(domuser,winbind_separator());
+
+       if (!p) {
+               fstrcpy(user, domuser);
+               fstrcpy(domain, get_winbind_domain());
+               return True;
+       }
+        
+       fstrcpy(user, p+1);
+       fstrcpy(domain, domuser);
+       domain[PTR_DIFF(p, domuser)] = 0;
+       strupper_m(domain);
+
+       return True;
+}
+
+/* List groups a user is a member of */
+
+static BOOL wbinfo_get_usergroups(char *user)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+       NSS_STATUS result;
+       int i;
+       
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+       /* Send request */
+
+       fstrcpy(request.data.username, user);
+
+       result = winbindd_request_response(WINBINDD_GETGROUPS, &request, &response);
+
+       if (result != NSS_STATUS_SUCCESS)
+               return False;
+
+       for (i = 0; i < response.data.num_entries; i++)
+               d_printf("%d\n", (int)((gid_t *)response.extra_data)[i]);
+
+       SAFE_FREE(response.extra_data);
+
+       return True;
+}
+
+
+/* List group SIDs a user SID is a member of */
+static BOOL wbinfo_get_usersids(char *user_sid)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+       NSS_STATUS result;
+       int i;
+       const char *s;
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+       /* Send request */
+       fstrcpy(request.data.sid, user_sid);
+
+       result = winbindd_request_response(WINBINDD_GETUSERSIDS, &request, &response);
+
+       if (result != NSS_STATUS_SUCCESS)
+               return False;
+
+       s = response.extra_data;
+       for (i = 0; i < response.data.num_entries; i++) {
+               d_printf("%s\n", s);
+               s += strlen(s) + 1;
+       }
+
+       SAFE_FREE(response.extra_data);
+
+       return True;
+}
+
+static BOOL wbinfo_get_userdomgroups(const char *user_sid)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+       NSS_STATUS result;
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+       /* Send request */
+       fstrcpy(request.data.sid, user_sid);
+
+       result = winbindd_request_response(WINBINDD_GETUSERDOMGROUPS, &request,
+                                 &response);
+
+       if (result != NSS_STATUS_SUCCESS)
+               return False;
+
+       if (response.data.num_entries != 0)
+               d_printf("%s", (char *)response.extra_data);
+       
+       SAFE_FREE(response.extra_data);
+
+       return True;
+}
+
+/* Convert NetBIOS name to IP */
+
+static BOOL wbinfo_wins_byname(char *name)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+       /* Send request */
+
+       fstrcpy(request.data.winsreq, name);
+
+       if (winbindd_request_response(WINBINDD_WINS_BYNAME, &request, &response) !=
+           NSS_STATUS_SUCCESS) {
+               return False;
+       }
+
+       /* Display response */
+
+       d_printf("%s\n", response.data.winsresp);
+
+       return True;
+}
+
+/* Convert IP to NetBIOS name */
+
+static BOOL wbinfo_wins_byip(char *ip)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+       /* Send request */
+
+       fstrcpy(request.data.winsreq, ip);
+
+       if (winbindd_request_response(WINBINDD_WINS_BYIP, &request, &response) !=
+           NSS_STATUS_SUCCESS) {
+               return False;
+       }
+
+       /* Display response */
+
+       d_printf("%s\n", response.data.winsresp);
+
+       return True;
+}
+
+/* List trusted domains */
+
+static BOOL wbinfo_list_domains(void)
+{
+       struct winbindd_response response;
+
+       ZERO_STRUCT(response);
+
+       /* Send request */
+
+       if (winbindd_request_response(WINBINDD_LIST_TRUSTDOM, NULL, &response) !=
+           NSS_STATUS_SUCCESS)
+               return False;
+
+       /* Display response */
+
+       if (response.extra_data) {
+               const char *extra_data = (char *)response.extra_data;
+               fstring name;
+               char *p;
+
+               while(next_token(&extra_data, name, "\n", sizeof(fstring))) {
+                       p = strchr(name, '\\');
+                       if (p == 0) {
+                               d_fprintf(stderr, "Got invalid response: %s\n",
+                                        extra_data);
+                               return False;
+                       }
+                       *p = 0;
+                       d_printf("%s\n", name);
+               }
+
+               SAFE_FREE(response.extra_data);
+       }
+
+       return True;
+}
+
+
+/* show sequence numbers */
+static BOOL wbinfo_show_sequence(const char *domain)
+{
+       struct winbindd_request  request;
+       struct winbindd_response response;
+
+       ZERO_STRUCT(response);
+       ZERO_STRUCT(request);
+
+       if ( domain )
+               fstrcpy( request.domain_name, domain );
+
+       /* Send request */
+
+       if (winbindd_request_response(WINBINDD_SHOW_SEQUENCE, &request, &response) !=
+           NSS_STATUS_SUCCESS)
+               return False;
+
+       /* Display response */
+
+       if (response.extra_data) {
+               char *extra_data = (char *)response.extra_data;
+               d_printf("%s", extra_data);
+               SAFE_FREE(response.extra_data);
+       }
+
+       return True;
+}
+
+/* Show domain info */
+
+static BOOL wbinfo_domain_info(const char *domain_name)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+       fstrcpy(request.domain_name, domain_name);
+
+       /* Send request */
+
+       if (winbindd_request_response(WINBINDD_DOMAIN_INFO, &request, &response) !=
+           NSS_STATUS_SUCCESS)
+               return False;
+
+       /* Display response */
+
+       d_printf("Name              : %s\n", response.data.domain_info.name);
+       d_printf("Alt_Name          : %s\n", response.data.domain_info.alt_name);
+
+       d_printf("SID               : %s\n", response.data.domain_info.sid);
+
+       d_printf("Active Directory  : %s\n",
+                response.data.domain_info.active_directory ? "Yes" : "No");
+       d_printf("Native            : %s\n",
+                response.data.domain_info.native_mode ? "Yes" : "No");
+
+       d_printf("Primary           : %s\n",
+                response.data.domain_info.primary ? "Yes" : "No");
+
+       d_printf("Sequence          : %d\n", response.data.domain_info.sequence_number);
+
+       return True;
+}
+
+/* Get a foreign DC's name */
+static BOOL wbinfo_getdcname(const char *domain_name)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+       fstrcpy(request.domain_name, domain_name);
+
+       /* Send request */
+
+       if (winbindd_request_response(WINBINDD_GETDCNAME, &request, &response) !=
+           NSS_STATUS_SUCCESS) {
+               d_fprintf(stderr, "Could not get dc name for %s\n", domain_name);
+               return False;
+       }
+
+       /* Display response */
+
+       d_printf("%s\n", response.data.dc_name);
+
+       return True;
+}
+
+/* Check trust account password */
+
+static BOOL wbinfo_check_secret(void)
+{
+        struct winbindd_response response;
+        NSS_STATUS result;
+
+        ZERO_STRUCT(response);
+
+        result = winbindd_request_response(WINBINDD_CHECK_MACHACC, NULL, &response);
+               
+       d_printf("checking the trust secret via RPC calls %s\n", 
+                (result == NSS_STATUS_SUCCESS) ? "succeeded" : "failed");
+
+       if (result != NSS_STATUS_SUCCESS)       
+               d_fprintf(stderr, "error code was %s (0x%x)\n", 
+                        response.data.auth.nt_status_string, 
+                        response.data.auth.nt_status);
+       
+       return result == NSS_STATUS_SUCCESS;    
+}
+
+/* Convert uid to sid */
+
+static BOOL wbinfo_uid_to_sid(uid_t uid)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+       /* Send request */
+
+       request.data.uid = uid;
+
+       if (winbindd_request_response(WINBINDD_UID_TO_SID, &request, &response) !=
+           NSS_STATUS_SUCCESS)
+               return False;
+
+       /* Display response */
+
+       d_printf("%s\n", response.data.sid.sid);
+
+       return True;
+}
+
+/* Convert gid to sid */
+
+static BOOL wbinfo_gid_to_sid(gid_t gid)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+       /* Send request */
+
+       request.data.gid = gid;
+
+       if (winbindd_request_response(WINBINDD_GID_TO_SID, &request, &response) !=
+           NSS_STATUS_SUCCESS)
+               return False;
+
+       /* Display response */
+
+       d_printf("%s\n", response.data.sid.sid);
+
+       return True;
+}
+
+/* Convert sid to uid */
+
+static BOOL wbinfo_sid_to_uid(char *sid)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+       /* Send request */
+
+       fstrcpy(request.data.sid, sid);
+
+       if (winbindd_request_response(WINBINDD_SID_TO_UID, &request, &response) !=
+           NSS_STATUS_SUCCESS)
+               return False;
+
+       /* Display response */
+
+       d_printf("%d\n", (int)response.data.uid);
+
+       return True;
+}
+
+static BOOL wbinfo_sid_to_gid(char *sid)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+       /* Send request */
+
+       fstrcpy(request.data.sid, sid);
+
+       if (winbindd_request_response(WINBINDD_SID_TO_GID, &request, &response) !=
+           NSS_STATUS_SUCCESS)
+               return False;
+
+       /* Display response */
+
+       d_printf("%d\n", (int)response.data.gid);
+
+       return True;
+}
+
+static BOOL wbinfo_allocate_rid(void)
+{
+       uint32 rid;
+
+       if (!winbind_allocate_rid(&rid))
+               return False;
+
+       d_printf("New rid: %d\n", rid);
+
+       return True;
+}
+
+/* Convert sid to string */
+
+static BOOL wbinfo_lookupsid(char *sid)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+       /* Send off request */
+
+       fstrcpy(request.data.sid, sid);
+
+       if (winbindd_request_response(WINBINDD_LOOKUPSID, &request, &response) !=
+           NSS_STATUS_SUCCESS)
+               return False;
+
+       /* Display response */
+
+       d_printf("%s%c%s %d\n", response.data.name.dom_name, 
+                winbind_separator(), response.data.name.name, 
+                response.data.name.type);
+
+       return True;
+}
+
+/* Convert string to sid */
+
+static BOOL wbinfo_lookupname(char *name)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+
+       /* Send off request */
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+       parse_wbinfo_domain_user(name, request.data.name.dom_name, 
+                                request.data.name.name);
+
+       if (winbindd_request_response(WINBINDD_LOOKUPNAME, &request, &response) !=
+           NSS_STATUS_SUCCESS)
+               return False;
+
+       /* Display response */
+
+       d_printf("%s %s (%d)\n", response.data.sid.sid, sid_type_lookup(response.data.sid.type), response.data.sid.type);
+
+       return True;
+}
+
+/* Authenticate a user with a plaintext password */
+
+static BOOL wbinfo_auth(char *username)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+        NSS_STATUS result;
+        char *p;
+
+       /* Send off request */
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+        p = strchr(username, '%');
+
+        if (p) {
+                *p = 0;
+                fstrcpy(request.data.auth.user, username);
+                fstrcpy(request.data.auth.pass, p + 1);
+                *p = '%';
+        } else
+                fstrcpy(request.data.auth.user, username);
+
+       result = winbindd_request_response(WINBINDD_PAM_AUTH, &request, &response);
+
+       /* Display response */
+
+        d_printf("plaintext password authentication %s\n", 
+               (result == NSS_STATUS_SUCCESS) ? "succeeded" : "failed");
+
+       if (response.data.auth.nt_status)
+               d_fprintf(stderr, "error code was %s (0x%x)\nerror messsage was: %s\n", 
+                        response.data.auth.nt_status_string, 
+                        response.data.auth.nt_status,
+                        response.data.auth.error_string);
+
+        return result == NSS_STATUS_SUCCESS;
+}
+
+/* Authenticate a user with a challenge/response */
+
+static BOOL wbinfo_auth_crap(char *username)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+        NSS_STATUS result;
+        fstring name_user;
+        fstring name_domain;
+        fstring pass;
+        char *p;
+
+       /* Send off request */
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+        p = strchr(username, '%');
+
+        if (p) {
+                *p = 0;
+                fstrcpy(pass, p + 1);
+       }
+               
+       parse_wbinfo_domain_user(username, name_domain, name_user);
+
+       request.data.auth_crap.logon_parameters = MSV1_0_ALLOW_WORKSTATION_TRUST_ACCOUNT | MSV1_0_ALLOW_SERVER_TRUST_ACCOUNT;
+
+       fstrcpy(request.data.auth_crap.user, name_user);
+
+       fstrcpy(request.data.auth_crap.domain, 
+                             name_domain);
+
+       generate_random_buffer(request.data.auth_crap.chal, 8);
+        
+       if (lp_client_ntlmv2_auth()) {
+               DATA_BLOB server_chal;
+               DATA_BLOB names_blob;   
+
+               DATA_BLOB lm_response;
+               DATA_BLOB nt_response;
+
+               server_chal = data_blob(request.data.auth_crap.chal, 8); 
+               
+               /* Pretend this is a login to 'us', for blob purposes */
+               names_blob = NTLMv2_generate_names_blob(global_myname(), lp_workgroup());
+               
+               if (!SMBNTLMv2encrypt(name_user, name_domain, pass, &server_chal, 
+                                     &names_blob,
+                                     &lm_response, &nt_response, NULL)) {
+                       data_blob_free(&names_blob);
+                       data_blob_free(&server_chal);
+                       return False;
+               }
+               data_blob_free(&names_blob);
+               data_blob_free(&server_chal);
+
+               memcpy(request.data.auth_crap.nt_resp, nt_response.data, 
+                      MIN(nt_response.length, 
+                          sizeof(request.data.auth_crap.nt_resp)));
+               request.data.auth_crap.nt_resp_len = nt_response.length;
+
+               memcpy(request.data.auth_crap.lm_resp, lm_response.data, 
+                      MIN(lm_response.length, 
+                          sizeof(request.data.auth_crap.lm_resp)));
+               request.data.auth_crap.lm_resp_len = lm_response.length;
+                      
+               data_blob_free(&nt_response);
+               data_blob_free(&lm_response);
+
+       } else {
+               if (lp_client_lanman_auth() 
+                   && SMBencrypt(pass, request.data.auth_crap.chal, 
+                              (uchar *)request.data.auth_crap.lm_resp)) {
+                       request.data.auth_crap.lm_resp_len = 24;
+               } else {
+                       request.data.auth_crap.lm_resp_len = 0;
+               }
+               SMBNTencrypt(pass, request.data.auth_crap.chal,
+                            (uchar *)request.data.auth_crap.nt_resp);
+
+               request.data.auth_crap.nt_resp_len = 24;
+       }
+
+       result = winbindd_request_response(WINBINDD_PAM_AUTH_CRAP, &request, &response);
+
+       /* Display response */
+
+        d_printf("challenge/response password authentication %s\n", 
+               (result == NSS_STATUS_SUCCESS) ? "succeeded" : "failed");
+
+       if (response.data.auth.nt_status)
+               d_fprintf(stderr, "error code was %s (0x%x)\nerror messsage was: %s\n", 
+                        response.data.auth.nt_status_string, 
+                        response.data.auth.nt_status,
+                        response.data.auth.error_string);
+
+        return result == NSS_STATUS_SUCCESS;
+}
+
+/* Authenticate a user with a plaintext password and set a token */
+
+static BOOL wbinfo_klog(char *username)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+        NSS_STATUS result;
+        char *p;
+
+       /* Send off request */
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+        p = strchr(username, '%');
+
+        if (p) {
+                *p = 0;
+                fstrcpy(request.data.auth.user, username);
+                fstrcpy(request.data.auth.pass, p + 1);
+                *p = '%';
+        } else {
+                fstrcpy(request.data.auth.user, username);
+               fstrcpy(request.data.auth.pass, getpass("Password: "));
+       }
+
+       request.flags |= WBFLAG_PAM_AFS_TOKEN;
+
+       result = winbindd_request_response(WINBINDD_PAM_AUTH, &request, &response);
+
+       /* Display response */
+
+        d_printf("plaintext password authentication %s\n", 
+               (result == NSS_STATUS_SUCCESS) ? "succeeded" : "failed");
+
+       if (response.data.auth.nt_status)
+               d_fprintf(stderr, "error code was %s (0x%x)\nerror messsage was: %s\n", 
+                        response.data.auth.nt_status_string, 
+                        response.data.auth.nt_status,
+                        response.data.auth.error_string);
+
+       if (result != NSS_STATUS_SUCCESS)
+               return False;
+
+       if (response.extra_data == NULL) {
+               d_fprintf(stderr, "Did not get token data\n");
+               return False;
+       }
+
+       if (!afs_settoken_str((char *)response.extra_data)) {
+               d_fprintf(stderr, "Could not set token\n");
+               return False;
+       }
+
+       d_printf("Successfully created AFS token\n");
+       return True;
+}
+
+/* Print domain users */
+
+static BOOL print_domain_users(const char *domain)
+{
+       struct winbindd_request request;
+       struct winbindd_response response;
+       const char *extra_data;
+       fstring name;
+
+       /* Send request to winbind daemon */
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+       
+       if (domain) {
+               /* '.' is the special sign for our own domwin */
+               if ( strequal(domain, ".") )
+                       fstrcpy( request.domain_name, lp_workgroup() );
+               else
+                       fstrcpy( request.domain_name, domain );
+       }
+
+       if (winbindd_request_response(WINBINDD_LIST_USERS, &request, &response) !=
+           NSS_STATUS_SUCCESS)
+               return False;
+
+       /* Look through extra data */
+
+       if (!response.extra_data)
+               return False;
+
+       extra_data = (const char *)response.extra_data;
+
+       while(next_token(&extra_data, name, ",", sizeof(fstring)))
+               d_printf("%s\n", name);
+       
+       SAFE_FREE(response.extra_data);
+
+       return True;
+}
+
+/* Print domain groups */
+
+static BOOL print_domain_groups(const char *domain)
+{
+       struct winbindd_request  request;
+       struct winbindd_response response;
+       const char *extra_data;
+       fstring name;
+
+       ZERO_STRUCT(request);
+       ZERO_STRUCT(response);
+
+       if (domain) {
+               if ( strequal(domain, ".") )
+                       fstrcpy( request.domain_name, lp_workgroup() );
+               else
+                       fstrcpy( request.domain_name, domain );
+       }
+
+       if (winbindd_request_response(WINBINDD_LIST_GROUPS, &request, &response) !=
+           NSS_STATUS_SUCCESS)
+               return False;
+
+       /* Look through extra data */
+
+       if (!response.extra_data)
+               return False;
+
+       extra_data = (const char *)response.extra_data;
+
+       while(next_token(&extra_data, name, ",", sizeof(fstring)))
+               d_printf("%s\n", name);
+
+       SAFE_FREE(response.extra_data);
+       
+       return True;
+}
+
+/* Set the authorised user for winbindd access in secrets.tdb */
+
+static BOOL wbinfo_set_auth_user(char *username)
+{
+       const char *password;
+       char *p;
+       fstring user, domain;
+
+       /* Separate into user and password */
+
+       parse_wbinfo_domain_user(username, domain, user);
+
+       p = strchr(user, '%');
+
+       if (p != NULL) {
+               *p = 0;
+               password = p+1;
+       } else {
+               char *thepass = getpass("Password: ");
+               if (thepass) {
+                       password = thepass;     
+               } else
+                       password = "";
+       }
+
+       /* Store or remove DOMAIN\username%password in secrets.tdb */
+
+       secrets_init();
+
+       if (user[0]) {
+
+               if (!secrets_store(SECRETS_AUTH_USER, user,
+                                  strlen(user) + 1)) {
+                       d_fprintf(stderr, "error storing username\n");
+                       return False;
+               }
+
+               /* We always have a domain name added by the
+                  parse_wbinfo_domain_user() function. */
+
+               if (!secrets_store(SECRETS_AUTH_DOMAIN, domain,
+                                  strlen(domain) + 1)) {
+                       d_fprintf(stderr, "error storing domain name\n");
+                       return False;
+               }
+
+       } else {
+               secrets_delete(SECRETS_AUTH_USER);
+               secrets_delete(SECRETS_AUTH_DOMAIN);
+       }
+
+       if (password[0]) {
+
+               if (!secrets_store(SECRETS_AUTH_PASSWORD, password,
+                                  strlen(password) + 1)) {
+                       d_fprintf(stderr, "error storing password\n");
+                       return False;
+               }
+
+       } else
+               secrets_delete(SECRETS_AUTH_PASSWORD);
+
+       return True;
+}
+
+static void wbinfo_get_auth_user(void)
+{
+       char *user, *domain, *password;
+
+       /* Lift data from secrets file */
+       
+       secrets_fetch_ipc_userpass(&user, &domain, &password);
+
+       if ((!user || !*user) && (!domain || !*domain ) && (!password || !*password)){
+
+               SAFE_FREE(user);
+               SAFE_FREE(domain);
+               SAFE_FREE(password);
+               d_printf("No authorised user configured\n");
+               return;
+       }
+
+       /* Pretty print authorised user info */
+
+       d_printf("%s%s%s%s%s\n", domain ? domain : "", domain ? lp_winbind_separator(): "",
+                user, password ? "%" : "", password ? password : "");
+
+       SAFE_FREE(user);
+       SAFE_FREE(domain);
+       SAFE_FREE(password);
+}
+
+static BOOL wbinfo_ping(void)
+{
+        NSS_STATUS result;
+
+       result = winbindd_request_response(WINBINDD_PING, NULL, NULL);
+
+       /* Display response */
+
+        d_printf("Ping to winbindd %s on fd %d\n", 
+               (result == NSS_STATUS_SUCCESS) ? "succeeded" : "failed", winbindd_fd);
+
+        return result == NSS_STATUS_SUCCESS;
+}
+
+/* Main program */
+
+enum {
+       OPT_SET_AUTH_USER = 1000,
+       OPT_GET_AUTH_USER,
+       OPT_DOMAIN_NAME,
+       OPT_SEQUENCE,
+       OPT_GETDCNAME,
+       OPT_USERDOMGROUPS,
+       OPT_USERSIDS,
+       OPT_SEPARATOR
+};
+
+int main(int argc, char **argv)
+{
+       int opt;
+
+       poptContext pc;
+       static char *string_arg;
+       static char *opt_domain_name;
+       static int int_arg;
+       int result = 1;
+
+       struct poptOption long_options[] = {
+               POPT_AUTOHELP
+
+               /* longName, shortName, argInfo, argPtr, value, descrip, 
+                  argDesc */
+
+               { "domain-users", 'u', POPT_ARG_NONE, 0, 'u', "Lists all domain users", "domain"},
+               { "domain-groups", 'g', POPT_ARG_NONE, 0, 'g', "Lists all domain groups", "domain" },
+               { "WINS-by-name", 'N', POPT_ARG_STRING, &string_arg, 'N', "Converts NetBIOS name to IP", "NETBIOS-NAME" },
+               { "WINS-by-ip", 'I', POPT_ARG_STRING, &string_arg, 'I', "Converts IP address to NetBIOS name", "IP" },
+               { "name-to-sid", 'n', POPT_ARG_STRING, &string_arg, 'n', "Converts name to sid", "NAME" },
+               { "sid-to-name", 's', POPT_ARG_STRING, &string_arg, 's', "Converts sid to name", "SID" },
+               { "uid-to-sid", 'U', POPT_ARG_INT, &int_arg, 'U', "Converts uid to sid" , "UID" },
+               { "gid-to-sid", 'G', POPT_ARG_INT, &int_arg, 'G', "Converts gid to sid", "GID" },
+               { "sid-to-uid", 'S', POPT_ARG_STRING, &string_arg, 'S', "Converts sid to uid", "SID" },
+               { "sid-to-gid", 'Y', POPT_ARG_STRING, &string_arg, 'Y', "Converts sid to gid", "SID" },
+               { "allocate-rid", 'A', POPT_ARG_NONE, 0, 'A', "Get a new RID out of idmap" },
+               { "check-secret", 't', POPT_ARG_NONE, 0, 't', "Check shared secret" },
+               { "trusted-domains", 'm', POPT_ARG_NONE, 0, 'm', "List trusted domains" },
+               { "sequence", 0, POPT_ARG_NONE, 0, OPT_SEQUENCE, "Show sequence numbers of all domains" },
+               { "domain-info", 'D', POPT_ARG_STRING, &string_arg, 'D', "Show most of the info we have about the domain" },
+               { "user-groups", 'r', POPT_ARG_STRING, &string_arg, 'r', "Get user groups", "USER" },
+               { "user-domgroups", 0, POPT_ARG_STRING, &string_arg,
+                 OPT_USERDOMGROUPS, "Get user domain groups", "SID" },
+               { "user-sids", 0, POPT_ARG_STRING, &string_arg, OPT_USERSIDS, "Get user group sids for user SID", "SID" },
+               { "authenticate", 'a', POPT_ARG_STRING, &string_arg, 'a', "authenticate user", "user%password" },
+               { "set-auth-user", 0, POPT_ARG_STRING, &string_arg, OPT_SET_AUTH_USER, "Store user and password used by winbindd (root only)", "user%password" },
+               { "getdcname", 0, POPT_ARG_STRING, &string_arg, OPT_GETDCNAME,
+                 "Get a DC name for a foreign domain", "domainname" },
+               { "get-auth-user", 0, POPT_ARG_NONE, NULL, OPT_GET_AUTH_USER, "Retrieve user and password used by winbindd (root only)", NULL },
+               { "ping", 'p', POPT_ARG_NONE, 0, 'p', "Ping winbindd to see if it is alive" },
+               { "domain", 0, POPT_ARG_STRING, &opt_domain_name, OPT_DOMAIN_NAME, "Define to the domain to restrict operation", "domain" },
+#ifdef WITH_FAKE_KASERVER
+               { "klog", 'k', POPT_ARG_STRING, &string_arg, 'k', "set an AFS token from winbind", "user%password" },
+#endif
+               { "separator", 0, POPT_ARG_NONE, 0, OPT_SEPARATOR, "Get the active winbind separator", NULL },
+               POPT_COMMON_VERSION
+               POPT_TABLEEND
+       };
+
+       /* Samba client initialisation */
+       load_case_tables();
+
+       if (!lp_load(dyn_CONFIGFILE, True, False, False)) {
+               d_fprintf(stderr, "wbinfo: error opening config file %s. Error was %s\n",
+                       dyn_CONFIGFILE, strerror(errno));
+               exit(1);
+       }
+
+       if (!init_names())
+               return 1;
+
+       load_interfaces();
+
+       /* Parse options */
+
+       pc = poptGetContext("wbinfo", argc, (const char **)argv, long_options, 0);
+
+       /* Parse command line options */
+
+       if (argc == 1) {
+               poptPrintHelp(pc, stderr, 0);
+               return 1;
+       }
+
+       while((opt = poptGetNextOpt(pc)) != -1) {
+               /* get the generic configuration parameters like --domain */
+       }
+
+       poptFreeContext(pc);
+
+       pc = poptGetContext(NULL, argc, (const char **)argv, long_options, 
+                           POPT_CONTEXT_KEEP_FIRST);
+
+       while((opt = poptGetNextOpt(pc)) != -1) {
+               switch (opt) {
+               case 'u':
+                       if (!print_domain_users(opt_domain_name)) {
+                               d_fprintf(stderr, "Error looking up domain users\n");
+                               goto done;
+                       }
+                       break;
+               case 'g':
+                       if (!print_domain_groups(opt_domain_name)) {
+                               d_fprintf(stderr, "Error looking up domain groups\n");
+                               goto done;
+                       }
+                       break;
+               case 's':
+                       if (!wbinfo_lookupsid(string_arg)) {
+                               d_fprintf(stderr, "Could not lookup sid %s\n", string_arg);
+                               goto done;
+                       }
+                       break;
+               case 'n':
+                       if (!wbinfo_lookupname(string_arg)) {
+                               d_fprintf(stderr, "Could not lookup name %s\n", string_arg);
+                               goto done;
+                       }
+                       break;
+               case 'N':
+                       if (!wbinfo_wins_byname(string_arg)) {
+                               d_fprintf(stderr, "Could not lookup WINS by name %s\n", string_arg);
+                               goto done;
+                       }
+                       break;
+               case 'I':
+                       if (!wbinfo_wins_byip(string_arg)) {
+                               d_fprintf(stderr, "Could not lookup WINS by IP %s\n", string_arg);
+                               goto done;
+                       }
+                       break;
+               case 'U':
+                       if (!wbinfo_uid_to_sid(int_arg)) {
+                               d_fprintf(stderr, "Could not convert uid %d to sid\n", int_arg);
+                               goto done;
+                       }
+                       break;
+               case 'G':
+                       if (!wbinfo_gid_to_sid(int_arg)) {
+                               d_fprintf(stderr, "Could not convert gid %d to sid\n",
+                                      int_arg);
+                               goto done;
+                       }
+                       break;
+               case 'S':
+                       if (!wbinfo_sid_to_uid(string_arg)) {
+                               d_fprintf(stderr, "Could not convert sid %s to uid\n",
+                                      string_arg);
+                               goto done;
+                       }
+                       break;
+               case 'Y':
+                       if (!wbinfo_sid_to_gid(string_arg)) {
+                               d_fprintf(stderr, "Could not convert sid %s to gid\n",
+                                      string_arg);
+                               goto done;
+                       }
+                       break;
+               case 'A':
+                       if (!wbinfo_allocate_rid()) {
+                               d_fprintf(stderr, "Could not allocate a RID\n");
+                               goto done;
+                       }
+                       break;
+               case 't':
+                       if (!wbinfo_check_secret()) {
+                               d_fprintf(stderr, "Could not check secret\n");
+                               goto done;
+                       }
+                       break;
+               case 'm':
+                       if (!wbinfo_list_domains()) {
+                               d_fprintf(stderr, "Could not list trusted domains\n");
+                               goto done;
+                       }
+                       break;
+               case OPT_SEQUENCE:
+                       if (!wbinfo_show_sequence(opt_domain_name)) {
+                               d_fprintf(stderr, "Could not show sequence numbers\n");
+                               goto done;
+                       }
+                       break;
+               case 'D':
+                       if (!wbinfo_domain_info(string_arg)) {
+                               d_fprintf(stderr, "Could not get domain info\n");
+                               goto done;
+                       }
+                       break;
+               case 'r':
+                       if (!wbinfo_get_usergroups(string_arg)) {
+                               d_fprintf(stderr, "Could not get groups for user %s\n", 
+                                      string_arg);
+                               goto done;
+                       }
+                       break;
+               case OPT_USERSIDS:
+                       if (!wbinfo_get_usersids(string_arg)) {
+                               d_fprintf(stderr, "Could not get group SIDs for user SID %s\n", 
+                                      string_arg);
+                               goto done;
+                       }
+                       break;
+               case OPT_USERDOMGROUPS:
+                       if (!wbinfo_get_userdomgroups(string_arg)) {
+                               d_fprintf(stderr, "Could not get user's domain groups "
+                                        "for user SID %s\n", string_arg);
+                               goto done;
+                       }
+                       break;
+               case 'a': {
+                               BOOL got_error = False;
+
+                               if (!wbinfo_auth(string_arg)) {
+                                       d_fprintf(stderr, "Could not authenticate user %s with "
+                                               "plaintext password\n", string_arg);
+                                       got_error = True;
+                               }
+
+                               if (!wbinfo_auth_crap(string_arg)) {
+                                       d_fprintf(stderr, "Could not authenticate user %s with "
+                                               "challenge/response\n", string_arg);
+                                       got_error = True;
+                               }
+
+                               if (got_error)
+                                       goto done;
+                               break;
+                       }
+               case 'k':
+                       if (!wbinfo_klog(string_arg)) {
+                               d_fprintf(stderr, "Could not klog user\n");
+                               goto done;
+                       }
+                       break;
+               case 'p':
+                       if (!wbinfo_ping()) {
+                               d_fprintf(stderr, "Could not ping winbindd!\n");
+                               goto done;
+                       }
+                       break;
+               case OPT_SET_AUTH_USER:
+                       if (!wbinfo_set_auth_user(string_arg)) {
+                               goto done;
+                       }
+                       break;
+               case OPT_GET_AUTH_USER:
+                       wbinfo_get_auth_user();
+                       break;
+               case OPT_GETDCNAME:
+                       if (!wbinfo_getdcname(string_arg)) {
+                               goto done;
+                       }
+                       break;
+               case OPT_SEPARATOR: {
+                       const char sep = winbind_separator_int(True);
+                       if ( !sep ) {
+                               goto done;
+                       }
+                       d_printf("%c\n", sep);
+                       break;
+               }
+               /* generic configuration options */
+               case OPT_DOMAIN_NAME:
+                       break;
+               default:
+                       d_fprintf(stderr, "Invalid option\n");
+                       poptPrintHelp(pc, stderr, 0);
+                       goto done;
+               }
+       }
+
+       result = 0;
+
+       /* Exit code */
+
+ done:
+       poptFreeContext(pc);
+       return result;
+}