#include "tsystem.h"

#include "tconvert.h"

#ifdef WIN32

#define UNICODE // per le funzioni di conversione da/a UNC

#include <windows.h></windows.h>

#include <lm.h></lm.h>

#endif

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

bool TSystem::isUNC(const TFilePath &path)

{

	// si assume che il path e' gia' in formato UNC se inizia con "\\"

	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;

	string fpStr = toString(fp.getWideString());

	if (fpStr.length() > 1 && fpStr.c_str()[1] == ':') {

		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(toWideString(fpStr).c_str(),

												   UNIVERSAL_NAME_INFO_LEVEL,

												   (LPVOID)&szBuff,

												   &cbBuff);

			switch (dwResult) {

			case NO_ERROR:

				return TFilePath(toString(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;

			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!

							wstring shareLocalPathW = (LPWSTR)(p->shi502_path);

							string shareLocalPath = toString(shareLocalPathW);

							//#else

							//string shareLocalPath = toString(p->shi502_path);

							//#endif

							if (toLower(fpStr).find(toLower(shareLocalPath)) == 0) {

								string hostName = TSystem::getHostName().toStdString();

								//   #ifdef IS_DOTNET

								// shi502_netname e' una wstring, anche se la dichiarazione di PSHARE_INFO_502 non lo sa!

								wstring shareNetNameW = (LPWSTR)(p->shi502_netname);

								string shareNetName = toString(shareNetNameW);

								//	 #else

								//string shareNetName = toString(p->shi502_netname);

								//#endif

								shareNetName.append("\\");

								string fp(fpStr);

								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);

	string pathStr = toString(fp.getWideString());

	// estrae hostname e il nome dello share dal path UNC

	string::size_type idx = pathStr.find_first_of("\\", 2);

	if (idx == string::npos)

		throw TException("The path specified is not a valid UNC path");

	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");

	string::size_type idx2 = pathStr.find_first_of("\\", idx + 1);

	if (idx2 == string::npos)

		throw TException("The path specified is not a valid UNC path");

	string fpShareName = pathStr.substr(idx + 1, idx2 - idx - 1);

	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!

					wstring shareNetNameW = (LPWSTR)(p->shi502_netname);

					string shareNetName = toString(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!

						wstring shareLocalPathW = (LPWSTR)(p->shi502_path);

						string shareLocalPath = toString(shareLocalPathW);

						//#else

						//string shareLocalPath = toString(p->shi502_path);

						//#endif

						string localPath = shareLocalPath + path;

						return TFilePath(localPath);

					}

				}

				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

}