/*  Defines for Jim   */
// #define LONGNAMES
#define SECPKG       "[Tmpv1_0]"

#ifdef LONGNAMES
#define SERVOP "DOMAIN_SERVER_OPERATORS "
#define ACCTOP "DOMAIN_ACCOUNT_OPERATORS "
#define COMMOP "DOMAIN_COMM_OPERATORS "
#define PRINTOP "DOMAIN_PRINT_OPERATORS "
#define DISKOP "DOMAIN_DISK_OPERATORS "
#define AUDITOP "DOMAIN_AUDIT_OPERATORS "
#define GADMINS  "DOMAIN_ADMIN "
#define GUSERS   "DOMAIN_USERS "
#define GGUESTS  "DOMAIN_GUESTS "
#else
#define SERVOP    "D_SERVER "
#define ACCTOP    "D_ACCOUN "
#define COMMOP    "D_COMM_O "
#define PRINTOP   "D_PRINT_ "
#define DISKOP    "D_DISK_O "
#define AUDITOP   "D_AUDIT_ "
#define GADMINS   "D_ADMIN "
#define GUSERS    "D_USERS "
#define GGUESTS   "D_GUESTS "
#endif


#define INCL_DOSMEMMGR
#include <os2.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <netcons.h>
#include <neterr.h>
#include <netlib.h>
#include <uascache.h>
#include <access.h>
#include <permit.h>
#include "ssitools.h"

char FAR *  buf1;
char FAR *  buf2;
char FAR *  GroupCache;
char        path[256];
char        userbuf[MAX_USER_SIZE];
unsigned short    Handle;
struct _ahdr FAR * Header;

void InitMemStuff(void);
void loadit(void);
void showentries(void);
void doargs(int, char**);

struct my_group {
   char  name[GNLEN + 1];
   char  pad;
   unsigned short gid;
   unsigned long  serial;
};

static int
UserHashVal(uname, domain)
const char far *uname;
int domain;
{
        register unsigned val=0;
        register unsigned char c;

        while ((c= (unsigned char) *uname++))
                val += toupper(c);

        return (int) (val % domain);
}

unsigned
dread(unsigned handle, unsigned long pos, char far * buffer, unsigned length)
{
   unsigned short err, bread;
   unsigned long newpos;

   err = DosChgFilePtr(handle, pos, FILE_BEGIN, &newpos);
   if (err)
      return err;
   if (newpos != pos)
      return NERR_ACFFileIOFail;
   err = DosRead( handle, buffer, length, &bread);
   if (err)
      return err;
   if (bread != length)
      return NERR_ACFFileIOFail;
   return 0;
}

unsigned read_object(unsigned handle, unsigned long pos, char FAR * buf)
{
   unsigned err;
   struct disk_obj_hdr FAR * dobj;

   err = dread(handle, pos, buf, sizeof(struct disk_obj_hdr));
   if (err)
      return err;
   dobj = (struct disk_obj_hdr FAR *) buf;
   return dread(handle, pos, buf, dobj->do_numblocks * 64);
}

void InitMemStuff()
{
   unsigned short    err;
   unsigned short    sel, action;

   err = DosAllocSeg(0x8000, &sel, 0);
   if (err) {
      printf("Could not alloc memory, error %d\n", err);
      exit(1);
   }
   buf1 = MAKEP(sel, 0);
   err = DosAllocSeg(0x8000, &sel, 0);
   if (err) {
      printf("Could not alloc memory, error %d\n", err);
      exit(1);
   }
   buf2 = MAKEP(sel, 0);
   err = DosAllocSeg(1024, &sel, 0);
   if (err) {
      printf("Could not alloc memory, error %d\n", err);
      exit(1);
   }
   Header = MAKEP(sel, 0);
   if (err = DosAllocSeg(0x8000, &sel, 0)) {
      printf("Could not alloc memory, error %d\n", err);
      exit(1);
   }
   GroupCache = MAKEP(sel, 0);
   err = DosOpen(path, &Handle, &action, 0L, 0, FILE_OPEN,
                  OPEN_ACCESS_READONLY | OPEN_SHARE_DENYNONE, 0L);
   if (err) {
      printf("Error opening %s, code %d\n", path, err);
      exit(1);
   }
   err = DosRead(Handle, Header, 512, &action);
   if (err || action != 512) {
      printf("Error reading from file, code %d\n", err);
      exit(1);
   }
   printf("Total users, %d\n", Header->num_users);
}

