/** @file * * Shared Folders: * VBox Shared Folders. */ /* * Copyright (C) 2006-2007 Sun Microsystems, Inc. * * This file is part of VirtualBox Open Source Edition (OSE), as * available from http://www.virtualbox.org. This file is free software; * you can redistribute it and/or modify it under the terms of the GNU * General Public License (GPL) as published by the Free Software * Foundation, in version 2 as it comes in the "COPYING" file of the * VirtualBox OSE distribution. VirtualBox OSE is distributed in the * hope that it will be useful, but WITHOUT ANY WARRANTY of any kind. * * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa * Clara, CA 95054 USA or visit http://www.sun.com if you need * additional information or have any questions. */ #include "mappings.h" #include "vbsf.h" #include "shflhandle.h" #include #include #include #include #include #include #include #include #ifdef RT_OS_DARWIN #include #endif #undef LogFlow #define LogFlow Log /** * @todo find a better solution for supporting the execute bit for non-windows * guests on windows host. Search for "0111" to find all the relevant places. */ void vbsfStripLastComponent (char *pszFullPath, uint32_t cbFullPathRoot) { RTUNICP cp; /* Do not strip root. */ char *s = pszFullPath + cbFullPathRoot; char *delimSecondLast = NULL; char *delimLast = NULL; LogFlowFunc(("%s -> %s\n", pszFullPath, s)); for (;;) { cp = RTStrGetCp(s); if (cp == RTUNICP_INVALID || cp == 0) { break; } if (cp == RTPATH_DELIMITER) { if (delimLast != NULL) { delimSecondLast = delimLast; } delimLast = s; } s = RTStrNextCp (s); } if (cp == 0) { if (delimLast + 1 == s) { if (delimSecondLast) { *delimSecondLast = 0; } else if (delimLast) { *delimLast = 0; } } else { if (delimLast) { *delimLast = 0; } } } LogFlowFunc(("%s, %s, %s\n", pszFullPath, delimLast, delimSecondLast)); } static int vbsfCorrectCasing(char *pszFullPath, char *pszStartComponent) { PRTDIRENTRYEX pDirEntry = NULL; uint32_t cbDirEntry, cbComponent; int rc = VERR_FILE_NOT_FOUND; PRTDIR hSearch = 0; char szWildCard[4]; Log2(("vbsfCorrectCasing: %s %s\n", pszFullPath, pszStartComponent)); cbComponent = (uint32_t) strlen(pszStartComponent); cbDirEntry = 4096; pDirEntry = (PRTDIRENTRYEX)RTMemAlloc(cbDirEntry); if (pDirEntry == 0) { AssertFailed(); return VERR_NO_MEMORY; } /** @todo this is quite inefficient, especially for directories with many files */ Assert(pszFullPath < pszStartComponent-1); Assert(*(pszStartComponent-1) == RTPATH_DELIMITER); *(pszStartComponent-1) = 0; strcpy(pDirEntry->szName, pszFullPath); szWildCard[0] = RTPATH_DELIMITER; szWildCard[1] = '*'; szWildCard[2] = 0; strcat(pDirEntry->szName, szWildCard); rc = RTDirOpenFiltered (&hSearch, pDirEntry->szName, RTDIRFILTER_WINNT); *(pszStartComponent-1) = RTPATH_DELIMITER; if (RT_FAILURE(rc)) goto end; for(;;) { size_t cbDirEntrySize = cbDirEntry; rc = RTDirReadEx(hSearch, pDirEntry, &cbDirEntrySize, RTFSOBJATTRADD_NOTHING); if (rc == VERR_NO_MORE_FILES) break; if (VINF_SUCCESS != rc && rc != VWRN_NO_DIRENT_INFO) { AssertFailed(); if (rc != VERR_NO_TRANSLATION) break; else continue; } Log2(("vbsfCorrectCasing: found %s\n", &pDirEntry->szName[0])); if ( pDirEntry->cbName == cbComponent && !RTStrICmp(pszStartComponent, &pDirEntry->szName[0])) { Log(("Found original name %s (%s)\n", &pDirEntry->szName[0], pszStartComponent)); strcpy(pszStartComponent, &pDirEntry->szName[0]); rc = VINF_SUCCESS; break; } } end: if (RT_FAILURE(rc)) Log(("vbsfCorrectCasing %s failed with %d\n", pszStartComponent, rc)); if (pDirEntry) RTMemFree(pDirEntry); if (hSearch) RTDirClose(hSearch); return rc; } static int vbsfBuildFullPath (SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLSTRING *pPath, uint32_t cbPath, char **ppszFullPath, uint32_t *pcbFullPathRoot, bool fWildCard = false) { int rc = VINF_SUCCESS; char *pszFullPath = NULL; /* Query UCS2 root prefix for the path, cbRoot is the length in bytes including trailing (RTUTF16)0. */ uint32_t cbRoot = 0; PCRTUTF16 pwszRoot = vbsfMappingsQueryHostRoot (root, &cbRoot); if (!pwszRoot || cbRoot == 0) { Log(("vbsfBuildFullPath: invalid root!\n")); return VERR_INVALID_PARAMETER; } if (BIT_FLAG(pClient->fu32Flags, SHFL_CF_UTF8)) { int rc; char *utf8Root; rc = RTUtf16ToUtf8 (pwszRoot, &utf8Root); if (RT_SUCCESS (rc)) { size_t cbUtf8Root, cbUtf8FullPath; char *utf8FullPath; cbUtf8Root = strlen (utf8Root); cbUtf8FullPath = cbUtf8Root + 1 + pPath->u16Length + 1; utf8FullPath = (char *) RTMemAllocZ (cbUtf8FullPath); if (!utf8FullPath) { rc = VERR_NO_MEMORY; *ppszFullPath = NULL; Log(("RTMemAllocZ %x failed!!\n", cbUtf8FullPath)); } else { memcpy (utf8FullPath, utf8Root, cbUtf8Root); memcpy (utf8FullPath + cbUtf8Root + 1, &pPath->String.utf8[0], pPath->u16Length); utf8FullPath[cbUtf8Root] = '/'; utf8FullPath[cbUtf8FullPath - 1] = 0; pszFullPath = utf8FullPath; if (pcbFullPathRoot) *pcbFullPathRoot = (uint32_t)cbUtf8Root; /* Must index the path delimiter. */ } RTStrFree (utf8Root); } else { Log (("vbsfBuildFullPath: RTUtf16ToUtf8 failed with %Rrc\n", rc)); } } else { #ifdef RT_OS_DARWIN /** @todo This belongs in rtPathToNative or in the windows shared folder file system driver... * The question is simply whether the NFD normalization is actually applied on a (virtaul) file * system level in darwin, or just by the user mode application libs. */ SHFLSTRING *pPathParameter = pPath; size_t cbPathLength; CFMutableStringRef inStr = ::CFStringCreateMutable(NULL, 0); uint16_t ucs2Length; CFRange rangeCharacters; // Is 8 times length enough for decomposed in worst case...? cbPathLength = sizeof(SHFLSTRING) + pPathParameter->u16Length * 8 + 2; pPath = (SHFLSTRING *)RTMemAllocZ (cbPathLength); if (!pPath) { rc = VERR_NO_MEMORY; Log(("RTMemAllocZ %x failed!!\n", cbPathLength)); return rc; } ::CFStringAppendCharacters(inStr, (UniChar*)pPathParameter->String.ucs2, pPathParameter->u16Length / sizeof(pPathParameter->String.ucs2[0])); ::CFStringNormalize(inStr, kCFStringNormalizationFormD); ucs2Length = ::CFStringGetLength(inStr); rangeCharacters.location = 0; rangeCharacters.length = ucs2Length; ::CFStringGetCharacters(inStr, rangeCharacters, pPath->String.ucs2); pPath->String.ucs2[ucs2Length] = 0x0000; // NULL terminated pPath->u16Length = ucs2Length * sizeof(pPath->String.ucs2[0]); pPath->u16Size = pPath->u16Length + sizeof(pPath->String.ucs2[0]); CFRelease(inStr); #endif /* Client sends us UCS2, so convert it to UTF8. */ Log(("Root %ls path %.*ls\n", pwszRoot, pPath->u16Length/sizeof(pPath->String.ucs2[0]), pPath->String.ucs2)); /* Allocate buffer that will be able to contain * the root prefix and the pPath converted to UTF8. * Expect a 2 bytes UCS2 to be converted to 8 bytes UTF8 * in worst case. */ uint32_t cbFullPath = (cbRoot/sizeof (RTUTF16) + ShflStringLength (pPath)) * 4; pszFullPath = (char *)RTMemAllocZ (cbFullPath); if (!pszFullPath) { rc = VERR_NO_MEMORY; } else { uint32_t cb = cbFullPath; rc = RTUtf16ToUtf8Ex (pwszRoot, RTSTR_MAX, &pszFullPath, cb, NULL); if (RT_FAILURE(rc)) { AssertFailed(); #ifdef RT_OS_DARWIN RTMemFree(pPath); pPath = pPathParameter; #endif return rc; } char *dst = pszFullPath; cbRoot = (uint32_t)strlen(dst); if (dst[cbRoot - 1] != RTPATH_DELIMITER) { dst[cbRoot] = RTPATH_DELIMITER; cbRoot++; } if (pcbFullPathRoot) *pcbFullPathRoot = cbRoot - 1; /* Must index the path delimiter. */ dst += cbRoot; cb -= cbRoot; if (pPath->u16Length) { /* Convert and copy components. */ PRTUTF16 src = &pPath->String.ucs2[0]; /* Correct path delimiters */ if (pClient->PathDelimiter != RTPATH_DELIMITER) { LogFlow(("Correct path delimiter in %ls\n", src)); while (*src) { if (*src == pClient->PathDelimiter) *src = RTPATH_DELIMITER; src++; } src = &pPath->String.ucs2[0]; LogFlow(("Corrected string %ls\n", src)); } if (*src == RTPATH_DELIMITER) src++; /* we already appended a delimiter to the first part */ rc = RTUtf16ToUtf8Ex (src, RTSTR_MAX, &dst, cb, NULL); if (RT_FAILURE(rc)) { AssertFailed(); #ifdef RT_OS_DARWIN RTMemFree(pPath); pPath = pPathParameter; #endif return rc; } uint32_t l = (uint32_t)strlen (dst); cb -= l; dst += l; Assert(cb > 0); } /* Nul terminate the string */ *dst = 0; } #ifdef RT_OS_DARWIN RTMemFree(pPath); pPath = pPathParameter; #endif } if (RT_SUCCESS (rc)) { /* When the host file system is case sensitive and the guest expects a case insensitive fs, then problems can occur */ if ( vbsfIsHostMappingCaseSensitive (root) && !vbsfIsGuestMappingCaseSensitive(root)) { RTFSOBJINFO info; char *pszWildCardComponent = NULL; if (fWildCard) { /* strip off the last path component, that contains the wildcard(s) */ uint32_t len = (uint32_t)strlen(pszFullPath); char *src = pszFullPath + len - 1; while(src > pszFullPath) { if (*src == RTPATH_DELIMITER) break; src--; } if (*src == RTPATH_DELIMITER) { bool fHaveWildcards = false; char *temp = src; while(*temp) { char uc = *temp; if (uc == '*' || uc == '?' || uc == '>' || uc == '<' || uc == '"') { fHaveWildcards = true; break; } temp++; } if (fHaveWildcards) { pszWildCardComponent = src; *pszWildCardComponent = 0; } } } /** @todo don't check when creating files or directories; waste of time */ rc = RTPathQueryInfo(pszFullPath, &info, RTFSOBJATTRADD_NOTHING); if (rc == VERR_FILE_NOT_FOUND || rc == VERR_PATH_NOT_FOUND) { uint32_t len = (uint32_t)strlen(pszFullPath); char *src = pszFullPath + len - 1; Log(("Handle case insenstive guest fs on top of host case sensitive fs for %s\n", pszFullPath)); /* Find partial path that's valid */ while(src > pszFullPath) { if (*src == RTPATH_DELIMITER) { *src = 0; rc = RTPathQueryInfo (pszFullPath, &info, RTFSOBJATTRADD_NOTHING); *src = RTPATH_DELIMITER; if (rc == VINF_SUCCESS) { #ifdef DEBUG *src = 0; Log(("Found valid partial path %s\n", pszFullPath)); *src = RTPATH_DELIMITER; #endif break; } } src--; } Assert(*src == RTPATH_DELIMITER && RT_SUCCESS(rc)); if ( *src == RTPATH_DELIMITER && RT_SUCCESS(rc)) { src++; for(;;) { char *end = src; bool fEndOfString = true; while(*end) { if (*end == RTPATH_DELIMITER) break; end++; } if (*end == RTPATH_DELIMITER) { fEndOfString = false; *end = 0; rc = RTPathQueryInfo(src, &info, RTFSOBJATTRADD_NOTHING); Assert(rc == VINF_SUCCESS || rc == VERR_FILE_NOT_FOUND || rc == VERR_PATH_NOT_FOUND); } else if (end == src) rc = VINF_SUCCESS; /* trailing delimiter */ else rc = VERR_FILE_NOT_FOUND; if (rc == VERR_FILE_NOT_FOUND || rc == VERR_PATH_NOT_FOUND) { /* path component is invalid; try to correct the casing */ rc = vbsfCorrectCasing(pszFullPath, src); if (RT_FAILURE(rc)) { if (!fEndOfString) *end = RTPATH_DELIMITER; /* restore the original full path */ break; } } if (fEndOfString) break; *end = RTPATH_DELIMITER; src = end + 1; } if (RT_FAILURE(rc)) Log(("Unable to find suitable component rc=%d\n", rc)); } else rc = VERR_FILE_NOT_FOUND; } if (pszWildCardComponent) *pszWildCardComponent = RTPATH_DELIMITER; /* might be a new file so don't fail here! */ rc = VINF_SUCCESS; } *ppszFullPath = pszFullPath; LogFlow(("vbsfBuildFullPath: %s rc=%Rrc\n", pszFullPath, rc)); } return rc; } static void vbsfFreeFullPath (char *pszFullPath) { RTMemFree (pszFullPath); } /** * Convert shared folder create flags (see include/iprt/shflsvc.h) into iprt create flags. * * @returns iprt status code * @param fShflFlags shared folder create flags * @retval pfOpen iprt create flags */ static int vbsfConvertFileOpenFlags(unsigned fShflFlags, unsigned *pfOpen) { unsigned fOpen = 0; int rc = VINF_SUCCESS; switch (BIT_FLAG(fShflFlags, SHFL_CF_ACCESS_MASK_RW)) { default: case SHFL_CF_ACCESS_NONE: { /** @todo treat this as read access, but theoretically this could be a no access request. */ fOpen |= RTFILE_O_READ; Log(("FLAG: SHFL_CF_ACCESS_NONE\n")); break; } case SHFL_CF_ACCESS_READ: { fOpen |= RTFILE_O_READ; Log(("FLAG: SHFL_CF_ACCESS_READ\n")); break; } case SHFL_CF_ACCESS_WRITE: { fOpen |= RTFILE_O_WRITE; Log(("FLAG: SHFL_CF_ACCESS_WRITE\n")); break; } case SHFL_CF_ACCESS_READWRITE: { fOpen |= RTFILE_O_READWRITE; Log(("FLAG: SHFL_CF_ACCESS_READWRITE\n")); break; } } switch (BIT_FLAG(fShflFlags, SHFL_CF_ACCESS_MASK_ATTR)) { default: case SHFL_CF_ACCESS_ATTR_NONE: { fOpen |= RTFILE_O_ACCESS_ATTR_DEFAULT; /** @todo for posix guests we should allow passing the mode. */ fOpen |= 0666 << RTFILE_O_CREATE_MODE_SHIFT; Log(("FLAG: SHFL_CF_ACCESS_ATTR_NONE\n")); break; } case SHFL_CF_ACCESS_ATTR_READ: { fOpen |= RTFILE_O_ACCESS_ATTR_READ; /** @todo for posix guests we should allow passing the mode. * Additionally this esoteric case - new file with only read * access - should be tested with apps depending on this. */ fOpen |= 0444 << RTFILE_O_CREATE_MODE_SHIFT; Log(("FLAG: SHFL_CF_ACCESS_ATTR_READ\n")); break; } case SHFL_CF_ACCESS_ATTR_WRITE: { fOpen |= RTFILE_O_ACCESS_ATTR_WRITE; /** @todo for posix guests we should allow passing the mode. * Additionally this esoteric case - new file with only write * access - should be tested with apps depending on this. */ fOpen |= 0222 << RTFILE_O_CREATE_MODE_SHIFT; Log(("FLAG: SHFL_CF_ACCESS_ATTR_WRITE\n")); break; } case SHFL_CF_ACCESS_ATTR_READWRITE: { fOpen |= RTFILE_O_ACCESS_ATTR_READWRITE; /** @todo for posix guests we should allow passing the mode. */ fOpen |= 0666 << RTFILE_O_CREATE_MODE_SHIFT; Log(("FLAG: SHFL_CF_ACCESS_ATTR_READWRITE\n")); break; } } /* Sharing mask */ switch (BIT_FLAG(fShflFlags, SHFL_CF_ACCESS_MASK_DENY)) { default: case SHFL_CF_ACCESS_DENYNONE: fOpen |= RTFILE_O_DENY_NONE; Log(("FLAG: SHFL_CF_ACCESS_DENYNONE\n")); break; case SHFL_CF_ACCESS_DENYREAD: fOpen |= RTFILE_O_DENY_READ; Log(("FLAG: SHFL_CF_ACCESS_DENYREAD\n")); break; case SHFL_CF_ACCESS_DENYWRITE: fOpen |= RTFILE_O_DENY_WRITE; Log(("FLAG: SHFL_CF_ACCESS_DENYWRITE\n")); break; case SHFL_CF_ACCESS_DENYALL: fOpen |= RTFILE_O_DENY_ALL; Log(("FLAG: SHFL_CF_ACCESS_DENYALL\n")); break; } /* Open/Create action mask */ switch (BIT_FLAG(fShflFlags, SHFL_CF_ACT_MASK_IF_EXISTS)) { case SHFL_CF_ACT_OPEN_IF_EXISTS: if (SHFL_CF_ACT_CREATE_IF_NEW == BIT_FLAG(fShflFlags, SHFL_CF_ACT_MASK_IF_NEW)) { fOpen |= RTFILE_O_OPEN_CREATE; Log(("FLAGS: SHFL_CF_ACT_OPEN_IF_EXISTS and SHFL_CF_ACT_CREATE_IF_NEW\n")); } else if (SHFL_CF_ACT_FAIL_IF_NEW == BIT_FLAG(fShflFlags, SHFL_CF_ACT_MASK_IF_NEW)) { fOpen |= RTFILE_O_OPEN; Log(("FLAGS: SHFL_CF_ACT_OPEN_IF_EXISTS and SHFL_CF_ACT_FAIL_IF_NEW\n")); } else { Log(("FLAGS: invalid open/create action combination\n")); rc = VERR_INVALID_PARAMETER; } break; case SHFL_CF_ACT_FAIL_IF_EXISTS: if (SHFL_CF_ACT_CREATE_IF_NEW == BIT_FLAG(fShflFlags, SHFL_CF_ACT_MASK_IF_NEW)) { fOpen |= RTFILE_O_CREATE; Log(("FLAGS: SHFL_CF_ACT_FAIL_IF_EXISTS and SHFL_CF_ACT_CREATE_IF_NEW\n")); } else { Log(("FLAGS: invalid open/create action combination\n")); rc = VERR_INVALID_PARAMETER; } break; case SHFL_CF_ACT_REPLACE_IF_EXISTS: if (SHFL_CF_ACT_CREATE_IF_NEW == BIT_FLAG(fShflFlags, SHFL_CF_ACT_MASK_IF_NEW)) { fOpen |= RTFILE_O_CREATE_REPLACE; Log(("FLAGS: SHFL_CF_ACT_REPLACE_IF_EXISTS and SHFL_CF_ACT_CREATE_IF_NEW\n")); } else if (SHFL_CF_ACT_FAIL_IF_NEW == BIT_FLAG(fShflFlags, SHFL_CF_ACT_MASK_IF_NEW)) { fOpen |= RTFILE_O_OPEN | RTFILE_O_TRUNCATE; Log(("FLAGS: SHFL_CF_ACT_REPLACE_IF_EXISTS and SHFL_CF_ACT_FAIL_IF_NEW\n")); } else { Log(("FLAGS: invalid open/create action combination\n")); rc = VERR_INVALID_PARAMETER; } break; case SHFL_CF_ACT_OVERWRITE_IF_EXISTS: if (SHFL_CF_ACT_CREATE_IF_NEW == BIT_FLAG(fShflFlags, SHFL_CF_ACT_MASK_IF_NEW)) { fOpen |= RTFILE_O_CREATE_REPLACE; Log(("FLAGS: SHFL_CF_ACT_OVERWRITE_IF_EXISTS and SHFL_CF_ACT_CREATE_IF_NEW\n")); } else if (SHFL_CF_ACT_FAIL_IF_NEW == BIT_FLAG(fShflFlags, SHFL_CF_ACT_MASK_IF_NEW)) { fOpen |= RTFILE_O_OPEN | RTFILE_O_TRUNCATE; Log(("FLAGS: SHFL_CF_ACT_OVERWRITE_IF_EXISTS and SHFL_CF_ACT_FAIL_IF_NEW\n")); } else { Log(("FLAGS: invalid open/create action combination\n")); rc = VERR_INVALID_PARAMETER; } break; default: rc = VERR_INVALID_PARAMETER; Log(("FLAG: SHFL_CF_ACT_MASK_IF_EXISTS - invalid parameter\n")); } if (RT_SUCCESS(rc)) { *pfOpen = fOpen; } return rc; } /** * Open a file or create and open a new one. * * @returns IPRT status code * @param pszPath Path to the file or folder on the host. * @param pParms->CreateFlags Creation or open parameters, see include/VBox/shflsvc.h * @param pParms->Info When a new file is created this specifies the initial parameters. * When a file is created or overwritten, it also specifies the * initial size. * @retval pParms->Result Shared folder status code, see include/VBox/shflsvc.h * @retval pParms->Handle On success the (shared folder) handle of the file opened or * created * @retval pParms->Info On success the parameters of the file opened or created */ static int vbsfOpenFile (const char *pszPath, SHFLCREATEPARMS *pParms) { LogFlow(("vbsfOpenFile: pszPath = %s, pParms = %p\n", pszPath, pParms)); Log(("SHFL create flags %08x\n", pParms->CreateFlags)); SHFLHANDLE handle = SHFL_HANDLE_NIL; SHFLFILEHANDLE *pHandle = 0; /* Open or create a file. */ unsigned fOpen = 0; bool fNoError = false; static int cErrors; int rc = vbsfConvertFileOpenFlags(pParms->CreateFlags, &fOpen); if (RT_SUCCESS(rc)) { handle = vbsfAllocFileHandle(); } if (SHFL_HANDLE_NIL != handle) { rc = VERR_NO_MEMORY; /* If this fails - rewritten immediately on success. */ pHandle = (SHFLFILEHANDLE *)vbsfQueryHandle(handle, SHFL_HF_TYPE_FILE); } if (0 != pHandle) { rc = RTFileOpen(&pHandle->file.Handle, pszPath, fOpen); } if (RT_FAILURE (rc)) { switch (rc) { case VERR_FILE_NOT_FOUND: pParms->Result = SHFL_FILE_NOT_FOUND; /* This actually isn't an error, so correct the rc before return later, because the driver (VBoxSF.sys) expects rc = VINF_SUCCESS and checks the result code. */ fNoError = true; break; case VERR_PATH_NOT_FOUND: pParms->Result = SHFL_PATH_NOT_FOUND; /* This actually isn't an error, so correct the rc before return later, because the driver (VBoxSF.sys) expects rc = VINF_SUCCESS and checks the result code. */ fNoError = true; break; case VERR_ALREADY_EXISTS: RTFSOBJINFO info; /** @todo Possible race left here. */ if (RT_SUCCESS(RTPathQueryInfo (pszPath, &info, RTFSOBJATTRADD_NOTHING))) { #ifdef RT_OS_WINDOWS info.Attr.fMode |= 0111; #endif pParms->Info = info; } pParms->Result = SHFL_FILE_EXISTS; /* This actually isn't an error, so correct the rc before return later, because the driver (VBoxSF.sys) expects rc = VINF_SUCCESS and checks the result code. */ fNoError = true; break; case VERR_TOO_MANY_OPEN_FILES: if (cErrors < 32) { LogRel(("SharedFolders host service: Cannot open '%s' -- too many open files.\n", pszPath)); #if defined RT_OS_LINUX || RT_OS_SOLARIS if (cErrors < 1) LogRel(("SharedFolders host service: Try to increase the limit for open files (ulimt -n)\n")); #endif cErrors++; } pParms->Result = SHFL_NO_RESULT; break; default: pParms->Result = SHFL_NO_RESULT; } } if (RT_SUCCESS(rc)) { /** @note The shared folder status code is very approximate, as the runtime * does not really provide this information. */ pParms->Result = SHFL_FILE_EXISTS; /* We lost the information as to whether it was created when we eliminated the race. */ if ( ( SHFL_CF_ACT_REPLACE_IF_EXISTS == BIT_FLAG(pParms->CreateFlags, SHFL_CF_ACT_MASK_IF_EXISTS)) || ( SHFL_CF_ACT_OVERWRITE_IF_EXISTS == BIT_FLAG(pParms->CreateFlags, SHFL_CF_ACT_MASK_IF_EXISTS))) { /* For now, we do not treat a failure here as fatal. */ /* @todo Also set the size for SHFL_CF_ACT_CREATE_IF_NEW if SHFL_CF_ACT_FAIL_IF_EXISTS is set. */ RTFileSetSize(pHandle->file.Handle, pParms->Info.cbObject); pParms->Result = SHFL_FILE_REPLACED; } if ( ( SHFL_CF_ACT_FAIL_IF_EXISTS == BIT_FLAG(pParms->CreateFlags, SHFL_CF_ACT_MASK_IF_EXISTS)) || ( SHFL_CF_ACT_CREATE_IF_NEW == BIT_FLAG(pParms->CreateFlags, SHFL_CF_ACT_MASK_IF_NEW))) { pParms->Result = SHFL_FILE_CREATED; } #if 0 /* @todo */ /* Set new attributes. */ if ( ( SHFL_CF_ACT_REPLACE_IF_EXISTS == BIT_FLAG(pParms->CreateFlags, SHFL_CF_ACT_MASK_IF_EXISTS)) || ( SHFL_CF_ACT_CREATE_IF_NEW == BIT_FLAG(pParms->CreateFlags, SHFL_CF_ACT_MASK_IF_NEW))) { RTFileSetTimes(pHandle->file.Handle, &pParms->Info.AccessTime, &pParms->Info.ModificationTime, &pParms->Info.ChangeTime, &pParms->Info.BirthTime ); RTFileSetMode (pHandle->file.Handle, pParms->Info.Attr.fMode); } #endif RTFSOBJINFO info; /* Get file information */ rc = RTFileQueryInfo (pHandle->file.Handle, &info, RTFSOBJATTRADD_NOTHING); if (RT_SUCCESS(rc)) { #ifdef RT_OS_WINDOWS info.Attr.fMode |= 0111; #endif pParms->Info = info; } } if (RT_FAILURE(rc)) { if ( (0 != pHandle) && (NIL_RTFILE != pHandle->file.Handle) && (0 != pHandle->file.Handle)) { RTFileClose(pHandle->file.Handle); pHandle->file.Handle = NIL_RTFILE; } if (SHFL_HANDLE_NIL != handle) { vbsfFreeFileHandle (handle); } } else { pParms->Handle = handle; } /* Report the driver that all is okay, we're done here */ if (fNoError) rc = VINF_SUCCESS; LogFlow(("vbsfOpenFile: rc = %Rrc\n", rc)); return rc; } /** * Open a folder or create and open a new one. * * @returns IPRT status code * @param pszPath Path to the file or folder on the host. * @param pParms->CreateFlags Creation or open parameters, see include/VBox/shflsvc.h * @retval pParms->Result Shared folder status code, see include/VBox/shflsvc.h * @retval pParms->Handle On success the (shared folder) handle of the folder opened or * created * @retval pParms->Info On success the parameters of the folder opened or created * * @note folders are created with fMode = 0777 */ static int vbsfOpenDir (const char *pszPath, SHFLCREATEPARMS *pParms) { LogFlow(("vbsfOpenDir: pszPath = %s, pParms = %p\n", pszPath, pParms)); Log(("SHFL create flags %08x\n", pParms->CreateFlags)); int rc = VERR_NO_MEMORY; SHFLHANDLE handle = vbsfAllocDirHandle(); SHFLFILEHANDLE *pHandle = (SHFLFILEHANDLE *)vbsfQueryHandle(handle, SHFL_HF_TYPE_DIR); if (0 != pHandle) { rc = VINF_SUCCESS; pParms->Result = SHFL_FILE_EXISTS; /* May be overwritten with SHFL_FILE_CREATED. */ /** @todo Can anyone think of a sensible, race-less way to do this? Although I suspect that the race is inherent, due to the API available... */ /* Try to create the folder first if "create if new" is specified. If this fails, and "open if exists" is specified, then we ignore the failure and try to open the folder anyway. */ if ( SHFL_CF_ACT_CREATE_IF_NEW == BIT_FLAG(pParms->CreateFlags, SHFL_CF_ACT_MASK_IF_NEW)) { /** @todo render supplied attributes. * bird: The guest should specify this. For windows guests RTFS_DOS_DIRECTORY should suffice. */ RTFMODE fMode = 0777; pParms->Result = SHFL_FILE_CREATED; rc = RTDirCreate(pszPath, fMode); if (RT_FAILURE (rc)) { switch (rc) { case VERR_ALREADY_EXISTS: pParms->Result = SHFL_FILE_EXISTS; break; case VERR_PATH_NOT_FOUND: pParms->Result = SHFL_PATH_NOT_FOUND; break; default: pParms->Result = SHFL_NO_RESULT; } } } if ( RT_SUCCESS(rc) || (SHFL_CF_ACT_OPEN_IF_EXISTS == BIT_FLAG(pParms->CreateFlags, SHFL_CF_ACT_MASK_IF_EXISTS))) { /* Open the directory now */ rc = RTDirOpen (&pHandle->dir.Handle, pszPath); if (RT_SUCCESS(rc)) { RTFSOBJINFO info; rc = RTDirQueryInfo (pHandle->dir.Handle, &info, RTFSOBJATTRADD_NOTHING); if (RT_SUCCESS(rc)) { pParms->Info = info; } } else { switch (rc) { case VERR_FILE_NOT_FOUND: /* Does this make sense? */ pParms->Result = SHFL_FILE_NOT_FOUND; break; case VERR_PATH_NOT_FOUND: pParms->Result = SHFL_PATH_NOT_FOUND; break; case VERR_ACCESS_DENIED: pParms->Result = SHFL_FILE_EXISTS; break; default: pParms->Result = SHFL_NO_RESULT; } } } } if (RT_FAILURE(rc)) { if ( (0 != pHandle) && (0 != pHandle->dir.Handle)) { RTDirClose(pHandle->dir.Handle); pHandle->dir.Handle = 0; } if (SHFL_HANDLE_NIL != handle) { vbsfFreeFileHandle (handle); } } else { pParms->Handle = handle; } LogFlow(("vbsfOpenDir: rc = %Rrc\n", rc)); return rc; } static int vbsfCloseDir (SHFLFILEHANDLE *pHandle) { int rc = VINF_SUCCESS; LogFlow(("vbsfCloseDir: Handle = %08X Search Handle = %08X\n", pHandle->dir.Handle, pHandle->dir.SearchHandle)); RTDirClose (pHandle->dir.Handle); if (pHandle->dir.SearchHandle) RTDirClose(pHandle->dir.SearchHandle); if (pHandle->dir.pLastValidEntry) { RTMemFree(pHandle->dir.pLastValidEntry); pHandle->dir.pLastValidEntry = NULL; } LogFlow(("vbsfCloseDir: rc = %d\n", rc)); return rc; } static int vbsfCloseFile (SHFLFILEHANDLE *pHandle) { int rc = VINF_SUCCESS; LogFlow(("vbsfCloseFile: Handle = %08X\n", pHandle->file.Handle)); rc = RTFileClose (pHandle->file.Handle); LogFlow(("vbsfCloseFile: rc = %d\n", rc)); return rc; } /** * Look up file or folder information by host path. * * @returns iprt status code (currently VINF_SUCCESS) * @param pszFullPath The path of the file to be looked up * @retval pParms->Result Status of the operation (success or error) * @retval pParms->Info On success, information returned about the file */ static int vbsfLookupFile(char *pszPath, SHFLCREATEPARMS *pParms) { RTFSOBJINFO info; int rc; rc = RTPathQueryInfo (pszPath, &info, RTFSOBJATTRADD_NOTHING); LogFlow(("SHFL_CF_LOOKUP\n")); /* Client just wants to know if the object exists. */ switch (rc) { case VINF_SUCCESS: { #ifdef RT_OS_WINDOWS info.Attr.fMode |= 0111; #endif pParms->Info = info; pParms->Result = SHFL_FILE_EXISTS; break; } case VERR_FILE_NOT_FOUND: { pParms->Result = SHFL_FILE_NOT_FOUND; rc = VINF_SUCCESS; break; } case VERR_PATH_NOT_FOUND: { pParms->Result = SHFL_PATH_NOT_FOUND; rc = VINF_SUCCESS; break; } } return rc; } /** * Create or open a file or folder. Perform character set and case * conversion on the file name if necessary. * * @returns IPRT status code, but see note below * @param pClient Data structure describing the client accessing the shared * folder * @param root The index of the shared folder in the table of mappings. * The host path of the shared folder is found using this. * @param pPath The path of the file or folder relative to the host path * indexed by root. * @param cbPath Presumably the length of the path in pPath. Actually * ignored, as pPath contains a length parameter. * @param pParms->Info If a new file is created or an old one overwritten, set * these attributes * @retval pParms->Result Shared folder result code, see include/VBox/shflsvc.h * @retval pParms->Handle Shared folder handle to the newly opened file * @retval pParms->Info Attributes of the file or folder opened * * @note This function returns success if a "non-exceptional" error occurred, * such as "no such file". In this case, the caller should check the * pParms->Result return value and whether pParms->Handle is valid. */ int vbsfCreate (SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLSTRING *pPath, uint32_t cbPath, SHFLCREATEPARMS *pParms) { int rc = VINF_SUCCESS; LogFlow(("vbsfCreate: pClient = %p, pPath = %p, cbPath = %d, pParms = %p CreateFlags=%x\n", pClient, pPath, cbPath, pParms, pParms->CreateFlags)); /* Check the client access rights to the root. */ /** @todo */ /* Build a host full path for the given path, handle file name case issues (if the guest * expects case-insensitive paths but the host is case-sensitive) and convert ucs2 to utf8 if * necessary. */ char *pszFullPath = NULL; uint32_t cbFullPathRoot = 0; rc = vbsfBuildFullPath (pClient, root, pPath, cbPath, &pszFullPath, &cbFullPathRoot); if (RT_SUCCESS (rc)) { /* Reset return values in case client forgot to do so. */ pParms->Result = SHFL_NO_RESULT; pParms->Handle = SHFL_HANDLE_NIL; if (BIT_FLAG(pParms->CreateFlags, SHFL_CF_LOOKUP)) { rc = vbsfLookupFile(pszFullPath, pParms); } else { /* Query path information. */ RTFSOBJINFO info; rc = RTPathQueryInfo (pszFullPath, &info, RTFSOBJATTRADD_NOTHING); LogFlow(("RTPathQueryInfo returned %Rrc\n", rc)); if (RT_SUCCESS(rc)) { /* Mark it as a directory in case the caller didn't. */ /** * @todo I left this in in order not to change the behaviour of the * function too much. Is it really needed, and should it really be * here? */ if (BIT_FLAG(info.Attr.fMode, RTFS_DOS_DIRECTORY)) { pParms->CreateFlags |= SHFL_CF_DIRECTORY; } /** * @todo This should be in the Windows Guest Additions, as no-one else * needs it. */ if (BIT_FLAG(pParms->CreateFlags, SHFL_CF_OPEN_TARGET_DIRECTORY)) { vbsfStripLastComponent (pszFullPath, cbFullPathRoot); pParms->CreateFlags &= ~SHFL_CF_ACT_MASK_IF_EXISTS; pParms->CreateFlags &= ~SHFL_CF_ACT_MASK_IF_NEW; pParms->CreateFlags |= SHFL_CF_DIRECTORY; pParms->CreateFlags |= SHFL_CF_ACT_OPEN_IF_EXISTS; pParms->CreateFlags |= SHFL_CF_ACT_FAIL_IF_NEW; } } rc = VINF_SUCCESS; /* write access requested? */ if (pParms->CreateFlags & ( SHFL_CF_ACT_REPLACE_IF_EXISTS | SHFL_CF_ACT_OVERWRITE_IF_EXISTS | SHFL_CF_ACT_CREATE_IF_NEW | SHFL_CF_ACCESS_WRITE)) { /* is the guest allowed to write to this share? */ bool fWritable; rc = vbsfMappingsQueryWritable (pClient, root, &fWritable); if (RT_FAILURE(rc) || !fWritable) rc = VERR_WRITE_PROTECT; } if (RT_SUCCESS(rc)) { if (BIT_FLAG(pParms->CreateFlags, SHFL_CF_DIRECTORY)) { rc = vbsfOpenDir (pszFullPath, pParms); } else { rc = vbsfOpenFile (pszFullPath, pParms); } } } /* free the path string */ vbsfFreeFullPath(pszFullPath); } Log(("vbsfCreate: handle = %RX64 rc = %Rrc result=%x\n", (uint64_t)pParms->Handle, rc, pParms->Result)); return rc; } int vbsfClose (SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLHANDLE Handle) { int rc = VINF_SUCCESS; LogFlow(("vbsfClose: pClient = %p, Handle = %RX64\n", pClient, Handle)); SHFLFILEHANDLE *pHandle = (SHFLFILEHANDLE *)vbsfQueryHandle(Handle, SHFL_HF_TYPE_DIR|SHFL_HF_TYPE_FILE); Assert(pHandle); if (!pHandle) return VERR_INVALID_HANDLE; switch (ShflHandleType (&pHandle->Header)) { case SHFL_HF_TYPE_DIR: { rc = vbsfCloseDir (pHandle); break; } case SHFL_HF_TYPE_FILE: { rc = vbsfCloseFile (pHandle); break; } default: AssertFailed(); break; } vbsfFreeFileHandle(Handle); Log(("vbsfClose: rc = %Rrc\n", rc)); return rc; } int vbsfRead (SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLHANDLE Handle, uint64_t offset, uint32_t *pcbBuffer, uint8_t *pBuffer) { SHFLFILEHANDLE *pHandle = (SHFLFILEHANDLE *)vbsfQueryHandle(Handle, SHFL_HF_TYPE_FILE); size_t count = 0; int rc; if (pHandle == 0 || pcbBuffer == 0 || pBuffer == 0) { AssertFailed(); return VERR_INVALID_PARAMETER; } Log(("vbsfRead %RX64 offset %RX64 bytes %x\n", Handle, offset, *pcbBuffer)); if (*pcbBuffer == 0) return VINF_SUCCESS; /* @todo correct? */ rc = RTFileSeek(pHandle->file.Handle, offset, RTFILE_SEEK_BEGIN, NULL); if (rc != VINF_SUCCESS) { AssertRC(rc); return rc; } rc = RTFileRead(pHandle->file.Handle, pBuffer, *pcbBuffer, &count); *pcbBuffer = (uint32_t)count; Log(("RTFileRead returned %Rrc bytes read %x\n", rc, count)); return rc; } int vbsfWrite (SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLHANDLE Handle, uint64_t offset, uint32_t *pcbBuffer, uint8_t *pBuffer) { SHFLFILEHANDLE *pHandle = (SHFLFILEHANDLE *)vbsfQueryHandle(Handle, SHFL_HF_TYPE_FILE); size_t count = 0; int rc; if (pHandle == 0 || pcbBuffer == 0 || pBuffer == 0) { AssertFailed(); return VERR_INVALID_PARAMETER; } Log(("vbsfWrite %RX64 offset %RX64 bytes %x\n", Handle, offset, *pcbBuffer)); /* Is the guest allowed to write to this share? * XXX Actually this check was still done in vbsfCreate() -- RTFILE_O_WRITE cannot be set if vbsfMappingsQueryWritable() failed. */ bool fWritable; rc = vbsfMappingsQueryWritable (pClient, root, &fWritable); if (RT_FAILURE(rc) || !fWritable) return VERR_WRITE_PROTECT; if (*pcbBuffer == 0) return VINF_SUCCESS; /** @todo correct? */ rc = RTFileSeek(pHandle->file.Handle, offset, RTFILE_SEEK_BEGIN, NULL); if (rc != VINF_SUCCESS) { AssertRC(rc); return rc; } rc = RTFileWrite(pHandle->file.Handle, pBuffer, *pcbBuffer, &count); *pcbBuffer = (uint32_t)count; Log(("RTFileWrite returned %Rrc bytes written %x\n", rc, count)); return rc; } int vbsfFlush(SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLHANDLE Handle) { SHFLFILEHANDLE *pHandle = (SHFLFILEHANDLE *)vbsfQueryHandle(Handle, SHFL_HF_TYPE_FILE); int rc = VINF_SUCCESS; if (pHandle == 0) { AssertFailed(); return VERR_INVALID_HANDLE; } Log(("vbsfFlush %RX64\n", Handle)); rc = RTFileFlush(pHandle->file.Handle); AssertRC(rc); return rc; } int vbsfDirList(SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLHANDLE Handle, SHFLSTRING *pPath, uint32_t flags, uint32_t *pcbBuffer, uint8_t *pBuffer, uint32_t *pIndex, uint32_t *pcFiles) { SHFLFILEHANDLE *pHandle = (SHFLFILEHANDLE *)vbsfQueryHandle(Handle, SHFL_HF_TYPE_DIR); PRTDIRENTRYEX pDirEntry = 0, pDirEntryOrg; uint32_t cbDirEntry, cbBufferOrg; int rc = VINF_SUCCESS; PSHFLDIRINFO pSFDEntry; PRTUTF16 pwszString; PRTDIR DirHandle; bool fUtf8; fUtf8 = BIT_FLAG(pClient->fu32Flags, SHFL_CF_UTF8) != 0; if (pHandle == 0 || pcbBuffer == 0 || pBuffer == 0) { AssertFailed(); return VERR_INVALID_PARAMETER; } Assert(pIndex && *pIndex == 0); DirHandle = pHandle->dir.Handle; cbDirEntry = 4096; pDirEntryOrg = pDirEntry = (PRTDIRENTRYEX)RTMemAlloc(cbDirEntry); if (pDirEntry == 0) { AssertFailed(); return VERR_NO_MEMORY; } cbBufferOrg = *pcbBuffer; *pcbBuffer = 0; pSFDEntry = (PSHFLDIRINFO)pBuffer; *pIndex = 1; /* not yet complete */ *pcFiles = 0; if (pPath) { if (pHandle->dir.SearchHandle == 0) { /* Build a host full path for the given path * and convert ucs2 to utf8 if necessary. */ char *pszFullPath = NULL; Assert(pHandle->dir.pLastValidEntry == 0); rc = vbsfBuildFullPath (pClient, root, pPath, pPath->u16Size, &pszFullPath, NULL, true); if (RT_SUCCESS (rc)) { rc = RTDirOpenFiltered (&pHandle->dir.SearchHandle, pszFullPath, RTDIRFILTER_WINNT); /* free the path string */ vbsfFreeFullPath(pszFullPath); if (RT_FAILURE (rc)) goto end; } else goto end; } Assert(pHandle->dir.SearchHandle); DirHandle = pHandle->dir.SearchHandle; } while(cbBufferOrg) { size_t cbDirEntrySize = cbDirEntry; uint32_t cbNeeded; /* Do we still have a valid last entry for the active search? If so, then return it here */ if (pHandle->dir.pLastValidEntry) { pDirEntry = pHandle->dir.pLastValidEntry; } else { pDirEntry = pDirEntryOrg; rc = RTDirReadEx(DirHandle, pDirEntry, &cbDirEntrySize, RTFSOBJATTRADD_NOTHING); if (rc == VERR_NO_MORE_FILES) { *pIndex = 0; /* listing completed */ break; } if (VINF_SUCCESS != rc && rc != VWRN_NO_DIRENT_INFO) { AssertFailed(); if (rc != VERR_NO_TRANSLATION) break; else continue; } } cbNeeded = RT_OFFSETOF (SHFLDIRINFO, name.String); if (fUtf8) cbNeeded += pDirEntry->cbName + 1; else /* Overestimating, but that's ok */ cbNeeded += (pDirEntry->cbName + 1) * 2; if (cbBufferOrg < cbNeeded) { /* No room, so save this directory entry, or else it's lost forever */ pHandle->dir.pLastValidEntry = pDirEntry; if (*pcFiles == 0) { AssertFailed(); return VINF_BUFFER_OVERFLOW; /* Return directly and don't free pDirEntry */ } return VINF_SUCCESS; /* Return directly and don't free pDirEntry */ } #ifdef RT_OS_WINDOWS pDirEntry->Info.Attr.fMode |= 0111; #endif pSFDEntry->Info = pDirEntry->Info; pSFDEntry->cucShortName = 0; if (fUtf8) { void *src, *dst; src = &pDirEntry->szName[0]; dst = &pSFDEntry->name.String.utf8[0]; memcpy (dst, src, pDirEntry->cbName + 1); pSFDEntry->name.u16Size = pDirEntry->cbName + 1; pSFDEntry->name.u16Length = pDirEntry->cbName; } else { pSFDEntry->name.String.ucs2[0] = 0; pwszString = pSFDEntry->name.String.ucs2; int rc2 = RTStrToUtf16Ex(pDirEntry->szName, RTSTR_MAX, &pwszString, pDirEntry->cbName+1, NULL); AssertRC(rc2); #ifdef RT_OS_DARWIN /** @todo This belongs in rtPathToNative or in the windows shared folder file system driver... * The question is simply whether the NFD normalization is actually applied on a (virtaul) file * system level in darwin, or just by the user mode application libs. */ { // Convert to // Normalization Form C (composed Unicode). We need this because // Mac OS X file system uses NFD (Normalization Form D :decomposed Unicode) // while most other OS', server-side programs usually expect NFC. uint16_t ucs2Length; CFRange rangeCharacters; CFMutableStringRef inStr = ::CFStringCreateMutable(NULL, 0); ::CFStringAppendCharacters(inStr, (UniChar *)pwszString, RTUtf16Len (pwszString)); ::CFStringNormalize(inStr, kCFStringNormalizationFormC); ucs2Length = ::CFStringGetLength(inStr); rangeCharacters.location = 0; rangeCharacters.length = ucs2Length; ::CFStringGetCharacters(inStr, rangeCharacters, pwszString); pwszString[ucs2Length] = 0x0000; // NULL terminated CFRelease(inStr); } #endif pSFDEntry->name.u16Length = (uint32_t)RTUtf16Len (pSFDEntry->name.String.ucs2) * 2; pSFDEntry->name.u16Size = pSFDEntry->name.u16Length + 2; Log(("SHFL: File name size %d\n", pSFDEntry->name.u16Size)); Log(("SHFL: File name %ls\n", &pSFDEntry->name.String.ucs2)); // adjust cbNeeded (it was overestimated before) cbNeeded = RT_OFFSETOF (SHFLDIRINFO, name.String) + pSFDEntry->name.u16Size; } pSFDEntry = (PSHFLDIRINFO)((uintptr_t)pSFDEntry + cbNeeded); *pcbBuffer += cbNeeded; cbBufferOrg-= cbNeeded; *pcFiles += 1; /* Free the saved last entry, that we've just returned */ if (pHandle->dir.pLastValidEntry) { RTMemFree(pHandle->dir.pLastValidEntry); pHandle->dir.pLastValidEntry = NULL; } if (flags & SHFL_LIST_RETURN_ONE) break; /* we're done */ } Assert(rc != VINF_SUCCESS || *pcbBuffer > 0); end: if (pDirEntry) RTMemFree(pDirEntry); return rc; } int vbsfQueryFileInfo(SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLHANDLE Handle, uint32_t flags, uint32_t *pcbBuffer, uint8_t *pBuffer) { SHFLFILEHANDLE *pHandle = (SHFLFILEHANDLE *)vbsfQueryHandle(Handle, SHFL_HF_TYPE_DIR|SHFL_HF_TYPE_FILE); int rc = VINF_SUCCESS; RTFSOBJINFO *pObjInfo = (RTFSOBJINFO *)pBuffer; if (pHandle == 0 || pcbBuffer == 0 || pObjInfo == 0 || *pcbBuffer < sizeof(RTFSOBJINFO)) { AssertFailed(); return VERR_INVALID_PARAMETER; } /* @todo other options */ Assert(flags == (SHFL_INFO_GET|SHFL_INFO_FILE)); *pcbBuffer = 0; if (pHandle->Header.u32Flags & SHFL_HF_TYPE_DIR) { rc = RTDirQueryInfo(pHandle->dir.Handle, pObjInfo, RTFSOBJATTRADD_NOTHING); } else { rc = RTFileQueryInfo(pHandle->file.Handle, pObjInfo, RTFSOBJATTRADD_NOTHING); #ifdef RT_OS_WINDOWS if (RT_SUCCESS(rc) && RTFS_IS_FILE(pObjInfo->Attr.fMode)) pObjInfo->Attr.fMode |= 0111; #endif } if (rc == VINF_SUCCESS) { *pcbBuffer = sizeof(RTFSOBJINFO); } else AssertFailed(); return rc; } static int vbsfSetFileInfo(SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLHANDLE Handle, uint32_t flags, uint32_t *pcbBuffer, uint8_t *pBuffer) { SHFLFILEHANDLE *pHandle = (SHFLFILEHANDLE *)vbsfQueryHandle(Handle, SHFL_HF_TYPE_DIR|SHFL_HF_TYPE_FILE); int rc = VINF_SUCCESS; RTFSOBJINFO *pSFDEntry; if (pHandle == 0 || pcbBuffer == 0 || pBuffer == 0 || *pcbBuffer < sizeof(RTFSOBJINFO)) { AssertFailed(); return VERR_INVALID_PARAMETER; } *pcbBuffer = 0; pSFDEntry = (RTFSOBJINFO *)pBuffer; Assert(flags == (SHFL_INFO_SET | SHFL_INFO_FILE)); /* Change only the time values that are not zero */ if (pHandle->Header.u32Flags & SHFL_HF_TYPE_DIR) { rc = RTDirSetTimes(pHandle->dir.Handle, (RTTimeSpecGetNano(&pSFDEntry->AccessTime)) ? &pSFDEntry->AccessTime : NULL, (RTTimeSpecGetNano(&pSFDEntry->ModificationTime)) ? &pSFDEntry->ModificationTime: NULL, (RTTimeSpecGetNano(&pSFDEntry->ChangeTime)) ? &pSFDEntry->ChangeTime: NULL, (RTTimeSpecGetNano(&pSFDEntry->BirthTime)) ? &pSFDEntry->BirthTime: NULL ); } else { rc = RTFileSetTimes(pHandle->file.Handle, (RTTimeSpecGetNano(&pSFDEntry->AccessTime)) ? &pSFDEntry->AccessTime : NULL, (RTTimeSpecGetNano(&pSFDEntry->ModificationTime)) ? &pSFDEntry->ModificationTime: NULL, (RTTimeSpecGetNano(&pSFDEntry->ChangeTime)) ? &pSFDEntry->ChangeTime: NULL, (RTTimeSpecGetNano(&pSFDEntry->BirthTime)) ? &pSFDEntry->BirthTime: NULL ); } if (rc != VINF_SUCCESS) { Log(("RTFileSetTimes failed with %Rrc\n", rc)); Log(("AccessTime %RX64\n", RTTimeSpecGetNano(&pSFDEntry->AccessTime))); Log(("ModificationTime %RX64\n", RTTimeSpecGetNano(&pSFDEntry->ModificationTime))); Log(("ChangeTime %RX64\n", RTTimeSpecGetNano(&pSFDEntry->ChangeTime))); Log(("BirthTime %RX64\n", RTTimeSpecGetNano(&pSFDEntry->AccessTime))); /* temporary hack */ rc = VINF_SUCCESS; } if (pHandle->Header.u32Flags & SHFL_HF_TYPE_FILE) { /* Change file attributes if necessary */ if (pSFDEntry->Attr.fMode) { rc = RTFileSetMode((RTFILE)pHandle->file.Handle, pSFDEntry->Attr.fMode); if (rc != VINF_SUCCESS) { Log(("RTFileSetMode %x failed with %Rrc\n", pSFDEntry->Attr.fMode, rc)); /* silent failure, because this tends to fail with e.g. windows guest & linux host */ rc = VINF_SUCCESS; } } } if (rc == VINF_SUCCESS) { uint32_t bufsize = sizeof(*pSFDEntry); rc = vbsfQueryFileInfo(pClient, root, Handle, SHFL_INFO_GET|SHFL_INFO_FILE, &bufsize, (uint8_t *)pSFDEntry); if (rc == VINF_SUCCESS) { *pcbBuffer = sizeof(RTFSOBJINFO); } else AssertFailed(); } return rc; } static int vbsfSetEndOfFile(SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLHANDLE Handle, uint32_t flags, uint32_t *pcbBuffer, uint8_t *pBuffer) { SHFLFILEHANDLE *pHandle = (SHFLFILEHANDLE *)vbsfQueryHandle(Handle, SHFL_HF_TYPE_FILE); int rc = VINF_SUCCESS; RTFSOBJINFO *pSFDEntry; if (pHandle == 0 || pcbBuffer == 0 || pBuffer == 0 || *pcbBuffer < sizeof(RTFSOBJINFO)) { AssertFailed(); return VERR_INVALID_PARAMETER; } *pcbBuffer = 0; pSFDEntry = (RTFSOBJINFO *)pBuffer; if (flags & SHFL_INFO_SIZE) { rc = RTFileSetSize(pHandle->file.Handle, pSFDEntry->cbObject); if (rc != VINF_SUCCESS) AssertFailed(); } else AssertFailed(); if (rc == VINF_SUCCESS) { RTFSOBJINFO fileinfo; /* Query the new object info and return it */ rc = RTFileQueryInfo(pHandle->file.Handle, &fileinfo, RTFSOBJATTRADD_NOTHING); if (rc == VINF_SUCCESS) { #ifdef RT_OS_WINDOWS fileinfo.Attr.fMode |= 0111; #endif *pSFDEntry = fileinfo; *pcbBuffer = sizeof(RTFSOBJINFO); } else AssertFailed(); } return rc; } int vbsfQueryVolumeInfo(SHFLCLIENTDATA *pClient, SHFLROOT root, uint32_t flags, uint32_t *pcbBuffer, uint8_t *pBuffer) { int rc = VINF_SUCCESS; SHFLVOLINFO *pSFDEntry; char *pszFullPath = NULL; SHFLSTRING dummy; if (pcbBuffer == 0 || pBuffer == 0 || *pcbBuffer < sizeof(SHFLVOLINFO)) { AssertFailed(); return VERR_INVALID_PARAMETER; } /* @todo other options */ Assert(flags == (SHFL_INFO_GET|SHFL_INFO_VOLUME)); *pcbBuffer = 0; pSFDEntry = (PSHFLVOLINFO)pBuffer; ShflStringInitBuffer(&dummy, sizeof(dummy)); rc = vbsfBuildFullPath (pClient, root, &dummy, 0, &pszFullPath, NULL); if (RT_SUCCESS (rc)) { rc = RTFsQuerySizes(pszFullPath, &pSFDEntry->ullTotalAllocationBytes, &pSFDEntry->ullAvailableAllocationBytes, &pSFDEntry->ulBytesPerAllocationUnit, &pSFDEntry->ulBytesPerSector); if (rc != VINF_SUCCESS) goto exit; rc = RTFsQuerySerial(pszFullPath, &pSFDEntry->ulSerial); if (rc != VINF_SUCCESS) goto exit; rc = RTFsQueryProperties(pszFullPath, &pSFDEntry->fsProperties); if (rc != VINF_SUCCESS) goto exit; *pcbBuffer = sizeof(SHFLVOLINFO); } else AssertFailed(); exit: AssertMsg(rc == VINF_SUCCESS, ("failure: rc = %Rrc\n", rc)); /* free the path string */ vbsfFreeFullPath(pszFullPath); return rc; } int vbsfQueryFSInfo(SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLHANDLE Handle, uint32_t flags, uint32_t *pcbBuffer, uint8_t *pBuffer) { if (pcbBuffer == 0 || pBuffer == 0) { AssertFailed(); return VERR_INVALID_PARAMETER; } if (flags & SHFL_INFO_FILE) return vbsfQueryFileInfo(pClient, root, Handle, flags, pcbBuffer, pBuffer); if (flags & SHFL_INFO_VOLUME) return vbsfQueryVolumeInfo(pClient, root, flags, pcbBuffer, pBuffer); AssertFailed(); return VERR_INVALID_PARAMETER; } int vbsfSetFSInfo(SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLHANDLE Handle, uint32_t flags, uint32_t *pcbBuffer, uint8_t *pBuffer) { SHFLFILEHANDLE *pHandle = (SHFLFILEHANDLE *)vbsfQueryHandle(Handle, SHFL_HF_TYPE_DIR|SHFL_HF_TYPE_FILE|SHFL_HF_TYPE_VOLUME); if (pHandle == 0 || pcbBuffer == 0 || pBuffer == 0) { AssertFailed(); return VERR_INVALID_PARAMETER; } /* is the guest allowed to write to this share? */ bool fWritable; int rc = vbsfMappingsQueryWritable (pClient, root, &fWritable); if (RT_FAILURE(rc) || !fWritable) return VERR_WRITE_PROTECT; if (flags & SHFL_INFO_FILE) return vbsfSetFileInfo(pClient, root, Handle, flags, pcbBuffer, pBuffer); if (flags & SHFL_INFO_SIZE) return vbsfSetEndOfFile(pClient, root, Handle, flags, pcbBuffer, pBuffer); // if (flags & SHFL_INFO_VOLUME) // return vbsfVolumeInfo(pClient, root, Handle, flags, pcbBuffer, pBuffer); AssertFailed(); return VERR_INVALID_PARAMETER; } int vbsfLock(SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLHANDLE Handle, uint64_t offset, uint64_t length, uint32_t flags) { SHFLFILEHANDLE *pHandle = (SHFLFILEHANDLE *)vbsfQueryHandle(Handle, SHFL_HF_TYPE_FILE); uint32_t fRTLock = 0; int rc; Assert((flags & SHFL_LOCK_MODE_MASK) != SHFL_LOCK_CANCEL); if (pHandle == 0) { AssertFailed(); return VERR_INVALID_HANDLE; } if ( ((flags & SHFL_LOCK_MODE_MASK) == SHFL_LOCK_CANCEL) || (flags & SHFL_LOCK_ENTIRE) ) { AssertFailed(); return VERR_INVALID_PARAMETER; } /* Lock type */ switch(flags & SHFL_LOCK_MODE_MASK) { case SHFL_LOCK_SHARED: fRTLock = RTFILE_LOCK_READ; break; case SHFL_LOCK_EXCLUSIVE: fRTLock = RTFILE_LOCK_READ | RTFILE_LOCK_WRITE; break; default: AssertFailed(); return VERR_INVALID_PARAMETER; } /* Lock wait type */ if (flags & SHFL_LOCK_WAIT) fRTLock |= RTFILE_LOCK_WAIT; else fRTLock |= RTFILE_LOCK_IMMEDIATELY; #ifdef RT_OS_WINDOWS rc = RTFileLock(pHandle->file.Handle, fRTLock, offset, length); if (rc != VINF_SUCCESS) Log(("RTFileLock %RTfile %RX64 %RX64 failed with %Rrc\n", pHandle->file.Handle, offset, length, rc)); #else Log(("vbsfLock: Pretend success handle=%x\n", Handle)); rc = VINF_SUCCESS; #endif return rc; } int vbsfUnlock(SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLHANDLE Handle, uint64_t offset, uint64_t length, uint32_t flags) { SHFLFILEHANDLE *pHandle = (SHFLFILEHANDLE *)vbsfQueryHandle(Handle, SHFL_HF_TYPE_FILE); int rc; Assert((flags & SHFL_LOCK_MODE_MASK) == SHFL_LOCK_CANCEL); if (pHandle == 0) { return VERR_INVALID_HANDLE; } if ( ((flags & SHFL_LOCK_MODE_MASK) != SHFL_LOCK_CANCEL) || (flags & SHFL_LOCK_ENTIRE) ) { return VERR_INVALID_PARAMETER; } #ifdef RT_OS_WINDOWS rc = RTFileUnlock(pHandle->file.Handle, offset, length); if (rc != VINF_SUCCESS) Log(("RTFileUnlock %RTfile %RX64 %RTX64 failed with %Rrc\n", pHandle->file.Handle, offset, length, rc)); #else Log(("vbsfUnlock: Pretend success handle=%x\n", Handle)); rc = VINF_SUCCESS; #endif return rc; } int vbsfRemove(SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLSTRING *pPath, uint32_t cbPath, uint32_t flags) { int rc = VINF_SUCCESS; /* Validate input */ if ( flags & ~(SHFL_REMOVE_FILE|SHFL_REMOVE_DIR) || cbPath == 0 || pPath == 0) { AssertFailed(); return VERR_INVALID_PARAMETER; } /* Build a host full path for the given path * and convert ucs2 to utf8 if necessary. */ char *pszFullPath = NULL; rc = vbsfBuildFullPath (pClient, root, pPath, cbPath, &pszFullPath, NULL); if (RT_SUCCESS (rc)) { /* is the guest allowed to write to this share? */ bool fWritable; rc = vbsfMappingsQueryWritable (pClient, root, &fWritable); if (RT_FAILURE(rc) || !fWritable) rc = VERR_WRITE_PROTECT; if (RT_SUCCESS (rc)) { if (flags & SHFL_REMOVE_FILE) rc = RTFileDelete(pszFullPath); else rc = RTDirRemove(pszFullPath); } #ifndef DEBUG_dmik // VERR_ACCESS_DENIED for example? // Assert(rc == VINF_SUCCESS || rc == VERR_DIR_NOT_EMPTY); #endif /* free the path string */ vbsfFreeFullPath(pszFullPath); } return rc; } int vbsfRename(SHFLCLIENTDATA *pClient, SHFLROOT root, SHFLSTRING *pSrc, SHFLSTRING *pDest, uint32_t flags) { int rc = VINF_SUCCESS; /* Validate input */ if ( flags & ~(SHFL_REMOVE_FILE|SHFL_REMOVE_DIR|SHFL_RENAME_REPLACE_IF_EXISTS) || pSrc == 0 || pDest == 0) { AssertFailed(); return VERR_INVALID_PARAMETER; } /* Build a host full path for the given path * and convert ucs2 to utf8 if necessary. */ char *pszFullPathSrc = NULL; char *pszFullPathDest = NULL; rc = vbsfBuildFullPath (pClient, root, pSrc, pSrc->u16Size, &pszFullPathSrc, NULL); if (rc != VINF_SUCCESS) return rc; rc = vbsfBuildFullPath (pClient, root, pDest, pDest->u16Size, &pszFullPathDest, NULL); if (RT_SUCCESS (rc)) { Log(("Rename %s to %s\n", pszFullPathSrc, pszFullPathDest)); /* is the guest allowed to write to this share? */ bool fWritable; rc = vbsfMappingsQueryWritable (pClient, root, &fWritable); if (RT_FAILURE(rc) || !fWritable) rc = VERR_WRITE_PROTECT; if (RT_SUCCESS (rc)) { if (flags & SHFL_RENAME_FILE) { rc = RTFileMove(pszFullPathSrc, pszFullPathDest, (flags & SHFL_RENAME_REPLACE_IF_EXISTS) ? RTFILEMOVE_FLAGS_REPLACE : 0); } else { /* NT ignores the REPLACE flag and simply return and already exists error. */ rc = RTDirRename(pszFullPathSrc, pszFullPathDest, (flags & SHFL_RENAME_REPLACE_IF_EXISTS) ? RTPATHRENAME_FLAGS_REPLACE : 0); } } #ifndef DEBUG_dmik AssertRC(rc); #endif /* free the path string */ vbsfFreeFullPath(pszFullPathDest); } /* free the path string */ vbsfFreeFullPath(pszFullPathSrc); return rc; } /* * Clean up our mess by freeing all handles that are still valid. * */ int vbsfDisconnect(SHFLCLIENTDATA *pClient) { for (int i=0;i