XrdPosixXrootd.cc

Go to the documentation of this file.

/******************************************************************************/
/*                                                                            */
/*                     X r d P o s i x X r o o t d . c c                      */
/*                                                                            */
/* (c) 2010 by the Board of Trustees of the Leland Stanford, Jr., University  */
/*                            All Rights Reserved                             */
/*   Produced by Andrew Hanushevsky for Stanford University under contract    */
/*              DE-AC02-76-SFO0515 with the Department of Energy              */
/*                                                                            */
/* This file is part of the XRootD software suite.                            */
/*                                                                            */
/* XRootD is free software: you can redistribute it and/or modify it under    */
/* the terms of the GNU Lesser General Public License as published by the     */
/* Free Software Foundation, either version 3 of the License, or (at your     */
/* option) any later version.                                                 */
/*                                                                            */
/* XRootD 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 Lesser General Public       */
/* License for more details.                                                  */
/*                                                                            */
/* You should have received a copy of the GNU Lesser General Public License   */
/* along with XRootD in a file called COPYING.LESSER (LGPL license) and file  */
/* COPYING (GPL license).  If not, see <http://www.gnu.org/licenses/>.        */
/*                                                                            */
/* The copyright holder's institutional names and contributor's names may not */
/* be used to endorse or promote products derived from this software without  */
/* specific prior written permission of the institution or contributor.       */
/******************************************************************************/
 
#include <cerrno>
#include <fcntl.h>
#include <iostream>
#include <cstdio>
#include <sys/time.h>
#include <sys/param.h>
#include <sys/resource.h>
#include <sys/uio.h>
 
#include "XrdVersion.hh"
 
#include "Xrd/XrdScheduler.hh"
 
#include "XrdCl/XrdClDefaultEnv.hh"
#include "XrdCl/XrdClFileSystem.hh"
#include "XrdCl/XrdClFile.hh"
#include "XrdCl/XrdClURL.hh"
#include "XrdCl/XrdClXRootDResponses.hh"
 
#include "XrdSys/XrdSysHeaders.hh"
#include "XrdSys/XrdSysPlatform.hh"
 
#include "XrdOuc/XrdOucCache.hh"
#include "XrdOuc/XrdOucECMsg.hh"
#include "XrdOuc/XrdOucEnv.hh"
#include "XrdOuc/XrdOucName2Name.hh"
#include "XrdOuc/XrdOucPsx.hh"
#include "XrdOuc/XrdOucPrivateUtils.hh"
 
#include "XrdPosix/XrdPosixAdmin.hh"
#include "XrdPosix/XrdPosixCallBack.hh"
#include "XrdPosix/XrdPosixConfig.hh"
#include "XrdPosix/XrdPosixDir.hh"
#include "XrdPosix/XrdPosixFile.hh"
#include "XrdPosix/XrdPosixFileRH.hh"
#include "XrdPosix/XrdPosixInfo.hh"
#include "XrdPosix/XrdPosixMap.hh"
#include "XrdPosix/XrdPosixPrepIO.hh"
#include "XrdPosix/XrdPosixStats.hh"
#include "XrdPosix/XrdPosixTrace.hh"
#include "XrdPosix/XrdPosixXrootd.hh"
#include "XrdPosix/XrdPosixXrootdPath.hh"
 
#include "XrdSys/XrdSysTrace.hh"
 
/******************************************************************************/
/*                        S t a t i c   M e m b e r s                         */
/******************************************************************************/
 
class XrdSysError;
 
namespace XrdPosixGlobals
{
thread_local XrdOucECMsg ecMsg("[posix]");
 
XrdScheduler    *schedP    = 0;
XrdOucCache     *theCache  = 0;
XrdOucName2Name *theN2N    = 0;
XrdSysLogger    *theLogger = 0;
XrdSysError     *eDest     = 0;
XrdPosixStats    Stats;
XrdSysTrace      Trace("Posix", 0,
                      (getenv("XRDPOSIX_DEBUG") ? TRACE_Debug : 0));
int              ddInterval= 30;
int              ddMaxTries= 180/30;
XrdCl::DirListFlags::Flags dlFlag = XrdCl::DirListFlags::Stat;
bool             oidsOK    = false;
bool             p2lSRC    = false;
bool             p2lSGI    = false;
bool             autoPGRD  = false;
bool             usingEC   = false;
};
 
int            XrdPosixXrootd::baseFD    = 0;
int            XrdPosixXrootd::initDone  = 0;
 
XrdVERSIONINFO(XrdPosix,XrdPosix);
  
/******************************************************************************/
/*                         L o c a l   C l a s s e s                          */
/******************************************************************************/
/******************************************************************************/
/*                               L f n P a t h                                */
/******************************************************************************/
 
namespace
{
class LfnPath
{
public:
const char *path;
 
            LfnPath(const char *who, const char *pURL, bool ponly=true)
                   {path = XrdPosixXrootPath::P2L(who, pURL, relURL, ponly);}
 
           ~LfnPath() {if (relURL) free(relURL);}
 
private:
char *relURL;
};
}
  
/******************************************************************************/
/*                       L o c a l   F u n c t i o n s                        */
/******************************************************************************/
 
namespace
{
  
/******************************************************************************/
/*                             O p e n D e f e r                              */
/******************************************************************************/
 
int OpenDefer(XrdPosixFile           *fp,
              XrdPosixCallBack       *cbP,
              XrdCl::OpenFlags::Flags XOflags,
              XrdCl::Access::Mode     XOmode,
              bool                    isStream)
{
 
// Assign a file descriptor to this file
//
   if (!(fp->AssignFD(isStream)))
      {delete fp; return XrdPosixGlobals::ecMsg.SetErrno(EMFILE);}
 
// Allocate a prepare I/O object to defer this open
//
   fp->PrepIO = new XrdPosixPrepIO(fp, XOflags, XOmode);
 
// Finalize this file object. A null argument indicates it is deferred.
//
   fp->Finalize(0);
 
// For sync opens we just need to return the file descriptor
//
   if (!cbP) return fp->FDNum();
 
// For async opens do the callback here and return an inprogress
//
   cbP->Complete(fp->FDNum());
   errno = EINPROGRESS;
   return -1;
}
};
  
/******************************************************************************/
/*                           C o n s t r u c t o r                            */
/******************************************************************************/
 
XrdPosixXrootd::XrdPosixXrootd(int fdnum, int dirnum, int thrnum)
{
   static XrdSysMutex myMutex;
   char *cfn;
 
// Test if XRDCL_EC is set. That env var. is set at XrdCl::PlugInManager::LoadFactory
// in XrdClPlugInManager.cc, which is called (by XrdOssGetSS while loading 
// libXrdPss.so) before this function. 
// Note: some standalone programs will call this constructor directly. 
   XrdPosixGlobals::usingEC = getenv("XRDCL_EC")? true : false;
 
// Only static fields are initialized here. We need to do this only once!
//
   myMutex.Lock();
   if (initDone) {myMutex.UnLock(); return;}
   initDone = 1;
   myMutex.UnLock();
 
// Initialize environment as a client or a server (it differs somewhat).
// Note that we create a permanent Env since some plugins rely on it. We
// leave the logger handling to OucPsx as we do not want to enable messages
// because this is likely a client application that doesn't understand noise.
//
   if (!XrdPosixGlobals::theLogger && (cfn=getenv("XRDPOSIX_CONFIG")) && *cfn)
      {bool hush;
       if (*cfn == '+') {hush = false; cfn++;}
          else hush = (getenv("XRDPOSIX_DEBUG") == 0);
       if (*cfn)
          {XrdOucEnv *psxEnv = new XrdOucEnv;
           psxEnv->Put("psx.Client", "1");
           XrdOucPsx psxConfig(&XrdVERSIONINFOVAR(XrdPosix), cfn, 0, psxEnv);
           if (!psxConfig.ClientConfig("posix.", hush)
           ||  !XrdPosixConfig::SetConfig(psxConfig))
              {std::cerr <<"Posix: Unable to instantiate specified "
                           "configuration; program exiting!" <<std::endl;
               exit(16);
              }
          }
      }
 
// Initialize file tracking
//
   baseFD = XrdPosixObject::Init(fdnum);
}
 
