+++ /dev/null
-/* os2acl.c - access to OS/2 (LAN Server) ACLs
- *
- * Author: Kai Uwe Rommel <rommel@ars.de>
- * Created: Mon Aug 08 1994
- *
- * This code is in the public domain.
- */
-
-/*
- * supported 32-bit compilers:
- * - emx+gcc
- * - IBM C Set++ 2.1 or newer
- * - Watcom C/C++ 10.0 or newer
- *
- * supported 16-bit compilers:
- * - MS C 6.00A
- * - Watcom C/C++ 10.0 or newer
- *
- * supported OS/2 LAN environments:
- * - IBM LAN Server/Requester 3.0, 4.0 and 5.0 (Warp Server)
- * - IBM Peer 1.0 (Warp Connect)
- */
-
-#ifdef KUR
- static char *rcsid =
- "$Id$";
- static char *rcsrev = "$Revision$";
-#endif
-
-/*
- * $Log$
- * Revision 1.2 2000/07/15 19:50:45 cvsuser
- * merged 2.2 branch
- *
- * Revision 1.1.2.1 2000/04/11 12:38:06 BS
- * Added wxInstall a self extracting installation program using wxWindows.
- *
- * Revision 1.3 1996/04/03 19:18:27 rommel
- * minor fixes
- *
- * Revision 1.2 1996/03/30 22:03:52 rommel
- * avoid frequent dynamic allocation for every call
- * streamlined code
- *
- * Revision 1.1 1996/03/30 09:35:00 rommel
- * Initial revision
- *
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <ctype.h>
-#include <malloc.h>
-
-#define INCL_NOPM
-#define INCL_DOS
-#define INCL_DOSERRORS
-#include <os2.h>
-
-#include "os2/os2acl.h"
-
-#define UNLEN 20
-
-#if defined(__WATCOMC__) && defined(__386__) && !defined(__32BIT__)
-#define __32BIT__
-#endif
-
-#ifdef __32BIT__
-typedef ULONG U_INT;
-#ifdef __EMX__
-#define PSTR16 _far16ptr
-#define PTR16(x) _emx_32to16(x)
-#else /* other 32-bit */
-#define PSTR16 PCHAR16
-#define PTR16(x) ((PCHAR16)(x))
-#endif
-#else /* 16-bit */
-typedef USHORT U_INT;
-#define PSTR16 PSZ
-#define PTR16(x) (x)
-#endif
-
-typedef struct access_list
-{
- char acl_ugname[UNLEN+1];
- char acl_pad;
- USHORT acl_access;
-}
-ACCLIST;
-
-typedef struct access_info
-{
- PSTR16 acc_resource_name;
- USHORT acc_attr;
- USHORT acc_count;
-}
-ACCINFO;
-
-static ACCINFO *ai;
-static char *path, *data;
-
-#ifdef __32BIT__
-
-#ifdef __EMX__
-
-static USHORT (APIENTRY *_NetAccessGetInfo)(PSZ pszServer, PSZ pszResource,
- USHORT sLevel, PVOID pbBuffer, USHORT cbBuffer, PUSHORT pcbTotalAvail);
-static USHORT (APIENTRY *_NetAccessSetInfo)(PSZ pszServer, PSZ pszResource,
- USHORT sLevel, PVOID pbBuffer, USHORT cbBuffer, USHORT sParmNum);
-static USHORT (APIENTRY *_NetAccessAdd)(PSZ pszServer,
- USHORT sLevel, PVOID pbBuffer, USHORT cbBuffer);
-
-USHORT NetAccessGetInfo(PSZ pszServer, PSZ pszResource, USHORT sLevel,
- PVOID pbBuffer, USHORT cbBuffer, PUSHORT pcbTotalAvail)
-{
- return (USHORT)
- (_THUNK_PROLOG (4+4+2+4+2+4);
- _THUNK_FLAT (pszServer);
- _THUNK_FLAT (pszResource);
- _THUNK_SHORT (sLevel);
- _THUNK_FLAT (pbBuffer);
- _THUNK_SHORT (cbBuffer);
- _THUNK_FLAT (pcbTotalAvail);
- _THUNK_CALLI (_emx_32to16(_NetAccessGetInfo)));
-}
-
-USHORT NetAccessSetInfo(PSZ pszServer, PSZ pszResource, USHORT sLevel,
- PVOID pbBuffer, USHORT cbBuffer, USHORT sParmNum)
-{
- return (USHORT)
- (_THUNK_PROLOG (4+4+2+4+2+2);
- _THUNK_FLAT (pszServer);
- _THUNK_FLAT (pszResource);
- _THUNK_SHORT (sLevel);
- _THUNK_FLAT (pbBuffer);
- _THUNK_SHORT (cbBuffer);
- _THUNK_SHORT (sParmNum);
- _THUNK_CALLI (_emx_32to16(_NetAccessSetInfo)));
-}
-
-USHORT NetAccessAdd(PSZ pszServer, USHORT sLevel,
- PVOID pbBuffer, USHORT cbBuffer)
-{
- return (USHORT)
- (_THUNK_PROLOG (4+2+4+2);
- _THUNK_FLAT (pszServer);
- _THUNK_SHORT (sLevel);
- _THUNK_FLAT (pbBuffer);
- _THUNK_SHORT (cbBuffer);
- _THUNK_CALLI (_emx_32to16(_NetAccessAdd)));
-}
-
-#else /* other 32-bit */
-
-APIRET16 (* APIENTRY16 NetAccessGetInfo)(PCHAR16 pszServer, PCHAR16 pszResource,
- USHORT sLevel, PVOID16 pbBuffer, USHORT cbBuffer, PVOID16 pcbTotalAvail);
-APIRET16 (* APIENTRY16 NetAccessSetInfo)(PCHAR16 pszServer, PCHAR16 pszResource,
- USHORT sLevel, PVOID16 pbBuffer, USHORT cbBuffer, USHORT sParmNum);
-APIRET16 (* APIENTRY16 NetAccessAdd)(PCHAR16 pszServer,
- USHORT sLevel, PVOID16 pbBuffer, USHORT cbBuffer);
-
-#define _NetAccessGetInfo NetAccessGetInfo
-#define _NetAccessSetInfo NetAccessSetInfo
-#define _NetAccessAdd NetAccessAdd
-
-#if !defined(__IBMC__) || !defined(__TILED__)
-#define _tmalloc malloc
-#define _tfree free
-#endif
-
-#endif
-#else /* 16-bit */
-
-USHORT (APIENTRY *NetAccessGetInfo)(PSZ pszServer, PSZ pszResource,
- USHORT sLevel, PVOID pbBuffer, USHORT cbBuffer, PUSHORT pcbTotalAvail);
-USHORT (APIENTRY *NetAccessSetInfo)(PSZ pszServer, PSZ pszResource,
- USHORT sLevel, PVOID pbBuffer, USHORT cbBuffer, USHORT sParmNum);
-USHORT (APIENTRY *NetAccessAdd)(PSZ pszServer,
- USHORT sLevel, PVOID pbBuffer, USHORT cbBuffer);
-
-#define _NetAccessGetInfo NetAccessGetInfo
-#define _NetAccessSetInfo NetAccessSetInfo
-#define _NetAccessAdd NetAccessAdd
-
-#define _tmalloc malloc
-#define _tfree free
-
-#define DosQueryProcAddr(handle, ord, name, funcptr) \
- DosGetProcAddr(handle, name, funcptr)
-#define DosQueryCurrentDir DosQCurDir
-#define DosQueryCurrentDisk DosQCurDisk
-
-#endif
-
-
-static BOOL acl_init(void)
-{
- static BOOL initialized, netapi_avail;
- HMODULE netapi;
- char buf[256];
-
- if (initialized)
- return netapi_avail;
-
- initialized = TRUE;
-
- if (DosLoadModule(buf, sizeof(buf), "NETAPI", &netapi))
- return FALSE;
-
- if (DosQueryProcAddr(netapi, 0, "NETACCESSGETINFO", (PFN *) &_NetAccessGetInfo) ||
- DosQueryProcAddr(netapi, 0, "NETACCESSSETINFO", (PFN *) &_NetAccessSetInfo) ||
- DosQueryProcAddr(netapi, 0, "NETACCESSADD", (PFN *) &_NetAccessAdd))
- return FALSE;
-
-#if defined(__WATCOMC__) && defined(__386__)
- NetAccessGetInfo = (PVOID) (ULONG) (PVOID16) NetAccessGetInfo;
- NetAccessSetInfo = (PVOID) (ULONG) (PVOID16) NetAccessSetInfo;
- NetAccessAdd = (PVOID) (ULONG) (PVOID16) NetAccessAdd;
-#endif
-
- if ((path = _tmalloc(CCHMAXPATH)) == NULL)
- return FALSE;
- if ((data = _tmalloc(ACL_BUFFERSIZE)) == NULL)
- return FALSE;
- if ((ai = _tmalloc(sizeof(ACCINFO))) == NULL)
- return -1;
-
- netapi_avail = TRUE;
-
- return netapi_avail;
-}
-
-static void acl_mkpath(char *buffer, const char *source)
-{
- char *ptr;
- static char cwd[CCHMAXPATH];
- static U_INT cwdlen;
- U_INT cdrive;
- ULONG drivemap;
-
- if (isalpha(source[0]) && source[1] == ':')
- buffer[0] = 0; /* fully qualified names */
- else
- {
- if (cwd[0] == 0)
- {
- DosQueryCurrentDisk(&cdrive, &drivemap);
- cwd[0] = (char)(cdrive + '@');
- cwd[1] = ':';
- cwd[2] = '\\';
- cwdlen = sizeof(cwd) - 3;
- DosQueryCurrentDir(0, cwd + 3, &cwdlen);
- cwdlen = strlen(cwd);
- }
-
- if (source[0] == '/' || source[0] == '\\')
- {
- if (source[1] == '/' || source[1] == '\\')
- buffer[0] = 0; /* UNC names */
- else
- {
- strncpy(buffer, cwd, 2);
- buffer[2] = 0;
- }
- }
- else
- {
- strcpy(buffer, cwd);
- if (cwd[cwdlen - 1] != '\\' && cwd[cwdlen - 1] != '/')
- strcat(buffer, "/");
- }
- }
-
- strcat(buffer, source);
-
- for (ptr = buffer; *ptr; ptr++)
- if (*ptr == '/')
- *ptr = '\\';
-
- if (ptr[-1] == '\\')
- ptr[-1] = 0;
-
- strupr(buffer);
-}
-
-static int acl_bin2text(char *data, char *text)
-{
- ACCINFO *ai;
- ACCLIST *al;
- U_INT cnt, offs;
-
- ai = (ACCINFO *) data;
- al = (ACCLIST *) (data + sizeof(ACCINFO));
-
- offs = sprintf(text, "ACL1:%X,%d\n",
- ai -> acc_attr, ai -> acc_count);
-
- for (cnt = 0; cnt < ai -> acc_count; cnt++)
- offs += sprintf(text + offs, "%s,%X\n",
- al[cnt].acl_ugname, al[cnt].acl_access);
-
- return strlen(text);
-}
-
-int acl_get(char *server, const char *resource, char *buffer)
-{
- USHORT datalen;
- PSZ srv = NULL;
- int rc;
-
- if (!acl_init())
- return -1;
-
- if (server)
- srv = server;
-
- acl_mkpath(path, resource);
- datalen = 0;
-
- rc = NetAccessGetInfo(srv, path, 1, data, ACL_BUFFERSIZE, &datalen);
-
- if (rc == 0)
- acl_bin2text(data, buffer);
-
- return rc;
-}
-
-static int acl_text2bin(char *data, char *text, char *path)
-{
- ACCINFO *ai;
- ACCLIST *al;
- char *ptr, *ptr2;
- U_INT cnt;
-
- ai = (ACCINFO *) data;
- ai -> acc_resource_name = PTR16(path);
-
- if (sscanf(text, "ACL1:%hX,%hd",
- &ai -> acc_attr, &ai -> acc_count) != 2)
- return ERROR_INVALID_PARAMETER;
-
- al = (ACCLIST *) (data + sizeof(ACCINFO));
- ptr = strchr(text, '\n') + 1;
-
- for (cnt = 0; cnt < ai -> acc_count; cnt++)
- {
- ptr2 = strchr(ptr, ',');
- strncpy(al[cnt].acl_ugname, ptr, ptr2 - ptr);
- al[cnt].acl_ugname[ptr2 - ptr] = 0;
- sscanf(ptr2 + 1, "%hx", &al[cnt].acl_access);
- ptr = strchr(ptr, '\n') + 1;
- }
-
- return sizeof(ACCINFO) + ai -> acc_count * sizeof(ACCLIST);
-}
-
-int acl_set(char *server, const char *resource, char *buffer)
-{
- USHORT datalen;
- PSZ srv = NULL;
-
- if (!acl_init())
- return -1;
-
- if (server)
- srv = server;
-
- acl_mkpath(path, resource);
-
- ai -> acc_resource_name = PTR16(path);
- ai -> acc_attr = 0;
- ai -> acc_count = 0;
-
- NetAccessAdd(srv, 1, ai, sizeof(ACCINFO));
- /* Ignore any errors, most probably because ACL already exists. */
- /* In any such case, try updating the existing ACL. */
-
- datalen = acl_text2bin(data, buffer, path);
-
- return NetAccessSetInfo(srv, path, 1, data, datalen, 0);
-}
-
-/* end of os2acl.c */
projects / wxWidgets.git / blobdiff