kolibrios/programs/fs/unzip60/os2/os2acl.c

386 lines
9.3 KiB
C
Raw Normal View History

/*
Copyright (c) 1990-2000 Info-ZIP. All rights reserved.
See the accompanying file LICENSE, version 2000-Apr-09 or later
(the contents of which are also included in zip.h) for terms of use.
If, for some reason, all these files are missing, the Info-ZIP license
also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html
*/
/* os2acl.c - access to OS/2 (LAN Server) ACLs
*
* Author: Kai Uwe Rommel <rommel@ars.de>
* Created: Mon Aug 08 1994
*
*/
/*
* 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: os2acl.c,v 1.3 1996/04/03 19:18:27 rommel Exp rommel $";
static char *rcsrev = "$Revision: 1.3 $";
#endif
/*
* $Log: os2acl.c,v $
* 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((int)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 */