/******************************************************************************/
/*                            D e s t r u c t o r                             */
/******************************************************************************/
  
XrdPosixXrootd::~XrdPosixXrootd()
{
 
// Shutdown processing
//
   XrdPosixObject::Shutdown();
   initDone = 0;
}
 
/******************************************************************************/
/*                                A c c e s s                                 */
/******************************************************************************/
  
int XrdPosixXrootd::Access(const char *path, int amode)
{
   XrdPosixAdmin admin(path,XrdPosixGlobals::ecMsg);
   mode_t stMode;
   bool   aOK = true;
 
// Issue the stat and verify that all went well
//
   if (!admin.Stat(&stMode)) return -1;
 
// Translate the mode bits
//
   if (amode & R_OK && !(stMode & S_IRUSR)) aOK = 0;
   if (amode & W_OK && !(stMode & S_IWUSR)) aOK = 0;
   if (amode & X_OK && !(stMode & S_IXUSR)) aOK = 0;
 
// All done
//
   if (aOK) return 0;
   return XrdPosixGlobals::ecMsg.SetErrno(EACCES);
}
 
/******************************************************************************/
/*                                 C l o s e                                  */
/******************************************************************************/
 
int XrdPosixXrootd::Close(int fildes)
{
   EPNAME("Close");
   XrdCl::XRootDStatus Status;
   XrdPosixFile *fP;
   bool ret;
 
// Map the file number to the file object. In the prcess we relese the file
// number so no one can reference this file again.
//
   if (!(fP = XrdPosixObject::ReleaseFile(fildes)))
      return XrdPosixGlobals::ecMsg.SetErrno(EBADF);
 
// Detach the file from a possible cache. We need to up the reference count
// to synchrnoize with any possible callback as we may need to place this
// object in he delayed destroy queue if it is stil being used. Note that
// the caller will get a zero return code should we delay the close.
//
   fP->Ref();
   if (fP->XCio->Detach((XrdOucCacheIOCD&)*fP) && fP->Refs() < 2)
      {if ((ret = fP->Close(Status))) {delete fP; fP = 0;}
          else if (DEBUGON)
                  {std::string eTxt = Status.ToString();
                   DEBUG(eTxt <<" closing " << obfuscateAuth(fP->Origin()));
                  }
      } else {
       ret = true;
      }
 
// If we still have a handle then we need to do a delayed delete on this
// object because either the close failed or there is still active I/O
//
   if (fP) XrdPosixFile::DelayedDestroy(fP);
 
// Return final result. Note: close errors are recorded in global thread status
//
   return (ret ? 0 : XrdPosixMap::Result(Status,XrdPosixGlobals::ecMsg,true));
}
 
/******************************************************************************/
/*                              C l o s e d i r                               */
/******************************************************************************/
 
int XrdPosixXrootd::Closedir(DIR *dirp)
{
   XrdPosixDir *dP;
   int fildes = XrdPosixDir::dirNo(dirp);
 
// Get the directory object
//
   if (!(dP = XrdPosixObject::ReleaseDir(fildes)))
      return XrdPosixGlobals::ecMsg.SetErrno(EBADF);
 
// Deallocate the directory
//
   delete dP;
   return 0;
}
 
/******************************************************************************/
/*                              e n d P o i n t                               */
/******************************************************************************/
  
int XrdPosixXrootd::endPoint(int FD, char *Buff, int Blen)
{
   XrdPosixFile *fp;
   int uPort;
 
// Find the file object
//
   if (!(fp = XrdPosixObject::File(FD))) return 0;
 
// Make sure url is valid
//
   if (!(fp->clFile.IsOpen()))
      {fp->UnLock(); return -ENOTCONN;}
 
// Make sure we can fit result in the buffer
//
   std::string dataServer;
   fp->clFile.GetProperty( "DataServer", dataServer );
   XrdCl::URL dataServerUrl = dataServer;
 
   if (dataServer.size() >= (uint32_t)Blen)
      {fp->UnLock(); return -ENAMETOOLONG;}
 
// Copy the data server location
//
   strcpy(Buff, dataServer.c_str());
 
// Get the port and return it
//
   uPort = dataServerUrl.GetPort();
   fp->UnLock();
   return uPort;
}
 
/******************************************************************************/
/*                                 F c n t l                                  */
/******************************************************************************/
 
int     XrdPosixXrootd::Fcntl(int fildes, XrdPosixXrootd::Fcop,
                                          const std::string& args,
                                                std::string& resp)
{
   XrdPosixFile *fp;
 
// Find the file object
//
   if (!(fp = XrdPosixObject::File(fildes))) return -1;
 
// At the moment we support nothing
//
   resp = "Function not supported.";
   errno = ENOTSUP;
   return -1;
}   
  
/******************************************************************************/
/*                                 F s t a t                                  */
/******************************************************************************/
 
int     XrdPosixXrootd::Fstat(int fildes, struct stat *buf)
{
   XrdPosixFile *fp;
   int rc;
 
// Find the file object
//
   if (!(fp = XrdPosixObject::File(fildes))) return -1;
 
// First initialize the stat buffer
//
   XrdPosixConfig::initStat(buf);
 
// Check if we can get the stat information from the cache.
//
   rc = fp->XCio->Fstat(*buf);
   if (rc <= 0)
      {fp->UnLock();
       if (!rc) return 0;
       errno = -rc; //???
       return -1;
      }
 
// At this point we can call the file's Fstat() and if the file is not open
// it will be opened.
//
   rc = fp->Fstat(*buf);
   fp->UnLock();
   if (rc < 0) {errno = -rc; rc = -1;}
   return rc;
}
  
/******************************************************************************/
/*                                 F s y n c                                  */
/******************************************************************************/
  
int XrdPosixXrootd::Fsync(int fildes)
{
   XrdPosixFile *fp;
   int rc;
 
// Find the file object
//
   if (!(fp = XrdPosixObject::File(fildes))) return -1;
 
// Do the sync
//
   if ((rc = fp->XCio->Sync()) < 0) return Fault(fp, -rc);
   fp->UnLock();
   return 0;
}
  
/******************************************************************************/
  
void XrdPosixXrootd::Fsync(int fildes, XrdPosixCallBackIO *cbp)
{
   XrdPosixFile *fp;
 
// Find the file object and do the sync
//
   if ((fp = XrdPosixObject::File(fildes)))
      {cbp->theFile = fp;
       fp->Ref(); fp->UnLock();
       fp->XCio->Sync(*cbp);
      } else cbp->Complete(-1);
}
 
/******************************************************************************/
/*                             F t r u n c a t e                              */
/******************************************************************************/
  
