Add iconv_convenience argument to size functions.
[metze/samba/wip.git] / source3 / rpc_server / srv_svcctl_nt.c
index 53fddcf964229e1cc92a3f27f4be2a8220d677b6..187fb368e2032b98c91a7c45116108aa5193db5a 100644 (file)
-/* 
+/*
  *  Unix SMB/CIFS implementation.
  *  RPC Pipe client / server routines
- *  Copyright (C) Gerald (Jerry) Carter             2005,
+ *
  *  Copyright (C) Marcin Krzysztof Porwit           2005.
- *  
+ *
+ *  Largely Rewritten (Again) by:
+ *  Copyright (C) Gerald (Jerry) Carter             2005.
+ *  Copyright (C) Guenther Deschner                 2008.
+ *
  *  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
+ *  the Free Software Foundation; either version 3 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.
+ *  along with this program; if not, see <http://www.gnu.org/licenses/>.
  */
 
-/* TODO - Do the OpenService service name matching case-independently, or at least make it an option. */
-
-
 #include "includes.h"
 
 #undef DBGC_CLASS
 #define DBGC_CLASS DBGC_RPC_SRV
 
-#define SERVICEDB_VERSION_V1 1 /* Will there be more? */
-#define INTERNAL_SERVICES_LIST "NETLOGON Spooler"
-
-/*                                                                                                                     */
-/* scripts will execute from the following libdir, if they are in the enable svcctl=<list of scripts>                  */
-/* these should likely be symbolic links. Note that information about them will be extracted from the files themselves */
-/* using the LSB standard keynames for various information                                                             */
-
-#define SVCCTL_SCRIPT_DIR  "/svcctl/"
+struct service_control_op {
+       const char *name;
+       SERVICE_CONTROL_OPS *ops;
+};
 
-/*
- * sertup the \PIPE\svcctl db API
- */
-#define SCVCTL_DATABASE_VERSION_V1 1
-TALLOC_CTX    *svcdb=NULL;
-static TDB_CONTEXT *service_tdb; /* used for services tdb file */
+#define SVCCTL_NUM_INTERNAL_SERVICES   4
 
-/* there are two types of services -- internal, and external.
-   Internal services are "built-in" to samba -- there may be 
-   functions that exist to provide the control and enumeration 
-   functions.  There certainly is information returned to be 
-   displayed in the typical management console.
+/* handle external services */
+extern SERVICE_CONTROL_OPS rcinit_svc_ops;
 
-   External services are those that can be specified in the smb.conf 
-   file -- and they conform to the LSB specification as to having 
-   particular keywords in the scripts. Note that these "scripts" are 
-   located in the lib directory, and are likely links to LSB-compliant 
-   init.d scripts, such as those that might come with Suse. Note 
-   that the spec is located  http://www.linuxbase.org/spec/ */
+/* builtin services (see service_db.c and services/svc_*.c */
+extern SERVICE_CONTROL_OPS spoolss_svc_ops;
+extern SERVICE_CONTROL_OPS netlogon_svc_ops;
+extern SERVICE_CONTROL_OPS winreg_svc_ops;
+extern SERVICE_CONTROL_OPS wins_svc_ops;
 
+/* make sure this number patches the number of builtin
+   SERVICE_CONTROL_OPS structure listed above */
 
+#define SVCCTL_NUM_INTERNAL_SERVICES   4
 
-/* Expand this to include what can and can't be done 
-   with a particular internal service. Expand as necessary 
-   to add other infromation like what can be controlled, 
-   etc. */
+struct service_control_op *svcctl_ops;
 
-typedef struct Internal_service_struct
-{
-       const char *filename;           /* internal name "index" */
-       const char *displayname;
-       const char *description;
-       const uint32 statustype;
-       void *status_fn; 
-       void *control_fn;
-} Internal_service_description;
-
-
-static const Internal_service_description ISD[] = {
-       { "NETLOGON",   "Net Logon",    "Provides logon and authentication service to the network",     0x110,  NULL, NULL},
-       { "Spooler",    "Spooler",      "Printing Services",                                            0x0020, NULL, NULL},
-       { NULL, NULL, NULL, 0, NULL, NULL}
-};
+static const struct generic_mapping scm_generic_map =
+       { SC_MANAGER_READ_ACCESS, SC_MANAGER_WRITE_ACCESS, SC_MANAGER_EXECUTE_ACCESS, SC_MANAGER_ALL_ACCESS };
+static const struct generic_mapping svc_generic_map =
+       { SERVICE_READ_ACCESS, SERVICE_WRITE_ACCESS, SERVICE_EXECUTE_ACCESS, SERVICE_ALL_ACCESS };
 
 
 /********************************************************************
- TODOs
- (a) get and set security descriptors on services
- (b) read and write QUERY_SERVICE_CONFIG structures (both kinds, country and western)
- (c) create default secdesc objects for services and SCM
- (d) check access control masks with se_access_check()
 ********************************************************************/
 
