/* UNIX SMBlib NetBIOS implementation

   Version 1.0
   SMB API Calls ...

   Copyright (C) Richard Sharpe 1996

*/

/*
   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
   (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.
*/

#include "smblib-priv.h"
#include "../rfcnb/rfcnb.h"

SMB_Tree_Handle SMBapi_Tree = NULL;

/* Send an api request to the \\server\IPC$ tree, with a \PIPE\LANMAN api  */
/* request to change the user's password                                   */

#define SMB_LMAPI_SLOT "\\PIPE\\LANMAN"
#define SMB_LMAPI_SUPW_DESC "zb16b16WW"

int SMBapi_NetUserPasswordSet(SMB_Tree_Handle tree, char *user,
			      char *oldpass, char *newpass, int *apiStatus)

{ struct RFCNB_Pkt *pkt;
  int param_len, i, pkt_len, pad_api_name = FALSE;
  char *p;

  /* Get a packet, we need one with space for a transact plus. The calc   */
  /* below lays it all out as it is, including the empty string after the */
  /* descriptor and before the username                                   */

  param_len = 2 + strlen(SMB_LMAPI_SUPW_DESC) + 1 +
              1 /* for empty string :-) */ + strlen(user) +
	      1 + 16 + 16 + 2 + 2;

  /* We have no setup words, wo we don't account for them */

  pkt_len = SMB_trans_len + 2 /* for bcc */ + strlen(SMB_LMAPI_SLOT) + 1;

  /* Pad things onto a word boundary ... */

  if (pkt_len & 0x0001) {
    pkt_len = pkt_len + 1;
    pad_api_name = TRUE;
  }


  pkt_len = pkt_len + param_len;

  /* Now allocate space for the packet, build it and send it */

  pkt = (struct RFCNB_Pkt *)RFCNB_Alloc_Pkt(pkt_len);

  if (pkt == NULL) {

    SMBlib_errno = SMBlibE_NoSpace;
    return(SMBlibE_BAD); /* Should handle the error */

  }

  bzero(SMB_Hdr(pkt), SMB_trans_len);
  SIVAL(SMB_Hdr(pkt), SMB_hdr_idf_offset, SMB_DEF_IDF);  /* Plunk in IDF */
  *(SMB_Hdr(pkt) + SMB_hdr_com_offset) = SMBtrans;
  SSVAL(SMB_Hdr(pkt), SMB_hdr_pid_offset, tree -> con -> pid);
  SSVAL(SMB_Hdr(pkt), SMB_hdr_tid_offset, tree -> tid);
  SSVAL(SMB_Hdr(pkt), SMB_hdr_mid_offset, tree -> con -> mid);
  SSVAL(SMB_Hdr(pkt), SMB_hdr_uid_offset, tree -> con -> uid);
  *(SMB_Hdr(pkt) + SMB_hdr_wct_offset) = 14;

  SSVAL(SMB_Hdr(pkt), SMB_trans_tpc_offset, param_len);
  SSVAL(SMB_Hdr(pkt), SMB_trans_tdc_offset, 0);
  SSVAL(SMB_Hdr(pkt), SMB_trans_mpc_offset, 4);
  SSVAL(SMB_Hdr(pkt), SMB_trans_mdc_offset, 0);
  SSVAL(SMB_Hdr(pkt), SMB_trans_msc_offset, 0);
  SSVAL(SMB_Hdr(pkt), SMB_trans_flg_offset, 0);
  SIVAL(SMB_Hdr(pkt), SMB_trans_tmo_offset, 5000);
  SSVAL(SMB_Hdr(pkt), SMB_trans_pbc_offset, param_len);
  SSVAL(SMB_Hdr(pkt), SMB_trans_pbo_offset, SMB_trans_len + 2 +
	                                    strlen(SMB_LMAPI_SLOT) + 1);
  SSVAL(SMB_Hdr(pkt), SMB_trans_dbc_offset, 0);
  SSVAL(SMB_Hdr(pkt), SMB_trans_dbo_offset, 0);

  /* Now put in the bcc and the rest of the info ... */

  SSVAL(SMB_Hdr(pkt), SMB_trans_len, param_len + strlen(SMB_LMAPI_SLOT) + 1);

  p = SMB_Hdr(pkt) + SMB_trans_len + 2;  /* Skip the BCC and ect */

  strcpy(p, SMB_LMAPI_SLOT);
  p = p + strlen(SMB_LMAPI_SLOT) + 1;

  if (pad_api_name == TRUE)   /* Pad if we need to */
    p = p + 1;

/*  SSVAL(p, 0, 65000);  /* Check the result */
  SSVAL(p, 0, SMB_LMapi_UserPasswordSet);  /* The api call */

  p = p + 2;

  strcpy(p, SMB_LMAPI_SUPW_DESC);          /* Copy in the param desc */

  p = p + strlen(SMB_LMAPI_SUPW_DESC) + 1;

  *p = 0;                                  /* Stick in that null string */
  p = p + 1;

  strcpy(p, user);

  p = p + strlen(user) + 1;

  strncpy(p, oldpass, 16);

  p = p + 16;

  strncpy(p, newpass, 16);

  p = p + 16;

  SSVAL(p, 0, 0);                 /* Seems to be zero always? */
  SSVAL(p, 2, strlen(newpass));   /* Length of new password ...*/

  /* Now send the lot and get a response ... */

  if (RFCNB_Send(tree -> con -> Trans_Connect, pkt, pkt_len) < 0){

#ifdef DEBUG
    fprintf(stderr, "Error sending Trans request\n");
#endif

    RFCNB_Free_Pkt(pkt);
    SMBlib_errno = SMBlibE_SendFailed;
    return(SMBlibE_BAD);

  }

  /* Now get the response ... */

  if (RFCNB_Recv(tree -> con -> Trans_Connect, pkt, pkt_len) < 0) {

#ifdef DEBUG
    fprintf(stderr, "Error receiving response to Trans request\n");
#endif

    RFCNB_Free_Pkt(pkt);
    SMBlib_errno = SMBlibE_RecvFailed;
    return(SMBlibE_BAD);

  }

  /* Check out the response type ... */

  if (CVAL(SMB_Hdr(pkt), SMB_hdr_rcls_offset) != SMBC_SUCCESS) {  /* Process error */

#ifdef DEBUG
    fprintf(stderr, "SMB_trans failed with errorclass = %i, Error Code = %i\n",
	    CVAL(SMB_Hdr(pkt), SMB_hdr_rcls_offset),
	    SVAL(SMB_Hdr(pkt), SMB_hdr_err_offset));
#endif

    SMBlib_SMB_Error = IVAL(SMB_Hdr(pkt), SMB_hdr_rcls_offset);
    RFCNB_Free_Pkt(pkt);
    SMBlib_errno = SMBlibE_Remote;
    return(SMBlibE_BAD);

  }

  /* All ok, pass back the status */

  *apiStatus = SVAL(SMB_Hdr(pkt), SVAL(SMB_Hdr(pkt), SMB_transr_pbo_offset));
  RFCNB_Free_Pkt(pkt);

  return(0);

}