int XrdPosixXrootd::Ftruncate(int fildes, off_t offset)
{
   XrdPosixFile *fp;
   int rc;
 
// Find the file object
//
   if (!(fp = XrdPosixObject::File(fildes))) return -1;
 
// Do the trunc
//
   if ((rc = fp->XCio->Trunc(offset)) < 0) return Fault(fp, -rc);
   fp->UnLock();
   return 0;
}
 
/******************************************************************************/
/*                              G e t x a t t r                               */
/******************************************************************************/
 
#ifndef ENOATTR
#define ENOATTR ENOTSUP
#endif
 
long long XrdPosixXrootd::Getxattr (const char *path, const char *name, 
                                    void *value, unsigned long long size)
{
  XrdPosixAdmin admin(path,XrdPosixGlobals::ecMsg);
  XrdCl::QueryCode::Code reqCode;
  int vsize = static_cast<int>(size);
 
// Check if user just wants the maximum length needed
//
   if (size == 0) return 1024;
 
// Check if we support the query
//
   if (name)
      {     if (!strcmp(name,"xroot.cksum")) reqCode=XrdCl::QueryCode::Checksum;
       else if (!strcmp(name,"xroot.space")) reqCode=XrdCl::QueryCode::Space;
       else if (!strcmp(name,"xroot.xattr")) reqCode=XrdCl::QueryCode::XAttr;
       else {errno = ENOATTR; return -1;} //???
      }else {errno = EINVAL;  return -1;}
 
// Stat the file first to allow vectoring of the request to the right server
//
   if (!admin.Stat()) return -1;
 
// Return the result
//
  return admin.Query(reqCode, value, vsize);
}
  
/******************************************************************************/
/*                                 L s e e k                                  */
/******************************************************************************/
  
off_t   XrdPosixXrootd::Lseek(int fildes, off_t offset, int whence)
{
   XrdPosixFile *fp;
   long long curroffset;
 
// Find the file object
//
   if (!(fp = XrdPosixObject::File(fildes))) return -1;
 
// Set the new offset. Note that SEEK_END requires that the file be opened.
// An open may occur by calling the FSize() method via the cache pointer.
//
        if (whence == SEEK_SET) curroffset = fp->setOffset(offset);
   else if (whence == SEEK_CUR) curroffset = fp->addOffset(offset);
   else if (whence == SEEK_END)
           {curroffset = fp->XCio->FSize();
            if (curroffset < 0) return Fault(fp,static_cast<int>(-curroffset));
            curroffset = fp->setOffset(curroffset+offset);
           }
   else return Fault(fp, EINVAL);
 
// All done
//
   fp->UnLock();
   return curroffset;
}
  
/******************************************************************************/
/*                                 M k d i r                                  */
/******************************************************************************/
 
int XrdPosixXrootd::Mkdir(const char *path, mode_t mode)
{
  XrdPosixAdmin admin(path,XrdPosixGlobals::ecMsg);
  XrdCl::MkDirFlags::Flags flags;
 
// Preferentially make the whole path unless told otherwise
//
   flags = (mode & S_ISUID ? XrdCl::MkDirFlags::None
                           : XrdCl::MkDirFlags::MakePath);
 
// Make sure the admin is OK
//
  if (!admin.isOK()) return -1;
 
// Issue the mkdir
//
   return XrdPosixMap::Result(admin.Xrd.MkDir(admin.Url.GetPathWithParams(),
                                              flags,
                                              XrdPosixMap::Mode2Access(mode)),
                                              XrdPosixGlobals::ecMsg,true
                                             );
}
 
/******************************************************************************/
/*                                  O p e n                                   */
/******************************************************************************/
  
int XrdPosixXrootd::Open(const char *path, int oflags, mode_t mode,
                         XrdPosixCallBack *cbP)
{
    return Open(path, oflags, mode, cbP, 0);
}
  
int XrdPosixXrootd::Open(const char *path, int oflags, mode_t mode,
                         XrdPosixCallBack *cbP, XrdPosixInfo *infoP)
{
   EPNAME("Open");
   XrdCl::XRootDStatus Status;
   XrdPosixFile *fp;
   XrdCl::Access::Mode     XOmode = XrdCl::Access::None;
   XrdCl::OpenFlags::Flags XOflags;
   int Opts;
   bool aOK, isRO = false;
 
// Translate R/W and R/O flags
//
   if ((oflags & O_ACCMODE) != O_RDONLY)
      {Opts    = XrdPosixFile::isUpdt;
       XOflags = XrdCl::OpenFlags::Update;
      } else {
       Opts    = 0;
       XOflags = XrdCl::OpenFlags::Read;
       isRO    = true;
      }
 
// Pass along the stream flag
//
   if (oflags & isStream)
      {if (XrdPosixObject::CanStream()) Opts |= XrdPosixFile::isStrm;
          return XrdPosixGlobals::ecMsg.SetErrno(EMFILE);
      }
 
// Translate create vs simple open. Always make dirpath on create!
//
   if (oflags & O_CREAT)
      {XOflags |= (oflags & O_EXCL ? XrdCl::OpenFlags::New
                                   : XrdCl::OpenFlags::Delete);
       XOflags |= XrdCl::OpenFlags::MakePath;
       XOmode   = XrdPosixMap::Mode2Access(mode);
      }
      else if (oflags & O_TRUNC && Opts & XrdPosixFile::isUpdt)
              XOflags |= XrdCl::OpenFlags::Delete;
 
// Allocate the new file object
//
   if (!(fp = new XrdPosixFile(aOK, path, cbP, Opts)))
      return XrdPosixGlobals::ecMsg.SetErrno(EMFILE);
 
// Check if all went well during allocation
//
   if (!aOK) {delete fp; return -1;}
 
// If we have a cache, then issue a prepare as the cache may want to defer the
// open request ans we have a lot more work to do.
//
   if (XrdPosixGlobals::theCache)
      {int rc;
       if (infoP && isRO && OpenCache(*fp, *infoP))
          {delete fp;
           errno = 0;
           return -3;
          }
       rc = XrdPosixGlobals::theCache->Prepare(fp->Path(), oflags, mode);
       if (rc > 0) return OpenDefer(fp, cbP, XOflags, XOmode, oflags&isStream);
       if (rc < 0) {delete fp; return XrdPosixGlobals::ecMsg.SetErrno(-rc);}
      }
 
// Open the file (sync or async)
//
   XrdPosixGlobals::Stats.Count((XrdPosixGlobals::Stats.X.Opens));
   if (!cbP) Status = fp->clFile.Open((std::string)path, XOflags, XOmode);
      else   Status = fp->clFile.Open((std::string)path, XOflags, XOmode,
                                      (XrdCl::ResponseHandler *)fp);
 
// If we failed, return the reason
//
   if (!Status.IsOK())
      {XrdPosixGlobals::Stats.Count(XrdPosixGlobals::Stats.X.OpenErrs);
       int rc = XrdPosixMap::Result(Status,XrdPosixGlobals::ecMsg,false);
       if (DEBUGON && rc != -ENOENT && rc != -ELOOP)
          {DEBUG(XrdPosixGlobals::ecMsg.Msg() <<" open " << obfuscateAuth(fp->Origin()));}
       delete fp;
       errno = -rc;  // Saved errno across the delete
       return -1;
      }
 
// Assign a file descriptor to this file
//
   if (!(fp->AssignFD(oflags & isStream)))
      {delete fp;
       return XrdPosixGlobals::ecMsg.SetErrno(EMFILE);
      }
 
// Finalize the open (this gets the stat info). For async opens, the
// finalization is deferred until the callback happens.
//
   if (cbP) {errno = EINPROGRESS; return -1;}
   if (fp->Finalize(&Status)) return fp->FDNum();
 
// At this point the open() has failed as we could neither defer nor finalize.
// We need to delete the file pointer and come up with a rational errno as a
// file descriptor should not be returned. We need to return the causal error
// message and errno. It is considered impossible for no error state to exist.
//
   delete fp;
   if (XrdPosixMap::Result(Status,XrdPosixGlobals::ecMsg,true)) return -1;
 
// The impossible happened, there is no error state. So, create a suitable one.
// Note that our error text will be included as contextual information since
// ENOMSG, while logically correct, provides no useful information.
//
   XrdPosixGlobals::ecMsg = "Impossible condition detected!";
   XrdPosixGlobals::ecMsg = errno = ENOMSG;
   return -1;
}
  