void loadit()
{
   unsigned short    err;
   unsigned short    action;
   unsigned short    i;
   unsigned long     pos;
   struct diskuserhash FAR *diskhashentry;
   struct userhash FAR *userhashentry;
   struct _grouprec FAR * grec;
   struct my_group FAR * mygroup;

   err = DosChgFilePtr(Handle, 512L, FILE_BEGIN, &pos);
   err = DosRead(Handle, buf1, sizeof(struct _grouprec) * MAXGROUP, &action);
   if (err || action != sizeof(struct _grouprec) * MAXGROUP) {
      printf("Error reading from file, %d\n", err);
      exit(1);
   }
   mygroup = (struct my_group FAR *) GroupCache;
   grec = (struct _grouprec FAR *) buf1;
   for (i = 0; i < MAXGROUP ; i++, grec++, mygroup++ ) {
      if (grec->name[0] != REC_EMPTY && grec->name[0] != REC_DELETE) {
/*         if (strcmpf(grec->name, "ADMINS") == 0) {
            strcpyf(mygroup->name, GADMIN);
          else if (strcmpf(grec->name, "USERS") == 0)
            strcpyf(mygroup->name, GUSERS);
          else if (strcmpf(grec->name, "GUESTS") == 0)
            strcpyf(mygroup->name, GGUESTS);
          else */
         strncpyf(mygroup->name, grec->name, GNLEN);
         mygroup->gid = UserHashVal(mygroup->name, MAXGROUP);
         mygroup->serial = grec->serial;
      } else
         mygroup->name[0] = '\0';
   }

   err = DosChgFilePtr(Handle, (unsigned long) HASH_TBL_OFFSET, FILE_BEGIN, &pos);
   diskhashentry = (struct diskuserhash FAR *)  buf1;
   if (err = DosRead (Handle, diskhashentry, HASH_TBL_SIZE, &action)) {
      printf("Could not read hash table, error %d\n", err);
      exit(1);
   }

   if (action != HASH_TBL_SIZE) {
      printf("Could not read hash table\n");
      exit(1);
   }
   /*
    *  Copy disk user hash table into memory
    */
    userhashentry = (struct userhash FAR *) buf2;
    for (i = 0; i < USER_HASH_ENTRIES; i++) {
                userhashentry->uh_disk = diskhashentry->dh_disk;
                userhashentry->uh_serial = diskhashentry->dh_serial;
                userhashentry->uh_cache = NULL;
                userhashentry++;
                diskhashentry++;
        }
}

void printgroups()
{
   struct my_group FAR * mygroup = (struct my_group FAR *) GroupCache;
   unsigned i;
   unsigned long  relid;

   printf("\t// Groups\n");
   for (i = 0; i< MAXGROUP ; i++, mygroup++ ) {
      if (mygroup->name[0]) {
         relid = ((mygroup->gid | GROUPIDMASK) + (mygroup->serial << 16)) ^ 0x80000000L;
         printf("\tGroup = %ld %Fs\n", relid, mygroup->name);
      }
   }
}
void showentries()
{
   unsigned i, j, k;
   unsigned err;
   unsigned long pos, oprights;
   signed long relativeid;
   unsigned usercount = 0;
   struct userhash FAR * entry = (struct userhash FAR *) buf2;
   struct user_object FAR * uo = (struct user_object FAR *) userbuf;
   struct my_group FAR * mygroup = (struct my_group FAR *) GroupCache;
   unsigned char FAR * gmask;
   unsigned char test;
   char groupnames[256];

   printf("\n\n\t// Users\n");
   for (i = 0; i < USER_HASH_ENTRIES ; i++ ) {
      pos = entry->uh_disk;
      while (pos) {
         if (err = read_object(Handle, pos, userbuf)) {
            printf("Failed reading object, code %d\n", err);
            exit(1);
         }
         relativeid = ( ((uo->uo_record.user.uc0_guid.guid_serial) << 16) +
                      (uo->uo_record.user.uc0_guid.guid_uid) ) ^ 0x80000000;
         gmask = uo->uo_record.user.uc0_groups;
         groupnames[0] = '\0';
         for (j = 0; j < 32 ; j++ ) {
            test = gmask[j];
            k = 0;
            while (test) {
               if (test & 1) {
                  strcatf(groupnames, mygroup[j * 8 + k].name);
                  strcatf(groupnames, " ");
               }
               test >>= 1;
               k++;
            }
         }

         oprights = uo->uo_record.user.uc0_auth_flags;
         if (oprights & AF_OP_PRINT)
            strcat(groupnames, PRINTOP);
         if (oprights & AF_OP_COMM)
            strcat(groupnames, COMMOP);
         if (oprights & AF_OP_SERVER)
            strcat(groupnames, SERVOP);
         if (oprights & AF_OP_ACCOUNTS)
            strcat(groupnames, ACCTOP);

         printf("\tUser = %ld %Fs %Fs\n", relativeid,
                     (char FAR *) uo->uo_record.name,
                     (char FAR *) groupnames);
         usercount++;
         pos = uo->uo_header.do_next;
      }
      entry++;
   }
   if (usercount != Header->num_users) {
      printf("Huh?  Didn't find all the users (found %d)\n", usercount);
   }
}

void banner(unsigned longnames)
{

   printf(SECPKG);
   printf("\n\n\t//\n\t// Account Setup information\n");
   printf("\t//  This file produced from the LAN Manager 2.0 UAS\n");
   printf("\t//      %s\n", path);

   printf("\tGroup = 501 %s\n", GADMINS);
   printf("\tGroup = 502 %s\n", GUSERS);
   printf("\tGroup = 503 %s\n", GGUESTS);
   printf("\tGroup = 504 %s\n", ACCTOP);
   printf("\tGroup = 505 %s\n", SERVOP);
   printf("\tGroup = 506 %s\n", PRINTOP);
   printf("\tGroup = 507 %s\n", COMMOP);
   printf("\tGroup = 508 %s\n", DISKOP);
   printf("\tGroup = 509 %s\n", AUDITOP);
}

void doargs(int argc, char **argv)
{
   if (argc != 2 || *argv[1] == '?') {
      printf("usage:  %s path\\net.acc\n", argv[0]);
      printf("\tlists all the users/groups and their hash/serial numbers for a UAS\n");
      exit(0);
   }
   strcpy(path, argv[1]);
}

main (int argc, char *argv[])
{
   printf(SIGNON);
   doargs(argc, argv);
   InitMemStuff();
   loadit();

   banner(0);

   printgroups();
   showentries();
}