#define SMB_LMAPI_SUI_DESC "zWsTPWW"
#define SMB_LMAPI_SUI_DATA_DESC "B16"


/* Set user info ... specifically, password */

int SMBapi_NetSetUserInfo(SMB_Tree_Handle tree, char *user,
			  char *newpass, int *apiStatus)

{ struct RFCNB_Pkt *pkt;
  int param_len, i, pkt_len, data_len, pad_api_name = FALSE;
  int pad_params = FALSE;
  char *p;

  /* Get a packet, we need one with space for a transact plus. The calc   */
  /* below lays it all out as it is, including the empty string after the */
  /* descriptor and before the username                                   */

  param_len = 2 + strlen(SMB_LMAPI_SUI_DESC) + 1 +
              + strlen(SMB_LMAPI_SUI_DATA_DESC) + 1 + strlen(user) +
	      1 + 2 + 2 + 2 + 2;

  data_len = 16;

  /* We have no setup words, so we don't account for them */

  pkt_len = SMB_trans_len + 2 /* for bcc */ + strlen(SMB_LMAPI_SLOT) + 1;

  if (pkt_len & 0x0001) {   /* Pad to a WORD boundary */

    pad_api_name = TRUE;

  }

  if (param_len & 0x0001) { /* pad to a WORD boundary */

    pad_params = TRUE;

  }

  pkt_len = pkt_len + param_len + data_len;

  if (pad_api_name == TRUE) pkt_len = pkt_len + 1;
  if (pad_params == TRUE) pkt_len = pkt_len + 1;

  /* Now allocate space for the packet, build it and send it */

  pkt = (struct RFCNB_Pkt *)RFCNB_Alloc_Pkt(pkt_len);

  if (pkt == NULL) {

    SMBlib_errno = SMBlibE_NoSpace;
    return(SMBlibE_BAD); /* Should handle the error */

  }

  bzero(SMB_Hdr(pkt), SMB_trans_len);
  SIVAL(SMB_Hdr(pkt), SMB_hdr_idf_offset, SMB_DEF_IDF);  /* Plunk in IDF */
  *(SMB_Hdr(pkt) + SMB_hdr_com_offset) = SMBtrans;
  SSVAL(SMB_Hdr(pkt), SMB_hdr_pid_offset, tree -> con -> pid);
  SSVAL(SMB_Hdr(pkt), SMB_hdr_tid_offset, tree -> tid);
  SSVAL(SMB_Hdr(pkt), SMB_hdr_mid_offset, tree -> con -> mid);
  SSVAL(SMB_Hdr(pkt), SMB_hdr_uid_offset, tree -> con -> uid);
  *(SMB_Hdr(pkt) + SMB_hdr_wct_offset) = 14;

  SSVAL(SMB_Hdr(pkt), SMB_trans_tpc_offset, param_len);
  SSVAL(SMB_Hdr(pkt), SMB_trans_tdc_offset, data_len);
  SSVAL(SMB_Hdr(pkt), SMB_trans_mpc_offset, 4);
  SSVAL(SMB_Hdr(pkt), SMB_trans_mdc_offset, 0);
  SSVAL(SMB_Hdr(pkt), SMB_trans_msc_offset, 0);
  SSVAL(SMB_Hdr(pkt), SMB_trans_flg_offset, 0);
  SIVAL(SMB_Hdr(pkt), SMB_trans_tmo_offset, 5000);
  SSVAL(SMB_Hdr(pkt), SMB_trans_pbc_offset, param_len);
  SSVAL(SMB_Hdr(pkt), SMB_trans_pbo_offset, SMB_trans_len + 2 +
	                                    strlen(SMB_LMAPI_SLOT) + 1);
  SSVAL(SMB_Hdr(pkt), SMB_trans_dbc_offset, data_len);
  SSVAL(SMB_Hdr(pkt), SMB_trans_dbo_offset, pkt_len - data_len);

  /* Now put in the bcc and the rest of the info ... */

  SSVAL(SMB_Hdr(pkt), SMB_trans_len, param_len + strlen(SMB_LMAPI_SLOT) +
	                             1 + data_len);

  p = SMB_Hdr(pkt) + SMB_trans_len + 2;  /* Skip the BCC and ect */

  strcpy(p, SMB_LMAPI_SLOT);
  p = p + strlen(SMB_LMAPI_SLOT) + 1;

  if (pad_api_name == TRUE)     /* Pad to a word boundary */
    p = p + 1;

/*  SSVAL(p, 0, 65000);  /* Check the result */
  SSVAL(p, 0, SMB_LMapi_SetUserInfo);  /* The api call */

  p = p + 2;

  strcpy(p, SMB_LMAPI_SUI_DESC);          /* Copy in the param desc */

  p = p + strlen(SMB_LMAPI_SUI_DESC) + 1;

  strcpy(p, SMB_LMAPI_SUI_DATA_DESC);     /* Copy in second descriptor */

  p = p + strlen(SMB_LMAPI_SUI_DATA_DESC) + 1;

  strcpy(p, user);

  p = p + strlen(user) + 1;

  SSVAL(p, 0, 1);                  /* Claim that we have a level 1 struct ? */

  p = p + 2;

  SSVAL(p, 0, 3);                 /* Set the password */
  SSVAL(p, 2, 1);                 /* Seems to be one ... */
  SSVAL(p, 4, strlen(newpass));   /* Length of new password ...*/

  /* Now copy the data in ... */

  p = p + 6;

  if (pad_params == TRUE)
    p = p + 1;

  strcpy(p, newpass);

  /* Now send the lot and get a response ... */

  if (RFCNB_Send(tree -> con -> Trans_Connect, pkt, pkt_len) < 0){

#ifdef DEBUG
    fprintf(stderr, "Error sending Trans SetUserInfo request\n");
#endif

    RFCNB_Free_Pkt(pkt);
    SMBlib_errno = SMBlibE_SendFailed;
    return(SMBlibE_BAD);

  }

  /* Now get the response ... */

  if (RFCNB_Recv(tree -> con -> Trans_Connect, pkt, pkt_len) < 0) {

#ifdef DEBUG
    fprintf(stderr, "Error receiving response to Trans SetUserInfo request\n");
#endif

    RFCNB_Free_Pkt(pkt);
    SMBlib_errno = SMBlibE_RecvFailed;
    return(SMBlibE_BAD);

  }

  /* Check out the response type ... */

  if (CVAL(SMB_Hdr(pkt), SMB_hdr_rcls_offset) != SMBC_SUCCESS) {  /* Process error */

#ifdef DEBUG
    fprintf(stderr, "SMB_trans SetUserInfo failed with errorclass = %i, Error Code = %i\n",
	    CVAL(SMB_Hdr(pkt), SMB_hdr_rcls_offset),
	    SVAL(SMB_Hdr(pkt), SMB_hdr_err_offset));
#endif

    SMBlib_SMB_Error = IVAL(SMB_Hdr(pkt), SMB_hdr_rcls_offset);
    RFCNB_Free_Pkt(pkt);
    SMBlib_errno = SMBlibE_Remote;
    return(SMBlibE_BAD);

  }

  /* All ok, pass back the status */

  *apiStatus = SVAL(SMB_Hdr(pkt), SVAL(SMB_Hdr(pkt), SMB_transr_pbo_offset));
  RFCNB_Free_Pkt(pkt);

  return(0);

}

/* List all the shares available on a server */

int SMBapi_NetShareEnum(SMB_Tree_Handle tree, char *enum_buf, int bufsiz,
			int *shares_returned, int *shares_total)

{


}