/******************************************************************************/
/* Private:                    O p e n C a c h e                              */
/******************************************************************************/
  
bool XrdPosixXrootd::OpenCache(XrdPosixFile &file,XrdPosixInfo &Info)
{
   EPNAME("OpenCache");
   int rc;
 
// Check if the full file is in the cache
//
   rc = XrdPosixGlobals::theCache->LocalFilePath(file.Path(), Info.cachePath,
                                                 (int)sizeof(Info.cachePath),
                                                 XrdOucCache::ForAccess,
                                                 Info.ffReady);
   if (rc == 0)
      {Info.ffReady  = true;
       DEBUG("File in cache url=" <<Info.cacheURL);
       return true;
      }
 
// File is not fully in the cache
//
   Info.ffReady = false;
   return false;
}
  
/******************************************************************************/
/*                               O p e n d i r                                */
/******************************************************************************/
  
DIR* XrdPosixXrootd::Opendir(const char *path)
{
   XrdPosixDir *dP;
   DIR *dirP;
   int rc;
 
// Get a new directory object
//
   if (!(dP = new XrdPosixDir(path)))
      {XrdPosixGlobals::ecMsg.SetErrno(ENOMEM);
       return (DIR*)0;
      }
 
// Assign a file descriptor to this file
//
   if (!(dP->AssignFD()))
      {delete dP;
       XrdPosixGlobals::ecMsg.SetErrno(EMFILE);
       return (DIR*)0;
      }
 
// Open the directory
//
   if ((dirP = dP->Open())) return dirP;
 
// We failed
//
   rc = errno;
   delete dP;
   errno = rc;  // Restore saved errno
   return (DIR *)0;
}
 
/******************************************************************************/
/*                                 P r e a d                                  */
/******************************************************************************/
  
ssize_t XrdPosixXrootd::Pread(int fildes, void *buf, size_t nbyte, off_t offset)
{
   XrdPosixFile *fp;
   long long     offs, bytes;
   int           iosz;
 
// Find the file object
//
   if (!(fp = XrdPosixObject::File(fildes)))
      return XrdPosixGlobals::ecMsg.SetErrno(EBADF);
 
// Make sure the size is not too large
//
   if (nbyte > (size_t)0x7fffffff)
      return Fault(fp, EOVERFLOW, "read size too large");
      else iosz = static_cast<int>(nbyte);
 
// Issue the read
//
   offs = static_cast<long long>(offset);
   bytes = fp->XCio->Read((char *)buf, offs, (int)iosz);
   if (bytes < 0) return Fault(fp,-bytes,"*");
 
// All went well
//
   fp->UnLock();
   return (ssize_t)bytes;
}
 
/******************************************************************************/
  
void XrdPosixXrootd::Pread(int fildes, void *buf, size_t nbyte, off_t offset,
                           XrdPosixCallBackIO *cbp)
{
   XrdPosixFile *fp;
   long long     offs;
   int           iosz;
 
// Find the file object
//
   if (!(fp = XrdPosixObject::File(fildes))) {cbp->Complete(-1); return;}
 
// Make sure the size is not too large
//
   if (nbyte > (size_t)0x7fffffff)
      {fp->UnLock();
       fp->ecMsg.SetErrno(EOVERFLOW,0,"read size too large");
       cbp->Complete(-1);
       return;
      }
 
// Prepare for the read
//
   cbp->theFile = fp;
   fp->Ref(); fp->UnLock();
   iosz = static_cast<int>(nbyte);
   offs = static_cast<long long>(offset);
 
// Issue the read
//
   fp->XCio->Read(*cbp, (char *)buf, offs, (int)iosz);
}
 
/******************************************************************************/
/*                                P w r i t e                                 */
/******************************************************************************/
  
ssize_t XrdPosixXrootd::Pwrite(int fildes, const void *buf, size_t nbyte, off_t offset)
{
   XrdPosixFile *fp;
   long long     offs;
   int           iosz, bytes;
 
// Find the file object
//
   if (!(fp = XrdPosixObject::File(fildes))) return -1;
 
// Make sure the size is not too large
//
   if (nbyte > (size_t)0x7fffffff)
      return Fault(fp,EOVERFLOW,"write size too large");
      else iosz = static_cast<int>(nbyte);
 
// Issue the write
//
   offs = static_cast<long long>(offset);
   bytes = fp->XCio->Write((char *)buf, offs, (int)iosz);
   if (bytes < 0) return Fault(fp,-bytes,"*");
 
// All went well
//
   fp->UpdtSize(offs + iosz);
   fp->UnLock();
   return (ssize_t)iosz;
}
 
/******************************************************************************/
  
void XrdPosixXrootd::Pwrite(int fildes, const void *buf, size_t nbyte,
                            off_t offset, XrdPosixCallBackIO *cbp)
{
   XrdPosixFile *fp;
   long long     offs;
   int           iosz;
 
// Find the file object
//
   if (!(fp = XrdPosixObject::File(fildes))) {cbp->Complete(-1); return;}
 
// Make sure the size is not too large
//
   if (nbyte > (size_t)0x7fffffff)
      {fp->UnLock();
       fp->ecMsg.SetErrno(EOVERFLOW,0,"read size too large");
       cbp->Complete(-1);
       return;
      }
 
// Prepare for the writing
//
   cbp->theFile = fp;
   fp->Ref(); fp->UnLock();
   iosz = static_cast<int>(nbyte);
   offs = static_cast<long long>(offset);
 
// Issue the read
//
   fp->XCio->Write(*cbp, (char *)buf, offs, (int)iosz);
}
 
/******************************************************************************/
/*                                  R e a d                                   */
/******************************************************************************/
  
ssize_t XrdPosixXrootd::Read(int fildes, void *buf, size_t nbyte)
{
   XrdPosixFile *fp;
   long long     bytes;
   int           iosz;
 
// Find the file object
//
   if (!(fp = XrdPosixObject::File(fildes))) return -1;
 
// Make sure the size is not too large
//
   if (nbyte > (size_t)0x7fffffff) return Fault(fp,EOVERFLOW);
      else iosz = static_cast<int>(nbyte);
 
// Issue the read
//
   bytes = fp->XCio->Read((char *)buf,fp->Offset(),(int)iosz);
   if (bytes < 0) return Fault(fp,-bytes);
 
// All went well
//
   fp->addOffset(bytes);
   fp->UnLock();
   return (ssize_t)bytes;
}
 
/******************************************************************************/
/*                                 R e a d v                                  */
/******************************************************************************/
  
