home *** CD-ROM | disk | FTP | other *** search
/ CICA 1997 August / CICA - The Ultimate Collection of Shareware for Windows (Walnut Creek) (August 1997) (Disc 1).iso / utils / unix / unzip520 / os2 / os2acl.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-04-17  |  8.8 KB  |  377 lines
  1. /* os2acl.c - access to OS/2 (LAN Server) ACL's
  2.  *
  3.  * Author:  Kai Uwe Rommel <rommel@ars.de>
  4.  * Created: Mon Aug 08 1994
  5.  *
  6.  * This code is in the public domain.
  7.  */
  8.  
  9. /* 
  10.  * supported 32-bit compilers:
  11.  * - emx+gcc
  12.  * - IBM C Set++ 2.1 or newer
  13.  * - Watcom C/C++ 10.0 or newer
  14.  *
  15.  * supported 16-bit compilers:
  16.  * - MS C 6.00A
  17.  * - Watcom C/C++ 10.0 or newer
  18.  *
  19.  * supported OS/2 LAN environments:
  20.  * - IBM LAN Server/Requester 3.0, 4.0 and 5.0 (Warp Server)
  21.  * - IBM Peer 1.0 (Warp Connect)
  22.  */
  23.  
  24. #ifdef KUR
  25.    static char *rcsid =
  26.    "$Id: os2acl.c,v 1.3 1996/04/03 19:18:27 rommel Exp rommel $";
  27.    static char *rcsrev = "$Revision: 1.3 $";
  28. #endif
  29.  
  30. /*
  31.  * $Log: os2acl.c,v $
  32.  * Revision 1.3  1996/04/03 19:18:27  rommel
  33.  * minor fixes
  34.  *
  35.  * Revision 1.2  1996/03/30 22:03:52  rommel
  36.  * avoid frequent dynamic allocation for every call
  37.  * streamlined code
  38.  *
  39.  * Revision 1.1  1996/03/30 09:35:00  rommel
  40.  * Initial revision
  41.  * 
  42.  */
  43.  
  44. #include <stdio.h>
  45. #include <stdlib.h>
  46. #include <string.h>
  47. #include <ctype.h>
  48. #include <malloc.h>
  49.  
  50. #define INCL_NOPM
  51. #define INCL_DOS
  52. #define INCL_DOSERRORS
  53. #include <os2.h>
  54.  
  55. #include "os2acl.h"
  56.  
  57. #define UNLEN 20
  58.  
  59. #if defined(__WATCOMC__) && defined(__386__) && !defined(__32BIT__)
  60. #define __32BIT__
  61. #endif
  62.  
  63. #ifdef __32BIT__
  64. typedef ULONG U_INT;
  65. #ifdef __EMX__
  66. #define PSTR16 _far16ptr
  67. #define PTR16(x) _emx_32to16(x)
  68. #else /* other 32-bit */
  69. #define PSTR16 PCHAR16
  70. #define PTR16(x) ((PCHAR16)(x))
  71. #endif
  72. #else /* 16-bit */
  73. typedef USHORT U_INT;
  74. #define PSTR16 PSZ
  75. #define PTR16(x) (x)
  76. #endif
  77.  
  78. typedef struct access_list 
  79. {
  80.   char acl_ugname[UNLEN+1];
  81.   char acl_pad;
  82.   USHORT acl_access;
  83. }
  84. ACCLIST;
  85.  
  86. typedef struct access_info
  87. {
  88.   PSTR16 acc_resource_name;
  89.   USHORT acc_attr;
  90.   USHORT acc_count;
  91. }
  92. ACCINFO;
  93.  
  94. static ACCINFO *ai;
  95. static char *path, *data;
  96.  
  97. #ifdef __32BIT__
  98.  
  99. #ifdef __EMX__
  100.  
  101. static USHORT (APIENTRY *_NetAccessGetInfo)(PSZ pszServer, PSZ pszResource, 
  102.   USHORT sLevel, PVOID pbBuffer, USHORT cbBuffer, PUSHORT pcbTotalAvail);
  103. static USHORT (APIENTRY *_NetAccessSetInfo)(PSZ pszServer, PSZ pszResource, 
  104.   USHORT sLevel, PVOID pbBuffer, USHORT cbBuffer, USHORT sParmNum);
  105. static USHORT (APIENTRY *_NetAccessAdd)(PSZ pszServer, 
  106.   USHORT sLevel, PVOID pbBuffer, USHORT cbBuffer);
  107.  
  108. USHORT NetAccessGetInfo(PSZ pszServer, PSZ pszResource, USHORT sLevel, 
  109.             PVOID pbBuffer, USHORT cbBuffer, PUSHORT pcbTotalAvail)
  110. {
  111.   return (USHORT)
  112.           (_THUNK_PROLOG (4+4+2+4+2+4);
  113.            _THUNK_FLAT (pszServer);
  114.            _THUNK_FLAT (pszResource);
  115.            _THUNK_SHORT (sLevel);
  116.            _THUNK_FLAT (pbBuffer);
  117.            _THUNK_SHORT (cbBuffer);
  118.            _THUNK_FLAT (pcbTotalAvail);
  119.            _THUNK_CALLI (_emx_32to16(_NetAccessGetInfo)));
  120. }
  121.  
  122. USHORT NetAccessSetInfo(PSZ pszServer, PSZ pszResource, USHORT sLevel, 
  123.             PVOID pbBuffer, USHORT cbBuffer, USHORT sParmNum)
  124. {
  125.   return (USHORT)
  126.           (_THUNK_PROLOG (4+4+2+4+2+2);
  127.            _THUNK_FLAT (pszServer);
  128.            _THUNK_FLAT (pszResource);
  129.            _THUNK_SHORT (sLevel);
  130.            _THUNK_FLAT (pbBuffer);
  131.            _THUNK_SHORT (cbBuffer);
  132.            _THUNK_SHORT (sParmNum);
  133.            _THUNK_CALLI (_emx_32to16(_NetAccessSetInfo)));
  134. }
  135.  
  136. USHORT NetAccessAdd(PSZ pszServer, USHORT sLevel, 
  137.             PVOID pbBuffer, USHORT cbBuffer)
  138. {
  139.   return (USHORT)
  140.           (_THUNK_PROLOG (4+2+4+2);
  141.            _THUNK_FLAT (pszServer);
  142.            _THUNK_SHORT (sLevel);
  143.            _THUNK_FLAT (pbBuffer);
  144.            _THUNK_SHORT (cbBuffer);
  145.            _THUNK_CALLI (_emx_32to16(_NetAccessAdd)));
  146. }
  147.  
  148. #else /* other 32-bit */
  149.  
  150. APIRET16 (* APIENTRY16 NetAccessGetInfo)(PCHAR16 pszServer, PCHAR16 pszResource, 
  151.   USHORT sLevel, PVOID16 pbBuffer, USHORT cbBuffer, PVOID16 pcbTotalAvail);
  152. APIRET16 (* APIENTRY16 NetAccessSetInfo)(PCHAR16 pszServer, PCHAR16 pszResource, 
  153.   USHORT sLevel, PVOID16 pbBuffer, USHORT cbBuffer, USHORT sParmNum);
  154. APIRET16 (* APIENTRY16 NetAccessAdd)(PCHAR16 pszServer, 
  155.   USHORT sLevel, PVOID16 pbBuffer, USHORT cbBuffer);
  156.  
  157. #define _NetAccessGetInfo NetAccessGetInfo
  158. #define _NetAccessSetInfo NetAccessSetInfo
  159. #define _NetAccessAdd NetAccessAdd
  160.  
  161. #if !defined(__IBMC__) || !defined(__TILED__)
  162. #define _tmalloc malloc
  163. #define _tfree free
  164. #endif
  165.  
  166. #endif
  167. #else /* 16-bit */
  168.  
  169. USHORT (APIENTRY *NetAccessGetInfo)(PSZ pszServer, PSZ pszResource, 
  170.   USHORT sLevel, PVOID pbBuffer, USHORT cbBuffer, PUSHORT pcbTotalAvail);
  171. USHORT (APIENTRY *NetAccessSetInfo)(PSZ pszServer, PSZ pszResource, 
  172.   USHORT sLevel, PVOID pbBuffer, USHORT cbBuffer, USHORT sParmNum);
  173. USHORT (APIENTRY *NetAccessAdd)(PSZ pszServer, 
  174.   USHORT sLevel, PVOID pbBuffer, USHORT cbBuffer);
  175.  
  176. #define _NetAccessGetInfo NetAccessGetInfo
  177. #define _NetAccessSetInfo NetAccessSetInfo
  178. #define _NetAccessAdd NetAccessAdd
  179.  
  180. #define _tmalloc malloc
  181. #define _tfree free
  182.  
  183. #define DosQueryProcAddr(handle, ord, name, funcptr) \
  184.         DosGetProcAddr(handle, name, funcptr)
  185. #define DosQueryCurrentDir DosQCurDir
  186. #define DosQueryCurrentDisk DosQCurDisk
  187.  
  188. #endif
  189.  
  190.  
  191. static BOOL acl_init(void)
  192. {
  193.   static BOOL initialized, netapi_avail;
  194.   HMODULE netapi;
  195.   char buf[256];
  196.  
  197.   if (initialized)
  198.     return netapi_avail;
  199.  
  200.   initialized = TRUE;
  201.  
  202.   if (DosLoadModule(buf, sizeof(buf), "NETAPI", &netapi)) 
  203.     return FALSE;
  204.  
  205.   if (DosQueryProcAddr(netapi, 0, "NETACCESSGETINFO", (PFN *) &_NetAccessGetInfo) ||
  206.       DosQueryProcAddr(netapi, 0, "NETACCESSSETINFO", (PFN *) &_NetAccessSetInfo) ||
  207.       DosQueryProcAddr(netapi, 0, "NETACCESSADD", (PFN *) &_NetAccessAdd))
  208.     return FALSE;
  209.  
  210. #if defined(__WATCOMC__) && defined(__386__)
  211.   NetAccessGetInfo = (PVOID) (ULONG) (PVOID16) NetAccessGetInfo;
  212.   NetAccessSetInfo = (PVOID) (ULONG) (PVOID16) NetAccessSetInfo;
  213.   NetAccessAdd     = (PVOID) (ULONG) (PVOID16) NetAccessAdd;
  214. #endif
  215.  
  216.   if ((path = _tmalloc(CCHMAXPATH)) == NULL)
  217.     return FALSE;
  218.   if ((data = _tmalloc(ACL_BUFFERSIZE)) == NULL)
  219.     return FALSE;
  220.   if ((ai = _tmalloc(sizeof(ACCINFO))) == NULL)
  221.     return -1;
  222.  
  223.   netapi_avail = TRUE;
  224.  
  225.   return netapi_avail;
  226. }
  227.  
  228. static void acl_mkpath(char *buffer, char *source)
  229. {
  230.   char *ptr;
  231.   static char cwd[CCHMAXPATH];
  232.   static U_INT cwdlen;
  233.   U_INT cdrive;
  234.   ULONG drivemap;
  235.  
  236.   if (isalpha(source[0]) && source[1] == ':')
  237.     buffer[0] = 0; /* fully qualified names */
  238.   else
  239.   {
  240.     if (cwd[0] == 0)
  241.     {
  242.       DosQueryCurrentDisk(&cdrive, &drivemap);
  243.       cwd[0] = cdrive + '@'; cwd[1] = ':'; cwd[2] = '\\';
  244.       cwdlen = sizeof(cwd) - 3;
  245.       DosQueryCurrentDir(0, cwd + 3, &cwdlen);
  246.       cwdlen = strlen(cwd);
  247.     }
  248.  
  249.     if (source[0] == '/' || source[0] == '\\')
  250.     {
  251.       if (source[1] == '/' || source[1] == '\\')
  252.     buffer[0] = 0; /* UNC names */
  253.       else
  254.       {
  255.     strncpy(buffer, cwd, 2);
  256.     buffer[2] = 0;
  257.       }
  258.     }
  259.     else
  260.     {
  261.       strcpy(buffer, cwd);
  262.       if (cwd[cwdlen - 1] != '\\' && cwd[cwdlen - 1] != '/')
  263.     strcat(buffer, "/");
  264.     }
  265.   }
  266.  
  267.   strcat(buffer, source);
  268.  
  269.   for (ptr = buffer; *ptr; ptr++)
  270.     if (*ptr == '/')
  271.       *ptr = '\\';
  272.  
  273.   if (ptr[-1] == '\\')
  274.     ptr[-1] = 0;
  275.  
  276.   strupr(buffer);
  277. }
  278.  
  279. static int acl_bin2text(char *data, char *text)
  280. {
  281.   ACCINFO *ai;
  282.   ACCLIST *al;
  283.   int cnt, offs;
  284.  
  285.   ai = (ACCINFO *) data;
  286.   al = (ACCLIST *) (data + sizeof(ACCINFO));
  287.  
  288.   offs = sprintf(text, "ACL1:%X,%d\n", 
  289.          ai -> acc_attr, ai -> acc_count);
  290.  
  291.   for (cnt = 0; cnt < ai -> acc_count; cnt++)
  292.     offs += sprintf(text + offs, "%s,%X\n", 
  293.             al[cnt].acl_ugname, al[cnt].acl_access);
  294.  
  295.   return strlen(text);
  296. }
  297.  
  298. int acl_get(char *server, char *resource, char *buffer)
  299. {
  300.   USHORT datalen;
  301.   PSZ srv = NULL;
  302.   int rc;
  303.  
  304.   if (!acl_init())
  305.     return -1;
  306.  
  307.   if (server)
  308.     srv = server;
  309.  
  310.   acl_mkpath(path, resource);
  311.   datalen = 0;
  312.  
  313.   rc = NetAccessGetInfo(srv, path, 1, data, ACL_BUFFERSIZE, &datalen);
  314.  
  315.   if (rc == 0)
  316.     acl_bin2text(data, buffer);
  317.  
  318.   return rc;
  319. }
  320.  
  321. static int acl_text2bin(char *data, char *text, char *path)
  322. {
  323.   ACCINFO *ai;
  324.   ACCLIST *al;
  325.   char *ptr, *ptr2;
  326.   int cnt;
  327.  
  328.   ai = (ACCINFO *) data;
  329.   ai -> acc_resource_name = PTR16(path);
  330.  
  331.   if (sscanf(text, "ACL1:%hX,%hd", 
  332.          &ai -> acc_attr, &ai -> acc_count) != 2)
  333.     return ERROR_INVALID_PARAMETER;
  334.  
  335.   al = (ACCLIST *) (data + sizeof(ACCINFO));
  336.   ptr = strchr(text, '\n') + 1;
  337.  
  338.   for (cnt = 0; cnt < ai -> acc_count; cnt++)
  339.   {
  340.     ptr2 = strchr(ptr, ',');
  341.     strncpy(al[cnt].acl_ugname, ptr, ptr2 - ptr);
  342.     al[cnt].acl_ugname[ptr2 - ptr] = 0;
  343.     sscanf(ptr2 + 1, "%hx", &al[cnt].acl_access);
  344.     ptr = strchr(ptr, '\n') + 1;
  345.   }
  346.  
  347.   return sizeof(ACCINFO) + ai -> acc_count * sizeof(ACCLIST);
  348. }
  349.  
  350. int acl_set(char *server, char *resource, char *buffer)
  351. {
  352.   USHORT datalen;
  353.   PSZ srv = NULL;
  354.  
  355.   if (!acl_init())
  356.     return -1;
  357.  
  358.   if (server)
  359.     srv = server;
  360.  
  361.   acl_mkpath(path, resource);
  362.  
  363.   ai -> acc_resource_name = PTR16(path);
  364.   ai -> acc_attr = 0;
  365.   ai -> acc_count = 0;
  366.  
  367.   NetAccessAdd(srv, 1, ai, sizeof(ACCINFO));
  368.   /* Ignore any errors, most probably because ACL already exists. */
  369.   /* In any such case, try updating the existing ACL. */
  370.  
  371.   datalen = acl_text2bin(data, buffer, path);
  372.  
  373.   return NetAccessSetInfo(srv, path, 1, data, datalen, 0);
  374. }
  375.  
  376. /* end of os2acl.c */
  377.