//
// xrdport.C - proof server initialization helper for grendl cluster,
//             sets the port number for xrootd file exchange between
//             workers, master, and client.
//
// author: richard.t.jones at uconn.edu
// version: december 29, 2021
//
// example usage:
//    TProof::Open("proof://stat31.phys.uconn.edu:1097");
//    gProof->Load("xrdport.C+O");
//    gProof->Exec("xrdport_update();", kTRUE);

#include <TString.h>
#include <TSystem.h>
#include <iostream>

void xrdport_update(int verbose=0)
{
   TString server(gSystem->Getenv("LOCALDATASERVER"));
   TString xrdport(gSystem->Getenv("XRDPORT"));
   if (server.Index(":" + xrdport) == -1) {
      server += ":" + xrdport;
      gSystem->Setenv("LOCALDATASERVER", server.Data());
   }
   if (verbose)
      std::cout << server << std::endl;
}