ssize_t XrdPosixXrootd::Readv(int fildes, const struct iovec *iov, int iovcnt)
{
   ssize_t bytes, totbytes = 0;
   int i;
 
// Return the results of the read for each iov segment
//
   for (i = 0; i < iovcnt; i++)
       {bytes = Read(fildes,(void *)iov[i].iov_base,(size_t)iov[i].iov_len);
             if (bytes > 0) totbytes += bytes;
        else if (bytes < 0) return -1;
        else                break;
       }
 
// All done
//
   return totbytes;
}
 
/******************************************************************************/
/*                                 V R e a d                                  */
/******************************************************************************/
 
ssize_t XrdPosixXrootd::VRead(int fildes, const XrdOucIOVec *readV, int n)
{
   XrdPosixFile *fp;
   ssize_t bytes;
 
// Find the file object
//
   if (!(fp = XrdPosixObject::File(fildes))) return -1;
 
// Issue the read
//
   if ((bytes = fp->XCio->ReadV(readV, n)) < 0) return Fault(fp,-bytes);
 
// Return bytes read
//
   fp->UnLock();
   return bytes;
}
 
/******************************************************************************/
 
void XrdPosixXrootd::VRead(int fildes, const XrdOucIOVec *readV, int n,
                           XrdPosixCallBackIO *cbp)
{
   XrdPosixFile *fp;
 
// Find the file object and issue read
//
   if ((fp = XrdPosixObject::File(fildes)))
      {cbp->theFile = fp;
       fp->Ref(); fp->UnLock();
       fp->XCio->ReadV(*cbp, readV, n);
      } else cbp->Complete(-1);
}
 
/******************************************************************************/
/*                                R e a d d i r                               */
/******************************************************************************/
 
struct dirent* XrdPosixXrootd::Readdir(DIR *dirp)
{
   dirent64 *dp64;
   dirent   *dp32; // Could be the same as dp64
 
   if (!(dp64 = Readdir64(dirp))) return 0;
 
   dp32 = (struct dirent *)dp64;
   if ((char*)dp32->d_name != (char*)dp64->d_name)
      {dp32->d_ino    = dp64->d_ino;
#if !defined(__APPLE__) && !defined(__FreeBSD__) && !defined(__GNU__) && !(defined(__FreeBSD_kernel__) && defined(__GLIBC__))
       dp32->d_off     = dp64->d_off;
#endif
#ifndef __solaris__
       dp32->d_type   = dp64->d_type;
#endif
       dp32->d_reclen = dp64->d_reclen;
       strcpy(dp32->d_name, dp64->d_name);
      }
   return dp32;
}
 
struct dirent64* XrdPosixXrootd::Readdir64(DIR *dirp)
{
   XrdPosixDir *dP;
   dirent64 *dentP;
   int rc, fildes = XrdPosixDir::dirNo(dirp);
 
// Find the object
//
   if (!(dP = XrdPosixObject::Dir(fildes)))
      {XrdPosixGlobals::ecMsg.SetErrno(EBADF);
       return (dirent64*)0;
      }
 
// Get the next directory entry
//
   if (!(dentP = dP->nextEntry())) rc = dP->Status();
      else rc = 0;
 
// Return the appropriate result
//
   dP->UnLock();
   if (rc) errno = rc;
   return dentP;
}
 
/******************************************************************************/
/*                              R e a d d i r _ r                             */
/******************************************************************************/
 
int XrdPosixXrootd::Readdir_r(DIR *dirp,   struct dirent    *entry,
                                           struct dirent   **result)
{
   dirent64 *dp64 = 0, d64ent;
   int       rc;
 
   if ((rc = Readdir64_r(dirp, &d64ent, &dp64)) || !dp64)
      {*result = 0; return rc;}
 
   entry->d_ino    = dp64->d_ino;
#if !defined(__APPLE__) && !defined(__FreeBSD__) && !defined(__GNU__) && !(defined(__FreeBSD_kernel__) && defined(__GLIBC__))
   entry->d_off    = dp64->d_off;
#endif
#ifndef __solaris__
   entry->d_type   = dp64->d_type;
#endif
   entry->d_reclen = dp64->d_reclen;
   strcpy(entry->d_name, dp64->d_name);
   *result = entry;
   return rc;
}
 
int XrdPosixXrootd::Readdir64_r(DIR *dirp, struct dirent64  *entry,
                                           struct dirent64 **result)
{
   XrdPosixDir *dP;
   int rc, fildes = XrdPosixDir::dirNo(dirp);
 
// Find the object
//
   if (!(dP = XrdPosixObject::Dir(fildes))) return EBADF;
 
// Get the next entry
//
   if (!(*result = dP->nextEntry(entry))) {rc = dP->Status(); *result = 0;}
      else {rc = 0; *result = entry;}
 
// Return the appropriate result
//
   dP->UnLock();
   return rc;
}
 
/******************************************************************************/
/*                                R e n a m e                                 */
/******************************************************************************/
 
int XrdPosixXrootd::Rename(const char *oldpath, const char *newpath)
{
   XrdPosixAdmin admin(oldpath,XrdPosixGlobals::ecMsg);
   XrdCl::URL newUrl((std::string)newpath);
 
// Make sure the admin is OK and the new url is valid
//
   if (!admin.isOK() || !newUrl.IsValid())
      return XrdPosixGlobals::ecMsg.SetErrno(EINVAL);
 
// Issue rename to he cache (it really should just deep-six both files)
//
   if (XrdPosixGlobals::theCache)
      {LfnPath oldF("rename", oldpath);
       LfnPath newF("rename", newpath);
       if (!oldF.path || !newF.path) return -1;
       XrdPosixGlobals::theCache->Rename(oldF.path, newF.path);
      }
 
// Issue the rename
//
   if (XrdPosixGlobals::usingEC)
       return EcRename(oldpath, newpath, admin);
 
   return XrdPosixMap::Result(admin.Xrd.Mv(admin.Url.GetPathWithParams(),
                              newUrl.GetPathWithParams()),
                              XrdPosixGlobals::ecMsg, true);
}
 
/******************************************************************************/
/*                            R e w i n d d i r                               */
/******************************************************************************/
 
void XrdPosixXrootd::Rewinddir(DIR *dirp)
{
   XrdPosixDir *dP;
   int fildes = XrdPosixDir::dirNo(dirp);
 
// Find the object and rewind it
//
   if ((dP = XrdPosixObject::Dir(fildes)))
      {dP->rewind();
       dP->UnLock();
      }
}
 
/******************************************************************************/
/*                                 R m d i r                                  */
/******************************************************************************/
 
int XrdPosixXrootd::Rmdir(const char *path)
{
   XrdPosixAdmin admin(path,XrdPosixGlobals::ecMsg);
 
// Make sure the admin is OK
//
   if (!admin.isOK()) return -1;
 
// Remove directory from the cache first
//
   if (XrdPosixGlobals::theCache)
      {LfnPath rmd("rmdir", path);
       if (!rmd.path) return -1;
       XrdPosixGlobals::theCache->Rmdir(rmd.path);
      }
 
// Issue the rmdir
//
   return XrdPosixMap::Result(admin.Xrd.RmDir(admin.Url.GetPathWithParams()),
                              XrdPosixGlobals::ecMsg, true);
}
 
/******************************************************************************/
/*                                S e e k d i r                               */
/******************************************************************************/
 
