#include "tsystem.h"
#include "tconvert.h"

#ifdef _WIN32
#ifndef UNICODE
#define UNICODE  // per le funzioni di conversione da/a UNC
#endif
#include <windows.h>
#include <lm.h>
#endif

//-----------------------------------------------------------------------------

bool TSystem::isUNC(const TFilePath &path) {
  // si assume che il path e' gia' in formato UNC se inizia con "\\"
  std::wstring pathStr = path.getWideString();
  return pathStr.length() > 2 && pathStr.substr(0, 2) == L"\\\\";
}

//------------------------------------------------------------------------------

TFilePath TSystem::toUNC(const TFilePath &fp) {
#ifdef _WIN32
  if (QString::fromStdWString(fp.getWideString()).startsWith('+')) return fp;
  if (isUNC(fp)) return fp;

  std::string fpStr = ::to_string(fp);

  if (fpStr.length() > 1 && fpStr.c_str()[1] == ':') {
    std::string drive = fpStr.substr(0, 3);
    UINT uiDriveType  = GetDriveTypeA(drive.c_str());

    if (uiDriveType & DRIVE_REMOTE) {
      // il drive e' montato

      DWORD cbBuff = _MAX_PATH;  // Size of buffer
      char szBuff[_MAX_PATH];    // Buffer to receive information
      REMOTE_NAME_INFO *prni = (REMOTE_NAME_INFO *)&szBuff;

      // Pointers to head of buffer
      UNIVERSAL_NAME_INFO *puni = (UNIVERSAL_NAME_INFO *)&szBuff;

      DWORD dwResult = WNetGetUniversalNameW(::to_wstring(fpStr).c_str(),
                                             UNIVERSAL_NAME_INFO_LEVEL,
                                             (LPVOID)&szBuff, &cbBuff);

      switch (dwResult) {
      case NO_ERROR:
        return TFilePath(::to_string(std::wstring(puni->lpUniversalName)));

      case ERROR_NOT_CONNECTED:
        // The network connection does not exists.
        throw TException("The path specified doesn't refer to a shared folder");

      case ERROR_CONNECTION_UNAVAIL:
        // The device is not currently connected,
        // but it is a persistent connection.
        throw TException("The shared folder is not currently connected");

      default:
        throw TException("Cannot convert the path specified to UNC");
      }
    } else {
      //  It's a local drive so search for a share to it...
      NET_API_STATUS res;
      PSHARE_INFO_502 BufPtr, p;

      DWORD er = 0, tr = 0, resume = 0, i;

      int iBestMatch = 0;

      std::string csTemp, csTempDrive, csBestMatch;

      do {
        res = NetShareEnum(NULL, 502, (LPBYTE *)&BufPtr, MAX_PREFERRED_LENGTH,
                           &er, &tr, &resume);

        // If the call succeeds,
        if (res == ERROR_SUCCESS || res == ERROR_MORE_DATA) {
          p = BufPtr;

          // Loop through the entries;
          for (i = 1; i <= er; i++) {
            if (p->shi502_type == STYPE_DISKTREE) {
              // #ifdef IS_DOTNET
              //  shi502_path e' una wstring, aanche se la dichiarazione di
              //  PSHARE_INFO_502 non lo sa!
              std::wstring shareLocalPathW = (LPWSTR)(p->shi502_path);
              std::string shareLocalPath   = ::to_string(shareLocalPathW);
              // #else
              //  string shareLocalPath = toString(p->shi502_path);
              // #endif

              if (toLower(fpStr).find(toLower(shareLocalPath)) == 0) {
                std::string hostName = TSystem::getHostName().toStdString();
                //   #ifdef IS_DOTNET
                // shi502_netname e' una wstring, anche se la dichiarazione di
                // PSHARE_INFO_502 non lo sa!
                std::wstring shareNetNameW = (LPWSTR)(p->shi502_netname);
                std::string shareNetName   = ::to_string(shareNetNameW);
                //	 #else
                // string shareNetName = toString(p->shi502_netname);
                // #endif
                shareNetName.append("\\");

                std::string fp(fpStr);
                std::string uncpath =
                    "\\\\" + hostName + "\\" +
                    fp.replace(0, shareLocalPath.size(), shareNetName);

                return TFilePath(uncpath);
              }
            }

            p++;
          }

          // Free the allocated buffer.
          NetApiBufferFree(BufPtr);
        } else {
          // TRACE(_T("Error: %ld\n"), res);
        }

        // Continue to call NetShareEnum while
        //  there are more entries.
        //
      } while (res == ERROR_MORE_DATA);  // end do
    }
  }

  // throw TException("Cannot convert the path specified to UNC");
  return fp;
#else
  // throw TException("Cannot convert the path specified to UNC");
  return fp;
#endif
}

//-----------------------------------------------------------------------------

TFilePath TSystem::toLocalPath(const TFilePath &fp) {
#ifdef _WIN32
  if (!isUNC(fp)) return TFilePath(fp);

  std::string pathStr = ::to_string(fp);

  // estrae hostname e il nome dello share dal path UNC
  std::string::size_type idx = pathStr.find_first_of("\\", 2);
  if (idx == std::string::npos)
    throw TException("The path specified is not a valid UNC path");

  std::string hostname = pathStr.substr(2, idx - 2);

  if (toLower(hostname) != toLower(TSystem::getHostName().toStdString()))
    throw TException("The UNC path specified does not refer to the local host");

  std::string::size_type idx2 = pathStr.find_first_of("\\", idx + 1);
  if (idx2 == std::string::npos)
    throw TException("The path specified is not a valid UNC path");

  std::string fpShareName = pathStr.substr(idx + 1, idx2 - idx - 1);
  std::string path        = pathStr.substr(idx2 + 1, pathStr.size() - idx2);

  NET_API_STATUS res;
  do {
    PSHARE_INFO_502 BufPtr, p;

    DWORD er = 0, tr = 0, resume = 0;
    res = NetShareEnum(NULL, 502, (LPBYTE *)&BufPtr, DWORD(-1), &er, &tr,
                       &resume);

    // If the call succeeds,
    if (res == ERROR_SUCCESS || res == ERROR_MORE_DATA) {
      p = BufPtr;

      // Loop through the entries;
      for (int i = 1; i <= (int)er; i++) {
        if (p->shi502_type == STYPE_DISKTREE) {
          // #ifdef IS_DOTNET
          //  shi502_netname e' una wstring, anche se la dichiarazione di
          //  PSHARE_INFO_502 non lo sa!
          std::wstring shareNetNameW = (LPWSTR)(p->shi502_netname);
          std::string shareNetName   = ::to_string(shareNetNameW);
          //	#else
          // string shareNetName = toString(p->shi502_netname);
          // #endif

          if (toLower(fpShareName) == toLower(shareNetName)) {
            // #ifdef IS_DOTNET
            //  shi502_path e' una wstring, anche se la dichiarazione di
            //  PSHARE_INFO_502 non lo sa!
            std::wstring shareLocalPathW = (LPWSTR)(p->shi502_path);
            return TFilePath(shareLocalPathW) + TFilePath(path);
          }
        }

        p++;
      }

      // Free the allocated buffer.
      NetApiBufferFree(BufPtr);
    } else {
      // TRACE(_T("Error: %ld\n"), res);
    }

    // Continue to call NetShareEnum while
    //  there are more entries.
    //
  } while (res == ERROR_MORE_DATA);  // end do

  throw TException("Cannot convert to a local path");

#else
  throw TException("Cannot convert to a local path");
#endif
}