/**
 * @file   CheckQAFile.C
 * @author Christian Holm Christensen <cholm@master.hehi.nbi.dk>
 * @date   Fri Jan  6 11:39:22 2012
 * 
 * @brief  Script to check a QA file
 * 
 * @ingroup pwglf_forward_qa_scripts
 */
/** 
 * Script to check a QA file.  Note that this terminates the ROOT session. 
 * 
 * @param filename File to read 
 * 
 * @ingroup pwglf_forward_qa_scripts
 */
void CheckQAFile(const char* filename, const char* type="")
{
  int    ret  = 0;
  TFile* file = TFile::Open(filename, "READ");
  if (!file) { 
    Error("CheckQAFile", "No such file %s", filename);
    exit(1);
  }
  TString check    = Form("Forward%s",type);
  TString check2;
  TObject* forward1 = file->Get(check);
  if (!forward1) {
    check2    = Form("Forward%sSums",type);
    forward1 = file->Get(Form("Forward%sSums",type));
    if (!forward1) {
      Error("CheckQAFile", "No %s or %s object found in %s", 
	    check.Data(),check2.Data(), filename);
      ret |= 2;
    }
  } 
  check = Form("Forward%sResults", type);
  TObject* forward2 = file->Get(check);
  if (!forward2) {
    check2   = Form("forward%sResults",type);
    forward2 = file->Get(check2);
    if (!forward2) { 
      Error("CheckQAFile", "No %s or %s object found in %s", 
	    check.Data(), check2.Data(), filename);
      file->ls();
      ret |= 4;
    }
  } 
  file->Close();
  exit(ret);
}
//
// EOF
//