void XrdPosixXrootd::Seekdir(DIR *dirp, long loc)
{
   XrdPosixDir *dP;
   int fildes = XrdPosixDir::dirNo(dirp);
 
// Find the object
//
   if (!(dP = XrdPosixObject::Dir(fildes))) return;
 
// Sets the current directory position
//
   if (dP->Unread() && !(dP->Open()))
      {if (loc >= dP->getEntries()) loc = dP->getEntries();
          else if (loc < 0) loc = 0;
       dP->setOffset(loc);
      }
   dP->UnLock();
}
 
/******************************************************************************/
/*                                  S t a t                                   */
/******************************************************************************/
  
int XrdPosixXrootd::Stat(const char *path, struct stat *buf)
{
   XrdPosixAdmin admin(path,XrdPosixGlobals::ecMsg);
   bool cacheChk = false;
 
// Make sure the admin is OK
//
   if (!admin.isOK()) return -1;
 
// Initialize the stat buffer
//
   XrdPosixConfig::initStat(buf);
 
// Check if we can get the stat informatation from the cache
//
  if (! XrdPosixGlobals::usingEC && XrdPosixGlobals::theCache)
     {LfnPath statX("stat", path, false);
      if (!statX.path) return -1;
      int rc = XrdPosixGlobals::theCache->Stat(statX.path, *buf);
      if (!rc) return 0;
      if (rc < 0) {errno = -rc; return -1;} // does the cache set this???
      cacheChk = true;
     }
 
// Issue the stat and verify that all went well
//
   if (XrdPosixGlobals::usingEC)
       return EcStat(path, buf, admin);
 
   if (!admin.Stat(*buf)) return -1;
 
// If we are here and the cache was checked then the file was not in the cache.
// We informally tell the caller this is the case by setting atime to zero.
// Normally, atime will never be zero in any other case.
//
   if (cacheChk) buf->st_atime = 0;
   return 0;
}        
 
/******************************************************************************/
/*                                S t a t f s                                 */
/******************************************************************************/
  
int XrdPosixXrootd::Statfs(const char *path, struct statfs *buf)
{
   struct statvfs myVfs;
   int rc;
 
// Issue a statvfs() call and transcribe the results
//
   if ((rc = Statvfs(path, &myVfs))) return rc;
 
// The vfs structure and fs structures should be size compatible (not really)
//
   memset(buf, 0, sizeof(struct statfs));
   buf->f_bsize   = myVfs.f_bsize;
   buf->f_blocks  = myVfs.f_blocks;
   buf->f_bfree   = myVfs.f_bfree;
   buf->f_files   = myVfs.f_files;
   buf->f_ffree   = myVfs.f_ffree;
#if defined(__APPLE__) || defined(__FreeBSD__) || (defined(__FreeBSD_kernel__) && defined(__GLIBC__))
   buf->f_iosize  = myVfs.f_frsize;
#else
   buf->f_frsize  = myVfs.f_frsize;
#endif
#if defined(__linux__) || defined(__APPLE__) || defined(__FreeBSD__) || defined(__GNU__) || (defined(__FreeBSD_kernel__) && defined(__GLIBC__))
   buf->f_bavail  = myVfs.f_bavail;
#endif
#if defined(__linux__) || defined(__GNU__)
   buf->f_namelen = myVfs.f_namemax;
#elif defined(__FreeBSD__) || (defined(__FreeBSD_kernel__) && defined(__GLIBC__))
   buf->f_namemax = myVfs.f_namemax;
#endif
   return 0;
}
 
/******************************************************************************/
/*                               S t a t R e t                                */
/******************************************************************************/
 
int XrdPosixXrootd::StatRet(DIR *dirp, struct stat *buf)
{
// Find the object
//
   auto fildes = XrdPosixDir::dirNo(dirp);
   auto dP = XrdPosixObject::Dir(fildes);
   if (!dP) return EBADF;
 
// Get the stat info
   auto rc = dP->StatRet(buf);
 
   dP->UnLock();
   return rc;
}
 
/******************************************************************************/
/*                               S t a t v f s                                */
/******************************************************************************/
 
int XrdPosixXrootd::Statvfs(const char *path, struct statvfs *buf)
{
   static const int szVFS = sizeof(buf->f_bfree);
   static const long long max32 = 0x7fffffffLL;
 
   XrdPosixAdmin       admin(path,XrdPosixGlobals::ecMsg);
   XrdCl::StatInfoVFS *vfsStat;
 
   long long rwFree, ssFree, rwBlks;
   int       rwNum, ssNum, rwUtil, ssUtil;
 
// Make sure we connected
//
   if (!admin.isOK()) return -1;
 
// Issue the statfvs call
//
   if (XrdPosixMap::Result(admin.Xrd.StatVFS(admin.Url.GetPathWithParams(),
                                             vfsStat),
                           XrdPosixGlobals::ecMsg) < 0) return -1;
 
// Extract out the information
//
   rwNum  = static_cast<int>(vfsStat->GetNodesRW());
   rwFree = (long long)vfsStat->GetFreeRW();
   rwUtil = static_cast<int>(vfsStat->GetUtilizationRW());
   ssNum  = static_cast<int>(vfsStat->GetNodesStaging());
   ssFree = (long long)vfsStat->GetFreeStaging();
   ssUtil = static_cast<int>(vfsStat->GetUtilizationStaging());
   delete vfsStat;
 
// Calculate number of blocks
//
   if (rwUtil == 0) rwBlks = rwFree;
      else if (rwUtil >= 100) rwBlks = 0;
              else rwBlks = rwFree * (100 / (100 - rwUtil));
   if (ssUtil == 0) rwBlks += ssFree;
      else if (ssUtil < 100) rwBlks += ssFree * (100 / (100 - ssUtil));
 
// Scale units to what will fit here (we can have a 32-bit or 64-bit struct)
//
   if (szVFS < 8)
      {if (rwBlks > max32) rwBlks = max32;
       if (rwFree > max32) rwFree = max32;
       if (ssFree > max32) ssFree = max32;
      }
 
// Return what little we can
//
   memset(buf, 0, sizeof(struct statvfs));
   buf->f_bsize   = 1024*1024;
   buf->f_frsize  = 1024*1024;
   buf->f_blocks  = static_cast<fsblkcnt_t>(rwBlks);
   buf->f_bfree   = static_cast<fsblkcnt_t>(rwFree + ssFree);
   buf->f_bavail  = static_cast<fsblkcnt_t>(rwFree);
   buf->f_ffree   = rwNum + ssNum;
   buf->f_favail  = rwNum;
   buf->f_namemax = 255;    // The best we are going to do here
   buf->f_flag    = (rwNum == 0 ? ST_RDONLY|ST_NOSUID : ST_NOSUID);
   return 0;
}
 
/******************************************************************************/
/*                                T e l l d i r                               */
/******************************************************************************/
 
long XrdPosixXrootd::Telldir(DIR *dirp)
{
   XrdPosixDir *dP;
   long pos;
   int fildes = XrdPosixDir::dirNo(dirp);
 
// Find the object
//
   if (!(dP = XrdPosixObject::Dir(fildes)))
      return XrdPosixGlobals::ecMsg.SetErrno(EBADF,0);
 
// Tell the current directory location
//
   pos = dP->getOffset();
   dP->UnLock();
   return pos;
}
 
/******************************************************************************/
/*                              T r u n c a t e                               */
/******************************************************************************/
  
