From Gerri:

Implement IsPathLocal to check locality.


git-svn-id: http://root.cern.ch/svn/root/trunk@23024 27541ba8-7e3a-0410-8455-c3a389f83636

core/base/inc/TSystem.h

@@ -403,6 +403,7 @@ public:
    virtual Bool_t          ExpandPathName(TString &path);
    virtual char           *ExpandPathName(const char *path);
    virtual Bool_t          AccessPathName(const char *path, EAccessMode mode = kFileExists);
+   virtual Bool_t          IsPathLocal(const char *path);
    virtual int             CopyFile(const char *from, const char *to, Bool_t overwrite = kFALSE);
    virtual int             Rename(const char *from, const char *to);
    virtual int             Link(const char *from, const char *to);

core/base/src/TSystem.cxx

@@ -1116,6 +1116,40 @@ Bool_t TSystem::AccessPathName(const char *, EAccessMode)
    return kFALSE;
 }
 
+//______________________________________________________________________________
+Bool_t TSystem::IsPathLocal(const char *path)
+{
+   // Returns TRUE if the url in 'path' points to the local file system.
+   // This is used to avoid going through the NIC card for local operations.
+
+   Bool_t localPath = kTRUE;
+
+   TUrl url(path);
+   if (strlen(url.GetHost()) > 0) {
+      // Check locality
+      localPath = kFALSE;
+      TInetAddress a(gSystem->GetHostByName(url.GetHost()));
+      TInetAddress b(gSystem->GetHostByName(gSystem->HostName()));
+      if (!strcmp(a.GetHostName(), b.GetHostName()) ||
+          !strcmp(a.GetHostAddress(), b.GetHostAddress())) {
+         // Host OK
+         localPath = kTRUE;
+         // Check the user if specified
+         if (strlen(url.GetUser()) > 0) {
+            UserGroup_t *u = gSystem->GetUserInfo();
+            if (u) {
+               if (strcmp(u->fUser, url.GetUser()))
+                  // Requested a different user
+                  localPath = kFALSE;
+               delete u;
+            }
+         }
+      }
+   }
+   // Done
+   return localPath;
+}
+
 //______________________________________________________________________________
 int TSystem::CopyFile(const char *, const char *, Bool_t)
 {