-/*********************************************************************
- given a service nice name, find the underlying service name
-*********************************************************************/
-
-BOOL  _svcctl_service_nicename_to_servicename(TDB_CONTEXT *stdb,pstring service_nicename, pstring servicename,int szsvcname) 
+bool init_service_op_table( void )
 {
-       pstring keystring;
-       TDB_DATA key_data;
+       const char **service_list = lp_svcctl_list();
+       int num_services = SVCCTL_NUM_INTERNAL_SERVICES + str_list_length( service_list );
+       int i;
 
-       if ((stdb == NULL) || (service_nicename==NULL) || (servicename == NULL)) 
+       if ( !(svcctl_ops = TALLOC_ARRAY( NULL, struct service_control_op, num_services+1)) ) {
+               DEBUG(0,("init_service_op_table: talloc() failed!\n"));
                return False;
-
-       pstr_sprintf(keystring,"SERVICE_NICENAME/%s", servicename);
-
-       DEBUG(5, ("_svcctl_service_nicename_to_servicename: Looking for service name [%s], key [%s]\n", 
-               service_nicename, keystring));
-
-       key_data = tdb_fetch_bystring(stdb,keystring);
-
-       if (key_data.dsize == 0) {
-               DEBUG(5, ("_svcctl_service_nicename_to_servicename: [%s] Not found, tried key [%s]\n",service_nicename,keystring));
-               return False; 
        }
 
-       strncpy(servicename,key_data.dptr,szsvcname);
-       servicename[(key_data.dsize > szsvcname ? szsvcname : key_data.dsize)] = 0;
-       DEBUG(5, ("_svcctl_service_nicename_to_servicename: Found service name [%s], name is  [%s]\n",
-               service_nicename,servicename));
-
-       return True;
-}
-
-/*********************************************************************
-*********************************************************************/
-
-static BOOL  write_si_to_service_tdb(TDB_CONTEXT *stdb,char *service_name, Service_info *si) 
-{
-       pstring keystring;
-
-       /* Note -- when we write to the tdb, we "index" on the filename 
-          field, not the nice name. when a service is "opened", it is 
-          opened by the nice (SERVICENAME) name, not the file name. 
-          So there needs to be a mapping from nice name back to the file name. */
-
-       if ((stdb == NULL) || (si == NULL) || (service_name==NULL) || (*service_name == 0)) 
-               return False;
-
-
-       /* Store the nicename */
-
-       pstr_sprintf(keystring,"SERVICE_NICENAME/%s", si->servicename);
-       tdb_store_bystring(stdb,keystring,string_tdb_data(service_name),TDB_REPLACE);
-
-       pstr_sprintf(keystring,"SERVICE/%s/TYPE", service_name);
-       tdb_store_bystring(stdb,keystring,string_tdb_data(si->servicetype),TDB_REPLACE);
+       /* services listed in smb.conf get the rc.init interface */
 
-       pstr_sprintf(keystring,"SERVICE/%s/FILENAME", service_name);
-       tdb_store_bystring(stdb,keystring,string_tdb_data(si->filename),TDB_REPLACE);
-
-       pstr_sprintf(keystring,"SERVICE/%s/PROVIDES", service_name);
-       tdb_store_bystring(stdb,keystring,string_tdb_data(si->provides),TDB_REPLACE);
-
-       pstr_sprintf(keystring,"SERVICE/%s/SERVICENAME", service_name);
-       tdb_store_bystring(stdb,keystring,string_tdb_data(si->servicename),TDB_REPLACE);
-
-       pstr_sprintf(keystring,"SERVICE/%s/DEPENDENCIES", service_name);
-       tdb_store_bystring(stdb,keystring,string_tdb_data(si->dependencies),TDB_REPLACE);
-
-       pstr_sprintf(keystring,"SERVICE/%s/SHOULDSTART", service_name);
-       tdb_store_bystring(stdb,keystring,string_tdb_data(si->shouldstart),TDB_REPLACE);
-
-       pstr_sprintf(keystring,"SERVICE/%s/SHOULDSTOP", service_name);
-       tdb_store_bystring(stdb,keystring,string_tdb_data(si->shouldstop),TDB_REPLACE);
+       for ( i=0; service_list && service_list[i]; i++ ) {
+               svcctl_ops[i].name = talloc_strdup( svcctl_ops, service_list[i] );
+               svcctl_ops[i].ops  = &rcinit_svc_ops;
+       }
 
-       pstr_sprintf(keystring,"SERVICE/%s/REQUIREDSTART", service_name);
-       tdb_store_bystring(stdb,keystring,string_tdb_data(si->requiredstart),TDB_REPLACE);
+       /* add builtin services */
 
-       pstr_sprintf(keystring,"SERVICE/%s/REQUIREDSTOP", service_name);
-       tdb_store_bystring(stdb,keystring,string_tdb_data(si->requiredstop),TDB_REPLACE);
+       svcctl_ops[i].name = talloc_strdup( svcctl_ops, "Spooler" );
+       svcctl_ops[i].ops  = &spoolss_svc_ops;
+       i++;
 
-       pstr_sprintf(keystring,"SERVICE/%s/DESCRIPTION", service_name);
-       tdb_store_bystring(stdb,keystring,string_tdb_data(si->description),TDB_REPLACE);
+       svcctl_ops[i].name = talloc_strdup( svcctl_ops, "NETLOGON" );
+       svcctl_ops[i].ops  = &netlogon_svc_ops;
+       i++;
 
-       pstr_sprintf(keystring,"SERVICE/%s/SHORTDESC", service_name);
-       tdb_lock_bystring(stdb, keystring, 0);
-       if (si->shortdescription && *si->shortdescription) 
-               tdb_store_bystring(stdb,keystring,string_tdb_data(si->shortdescription),TDB_REPLACE);
-       else
-               tdb_store_bystring(stdb,keystring,string_tdb_data(si->description),TDB_REPLACE);
+       svcctl_ops[i].name = talloc_strdup( svcctl_ops, "RemoteRegistry" );
+       svcctl_ops[i].ops  = &winreg_svc_ops;
+       i++;
 
-       return True;
-}
+       svcctl_ops[i].name = talloc_strdup( svcctl_ops, "WINS" );
+       svcctl_ops[i].ops  = &wins_svc_ops;
+       i++;
 
+       /* NULL terminate the array */
 
-/*******************************************************************************
- Get the INTERNAL services information for the given service name. 
-*******************************************************************************/
+       svcctl_ops[i].name = NULL;
+       svcctl_ops[i].ops  = NULL;
 
-static BOOL _svcctl_get_internal_service_data(const Internal_service_description *isd, Service_info *si)
-{
-       ZERO_STRUCTP( si );
-#if 0
-       
-       pstrcpy( si->servicename, isd->displayname);
-       pstrcpy( si->servicetype, "INTERNAL");
-       pstrcpy( si->filename, isd->filename);
-       pstrcpy( si->provides, isd->displayname);
-       pstrcpy( si->description, isd->description);
-       pstrcpy( si->shortdescription, isd->description);
-#endif
-       
        return True;
 }
 
+/********************************************************************
+********************************************************************/
 
-/*******************************************************************************
- Get the services information  by reading and parsing the shell scripts. These 
- are symbolically linked into the  SVCCTL_SCRIPT_DIR  directory.
-
- Get the names of the services/scripts to read from the smb.conf file.
-*******************************************************************************/
-
-static BOOL _svcctl_get_LSB_data(char *fname,Service_info *si )
-{
-       pstring initdfile;
-       char mybuffer[256];
-       const char *tokenptr;
-       char **qlines;
-       int fd = -1;
-       int nlines, *numlines,i,in_section,in_description;
-       
-       pstrcpy(si->servicename,"");
-       pstrcpy(si->servicetype,"EXTERNAL");
-       pstrcpy(si->filename,fname);
-       pstrcpy(si->provides,"");
-       pstrcpy(si->dependencies,"");
-       pstrcpy(si->shouldstart,"");
-       pstrcpy(si->shouldstop,"");
-       pstrcpy(si->requiredstart,"");
-       pstrcpy(si->requiredstop,"");
-       pstrcpy(si->description,"");
-       pstrcpy(si->shortdescription,"");
-
-       numlines = &nlines;
-       in_section = 0;
-       in_description = 0;
-
-   
-       if( !fname || !*fname ) {
-               DEBUG(0, ("Must define an \"LSB-style init file\" to read.\n"));
-               return False;
-       }
-       pstrcpy(initdfile,dyn_LIBDIR);
-       pstrcat(initdfile,SVCCTL_SCRIPT_DIR);
-       pstrcat(initdfile,fname);
-
-       /* TODO  - should check to see if the file that we're trying to open is 
-          actually a script. If it's NOT, we should do something like warn, 
-          and not continue to try to find info we're looking for */
-
-       DEBUG(10, ("Opening [%s]\n", initdfile));
-       fd = -1;
-       fd = open(initdfile,O_RDONLY);
-       *numlines = 0;
-
-       if (fd == -1) {
-               DEBUG(10, ("Couldn't open [%s]\n", initdfile));
-               return False;
-       }
-
-       qlines = fd_lines_load(fd, numlines);
-       DEBUGADD(10, ("Lines returned = [%d]\n", *numlines));
-       close(fd);
-    
-
-       if (*numlines) {
-       
-               for(i = 0; i < *numlines; i++) {
-
-                       DEBUGADD(10, ("Line[%d] = %s\n", i, qlines[i]));
-                       if (!in_section && (0==strwicmp("### BEGIN INIT INFO", qlines[i]))) {
-                               /* we now can look for params */
-                               DEBUGADD(10, ("Configuration information starts on line = [%d]\n", i));
-                               in_section = 1;
-
-                       } else if (in_section && (0==strwicmp("### END INIT INFO", qlines[i]))) {
-                               DEBUGADD(10, ("Configuration information ends on line = [%d]\n", i));
-                               DEBUGADD(10, ("Description is [%s]\n", si->description));
-                               in_description = 0;
-                               in_section = 0;
-                               break;
-                       } else if (in_section) {
-                               tokenptr = qlines[i];
-                               if (in_description) {
-                                       DEBUGADD(10, ("Processing DESCRIPTION [%d]\n", *tokenptr));
-                                       if (tokenptr && (*tokenptr=='#') && (*(tokenptr+1)=='\t')) {
-                                               DEBUGADD(10, ("Adding to DESCRIPTION [%d]\n", *tokenptr));
-                                               pstrcat(si->description," ");
-                                               pstrcat(si->description,tokenptr+2);
-                                               continue;
-                                       }
-                                       in_description = 0;
-                                       DEBUGADD(10, ("Not a description!\n"));
-                               }
-                               if (!next_token(&tokenptr,mybuffer," \t",sizeof(mybuffer))) {
-                                       DEBUGADD(10, ("Invalid line [%d]\n", i));
-                                       break; /* bad line? */
-                               }
-                               if (0 != strncmp(mybuffer,"#",1)) {
-                                       DEBUGADD(10, ("Invalid line [%d], is %s\n", i,mybuffer));
-                                       break;
-                               }
-                               if (!next_token(&tokenptr,mybuffer," \t",sizeof(mybuffer))) {
-                                       DEBUGADD(10, ("Invalid token on line [%d]\n", i));
-                                       break; /* bad line? */
-                               }             
-                               DEBUGADD(10, ("Keyword is  [%s]\n", mybuffer));
-                               if (0==strwicmp(mybuffer,"Description:")) {
-                                       while (tokenptr && *tokenptr && (strchr(" \t",*tokenptr))) { 
-                                               tokenptr++; 
-                                       }
-                                       pstrcpy(si->description,tokenptr);
-                                       DEBUGADD(10, ("FOUND DESCRIPTION! Data is [%s]\n", tokenptr));
-                                       in_description = 1;
-                               } else {
-                                       while (tokenptr && *tokenptr && (strchr(" \t",*tokenptr))) { 
-                                               tokenptr++; 
-                                       }
-                                       DEBUGADD(10, ("Data is [%s]\n", tokenptr));
-                                       in_description = 0;
-
-                                       /* save certain keywords, don't save others */
-                                       if (0==strwicmp(mybuffer, "Provides:")) {
-                                               pstrcpy(si->provides,tokenptr);
-                                               pstrcpy(si->servicename,tokenptr);
-                                       }
-
-                                       if (0==strwicmp(mybuffer, "Short-Description:")) {
-                                               pstrcpy(si->shortdescription,tokenptr);
-                                       }
-
-                                       if (0==strwicmp(mybuffer, "Required-start:")) {
-                                               pstrcpy(si->requiredstart,tokenptr);
-                                               pstrcpy(si->dependencies,tokenptr);
-                                       }
-
-                                       if (0==strwicmp(mybuffer, "Should-start:")) {
-                                               pstrcpy(si->shouldstart,tokenptr);
-                                       }
-                               }
-                       }
-               }
-
-               file_lines_free(qlines);
-                       return True;
-       }
-
-       return False;
-}
-
-/****************************************************************************
- Create/Open the service control manager tdb. This code a clone of init_group_mapping.
-****************************************************************************/
-
-BOOL init_svcctl_db(void)
+static struct service_control_op* find_service_by_name( const char *name )
 {
-       const char *vstring = "INFO/version";
-       uint32 vers_id;
-       char **svc_list;
-       char **svcname;
-       pstring keystring;
-       pstring external_service_list;
-       pstring internal_service_list;
-       Service_info si;
-       const Internal_service_description *isd_ptr;
-       /* svc_list = str_list_make( "etc/init.d/skeleton  etc/init.d/syslog", NULL ); */
-       svc_list=(char **)lp_enable_svcctl(); 
-
-       if (service_tdb)
-               return True;
-
-       pstrcpy(external_service_list,"");
-
-       service_tdb = tdb_open_log(lock_path("services.tdb"), 0, TDB_DEFAULT, O_RDWR, 0600);
-       if (!service_tdb) {
-               DEBUG(0,("Failed to open service db\n"));
-               service_tdb = tdb_open_log(lock_path("services.tdb"), 0, TDB_DEFAULT, O_RDWR|O_CREAT, 0600);
-               if (!service_tdb) return False;
-               DEBUG(0,("Created new services db\n"));
-       }
-
-       if ((-1 == tdb_fetch_uint32(service_tdb, vstring,&vers_id)) || (vers_id != SERVICEDB_VERSION_V1)) {
-         /* wrong version of DB, or db was just created */
-         tdb_traverse(service_tdb, tdb_traverse_delete_fn, NULL);
-         tdb_store_uint32(service_tdb, vstring, SERVICEDB_VERSION_V1);
-       }
-       tdb_unlock_bystring(service_tdb, vstring);
-
-       DEBUG(0,("Initializing services db\n"));
-       
-       svcname = svc_list;
-
-       /* Get the EXTERNAL services as mentioned by line in smb.conf */
-
-       while (*svcname) {
-               DEBUG(10,("Reading information on service %s\n",*svcname));
-               if (_svcctl_get_LSB_data(*svcname,&si));{
-                       /* write the information to the TDB */
-                       write_si_to_service_tdb(service_tdb,*svcname,&si);
-                       /* definitely not efficient to do it this way. */
-                       pstrcat(external_service_list,"\"");
-                       pstrcat(external_service_list,*svcname);
-                       pstrcat(external_service_list,"\" ");
-               }
-               svcname++;
-       }
-       pstrcpy(keystring,"EXTERNAL_SERVICES");
-        tdb_lock_bystring(service_tdb, keystring, 0);
-       DEBUG(8,("Storing external service list [%s]\n",external_service_list));
-        tdb_store_bystring(service_tdb,keystring,string_tdb_data(external_service_list),TDB_REPLACE);
-        tdb_unlock_bystring(service_tdb,keystring);
-
-       /* Get the INTERNAL services */
-       
-       pstrcpy(internal_service_list,"");
-       isd_ptr = ISD; 
-
-       while (isd_ptr && (isd_ptr->filename)) {
-               DEBUG(10,("Reading information on service %s\n",isd_ptr->filename));
-               if (_svcctl_get_internal_service_data(isd_ptr,&si)){
-                       /* write the information to the TDB */
-                       write_si_to_service_tdb(service_tdb,(char *)isd_ptr->filename,&si);
-                       /* definitely not efficient to do it this way. */
-                       pstrcat(internal_service_list,"\"");
-                       pstrcat(internal_service_list,isd_ptr->filename);
-                       pstrcat(internal_service_list,"\" ");
+       int i;
 
-               }
-               isd_ptr++;
+       for ( i=0; svcctl_ops[i].name; i++ ) {
+               if ( strequal( name, svcctl_ops[i].name ) )
+                       return &svcctl_ops[i];
        }
-       pstrcpy(keystring,"INTERNAL_SERVICES");
-        tdb_lock_bystring(service_tdb, keystring, 0);
-       DEBUG(8,("Storing internal service list [%s]\n",internal_service_list));
-        tdb_store_bystring(service_tdb,keystring,string_tdb_data(internal_service_list),TDB_REPLACE);
-        tdb_unlock_bystring(service_tdb,keystring);
 
-       return True;
+       return NULL;
 }
-
 /********************************************************************
 ********************************************************************/
 
-static NTSTATUS svcctl_access_check( SEC_DESC *sec_desc, NT_USER_TOKEN *token, 
+static NTSTATUS svcctl_access_check( SEC_DESC *sec_desc, NT_USER_TOKEN *token,
                                      uint32 access_desired, uint32 *access_granted )
 {
-       NTSTATUS result;
-       
-       /* maybe add privilege checks in here later */
-       
-       se_access_check( sec_desc, token, access_desired, access_granted, &result );
-       
-       return result;
+       if ( geteuid() == sec_initial_uid() ) {
+               DEBUG(5,("svcctl_access_check: using root's token\n"));
+               token = get_root_nt_token();
+       }
+
+       return se_access_check( sec_desc, token, access_desired, access_granted);
 }
 
 /********************************************************************
@@ -460,156 +136,43 @@ static NTSTATUS svcctl_access_check( SEC_DESC *sec_desc, NT_USER_TOKEN *token,
 
 static SEC_DESC* construct_scm_sd( TALLOC_CTX *ctx )
 {
-       SEC_ACE ace[2]; 
-       SEC_ACCESS mask;
+       SEC_ACE ace[2];
        size_t i = 0;
        SEC_DESC *sd;
        SEC_ACL *acl;
-       uint32 sd_size;
+       size_t sd_size;
 
        /* basic access for Everyone */
-       
-       init_sec_access(&mask, SC_MANAGER_READ_ACCESS );
-       init_sec_ace(&ace[i++], &global_sid_World, SEC_ACE_TYPE_ACCESS_ALLOWED, mask, 0);
-       
-       /* Full Access 'BUILTIN\Administrators' */
-       
-       init_sec_access(&mask,SC_MANAGER_ALL_ACCESS );
-       init_sec_ace(&ace[i++], &global_sid_Builtin_Administrators, SEC_ACE_TYPE_ACCESS_ALLOWED, mask, 0);
-       
-       
-       /* create the security descriptor */
-       
-       if ( !(acl = make_sec_acl(ctx, NT4_ACL_REVISION, i, ace)) )
-               return NULL;
 
-       if ( !(sd = make_sec_desc(ctx, SEC_DESC_REVISION, SEC_DESC_SELF_RELATIVE, NULL, NULL, NULL, acl, &sd_size)) )
-               return NULL;
+       init_sec_ace(&ace[i++], &global_sid_World,
+               SEC_ACE_TYPE_ACCESS_ALLOWED, SC_MANAGER_READ_ACCESS, 0);
 
-       return sd;
-}
+       /* Full Access 'BUILTIN\Administrators' */
 
-/********************************************************************
-********************************************************************/
+       init_sec_ace(&ace[i++], &global_sid_Builtin_Administrators,
+               SEC_ACE_TYPE_ACCESS_ALLOWED, SC_MANAGER_ALL_ACCESS, 0);
 
-static SEC_DESC* construct_service_sd( TALLOC_CTX *ctx )
-{
-       SEC_ACE ace[4]; 
-       SEC_ACCESS mask;
-       size_t i = 0;
-       SEC_DESC *sd;
-       SEC_ACL *acl;
-       uint32 sd_size;
 
-       /* basic access for Everyone */
-       
-       init_sec_access(&mask, SERVICE_READ_ACCESS );
-       init_sec_ace(&ace[i++], &global_sid_World, SEC_ACE_TYPE_ACCESS_ALLOWED, mask, 0);
-               
-       init_sec_access(&mask,SERVICE_EXECUTE_ACCESS );
-       init_sec_ace(&ace[i++], &global_sid_Builtin_Power_Users, SEC_ACE_TYPE_ACCESS_ALLOWED, mask, 0);
-       
-       init_sec_access(&mask,SERVICE_ALL_ACCESS );
-       init_sec_ace(&ace[i++], &global_sid_Builtin_Server_Operators, SEC_ACE_TYPE_ACCESS_ALLOWED, mask, 0);
-       init_sec_ace(&ace[i++], &global_sid_Builtin_Administrators, SEC_ACE_TYPE_ACCESS_ALLOWED, mask, 0);
-       
        /* create the security descriptor */
-       
+
        if ( !(acl = make_sec_acl(ctx, NT4_ACL_REVISION, i, ace)) )
                return NULL;
 
-       if ( !(sd = make_sec_desc(ctx, SEC_DESC_REVISION, SEC_DESC_SELF_RELATIVE, NULL, NULL, NULL, acl, &sd_size)) )
+       if ( !(sd = make_sec_desc(ctx, SECURITY_DESCRIPTOR_REVISION_1,
+                                 SEC_DESC_SELF_RELATIVE, NULL, NULL, NULL,
+                                 acl, &sd_size)) )
                return NULL;
 
        return sd;
 }
 
-
-/********************************************************************
-********************************************************************/
-
-static BOOL read_service_tdb_to_si(TDB_CONTEXT *stdb,char *service_name, Service_info *si) 
-{
-
-       pstring keystring;
-       TDB_DATA  key_data;
-
-       if ((stdb == NULL) || (si == NULL) || (service_name==NULL) || (*service_name == 0)) 
-               return False;
-
-       /* TODO  - error handling -- what if the service isn't in the DB? */
-    
-       pstr_sprintf(keystring,"SERVICE/%s/TYPE", service_name);
-       key_data = tdb_fetch_bystring(stdb,keystring);
-       strncpy(si->servicetype,key_data.dptr,key_data.dsize);
-       si->servicetype[key_data.dsize] = 0;
-
-       /* crude check to see if the service exists... */
-       DEBUG(3,("Size of the TYPE field is %d\n",key_data.dsize));
-       if (key_data.dsize == 0) 
-               return False;
-
-       pstr_sprintf(keystring,"SERVICE/%s/FILENAME", service_name);
-       key_data = tdb_fetch_bystring(stdb,keystring);
-       strncpy(si->filename,key_data.dptr,key_data.dsize);
-       si->filename[key_data.dsize] = 0;
-
-       pstr_sprintf(keystring,"SERVICE/%s/PROVIDES", service_name);
-       key_data = tdb_fetch_bystring(stdb,keystring);
-       strncpy(si->provides,key_data.dptr,key_data.dsize);
-       si->provides[key_data.dsize] = 0;
-       strncpy(si->servicename,key_data.dptr,key_data.dsize);
-       si->servicename[key_data.dsize] = 0;
-
-           
-       pstr_sprintf(keystring,"SERVICE/%s/DEPENDENCIES", service_name);
-       key_data = tdb_fetch_bystring(stdb,keystring);
-       strncpy(si->dependencies,key_data.dptr,key_data.dsize);
-       si->dependencies[key_data.dsize] = 0;
-
-       pstr_sprintf(keystring,"SERVICE/%s/SHOULDSTART", service_name);
-       key_data = tdb_fetch_bystring(stdb,keystring);
-       strncpy(si->shouldstart,key_data.dptr,key_data.dsize);
-       si->shouldstart[key_data.dsize] = 0;
-
-       pstr_sprintf(keystring,"SERVICE/%s/SHOULD_STOP", service_name);
-       key_data = tdb_fetch_bystring(stdb,keystring);
-       strncpy(si->shouldstop,key_data.dptr,key_data.dsize);
-       si->shouldstop[key_data.dsize] = 0;
-
-       pstr_sprintf(keystring,"SERVICE/%s/REQUIREDSTART", service_name);
-       key_data = tdb_fetch_bystring(stdb,keystring);
-       strncpy(si->requiredstart,key_data.dptr,key_data.dsize);
-       si->requiredstart[key_data.dsize] = 0;
-
-       pstr_sprintf(keystring,"SERVICE/%s/REQUIREDSTOP", service_name);
-       key_data = tdb_fetch_bystring(stdb,keystring);
-       strncpy(si->requiredstop,key_data.dptr,key_data.dsize);
-       si->requiredstop[key_data.dsize] = 0;
-
-       pstr_sprintf(keystring,"SERVICE/%s/DESCRIPTION", service_name);
-       key_data = tdb_fetch_bystring(stdb,keystring);
-       strncpy(si->description,key_data.dptr,key_data.dsize);
-       si->description[key_data.dsize] = 0;
-
-       pstr_sprintf(keystring,"SERVICE/%s/SHORTDESC", service_name);
-       key_data = tdb_fetch_bystring(stdb,keystring);
-       strncpy(si->shortdescription,key_data.dptr,key_data.dsize);
-       si->shortdescription[key_data.dsize] = 0;
-
-       return True;
-}
-
 /******************************************************************
  free() function for REGISTRY_KEY
  *****************************************************************/
+
 static void free_service_handle_info(void *ptr)
 {
-       SERVICE_INFO *info = (SERVICE_INFO*)ptr;
-       
-       SAFE_FREE(info->name);
-       SAFE_FREE(info);
+       TALLOC_FREE( ptr );
 }
 
 /******************************************************************
@@ -620,8 +183,8 @@ static SERVICE_INFO *find_service_info_by_hnd(pipes_struct *p, POLICY_HND *hnd)
 {
        SERVICE_INFO *service_info = NULL;
 
-       if( !find_policy_by_hnd( p, hnd, (void **)&service_info) ) {
-               DEBUG(2,("find_service_info_by_hnd: handle not found"));
+       if( !find_policy_by_hnd( p, hnd, (void **)(void *)&service_info) ) {
+               DEBUG(2,("find_service_info_by_hnd: handle not found\n"));
                return NULL;
        }
 
@@ -630,453 +193,363 @@ static SERVICE_INFO *find_service_info_by_hnd(pipes_struct *p, POLICY_HND *hnd)
 
 /******************************************************************
  *****************************************************************/
-static WERROR create_open_service_handle( pipes_struct *p, POLICY_HND *handle, 
+
+static WERROR create_open_service_handle( pipes_struct *p, POLICY_HND *handle, uint32 type,
                                           const char *service, uint32 access_granted )
 {
        SERVICE_INFO *info = NULL;
-       
-       if ( !(info = SMB_MALLOC_P( SERVICE_INFO )) )
+       WERROR result = WERR_OK;
+       struct service_control_op *s_op;
+
+       if ( !(info = TALLOC_ZERO_P( NULL, SERVICE_INFO )) )
                return WERR_NOMEM;
 
-       ZERO_STRUCTP( info );
-               
        /* the Service Manager has a NULL name */
-       
-       if ( !service ) {
+
+       info->type = SVC_HANDLE_IS_SCM;
+
+       switch ( type ) {
+       case SVC_HANDLE_IS_SCM:
                info->type = SVC_HANDLE_IS_SCM;
-       } else {
+               break;
+
+       case SVC_HANDLE_IS_DBLOCK:
+               info->type = SVC_HANDLE_IS_DBLOCK;
+               break;
+
+       case SVC_HANDLE_IS_SERVICE:
                info->type = SVC_HANDLE_IS_SERVICE;
-               
-               if ( !(info->name  = SMB_STRDUP( service )) ) {
-                       free_service_handle_info( info );
-                       WERR_NOMEM;
-               }
-               
-#if 0
+
                /* lookup the SERVICE_CONTROL_OPS */
 
-               for ( i=0; svcctl_ops[i].name; i++ ) {
-                       ;;
+               if ( !(s_op = find_service_by_name( service )) ) {
+                       result = WERR_NO_SUCH_SERVICE;
+                       goto done;
+               }
+
+               info->ops = s_op->ops;
+
+               if ( !(info->name  = talloc_strdup( info, s_op->name )) ) {
+                       result = WERR_NOMEM;
+                       goto done;
                }
-#endif
+               break;
+
+       default:
+               result = WERR_NO_SUCH_SERVICE;
+               goto done;
        }
 
-       info->access_granted = access_granted;  
-       
+       info->access_granted = access_granted;
+
        /* store the SERVICE_INFO and create an open handle */
-       
+
        if ( !create_policy_hnd( p, handle, free_service_handle_info, info ) ) {
-               free_service_handle_info( info );
-               return WERR_ACCESS_DENIED;
+               result = WERR_ACCESS_DENIED;
+               goto done;
        }
-               
-       return WERR_OK;
+
+done:
+       if ( !W_ERROR_IS_OK(result) )
+               free_service_handle_info( info );
+
+       return result;
 }
 
 /********************************************************************
 ********************************************************************/
 
-WERROR _svcctl_open_scmanager(pipes_struct *p, SVCCTL_Q_OPEN_SCMANAGER *q_u, SVCCTL_R_OPEN_SCMANAGER *r_u)
+WERROR _svcctl_OpenSCManagerW(pipes_struct *p,
+                             struct svcctl_OpenSCManagerW *r)
 {
        SEC_DESC *sec_desc;
        uint32 access_granted = 0;
        NTSTATUS status;
-       
+
        /* perform access checks */
-       
+
        if ( !(sec_desc = construct_scm_sd( p->mem_ctx )) )
                return WERR_NOMEM;
-               
-       status = svcctl_access_check( sec_desc, p->pipe_user.nt_user_token, q_u->access, &access_granted );
+
+       se_map_generic( &r->in.access_mask, &scm_generic_map );
+       status = svcctl_access_check( sec_desc, p->server_info->ptok,
+                                     r->in.access_mask, &access_granted );
        if ( !NT_STATUS_IS_OK(status) )
                return ntstatus_to_werror( status );
-               
-       return create_open_service_handle( p, &r_u->handle, NULL, access_granted );
+
+       return create_open_service_handle( p, r->out.handle, SVC_HANDLE_IS_SCM, NULL, access_granted );
 }
 
 /********************************************************************
+ _svcctl_OpenServiceW
 ********************************************************************/
 
-WERROR _svcctl_open_service(pipes_struct *p, SVCCTL_Q_OPEN_SERVICE *q_u, SVCCTL_R_OPEN_SERVICE *r_u)
+WERROR _svcctl_OpenServiceW(pipes_struct *p,
+                           struct svcctl_OpenServiceW *r)
 {
        SEC_DESC *sec_desc;
        uint32 access_granted = 0;
        NTSTATUS status;
-       pstring service;
-
-       rpcstr_pull(service, q_u->servicename.buffer, sizeof(service), q_u->servicename.uni_str_len*2, 0);
-       
-       DEBUG(5, ("_svcctl_open_service: Attempting to open Service [%s], \n", service));
-       
-       if ( !service_tdb ) {
-               DEBUG(1, ("_svcctl_open_service: service database is not open\n!"));
-               return WERR_ACCESS_DENIED;
+       const char *service = NULL;
+
+       service = r->in.ServiceName;
+       if (!service) {
+               return WERR_NOMEM;
        }
-       
-       /* perform access checks */
-       
-       if ( !(sec_desc = construct_service_sd( p->mem_ctx )) )
+       DEBUG(5, ("_svcctl_OpenServiceW: Attempting to open Service [%s], \n", service));
+
+       /* based on my tests you can open a service if you have a valid scm handle */
+
+       if ( !find_service_info_by_hnd( p, r->in.scmanager_handle) )
+               return WERR_BADFID;
+
+       /* perform access checks.  Use the root token in order to ensure that we
+          retrieve the security descriptor */
+
+       if ( !(sec_desc = svcctl_get_secdesc( p->mem_ctx, service, get_root_nt_token() )) )
                return WERR_NOMEM;
-               
-       status = svcctl_access_check( sec_desc, p->pipe_user.nt_user_token, q_u->access, &access_granted );
+
+       se_map_generic( &r->in.access_mask, &svc_generic_map );
+       status = svcctl_access_check( sec_desc, p->server_info->ptok,
+                                     r->in.access_mask, &access_granted );
        if ( !NT_STATUS_IS_OK(status) )
                return ntstatus_to_werror( status );
-               
-#if 0  /* FIXME!!! */
-       if ( ! read_service_tdb_to_si(service_tdb,service, info) ) {
-               return WERR_NO_SUCH_SERVICE;
-#endif
-       
-       return create_open_service_handle( p, &r_u->handle, service, access_granted );
+
+       return create_open_service_handle( p, r->out.handle, SVC_HANDLE_IS_SERVICE, service, access_granted );
 }
 
 /********************************************************************
 ********************************************************************/
 
-WERROR _svcctl_close_service(pipes_struct *p, SVCCTL_Q_CLOSE_SERVICE *q_u, SVCCTL_R_CLOSE_SERVICE *r_u)
+WERROR _svcctl_CloseServiceHandle(pipes_struct *p, struct svcctl_CloseServiceHandle *r)
 {
-       return close_policy_hnd( p, &q_u->handle ) ? WERR_OK : WERR_BADFID;
+       if ( !close_policy_hnd( p, r->in.handle ) )
+               return  WERR_BADFID;
+
+       ZERO_STRUCTP(r->out.handle);
+
+       return WERR_OK;
 }
 
 /********************************************************************
+ _svcctl_GetServiceDisplayNameW
 ********************************************************************/
 
-WERROR _svcctl_get_display_name(pipes_struct *p, SVCCTL_Q_GET_DISPLAY_NAME *q_u, SVCCTL_R_GET_DISPLAY_NAME *r_u)
+WERROR _svcctl_GetServiceDisplayNameW(pipes_struct *p,
+                                     struct svcctl_GetServiceDisplayNameW *r)
 {
-       fstring service;
-       fstring displayname;
-
-       SERVICE_INFO *service_info;
-       POLICY_HND *handle;
+       const char *service;
+       const char *display_name;
+       SERVICE_INFO *info = find_service_info_by_hnd( p, r->in.handle );
 
-       rpcstr_pull(service, q_u->servicename.buffer, sizeof(service), q_u->servicename.uni_str_len*2, 0);
+       /* can only use an SCM handle here */
 
-       handle = &(q_u->handle);
+       if ( !info || (info->type != SVC_HANDLE_IS_SCM) )
+               return WERR_BADFID;
 
-       service_info = find_service_info_by_hnd(p, handle);
+       service = r->in.service_name;
 
-       if (!service_info) {
-               DEBUG(10, ("_svcctl_get_display_name : Can't find the service for the handle\n"));
-               return WERR_ACCESS_DENIED;
+       display_name = svcctl_lookup_dispname(p->mem_ctx, service,
+                                             p->server_info->ptok);
+       if (!display_name) {
+               display_name = "";
        }
 
-       DEBUG(10,("_svcctl_get_display_name: Found service [%s]\n", service_info->name ));
-
-       fstrcpy( displayname, "FIX ME!" );
-
-       init_svcctl_r_get_display_name( r_u, displayname );
+       *r->out.display_name = display_name;
+       *r->out.display_name_length = strlen(display_name);
 
        return WERR_OK;
 }
 
 /********************************************************************
+ _svcctl_QueryServiceStatus
 ********************************************************************/
 
-WERROR _svcctl_query_status(pipes_struct *p, SVCCTL_Q_QUERY_STATUS *q_u, SVCCTL_R_QUERY_STATUS *r_u)
+WERROR _svcctl_QueryServiceStatus(pipes_struct *p,
+                                 struct svcctl_QueryServiceStatus *r)
 {
-       r_u->svc_status.type = 0x0020;
-       r_u->svc_status.state = 0x0004;
-       r_u->svc_status.controls_accepted = 0x0005;
+       SERVICE_INFO *info = find_service_info_by_hnd( p, r->in.handle );
 
-       return WERR_OK;
+       /* perform access checks */
+
+       if ( !info || (info->type != SVC_HANDLE_IS_SERVICE) )
+               return WERR_BADFID;
+
+       if ( !(info->access_granted & SC_RIGHT_SVC_QUERY_STATUS) )
+               return WERR_ACCESS_DENIED;
+
+       /* try the service specific status call */
+
+       return info->ops->service_status( info->name, r->out.service_status );
 }
 
-/* allocate an array of external services and return them. Null return is okay, make sure &added is also zero! */
+/********************************************************************
+********************************************************************/
 
-int _svcctl_num_external_services(void)
+static int enumerate_status( TALLOC_CTX *ctx, ENUM_SERVICES_STATUS **status, NT_USER_TOKEN *token )
 {
-       int num_services;
-       char **svc_list;
-       pstring keystring, external_services_string;
-       TDB_DATA key_data;
+       int num_services = 0;
+       int i;
+       ENUM_SERVICES_STATUS *st;
+       const char *display_name;
 
+       /* just count */
+       while ( svcctl_ops[num_services].name )
+               num_services++;
 
-       if (!service_tdb) {
-               DEBUG(8,("enum_external_services: service database is not open!!!\n"));
-               num_services = 0;
-       } else {
-               pstrcpy(keystring,"EXTERNAL_SERVICES");
-               tdb_lock_bystring(service_tdb, keystring, 0);
-               key_data = tdb_fetch_bystring(service_tdb, keystring);
-
-               if ((key_data.dptr != NULL) && (key_data.dsize != 0)) {
-                       strncpy(external_services_string,key_data.dptr,key_data.dsize);
-                       external_services_string[key_data.dsize] = 0;
-                       DEBUG(8,("enum_external_services: services list is %s, size is %d\n",external_services_string,key_data.dsize));
-               }
-               tdb_unlock_bystring(service_tdb, keystring);
-       } 
-       svc_list = str_list_make(external_services_string,NULL);
-       num_services = str_list_count( (const char **)svc_list);
+       if ( !(st = TALLOC_ARRAY( ctx, ENUM_SERVICES_STATUS, num_services )) ) {
+               DEBUG(0,("enumerate_status: talloc() failed!\n"));
+               return -1;
+       }
 
-       return num_services;
-}
+       for ( i=0; i<num_services; i++ ) {
+               init_unistr( &st[i].servicename, svcctl_ops[i].name );
+
+               display_name = svcctl_lookup_dispname(ctx, svcctl_ops[i].name, token );
+               init_unistr( &st[i].displayname, display_name ? display_name : "");
 
+               svcctl_ops[i].ops->service_status( svcctl_ops[i].name, &st[i].status );
+       }
 
+       *status = st;
+
+       return num_services;
+}
 
 /********************************************************************
-  Gather information on the "external services". These are services 
-  listed in the smb.conf file, and found to exist through checks in 
-  this code. Note that added will be incremented on the basis of the 
-  number of services added.  svc_ptr should have enough memory allocated 
-  to accommodate all of the services that exist. 
-
-  Typically _svcctl_num_external_services is used to "size" the amount of
-  memory allocated, but does little/no work. 
-
-  enum_external_services() actually examines each of the specified 
-  external services, populates the memory structures, and returns.
-
-  ** note that 'added' may end up with less than the number of services 
-  found in _num_external_services, such as the case when a service is
-  called out, but the actual service doesn't exist or the file can't be 
-  read for the service information.
 ********************************************************************/
 
-WERROR enum_external_services(TALLOC_CTX *tcx,ENUM_SERVICES_STATUS **svc_ptr, int existing_services,int *added) 
+WERROR _svcctl_enum_services_status(pipes_struct *p, SVCCTL_Q_ENUM_SERVICES_STATUS *q_u, SVCCTL_R_ENUM_SERVICES_STATUS *r_u)
 {
-       /* *svc_ptr must have pre-allocated memory */
-       int num_services = 0;
+       ENUM_SERVICES_STATUS *services = NULL;
+       int num_services;
        int i = 0;
-       ENUM_SERVICES_STATUS *services=NULL;
-       char **svc_list,**svcname;
-       pstring command, keystring, external_services_string;
-       int ret;
-       int fd = -1;
-       Service_info *si;
-       TDB_DATA key_data;
-
-       *added = num_services;
-
-       if (!service_tdb) {
-               DEBUG(8,("enum_external_services: service database is not open!!!\n"));
-       } else {
-               pstrcpy(keystring,"EXTERNAL_SERVICES");
-               tdb_lock_bystring(service_tdb, keystring, 0);
-               key_data = tdb_fetch_bystring(service_tdb, keystring);
-               if ((key_data.dptr != NULL) && (key_data.dsize != 0)) {
-                       strncpy(external_services_string,key_data.dptr,key_data.dsize);
-                       external_services_string[key_data.dsize] = 0;
-                       DEBUG(8,("enum_external_services: services list is %s, size is %d\n",external_services_string,key_data.dsize));
-               }
-               tdb_unlock_bystring(service_tdb, keystring);
-       } 
-       svc_list = str_list_make(external_services_string,NULL);
-       num_services = str_list_count( (const char **)svc_list);
-
-       if (0 == num_services) {
-               DEBUG(8,("enum_external_services: there are no external services\n"));
-               *added = num_services;
-               return WERR_OK;
-       }
-       DEBUG(8,("enum_external_services: there are [%d] external services\n",num_services));
-       si=TALLOC_ARRAY( tcx, Service_info, 1 );
-       if (si == NULL) { 
-               DEBUG(8,("enum_external_services: Failed to alloc si\n"));
-               return WERR_NOMEM;
-       }
+       size_t buffer_size = 0;
+       WERROR result = WERR_OK;
+       SERVICE_INFO *info = find_service_info_by_hnd( p, &q_u->handle );
+       NT_USER_TOKEN *token = p->server_info->ptok;
 
-#if 0
-/* *svc_ptr has the pointer to the array if there is one already. NULL if not. */
-       if ((existing_services>0) && svc_ptr && *svc_ptr) { /* reallocate vs. allocate */
-               DEBUG(8,("enum_external_services: REALLOCing %x to %d services\n", *svc_ptr, existing_services+num_services));
+       /* perform access checks */
 
-               services=TALLOC_REALLOC_ARRAY(tcx,*svc_ptr,ENUM_SERVICES_STATUS,existing_services+num_services);
-               DEBUG(8,("enum_external_services: REALLOCed to %x services\n", services));
+       if ( !info || (info->type != SVC_HANDLE_IS_SCM) )
+               return WERR_BADFID;
 
-               if (!services) return WERR_NOMEM;
-                       *svc_ptr = services;
-       } else {
-               if ( !(services = TALLOC_ARRAY( tcx, ENUM_SERVICES_STATUS, num_services )) )
-                       return WERR_NOMEM;
+       if ( !(info->access_granted & SC_RIGHT_MGR_ENUMERATE_SERVICE) ) {
+               return WERR_ACCESS_DENIED;
        }
-#endif
 
-       if (!svc_ptr || !(*svc_ptr)) 
+       num_services = enumerate_status( p->mem_ctx, &services, token );
+       if (num_services == -1 ) {
                return WERR_NOMEM;
-       services = *svc_ptr;
-       if (existing_services > 0) {
-               i+=existing_services;
        }
 
-       svcname = svc_list;
-       DEBUG(8,("enum_external_services: enumerating %d external services starting at index %d\n", num_services,existing_services));
+        for ( i=0; i<num_services; i++ ) {
+               buffer_size += svcctl_sizeof_enum_services_status(&services[i]);
+       }
 
-       while (*svcname) {
-               DEBUG(10,("enum_external_services: Reading information on service %s, index %d\n",*svcname,i));
-               /* _svcctl_get_LSB_data(*svcname,si);  */
-               if (!read_service_tdb_to_si(service_tdb,*svcname, si)) {
-                       DEBUG(1,("enum_external_services: CAN'T FIND INFO FOR SERVICE %s in the services DB\n",*svcname));
-               }
+       buffer_size += buffer_size % 4;
 
-               if ((si->filename == NULL) || (*si->filename == 0)) {
-                       init_unistr(&services[i].servicename, *svcname );
-               } else {
-                       init_unistr( &services[i].servicename, si->filename );    
-                       /* init_unistr( &services[i].servicename, si->servicename ); */
-               }
+       if (buffer_size > q_u->buffer_size ) {
+               num_services = 0;
+               result = WERR_MORE_DATA;
+       }
 
-               if ((si->provides == NULL) || (*si->provides == 0)) {
-                       init_unistr(&services[i].displayname, *svcname );
-               } else {
-                       init_unistr( &services[i].displayname, si->provides );
-               }
+       rpcbuf_init(&r_u->buffer, q_u->buffer_size, p->mem_ctx);
 
-               /* TODO - we could keep the following info in the DB, too... */
-
-               DEBUG(8,("enum_external_services: Service name [%s] displayname [%s]\n",
-               si->filename, si->provides)); 
-               services[i].status.type               = SVCCTL_WIN32_OWN_PROC; 
-               services[i].status.win32_exit_code    = 0x0;
-               services[i].status.service_exit_code  = 0x0;
-               services[i].status.check_point        = 0x0;
-               services[i].status.wait_hint          = 0x0;
-
-               /* TODO - do callout here to get the status */
-
-               memset(command, 0, sizeof(command));
-               slprintf(command, sizeof(command)-1, "%s%s%s %s", dyn_LIBDIR, SVCCTL_SCRIPT_DIR, *svcname, "status");
-
-               DEBUG(10, ("enum_external_services: status command is [%s]\n", command));
-
-               /* TODO  - wrap in privilege check */
-
-               ret = smbrun(command, &fd);
-               DEBUGADD(10, ("returned [%d]\n", ret));
-               close(fd);
-               if(ret != 0)
-                       DEBUG(10, ("enum_external_services: Command returned  [%d]\n", ret));
-               services[i].status.state              = SVCCTL_STOPPED;
-               if (ret == 0) {
-                       services[i].status.state              = SVCCTL_RUNNING;
-                       services[i].status.controls_accepted  = SVCCTL_CONTROL_SHUTDOWN | SVCCTL_CONTROL_STOP;
-               } else {
-                       services[i].status.state              = SVCCTL_STOPPED;
-                       services[i].status.controls_accepted  = 0;
-               }
-               svcname++; 
-               i++;
-       } 
+       if ( W_ERROR_IS_OK(result) ) {
+               for ( i=0; i<num_services; i++ )
+                       svcctl_io_enum_services_status( "", &services[i], &r_u->buffer, 0 );
+       }
+
+       r_u->needed      = (buffer_size > q_u->buffer_size) ? buffer_size : q_u->buffer_size;
+       r_u->returned    = (uint32)num_services;
 
-       DEBUG(10,("enum_external_services: Read services %d\n",num_services));
-       *added = num_services;
+       if ( !(r_u->resume = TALLOC_P( p->mem_ctx, uint32 )) )
+               return WERR_NOMEM;
 
-       return WERR_OK;
+       *r_u->resume = 0x0;
+
+       return result;
 }
 
-int _svcctl_num_internal_services(void)
+/********************************************************************
+ _svcctl_StartServiceW
+********************************************************************/
+
+WERROR _svcctl_StartServiceW(pipes_struct *p,
+                            struct svcctl_StartServiceW *r)
 {
-       int num_services;
-       char **svc_list;
-       pstring keystring, internal_services_string;
-       TDB_DATA key_data;
+       SERVICE_INFO *info = find_service_info_by_hnd( p, r->in.handle );
 
-       if (!service_tdb) {
-               DEBUG(8,("_svcctl_enum_internal_services: service database is not open!!!\n"));
-               num_services = 0;
-       } else {
-               pstrcpy(keystring,"INTERNAL_SERVICES");
-               tdb_lock_bystring(service_tdb, keystring, 0);
-               key_data = tdb_fetch_bystring(service_tdb, keystring);
-
-               if ((key_data.dptr != NULL) && (key_data.dsize != 0)) {
-                       strncpy(internal_services_string,key_data.dptr,key_data.dsize);
-                       internal_services_string[key_data.dsize] = 0;
-                       DEBUG(8,("_svcctl_enum_internal_services: services list is %s, size is %d\n",internal_services_string,key_data.dsize));
-               }
-               tdb_unlock_bystring(service_tdb, keystring);
-       } 
-       svc_list = str_list_make(internal_services_string,NULL);
-       num_services = str_list_count( (const char **)svc_list);
+       /* perform access checks */
 
-       return num_services;
-}
+       if ( !info || (info->type != SVC_HANDLE_IS_SERVICE) )
+               return WERR_BADFID;
 
-#if 0
+       if ( !(info->access_granted & SC_RIGHT_SVC_START) )
+               return WERR_ACCESS_DENIED;
 
-int _svcctl_num_internal_services(void)
-{
-       return 2;
+       return info->ops->start_service( info->name );
 }
-#endif
 
-/* TODO - for internal services, do similar to external services, except we have to call the right status routine... */
+/********************************************************************
+ _svcctl_ControlService
+********************************************************************/
 
-WERROR _svcctl_enum_internal_services(TALLOC_CTX *tcx,ENUM_SERVICES_STATUS **svc_ptr, int existing_services, int *added) 
+WERROR _svcctl_ControlService(pipes_struct *p,
+                             struct svcctl_ControlService *r)
 {
-       int num_services = 2;
-       int i = 0;
-       ENUM_SERVICES_STATUS *services=NULL;
+       SERVICE_INFO *info = find_service_info_by_hnd( p, r->in.handle );
 
-       if (!svc_ptr || !(*svc_ptr)) 
-               return WERR_NOMEM;
+       /* perform access checks */
 
-       services = *svc_ptr;
-
-#if 0
-       /* *svc_ptr has the pointer to the array if there is one already. NULL if not. */
-       if ((existing_services>0) && svc_ptr && *svc_ptr) { /* reallocate vs. allocate */
-               DEBUG(8,("_svcctl_enum_internal_services: REALLOCing %d services\n", num_services));
-               services = TALLOC_REALLOC_ARRAY(tcx,*svc_ptr,ENUM_SERVICES_STATUS,existing_services+num_services);
-               if (!rsvcs) 
-                       return WERR_NOMEM;
-               *svc_ptr = services;
-       } else {
-               if ( !(services = TALLOC_ARRAY( tcx, ENUM_SERVICES_STATUS, num_services )) )
-                       return WERR_NOMEM;
-       }
-#endif
+       if ( !info || (info->type != SVC_HANDLE_IS_SERVICE) )
+               return WERR_BADFID;
 
-       if (existing_services > 0) {
-               i += existing_services;
-       }
-       DEBUG(8,("_svcctl_enum_internal_services: Creating %d services, starting index %d\n", num_services,existing_services));
-                               
-       init_unistr( &services[i].servicename, "Spooler" );
-       init_unistr( &services[i].displayname, "Print Spooler" );
-       
-       services[i].status.type               = 0x110;
-       services[i].status.controls_accepted  = 0x0;
-       services[i].status.win32_exit_code    = 0x0;
-       services[i].status.service_exit_code  = 0x0;
-       services[i].status.check_point        = 0x0;
-       services[i].status.wait_hint          = 0x0;
-       if ( !lp_disable_spoolss() ) 
-               services[i].status.state              = SVCCTL_RUNNING;
-       else
-               services[i].status.state              = SVCCTL_STOPPED;
-
-       i++;            
-       
-       init_unistr( &services[i].servicename, "NETLOGON" );
-       init_unistr( &services[i].displayname, "Net Logon" );
-       
-       services[i].status.type               = 0x20;   
-       services[i].status.controls_accepted  = 0x0;
-       services[i].status.win32_exit_code    = 0x0;
-       services[i].status.service_exit_code  = 0x0;
-       services[i].status.check_point        = 0x0;
-       services[i].status.wait_hint          = 0x0;
-       if ( lp_servicenumber("NETLOGON") != -1 ) 
-               services[i].status.state              = SVCCTL_RUNNING;
-       else
-               services[i].status.state              = SVCCTL_STOPPED;
+       switch ( r->in.control ) {
+       case SVCCTL_CONTROL_STOP:
+               if ( !(info->access_granted & SC_RIGHT_SVC_STOP) )
+                       return WERR_ACCESS_DENIED;
 
-       *added = num_services;
+               return info->ops->stop_service( info->name,
+                                               r->out.service_status );
 
-       return WERR_OK;
+       case SVCCTL_CONTROL_INTERROGATE:
+               if ( !(info->access_granted & SC_RIGHT_SVC_QUERY_STATUS) )
+                       return WERR_ACCESS_DENIED;
+
+               return info->ops->service_status( info->name,
+                                                 r->out.service_status );
+       default:
+               return WERR_ACCESS_DENIED;
+       }
 }
 
-WERROR _init_svcdb(void) 
+/********************************************************************
+ _svcctl_EnumDependentServicesW
+********************************************************************/
+
+WERROR _svcctl_EnumDependentServicesW(pipes_struct *p,
+                                     struct svcctl_EnumDependentServicesW *r)
 {
-       if (svcdb) {
-               talloc_destroy(svcdb);
-       }
-       svcdb = talloc_init("services DB");
+       SERVICE_INFO *info = find_service_info_by_hnd( p, r->in.service );
+
+       /* perform access checks */
+
+       if ( !info || (info->type != SVC_HANDLE_IS_SERVICE) )
+               return WERR_BADFID;
+
+       if ( !(info->access_granted & SC_RIGHT_SVC_ENUMERATE_DEPENDENTS) )
+               return WERR_ACCESS_DENIED;
+
+       /* we have to set the outgoing buffer size to the same as the
+          incoming buffer size (even in the case of failure */
+       /* this is done in the autogenerated server already - gd */
+
+       *r->out.bytes_needed = r->in.buf_size;
+
+       /* no dependent services...basically a stub function */
+       *r->out.services_returned = 0;
 
        return WERR_OK;
 }
@@ -1084,419 +557,548 @@ WERROR _init_svcdb(void)
 /********************************************************************
 ********************************************************************/
 
-WERROR _svcctl_enum_services_status(pipes_struct *p, SVCCTL_Q_ENUM_SERVICES_STATUS *q_u, SVCCTL_R_ENUM_SERVICES_STATUS *r_u)
+WERROR _svcctl_query_service_status_ex( pipes_struct *p, SVCCTL_Q_QUERY_SERVICE_STATUSEX *q_u, SVCCTL_R_QUERY_SERVICE_STATUSEX *r_u )
 {
-       ENUM_SERVICES_STATUS *services = NULL;
-       uint32 num_int_services = 0;
-       uint32 num_ext_services = 0;
-       int i = 0;
-       size_t buffer_size;
-       WERROR result = WERR_OK;
-       WERROR ext_result = WERR_OK;            
+       SERVICE_INFO *info = find_service_info_by_hnd( p, &q_u->handle );
+       uint32 buffer_size;
 
-       /* num_services = str_list_count( lp_enable_svcctl() ); */
+       /* perform access checks */
 
-       /* here's where we'll read the db of external services */
-       /* _svcctl_read_LSB_data(NULL,NULL); */
-       /* init_svcctl_db(); */
-       
-       num_int_services = 0;
+       if ( !info || (info->type != SVC_HANDLE_IS_SERVICE) )
+               return WERR_BADFID;
 
-       num_int_services = _svcctl_num_internal_services();
+       if ( !(info->access_granted & SC_RIGHT_SVC_QUERY_STATUS) )
+               return WERR_ACCESS_DENIED;
 
-       num_ext_services =  _svcctl_num_external_services();
+       /* we have to set the outgoing buffer size to the same as the
+          incoming buffer size (even in the case of failure) */
 
-       if ( !(services = TALLOC_ARRAY(p->mem_ctx, ENUM_SERVICES_STATUS, num_int_services+num_ext_services )) )
-          return WERR_NOMEM;
+       rpcbuf_init( &r_u->buffer, q_u->buffer_size, p->mem_ctx );
+       r_u->needed = q_u->buffer_size;
 
-        result = _svcctl_enum_internal_services(p->mem_ctx, &services, 0, &num_int_services);
+       switch ( q_u->level ) {
+               case SVC_STATUS_PROCESS_INFO:
+               {
+                       SERVICE_STATUS_PROCESS svc_stat_proc;
 
-       if (W_ERROR_IS_OK(result)) {
-               DEBUG(8,("_svcctl_enum_services_status: Got %d internal services\n", num_int_services));
-       } 
+                       /* Get the status of the service.. */
+                       info->ops->service_status( info->name, &svc_stat_proc.status );
+                       svc_stat_proc.process_id     = sys_getpid();
+                       svc_stat_proc.service_flags  = 0x0;
 
-       ext_result=enum_external_services(p->mem_ctx, &services, num_int_services, &num_ext_services);
+                       svcctl_io_service_status_process( "", &svc_stat_proc, &r_u->buffer, 0 );
+                       buffer_size = sizeof(SERVICE_STATUS_PROCESS);
+                       break;
+               }
 
-       if (W_ERROR_IS_OK(ext_result)) {
-               DEBUG(8,("_svcctl_enum_services_status: Got %d external services\n", num_ext_services));
-       } 
+               default:
+                       return WERR_UNKNOWN_LEVEL;
+       }
 
-        DEBUG(8,("_svcctl_enum_services_status: total of %d services\n", num_int_services+num_ext_services));
 
-       buffer_size = 0;
-        for (i=0;i<num_int_services+num_ext_services;i++) {
-         buffer_size += svcctl_sizeof_enum_services_status(&services[i]);
-       }
+        buffer_size += buffer_size % 4;
+       r_u->needed = (buffer_size > q_u->buffer_size) ? buffer_size : q_u->buffer_size;
 
-       /* */
-       buffer_size += buffer_size % 4;
-       DEBUG(8,("_svcctl_enum_services_status: buffer size passed %d, we need %d\n",
-                q_u->buffer_size, buffer_size));
+        if (buffer_size > q_u->buffer_size )
+                return WERR_MORE_DATA;
 
-       if (buffer_size > q_u->buffer_size ) {
-               num_int_services = 0;
-               num_ext_services = 0;
-               result = WERR_MORE_DATA;
-       }
+       return WERR_OK;
+}
 
-       rpcbuf_init(&r_u->buffer, q_u->buffer_size, p->mem_ctx);
+/********************************************************************
+********************************************************************/
 
-       if ( W_ERROR_IS_OK(result) ) {
-               for ( i=0; i<num_int_services+num_ext_services; i++ )
-                       svcctl_io_enum_services_status( "", &services[i], &r_u->buffer, 0 );
+static WERROR fill_svc_config( TALLOC_CTX *ctx, const char *name,
+                              struct QUERY_SERVICE_CONFIG *config,
+                              NT_USER_TOKEN *token )
+{
+       REGVAL_CTR *values;
+       REGISTRY_VALUE *val;
+
+       /* retrieve the registry values for this service */
+
+       if ( !(values = svcctl_fetch_regvalues( name, token )) )
+               return WERR_REG_CORRUPT;
+
+       /* now fill in the individual values */
+
+       if ( (val = regval_ctr_getvalue( values, "DisplayName" )) != NULL )
+               config->displayname = regval_sz(val);
+       else
+               config->displayname = name;
+
+       if ( (val = regval_ctr_getvalue( values, "ObjectName" )) != NULL ) {
+               config->startname = regval_sz(val);
        }
 
-       r_u->needed      = (buffer_size > q_u->buffer_size) ? buffer_size : q_u->buffer_size;
-       r_u->returned    = num_int_services+num_ext_services;
+       if ( (val = regval_ctr_getvalue( values, "ImagePath" )) != NULL ) {
+               config->executablepath = regval_sz(val);
+       }
 
-       if ( !(r_u->resume = TALLOC_P( p->mem_ctx, uint32 )) )
-               return WERR_NOMEM;
+       /* a few hard coded values */
+       /* loadordergroup and dependencies are empty */
 
-       *r_u->resume = 0x0;
+       config->tag_id           = 0x00000000;                  /* unassigned loadorder group */
+       config->service_type     = SVCCTL_WIN32_OWN_PROC;
+       config->error_control    = SVCCTL_SVC_ERROR_NORMAL;
 
-       return result;
+       /* set the start type.  NetLogon and WINS are disabled to prevent
+          the client from showing the "Start" button (if of course the services
+          are not running */
+
+       if ( strequal( name, "NETLOGON" ) && ( lp_servicenumber(name) == -1 ) )
+               config->start_type = SVCCTL_DISABLED;
+       else if ( strequal( name, "WINS" ) && ( !lp_wins_support() ))
+               config->start_type = SVCCTL_DISABLED;
+       else
+               config->start_type = SVCCTL_DEMAND_START;
+
+
+       TALLOC_FREE( values );
+
+       return WERR_OK;
 }
 
 /********************************************************************
+ _svcctl_QueryServiceConfigW
 ********************************************************************/
 
-WERROR _svcctl_start_service(pipes_struct *p, SVCCTL_Q_START_SERVICE *q_u, SVCCTL_R_START_SERVICE *r_u)
+WERROR _svcctl_QueryServiceConfigW(pipes_struct *p,
+                                  struct svcctl_QueryServiceConfigW *r)
 {
-       return WERR_ACCESS_DENIED;
+       SERVICE_INFO *info = find_service_info_by_hnd( p, r->in.handle );
+       uint32 buffer_size;
+       WERROR wresult;
+
+       /* perform access checks */
+
+       if ( !info || (info->type != SVC_HANDLE_IS_SERVICE) )
+               return WERR_BADFID;
+
+       if ( !(info->access_granted & SC_RIGHT_SVC_QUERY_CONFIG) )
+               return WERR_ACCESS_DENIED;
+
+       /* we have to set the outgoing buffer size to the same as the
+          incoming buffer size (even in the case of failure */
+
+       *r->out.bytes_needed = r->in.buf_size;
+
+       wresult = fill_svc_config( p->mem_ctx, info->name, r->out.query,
+                                  p->server_info->ptok);
+       if ( !W_ERROR_IS_OK(wresult) )
+               return wresult;
+
+       buffer_size = ndr_size_QUERY_SERVICE_CONFIG(r->out.query, NULL, 0);
+       *r->out.bytes_needed = (buffer_size > r->in.buf_size) ? buffer_size : r->in.buf_size;
+
+        if (buffer_size > r->in.buf_size ) {
+               ZERO_STRUCTP(r->out.query);
+                return WERR_INSUFFICIENT_BUFFER;
+       }
+
+       return WERR_OK;
 }
 
 /********************************************************************
 ********************************************************************/
 
-WERROR _svcctl_control_service(pipes_struct *p, SVCCTL_Q_CONTROL_SERVICE *q_u, SVCCTL_R_CONTROL_SERVICE *r_u)
+WERROR _svcctl_query_service_config2( pipes_struct *p, SVCCTL_Q_QUERY_SERVICE_CONFIG2 *q_u, SVCCTL_R_QUERY_SERVICE_CONFIG2 *r_u )
 {
-#if 0
-       SERVICE_INFO *service_info;
-       POLICY_HND   *handle;
-       pstring      command;
-       SERVICE_STATUS *service_status;
-       int          ret,fd;
+       SERVICE_INFO *info = find_service_info_by_hnd( p, &q_u->handle );
+       uint32 buffer_size;
 
-       /* need to find the service name by the handle that is open */
-       handle = &(q_u->handle);
+       /* perform access checks */
 
-       service_info = find_service_info_by_hnd(p, handle);
+       if ( !info || (info->type != SVC_HANDLE_IS_SERVICE) )
+               return WERR_BADFID;
 
-       if (!service_info) {
-               DEBUG(10, ("_svcctl_control_service : Can't find the service for the handle\n"));
-               return WERR_BADFID; 
-       }
+       if ( !(info->access_granted & SC_RIGHT_SVC_QUERY_CONFIG) )
+               return WERR_ACCESS_DENIED;
 
-       /* we return a SERVICE_STATUS structure if there's an error. */
-       if ( !(service_status = TALLOC_ARRAY(p->mem_ctx, SERVICE_STATUS, 1 ))  )
-               return WERR_NOMEM;
+       /* we have to set the outgoing buffer size to the same as the
+          incoming buffer size (even in the case of failure */
 
-       DEBUG(10, ("_svcctl_control_service: Found service [%s], [%s]\n",
-               service_info->servicename, service_info->filename));
+       rpcbuf_init( &r_u->buffer, q_u->buffer_size, p->mem_ctx );
+       r_u->needed = q_u->buffer_size;
 
-       /* TODO  - call the service config function here... */
-       memset(command, 0, sizeof(command));
-       if (q_u->control == SVCCTL_CONTROL_STOP) {
-               slprintf(command, sizeof(command)-1, "%s%s%s %s", dyn_LIBDIR, SVCCTL_SCRIPT_DIR,
-                       service_info->filename, "stop");
-       }
+       switch ( q_u->level ) {
+       case SERVICE_CONFIG_DESCRIPTION:
+               {
+                       SERVICE_DESCRIPTION desc_buf;
+                       const char *description;
 
-       if (q_u->control == SVCCTL_CONTROL_PAUSE) {
-               slprintf(command, sizeof(command)-1, "%s%s%s %s", dyn_LIBDIR, SVCCTL_SCRIPT_DIR,
-                       service_info->filename, "stop");
-       }
+                       description = svcctl_lookup_description(
+                               p->mem_ctx, info->name, p->server_info->ptok);
 
-       if (q_u->control == SVCCTL_CONTROL_CONTINUE) {
-               slprintf(command, sizeof(command)-1, "%s%s%s %s", dyn_LIBDIR, SVCCTL_SCRIPT_DIR,
-                       service_info->filename, "restart");
-       }
+                       ZERO_STRUCTP( &desc_buf );
 
-        DEBUG(10, ("_svcctl_control_service: status command is [%s]\n", command));
+                       init_service_description_buffer( &desc_buf, description ? description : "");
+                       svcctl_io_service_description( "", &desc_buf, &r_u->buffer, 0 );
+                       buffer_size = svcctl_sizeof_service_description( &desc_buf );
 
-       /* TODO  - wrap in privilege check */
+                       break;
+               }
+               break;
+       case SERVICE_CONFIG_FAILURE_ACTIONS:
+               {
+                       SERVICE_FAILURE_ACTIONS actions;
+
+                       /* nothing to say...just service the request */
 
-       ret = smbrun(command, &fd);
-       DEBUGADD(10, ("returned [%d]\n", ret));
-        close(fd);
+                       ZERO_STRUCTP( &actions );
+                       svcctl_io_service_fa( "", &actions, &r_u->buffer, 0 );
+                       buffer_size = svcctl_sizeof_service_fa( &actions );
 
-       if(ret != 0)
-               DEBUG(10, ("enum_external_services: Command returned  [%d]\n", ret));
+                       break;
+               }
+               break;
 
-       /* SET all service_stats bits here...*/
-       if (ret == 0) {
-               service_status->state              = SVCCTL_RUNNING;
-               service_status->controls_accepted  = SVCCTL_CONTROL_SHUTDOWN | SVCCTL_CONTROL_STOP;
-       } else {
-               service_status->state              = SVCCTL_STOPPED;
-               service_status->controls_accepted  = 0;
+       default:
+               return WERR_UNKNOWN_LEVEL;
        }
 
-       DEBUG(10, ("_svcctl_query_service_config: Should call the commFound service [%s], [%s]\n",service_info->servicename,service_info->filename));
+       buffer_size += buffer_size % 4;
+       r_u->needed = (buffer_size > q_u->buffer_size) ? buffer_size : q_u->buffer_size;
 
-#endif
+        if (buffer_size > q_u->buffer_size )
+                return WERR_INSUFFICIENT_BUFFER;
 
        return WERR_OK;
 }
 
 /********************************************************************
+ _svcctl_LockServiceDatabase
 ********************************************************************/
 
-WERROR _svcctl_enum_dependent_services( pipes_struct *p, SVCCTL_Q_ENUM_DEPENDENT_SERVICES *q_u, SVCCTL_R_ENUM_DEPENDENT_SERVICES *r_u )
+WERROR _svcctl_LockServiceDatabase(pipes_struct *p,
+                                  struct svcctl_LockServiceDatabase *r)
 {
-       
-       /* we have to set the outgoing buffer size to the same as the 
-          incoming buffer size (even in the case of failure */
+       SERVICE_INFO *info = find_service_info_by_hnd( p, r->in.handle );
 
-       rpcbuf_init( &r_u->buffer, q_u->buffer_size, p->mem_ctx );
-                               
-       r_u->needed      = q_u->buffer_size;
-       
-       /* no dependent services...basically a stub function */
-       r_u->returned    = 0;
+       /* perform access checks */
 
-       return WERR_OK;
+       if ( !info || (info->type != SVC_HANDLE_IS_SCM) )
+               return WERR_BADFID;
+
+       if ( !(info->access_granted & SC_RIGHT_MGR_LOCK) )
+               return WERR_ACCESS_DENIED;
+
+       /* Just open a handle.  Doesn't actually lock anything */
+
+       return create_open_service_handle( p, r->out.lock, SVC_HANDLE_IS_DBLOCK, NULL, 0 );
 }
 
 /********************************************************************
+ _svcctl_UnlockServiceDatabase
 ********************************************************************/
 
-WERROR _svcctl_query_service_status_ex( pipes_struct *p, SVCCTL_Q_QUERY_SERVICE_STATUSEX *q_u, SVCCTL_R_QUERY_SERVICE_STATUSEX *r_u )
+WERROR _svcctl_UnlockServiceDatabase(pipes_struct *p,
+                                    struct svcctl_UnlockServiceDatabase *r)
 {
-        SERVICE_STATUS_PROCESS ssp;
-       POLICY_HND *handle;
-       SERVICE_INFO *service_info;
-       pstring     command;
+       SERVICE_INFO *info = find_service_info_by_hnd( p, r->in.lock );
 
-       /* we have to set the outgoing buffer size to the same as the 
-          incoming buffer size (even in the case of failure */
 
-       r_u->needed      = q_u->buffer_size;
+       if ( !info || (info->type != SVC_HANDLE_IS_DBLOCK) )
+               return WERR_BADFID;
 
-        /* need to find the service name by the handle that is open */
-       handle = &(q_u->handle);
+       return close_policy_hnd( p, r->out.lock) ? WERR_OK : WERR_BADFID;
+}
 
+/********************************************************************
+ _svcctl_QueryServiceObjectSecurity
+********************************************************************/
 
-       /* get rid of the easy errors */
+WERROR _svcctl_QueryServiceObjectSecurity(pipes_struct *p,
+                                         struct svcctl_QueryServiceObjectSecurity *r)
+{
+       SERVICE_INFO *info = find_service_info_by_hnd( p, r->in.handle );
+       SEC_DESC *sec_desc;
+       NTSTATUS status;
+       uint8_t *buffer = NULL;
+       size_t len = 0;
 
-       if (q_u->info_level != SVC_STATUS_PROCESS_INFO) {
-               DEBUG(10, ("_svcctl_query_service_status_ex :  Invalid information level specified\n"));
-               return WERR_UNKNOWN_LEVEL; 
-       }
 
-       service_info = find_service_info_by_hnd(p, handle);
+       /* only support the SCM and individual services */
 
-       if (!service_info) {
-               DEBUG(10, ("_svcctl_query_service_status_ex : Can't find the service for the handle\n"));
-               return WERR_BADFID; 
-       }
-       
-       if (r_u->needed < (sizeof(SERVICE_STATUS_PROCESS)+sizeof(uint32)+sizeof(uint32))) {
-               DEBUG(10, ("_svcctl_query_service_status_ex : buffer size of [%d] is too small.\n",r_u->needed));
-               return WERR_INSUFFICIENT_BUFFER;
-       }
+       if ( !info || !(info->type & (SVC_HANDLE_IS_SERVICE|SVC_HANDLE_IS_SCM)) )
+               return WERR_BADFID;
 
-       ZERO_STRUCT(ssp); 
-           
-#if 0
-        if (!strwicmp(service_info->servicetype,"EXTERNAL")) 
-               ssp.type = SVCCTL_WIN32_OWN_PROC;
-       else 
-               ssp.type = SVCCTL_WIN32_SHARED_PROC;
-#endif
+       /* check access reights (according to MSDN) */
 
-       /* Get the status of the service.. */
+       if ( !(info->access_granted & STD_RIGHT_READ_CONTROL_ACCESS) )
+               return WERR_ACCESS_DENIED;
 
-        memset(command, 0, sizeof(command));
+       /* TODO: handle something besides DACL_SECURITY_INFORMATION */
 
-#if 0
-       slprintf(command, sizeof(command)-1, "%s%s%s %s", dyn_LIBDIR, SVCCTL_SCRIPT_DIR, service_info->filename, "status");
+       if ( (r->in.security_flags & DACL_SECURITY_INFORMATION) != DACL_SECURITY_INFORMATION )
+               return WERR_INVALID_PARAM;
 
-        DEBUG(10, ("_svcctl_query_service_status_ex: status command is [%s]\n", command));
+       /* lookup the security descriptor and marshall it up for a reply */
 
-       /* TODO  - wrap in privilege check */
+       if ( !(sec_desc = svcctl_get_secdesc( p->mem_ctx, info->name, get_root_nt_token() )) )
+                return WERR_NOMEM;
 
-       ret = smbrun(command, &fd);
-       DEBUGADD(10, ("returned [%d]\n", ret));
-        close(fd);
-       if(ret != 0)
-               DEBUG(10, ("_svcctl_query_service_status_ex: Command returned  [%d]\n", ret));
+       *r->out.needed = ndr_size_security_descriptor( sec_desc, NULL, 0 );
 
-       /* SET all service_stats bits here... */
-       if (ret == 0) {
-               ssp.state              = SVCCTL_RUNNING;
-               ssp.controls_accepted  = SVCCTL_CONTROL_SHUTDOWN | SVCCTL_CONTROL_STOP;
-       } else {
-               ssp.state              = SVCCTL_STOPPED;
-               ssp.controls_accepted  = 0;
+       if ( *r->out.needed > r->in.buffer_size ) {
+               ZERO_STRUCTP( &r->out.buffer );
+               return WERR_INSUFFICIENT_BUFFER;
        }
-#endif
+
+       status = marshall_sec_desc(p->mem_ctx, sec_desc, &buffer, &len);
+       if (!NT_STATUS_IS_OK(status)) {
+               return ntstatus_to_werror(status);
+       }
+
+       *r->out.needed = len;
+       r->out.buffer = buffer;
 
        return WERR_OK;
 }
 
 /********************************************************************
+ _svcctl_SetServiceObjectSecurity
 ********************************************************************/
 
-WERROR _svcctl_query_service_config( pipes_struct *p, SVCCTL_Q_QUERY_SERVICE_CONFIG *q_u, SVCCTL_R_QUERY_SERVICE_CONFIG *r_u )
+WERROR _svcctl_SetServiceObjectSecurity(pipes_struct *p,
+                                       struct svcctl_SetServiceObjectSecurity *r)
 {
-       POLICY_HND *handle;
-       SERVICE_INFO *service_info;
-        uint32      needed_size;
+       SERVICE_INFO *info = find_service_info_by_hnd( p, r->in.handle );
+       SEC_DESC *sec_desc = NULL;
+       uint32 required_access;
+       NTSTATUS status;
 
-       /* we have to set the outgoing buffer size to the same as the 
-          incoming buffer size (even in the case of failure */
+       if ( !info || !(info->type & (SVC_HANDLE_IS_SERVICE|SVC_HANDLE_IS_SCM))  )
+               return WERR_BADFID;
 
-       r_u->needed      = q_u->buffer_size;
+       /* can't set the security de4scriptor on the ServiceControlManager */
 
-        /* need to find the service name by the handle that is open */
-       handle = &(q_u->handle);
+       if ( info->type == SVC_HANDLE_IS_SCM )
+               return WERR_ACCESS_DENIED;
 
-       service_info = find_service_info_by_hnd(p, handle);
+       /* check the access on the open handle */
 
-#if 0
-       if (q_u->buffer_size < sizeof(Service_info)) {
-               /* have to report need more... */
-               /* TODO worst case -- should actualy calc what we need here. */
-               r_u->needed = sizeof(Service_info)+sizeof(pstring)*5; 
-               DEBUG(10, ("_svcctl_query_service_config: NOT ENOUGH BUFFER ALLOCATED FOR RETURN DATA -- provided %d wanted %d\n",
-               q_u->buffer_size,r_u->needed));
+       switch ( r->in.security_flags ) {
+               case DACL_SECURITY_INFORMATION:
+                       required_access = STD_RIGHT_WRITE_DAC_ACCESS;
+                       break;
 
-               return WERR_INSUFFICIENT_BUFFER;
-       }
-#endif
-       if (!service_info) {
-               DEBUG(10, ("_svcctl_query_service_config : Can't find the service for the handle\n"));
-               return WERR_BADFID; 
+               case OWNER_SECURITY_INFORMATION:
+               case GROUP_SECURITY_INFORMATION:
+                       required_access = STD_RIGHT_WRITE_OWNER_ACCESS;
+                       break;
+
+               case SACL_SECURITY_INFORMATION:
+                       return WERR_INVALID_PARAM;
+               default:
+                       return WERR_INVALID_PARAM;
        }
 
-#if 0
-       if ( !(service_config = (SERVICE_CONFIG *)TALLOC_ZERO_P(p->mem_ctx, SERVICE_CONFIG)) )
-               return WERR_NOMEM;
-#endif
-
-       r_u->config.service_type       = SVCCTL_WIN32_OWN_PROC;
-       r_u->config.start_type         = SVCCTL_DEMAND_START;
-       r_u->config.error_control      = SVCCTL_SVC_ERROR_IGNORE;
-       r_u->config.tag_id = 0x00000000;
-
-       /* Init the strings */
-
-       r_u->config.executablepath = TALLOC_ZERO_P(p->mem_ctx,  UNISTR2);
-       r_u->config.loadordergroup = TALLOC_ZERO_P(p->mem_ctx,  UNISTR2);
-       r_u->config.dependencies = TALLOC_ZERO_P(p->mem_ctx,  UNISTR2);
-       r_u->config.startname = TALLOC_ZERO_P(p->mem_ctx,  UNISTR2);
-       r_u->config.displayname = TALLOC_ZERO_P(p->mem_ctx,  UNISTR2);
-
-#if 0
-       pstrcpy(fullpathinfo,dyn_LIBDIR);
-       pstrcat(fullpathinfo,SVCCTL_SCRIPT_DIR);
-       pstrcat(fullpathinfo,service_info->filename);
-       /* Get and calculate the size of the fields. Note that we're still building the fields in the "too-small buffer case"
-          even though we throw it away. */
-       
-       DEBUG(10, ("_svcctl_query_service_config: fullpath info [%s]\n",fullpathinfo));
-       init_unistr2(r_u->config.executablepath,fullpathinfo,UNI_STR_TERMINATE);
-       init_unistr2(r_u->config.loadordergroup,"",UNI_STR_TERMINATE);
-       init_unistr2(r_u->config.dependencies,service_info->dependencies,UNI_STR_TERMINATE);
-
-       /* TODO - if someone really cares, perhaps "LocalSystem" should be changed to something else here... */
-
-       init_unistr2(r_u->config.startname,"LocalSystem",UNI_STR_TERMINATE);
-       init_unistr2(r_u->config.displayname,service_info->servicename,UNI_STR_TERMINATE);
-#endif
-
-       needed_size = 0x04 + sizeof(SERVICE_CONFIG)+ 2*(
-                     r_u->config.executablepath->uni_str_len +
-                     r_u->config.loadordergroup->uni_str_len + 
-                     r_u->config.dependencies->uni_str_len + 
-                      r_u->config.startname->uni_str_len + 
-                      r_u->config.displayname->uni_str_len);
-       
-               DEBUG(10, ("_svcctl_query_service_config: ****** need to have a buffer of [%d], [%d] for struct \n",needed_size,
-                  sizeof(SERVICE_CONFIG)));
-       DEBUG(10, ("\tsize of executable path : %d\n",r_u->config.executablepath->uni_str_len));
-       DEBUG(10, ("\tsize of loadordergroup  : %d\n", r_u->config.loadordergroup->uni_str_len)); 
-       DEBUG(10, ("\tsize of dependencies    : %d\n", r_u->config.dependencies->uni_str_len)); 
-       DEBUG(10, ("\tsize of startname       : %d\n", r_u->config.startname->uni_str_len));
-       DEBUG(10, ("\tsize of displayname     : %d\n", r_u->config.displayname->uni_str_len));
-
-       if (q_u->buffer_size < needed_size) {
-               /* have to report need more...*/
-               r_u->needed = needed_size;
-                       DEBUG(10, ("_svcctl_query_service_config: ****** zeroing strings for return\n"));
-               memset(&r_u->config,0,sizeof(SERVICE_CONFIG));
-               DEBUG(10, ("_svcctl_query_service_config: Not enouh buffer provided for return -- provided %d wanted %d\n",
-                       q_u->buffer_size,needed_size));
-               return WERR_INSUFFICIENT_BUFFER;
+       if ( !(info->access_granted & required_access) )
+               return WERR_ACCESS_DENIED;
+
+       /* read the security descfriptor */
+
+       status = unmarshall_sec_desc(p->mem_ctx,
+                                    r->in.buffer, r->in.buffer_size,
+                                    &sec_desc);
+       if (!NT_STATUS_IS_OK(status)) {
+               return ntstatus_to_werror(status);
        }
 
+       /* store the new SD */
+
+       if ( !svcctl_set_secdesc( p->mem_ctx, info->name, sec_desc,
+                                 p->server_info->ptok) )
+               return WERR_ACCESS_DENIED;
+
        return WERR_OK;
 }
 
-/********************************************************************
-********************************************************************/
 
-WERROR _svcctl_query_service_config2( pipes_struct *p, SVCCTL_Q_QUERY_SERVICE_CONFIG2 *q_u, SVCCTL_R_QUERY_SERVICE_CONFIG2 *r_u )
+WERROR _svcctl_DeleteService(pipes_struct *p, struct svcctl_DeleteService *r)
 {
-       POLICY_HND *handle;
-       SERVICE_INFO *service_info;
-        uint32   level;
-       /* we have to set the outgoing buffer size to the same as the 
-          incoming buffer size (even in the case of failure */
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
 
-       r_u->needed      = q_u->buffer_size;
-       r_u->description = NULL;               
-       r_u->returned = q_u->buffer_size;
-       r_u->offset = 4;                       
+WERROR _svcctl_SetServiceStatus(pipes_struct *p, struct svcctl_SetServiceStatus *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
 
-       handle = &(q_u->handle);
+WERROR _svcctl_NotifyBootConfigStatus(pipes_struct *p, struct svcctl_NotifyBootConfigStatus *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
 
-       service_info = find_service_info_by_hnd(p, handle);
+WERROR _svcctl_SCSetServiceBitsW(pipes_struct *p, struct svcctl_SCSetServiceBitsW *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
 
-       if (!service_info) {
-               DEBUG(10, ("_svcctl_query_service_config2 : Can't find the service for the handle\n"));
-               return WERR_BADFID; 
-       }
-       
-       /* 
-          TODO - perhaps move the RPC_DATA_BLOB into the R_QUERY_SERVICE_CONFIG structure, and to the processing in here, vs
-           in the *r_query_config2 marshalling routine...
-       */
-
-       level = q_u->info_level;
-
-#if 0
-       if (SERVICE_CONFIG_DESCRIPTION == level) {
-               if (service_info && service_info->shortdescription) {
-                       /* length of the string, plus the terminator... */
-                       string_buffer_size = strlen(service_info->shortdescription)+1; 
-                       DEBUG(10, ("_svcctl_query_service_config: copying the description [%s] length [%d]\n",
-                       service_info->shortdescription,string_buffer_size));
-           
-                       if (q_u->buffer_size >= ((string_buffer_size)*2+4)) {
-                               r_u->description = TALLOC_ZERO_P(p->mem_ctx,  UNISTR2);
-                               if (!r_u->description) return WERR_NOMEM;
-                                       init_unistr2(r_u->description,service_info->shortdescription,UNI_STR_TERMINATE);
-                       }
-               }
-               else { 
-                       string_buffer_size = 0;
-               }
-               DEBUG(10, ("_svcctl_query_service_config2: buffer needed is [%x], return buffer size is [%x]\n",
-                       string_buffer_size,q_u->buffer_size));
-               if (((string_buffer_size)*2+4) > q_u->buffer_size) {
-                       r_u->needed = (string_buffer_size+1)*2+4;
-                       DEBUG(10, ("_svcctl_query_service_config2: INSUFFICIENT BUFFER\n"));
-                       return WERR_INSUFFICIENT_BUFFER;
-               }
-               DEBUG(10, ("_svcctl_query_service_config2: returning ok, needed is [%x], buffer size is [%x]\n",
-               r_u->needed,q_u->buffer_size));
+WERROR _svcctl_ChangeServiceConfigW(pipes_struct *p, struct svcctl_ChangeServiceConfigW *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_CreateServiceW(pipes_struct *p, struct svcctl_CreateServiceW *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
 
-               return WERR_OK;    
-       } 
-#endif
+WERROR _svcctl_EnumServicesStatusW(pipes_struct *p, struct svcctl_EnumServicesStatusW *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
 
-       return WERR_ACCESS_DENIED;
+WERROR _svcctl_QueryServiceLockStatusW(pipes_struct *p, struct svcctl_QueryServiceLockStatusW *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_GetServiceKeyNameW(pipes_struct *p, struct svcctl_GetServiceKeyNameW *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
 }
+
+WERROR _svcctl_SCSetServiceBitsA(pipes_struct *p, struct svcctl_SCSetServiceBitsA *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_ChangeServiceConfigA(pipes_struct *p, struct svcctl_ChangeServiceConfigA *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_CreateServiceA(pipes_struct *p, struct svcctl_CreateServiceA *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_EnumDependentServicesA(pipes_struct *p, struct svcctl_EnumDependentServicesA *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_EnumServicesStatusA(pipes_struct *p, struct svcctl_EnumServicesStatusA *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_OpenSCManagerA(pipes_struct *p, struct svcctl_OpenSCManagerA *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_OpenServiceA(pipes_struct *p, struct svcctl_OpenServiceA *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_QueryServiceConfigA(pipes_struct *p, struct svcctl_QueryServiceConfigA *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_QueryServiceLockStatusA(pipes_struct *p, struct svcctl_QueryServiceLockStatusA *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_StartServiceA(pipes_struct *p, struct svcctl_StartServiceA *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_GetServiceDisplayNameA(pipes_struct *p, struct svcctl_GetServiceDisplayNameA *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_GetServiceKeyNameA(pipes_struct *p, struct svcctl_GetServiceKeyNameA *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_GetCurrentGroupeStateW(pipes_struct *p, struct svcctl_GetCurrentGroupeStateW *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_EnumServiceGroupW(pipes_struct *p, struct svcctl_EnumServiceGroupW *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_ChangeServiceConfig2A(pipes_struct *p, struct svcctl_ChangeServiceConfig2A *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_ChangeServiceConfig2W(pipes_struct *p, struct svcctl_ChangeServiceConfig2W *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_QueryServiceConfig2A(pipes_struct *p, struct svcctl_QueryServiceConfig2A *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_QueryServiceConfig2W(pipes_struct *p, struct svcctl_QueryServiceConfig2W *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_QueryServiceStatusEx(pipes_struct *p, struct svcctl_QueryServiceStatusEx *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _EnumServicesStatusExA(pipes_struct *p, struct EnumServicesStatusExA *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _EnumServicesStatusExW(pipes_struct *p, struct EnumServicesStatusExW *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+
+WERROR _svcctl_SCSendTSMessage(pipes_struct *p, struct svcctl_SCSendTSMessage *r)
+{
+       p->rng_fault_state = True;
+       return WERR_NOT_SUPPORTED;
+}
+