int XrdPosixXrootd::Truncate(const char *path, off_t Size)
{
  XrdPosixAdmin admin(path,XrdPosixGlobals::ecMsg);
  uint64_t tSize = static_cast<uint64_t>(Size);
 
// Make sure the admin is OK
//
   if (!admin.isOK()) return -1;
 
// Truncate in the cache first
//
   if (XrdPosixGlobals::theCache)
      {LfnPath trunc("truncate", path);
       if (!trunc.path) return -1;
       XrdPosixGlobals::theCache->Truncate(trunc.path, tSize);
      }
 
// Issue the truncate to the origin
//
   std::string urlp = admin.Url.GetPathWithParams();
   return XrdPosixMap::Result(admin.Xrd.Truncate(urlp,tSize),
                              XrdPosixGlobals::ecMsg,true);
}
 
/******************************************************************************/
/*                                 U n l i n k                                */
/******************************************************************************/
 
int XrdPosixXrootd::Unlink(const char *path)
{
   XrdPosixAdmin admin(path,XrdPosixGlobals::ecMsg);
 
// Make sure the admin is OK
//
   if (!admin.isOK()) return -1;
 
// Unlink the cache first
//
   if (XrdPosixGlobals::theCache)
      {LfnPath remf("unlink", path);
       if (!remf.path) return -1;
       XrdPosixGlobals::theCache->Unlink(remf.path);
      }
 
// Issue the UnLink
//
   if (XrdPosixGlobals::usingEC)
      return EcUnlink(path, admin);
 
   return XrdPosixMap::Result(admin.Xrd.Rm(admin.Url.GetPathWithParams()),
                              XrdPosixGlobals::ecMsg, true);
}
 
/******************************************************************************/
/*                                 W r i t e                                  */
/******************************************************************************/
  
ssize_t XrdPosixXrootd::Write(int fildes, const void *buf, size_t nbyte)
{
   XrdPosixFile *fp;
   int           iosz, bytes;
 
// Find the file object
//
   if (!(fp = XrdPosixObject::File(fildes))) return -1;
 
// Make sure the size is not too large
//
   if (nbyte > (size_t)0x7fffffff) return Fault(fp,EOVERFLOW);
      else iosz = static_cast<int>(nbyte);
 
// Issue the write
//
   bytes = fp->XCio->Write((char *)buf,fp->Offset(),(int)iosz);
   if (bytes < 0) return Fault(fp,-bytes);
 
// All went well
//
   fp->addOffset(iosz, 1);
   fp->UnLock();
   return (ssize_t)iosz;
}
 
/******************************************************************************/
/*                                W r i t e v                                 */
/******************************************************************************/
  
ssize_t XrdPosixXrootd::Writev(int fildes, const struct iovec *iov, int iovcnt)
{
   ssize_t totbytes = 0;
   int i;
 
// Return the results of the write for each iov segment
//
   for (i = 0; i < iovcnt; i++)
       {if (!Write(fildes,(void *)iov[i].iov_base,(size_t)iov[i].iov_len))
           return -1;
        totbytes += iov[i].iov_len;
       }
 
// All done
//
   return totbytes;
}
 
/******************************************************************************/
/*                             i s X r o o t d D i r                          */
/******************************************************************************/
 
bool XrdPosixXrootd::isXrootdDir(DIR *dirp)
{
   XrdPosixDir *dP;
   int fildes;
 
   if (!dirp) return false;
   fildes = XrdPosixDir::dirNo(dirp);
 
   if (!myFD(fildes) || !(dP = XrdPosixObject::Dir(fildes))) return false;
 
   dP->UnLock();
   return true;
}
 
/******************************************************************************/
/*                                  m y F D                                   */
/******************************************************************************/
 
bool XrdPosixXrootd::myFD(int fd)
{
   return XrdPosixObject::Valid(fd);
}
  
/******************************************************************************/
/*                           Q u e r y C h k s u m                            */
/******************************************************************************/
  
int XrdPosixXrootd::QueryChksum(const char *path,  time_t &Mtime,
                                      char *value, int     vsize)
{
   XrdPosixAdmin admin(path,XrdPosixGlobals::ecMsg);
 
// Stat the file first to allow vectoring of the request to the right server
//
   if (!admin.Stat(0, &Mtime)) return -1;
 
// Now we can get the checksum as we have landed on the right server
//
   return admin.Query(XrdCl::QueryCode::Checksum, value, vsize);
}
  
/******************************************************************************/
/*                            Q u e r y E r r o r                             */
/******************************************************************************/
  
int XrdPosixXrootd::QueryError(std::string& emsg, int fd, bool reset)
{
   XrdOucECMsg* ecmP;
   XrdPosixFile* fp = 0;
 
// If global wanted then use that one otherwise find the object specific one
//
   if (fd < 0) ecmP = &XrdPosixGlobals::ecMsg;
       else {if (!(fp = XrdPosixObject::File(fd))) return -1;
             ecmP = fp->getECMsg();
            }
 
// Return the message information
//
   const int rc = ecmP->Get(emsg, reset);
   if (fp) fp->UnLock();
   return rc;
}
  
/******************************************************************************/
 
int XrdPosixXrootd::QueryError(std::string& emsg, DIR* dirP, bool reset)
{
   XrdPosixDir *dP;
   int fildes = XrdPosixDir::dirNo(dirP);
 
// Find the object
//
   if (!(dP = XrdPosixObject::Dir(fildes)))
      return XrdPosixGlobals::ecMsg.SetErrno(EBADF);
 
// Return result
//
   return dP->getECMsg()->Get(emsg, reset);
}
 
/******************************************************************************/
/*                           Q u e r y O p a q u e                            */
/******************************************************************************/
  
long long XrdPosixXrootd::QueryOpaque(const char *path, char *value, int size)
{
   XrdPosixAdmin admin(path,XrdPosixGlobals::ecMsg);
 
// Stat the file first to allow vectoring of the request to the right server
//
   if (!admin.Stat()) return -1;
 
// Now we can get the checksum as we have landed on the right server
//
   return admin.Query(XrdCl::QueryCode::OpaqueFile, value, size);
}
  
/******************************************************************************/
/*                       P r i v a t e   M e t h o d s                        */
/******************************************************************************/
/******************************************************************************/
/*                                 F a u l t                                  */
/******************************************************************************/
 
int XrdPosixXrootd::Fault(XrdPosixFile *fp, int ecode, const char *msg)
{
   fp->UnLock();
   return XrdPosixGlobals::ecMsg.SetErrno(ecode, -1, msg);
}
 
/******************************************************************************/
/*                               E c R e n a m e                              */
/******************************************************************************/
 
int XrdPosixXrootd::EcRename(const char *oldpath, const char *newpath,
                             XrdPosixAdmin &admin)
{
    XrdCl::URL url(oldpath);
    XrdCl::URL newUrl(newpath);
 
    std::string file = url.GetPath();
    XrdCl::LocationInfo *info = nullptr;
    XrdCl::FileSystem fs(oldpath);
 
    XrdCl::Buffer queryArgs(5), *queryResp = nullptr;
    queryArgs.FromString("role");
    XrdCl::XRootDStatus st = fs.Query(XrdCl::QueryCode::Config, queryArgs, queryResp);
    // xrootdfs call this function with individual servers. but we can only do 
    // fs.DeepLocate("*"...) agaist a redirector
    // xrootdfs already did a stat and know that this is a file, not a dir
    if (!st.IsOK() || queryResp->ToString() == "server"
                   || queryResp->ToString() == "server\n")
    {
        if (queryResp) delete queryResp;
        return XrdPosixMap::Result(admin.Xrd.Mv(admin.Url.GetPathWithParams(),
                                   newUrl.GetPathWithParams()),
                                   XrdPosixGlobals::ecMsg, true);
    }
    else
        if (queryResp) delete queryResp;
 
    st = fs.DeepLocate("*", XrdCl::OpenFlags::PrefName, info );
    std::unique_ptr<XrdCl::LocationInfo> ptr( info );
    if( !st.IsOK() ) 
      return XrdPosixMap::Result(st, XrdPosixGlobals::ecMsg, true);
 
    // check if this is a file or a dir, do not support dir renaming in EC
    struct stat buf;
    if (XrdPosixXrootd::Stat(oldpath, &buf) != 0)
       return XrdPosixGlobals::ecMsg.SetErrno(ENOENT);
 
    if ( ! S_ISREG(buf.st_mode))
       return XrdPosixGlobals::ecMsg.SetErrno(ENOTSUP);
 
    if (XrdPosixXrootd::Stat(newpath, &buf) == 0) 
       return XrdPosixGlobals::ecMsg.SetErrno(EEXIST);
 
    int rc = -ENOENT;
    for( size_t i = 0; i < info->GetSize(); ++i )
    {
        std::string url_i = "root://" + info->At(i).GetAddress() + "/" + file;
        XrdPosixAdmin *admin_i = new XrdPosixAdmin(url_i.c_str(),admin.ecMsg);
        int x = XrdPosixMap::Result(admin_i->Xrd.Mv(admin_i->Url.GetPathWithParams(),
                                                    newUrl.GetPathWithParams()),
                                                    admin.ecMsg);
        if (x != -ENOENT && rc != 0)
            rc = x;
        if (admin_i) delete admin_i;
    }
    return rc;
}
 
/******************************************************************************/
/*                                  E c S t a t                               */
/******************************************************************************/
 
int XrdPosixXrootd::EcStat(const char *path, struct stat *buf,
                           XrdPosixAdmin &admin)
{
   XrdCl::URL url(path);
   std::string file = url.GetPath();
   XrdCl::LocationInfo *info = nullptr;
   XrdCl::FileSystem fs(path);
 
   std::vector<std::string>  xattrkeys;
   std::vector<XrdCl::XAttr> xattrvals;
   xattrkeys.push_back("xrdec.strpver");
   xattrkeys.push_back("xrdec.filesize");
 
   XrdCl::Buffer queryArgs(5), *queryResp = nullptr;
   queryArgs.FromString("role");
   XrdCl::XRootDStatus st = fs.Query(XrdCl::QueryCode::Config, queryArgs, queryResp);
   // xrootdfs call this function with individual servers. but we can only do 
   //        // fs.DeepLocate("*"...) agaist a redirector
   if (!st.IsOK() || queryResp->ToString() == "server"
                  || queryResp->ToString() == "server\n")
   {
       if (queryResp) delete queryResp;
       if (!admin.Stat(*buf)) 
           return -1;
       else
       {
           st = fs.GetXAttr(file, xattrkeys, xattrvals, 0);
           if (! xattrvals[0].value.empty())
           {
               std::stringstream sstream0(xattrvals[0].value);
               sstream0 >> buf->st_mtime;
               std::stringstream sstream1(xattrvals[1].value);
               sstream1 >> buf->st_size;
               buf->st_blocks = (buf->st_size + 512)/512;
           }
           return 0;
       }
   }
   else
       if (queryResp) delete queryResp;
 
   st = fs.DeepLocate("*", XrdCl::OpenFlags::PrefName, info );
   std::unique_ptr<XrdCl::LocationInfo> ptr( info );
   if( !st.IsOK() ) 
   {
       errno = ENOENT;
       return -1;
   }
 
   int found = 0;
   uint64_t verNumMax = 0;
   struct stat buf_i;
   XrdPosixConfig::initStat(&buf_i);
   for( size_t i = 0; i < info->GetSize(); ++i )
   {
       std::string url_i = "root://" + info->At(i).GetAddress() + "/" + file;
       XrdPosixAdmin *admin_i = new XrdPosixAdmin(url_i.c_str(),admin.ecMsg);
 
       if (admin_i->Stat(buf_i)) 
       {
           if (! S_ISREG(buf_i.st_mode))
           {
               memcpy(buf, &buf_i, sizeof(struct stat));
               if (admin_i) delete admin_i;
               return 0;
           }
           else
           {
               if (verNumMax == 0) memcpy(buf, &buf_i, sizeof(struct stat));
               found = 1;
           }
           XrdCl::FileSystem *fs_i = new XrdCl::FileSystem(info->At( i ).GetAddress());
   
           xattrvals.clear();
           st = fs_i->GetXAttr(file, xattrkeys, xattrvals, 0);
           if (! xattrvals[0].value.empty())
           {
               std::stringstream sstream(xattrvals[0].value);
               uint64_t verNum;
               sstream >> verNum;
               if ( verNum > verNumMax )
               {
                   verNumMax = verNum;
                   memcpy(buf, &buf_i, sizeof(struct stat));
                   buf->st_mtime = verNumMax;   // assume verNum is mtime
                   std::stringstream sstream(xattrvals[1].value);
                   sstream >> buf->st_size;
                   buf->st_blocks = (buf->st_size + 512)/512;
               }
           }
           if (fs_i) delete fs_i;
       }
       if (admin_i) delete admin_i;
   }
   if (! found) 
   {
       errno = ENOENT;
       return -1;
   }
   return 0;
}
   
/******************************************************************************/
/*                                E c U n l i n k                             */
/******************************************************************************/
 
int XrdPosixXrootd::EcUnlink(const char *path, XrdPosixAdmin &admin)
{
    XrdCl::URL url(path);
    std::string file = url.GetPath();
    XrdCl::LocationInfo *info = nullptr;
    XrdCl::FileSystem fs(path);
 
    XrdCl::Buffer queryArgs(5), *queryResp = nullptr;
    queryArgs.FromString("role");
    XrdCl::XRootDStatus st = fs.Query(XrdCl::QueryCode::Config, queryArgs, queryResp);
    // xrootdfs call this function with individual servers. but we can only do 
    // fs.DeepLocate("*"...) agaist a redirector
    if (!st.IsOK() || queryResp->ToString() == "server"
                   || queryResp->ToString() == "server\n")
    {
        if (queryResp) delete queryResp;
        return XrdPosixMap::Result(admin.Xrd.Rm(admin.Url.GetPathWithParams()),
                                   admin.ecMsg, true);
    }
    else
        if (queryResp) delete queryResp;
 
    st = fs.DeepLocate("*", XrdCl::OpenFlags::PrefName, info );
    std::unique_ptr<XrdCl::LocationInfo> ptr( info );
    if( !st.IsOK() ) 
      return XrdPosixMap::Result(st, admin.ecMsg, true);
 
    int rc = -ENOENT;
    for( size_t i = 0; i < info->GetSize(); ++i )
    {
        std::string url_i = "root://" + info->At(i).GetAddress() + "/" + file;
        XrdPosixAdmin *admin_i = new XrdPosixAdmin(url_i.c_str(),admin.ecMsg);
        int x = XrdPosixMap::Result(admin_i->
                                    Xrd.Rm(admin_i->Url.GetPathWithParams()),
                                    admin.ecMsg);
        if (x != -ENOENT && rc != 0)
            rc = x;
        if (admin_i) delete admin_i;
    }
    return rc;
}