///////////////////////////////////////////////////////////////////////////////
// Andrea Castro November 28, 2005
// stores  plots and HTML files into $OFFLINE_MON_DIR
///////////////////////////////////////////////////////////////////////////////

#include "TSystem.h"
#include "TFile.h"
#include "TTree.h"
#include "TH1.h"
#include "TProfile.h"
#include "TLine.h"
#include "TCanvas.h"
#include "TPaveText.h"
#include "TText.h"

#include <dirent.h>			/* Directory information.	*/
#include <sys/stat.h>

#include <sstream>
using namespace std;


#include "OfflineMon/TCalibrationsMonitor.hh"



ClassImp(TCalibrationsMonitor)
ClassImp(TCalibrationsMonitor::Data_t)
  

//_____________________________________________________________________________
TCalibrationsMonitor::TCalibrationsMonitor(const char* Name): TOfflineMonitor(Name) {
  fData = new TCalibrationsMonitor::Data_t();
}


//_____________________________________________________________________________
TCalibrationsMonitor::~TCalibrationsMonitor() {
  delete fData;
}



//_____________________________________________________________________________
int TCalibrationsMonitor::Init() {

  printf(" inside TCalibrationsMonitor::Init()\n"); // AC


  // first checks if the files are there

  bool exist;
  struct stat buffer;


  exist=false;
  sprintf(fPass10A.fFileName,"%sprod_physics_cdf_10A.html", fInputDirName.Data());
  if (!stat(fPass10A.fFileName, &buffer)) {  // the file exists
    exist = true;
     fPass10A.fStatus=0;
  }
  fPass10A.fExist = exist;

  exist=false;
  sprintf(fPass17A.fFileName,"%sprod_physics_cdf_17A.html", fInputDirName.Data());
  if (!stat(fPass17A.fFileName, &buffer)) {  // the file exists
    exist = true;
     fPass17A.fStatus=0;
  }
  fPass17A.fExist = exist;

  exist=false;
  sprintf(fCotBeam.fFileName,"%spad_physics_cotbeam.html", fInputDirName.Data());
  if (!stat(fCotBeam.fFileName, &buffer)) {  // the file exists
    exist = true;
     fCotBeam.fStatus=0;
  }
  fCotBeam.fExist = exist;

  exist=false;
  sprintf(fSvxBeam.fFileName,"%spad_physics_svxbeam.html", fInputDirName.Data());
  if (!stat(fSvxBeam.fFileName, &buffer)) {  // the file exists
    exist = true;
     fSvxBeam.fStatus=0;
  }
  fSvxBeam.fExist = exist;

  exist=false;
  sprintf(fCotSet.fFileName,"%sprod_physics_cot.html", fInputDirName.Data());
  if (!stat(fCotSet.fFileName, &buffer)) {  // the file exists
    exist = true;
     fCotSet.fStatus=0;
  }
  fCotSet.fExist = exist;

  exist=false;
  sprintf(fSvxSet.fFileName,"%sprod_physics_svx.html", fInputDirName.Data());
  if (!stat(fSvxSet.fFileName, &buffer)) {  // the file exists
    exist = true;
     fSvxSet.fStatus=0;
  }
  fSvxSet.fExist = exist;



  // now read the paramenters
  TString parsFile;
  char dummy[300];
  parsFile = fHtmlDirectory + "/Params.dat";
   
  printf("++%s\n", parsFile.Data());
  FILE* fIn = fopen(parsFile,"r");
  fgets(dummy, sizeof(dummy)-1, fIn);
  fscanf(fIn,"%f %f", &fPars.maxDaysMissWPass10A,  &fPars.maxDaysMissEPass10A);
  fgets(dummy, sizeof(dummy)-1, fIn); // rest of line
  fgets(dummy, sizeof(dummy)-1, fIn);
  fscanf(fIn,"%f %f", &fPars.maxDaysMissWPass17A,  &fPars.maxDaysMissEPass17A);
  fgets(dummy, sizeof(dummy)-1, fIn); // rest of line
  fgets(dummy, sizeof(dummy)-1, fIn);
  fscanf(fIn,"%f %f", &fPars.maxDaysMissWCotBeam,  &fPars.maxDaysMissECotBeam);
  fgets(dummy, sizeof(dummy)-1, fIn); // rest of line
  fgets(dummy, sizeof(dummy)-1, fIn);
  fscanf(fIn,"%f %f", &fPars.maxDaysMissWSvxBeam,  &fPars.maxDaysMissESvxBeam);
  fgets(dummy, sizeof(dummy)-1, fIn); // rest of line
  fgets(dummy, sizeof(dummy)-1, fIn);
  fscanf(fIn,"%d %d", &fPars.maxHoursMissWCotSet,  &fPars.maxHoursMissECotSet);
  fgets(dummy, sizeof(dummy)-1, fIn); // rest of line
  fgets(dummy, sizeof(dummy)-1, fIn);
  fscanf(fIn,"%d %d", &fPars.maxHoursMissWSvxSet,  &fPars.maxHoursMissESvxSet);
  fgets(dummy, sizeof(dummy)-1, fIn); // rest of line
  fgets(dummy, sizeof(dummy)-1, fIn);
  fscanf(fIn,"%s", &fPars.fExpertPass);
  fgets(dummy, sizeof(dummy)-1, fIn);
  fscanf(fIn,"%s", &fPars.fExpertBeam);
  fgets(dummy, sizeof(dummy)-1, fIn);
  fscanf(fIn,"%s", &fPars.fExpertCot);
  fgets(dummy, sizeof(dummy)-1, fIn);
  fscanf(fIn,"%s", &fPars.fExpertSvx);
  fgets(dummy, sizeof(dummy)-1, fIn);
  fscanf(fIn,"%s", &fPars.fExpertCron);

  //  fscanf(fIn,"%f %f", &fPars.minDaysOld, &fPars.minDaysXOld);
  fclose(fIn);
//   fPars.minDaysOld=2; fPars.minDaysXOld=3;

  // initialize 

  fCotBeam.fNumRunsNotinPass=fSvxBeam.fNumRunsNotinPass=fCotSet.fNumRunsNotinPass=fSvxSet.fNumRunsNotinPass=0;
  for(int i=0; i<NRUNS; i++) {
    fCotBeam.fRunsNotinPass[i]=fSvxBeam.fRunsNotinPass[i]=fCotSet.fRunsNotinPass[i]=fSvxSet.fRunsNotinPass[i]=0;
  }

  fPass10A.fLastAvailRun=fPass10A.fLastMissingRun=0;
  fPass10A.fFirstMissingRun=9999999;
  fPass17A.fLastAvailRun=fPass17A.fLastMissingRun=0;
  fPass17A.fFirstMissingRun=9999999;
  fCotBeam.fLastAvailRun=fCotBeam.fLastMissingRun=0;
  fCotBeam.fFirstMissingRun=9999999;
  fSvxBeam.fLastAvailRun=fSvxBeam.fLastMissingRun=0;
  fSvxBeam.fFirstMissingRun=9999999;
  fCotSet.fLastAvailRun=fCotSet.fLastMissingRun=0;
  fCotSet.fFirstMissingRun=9999999;
  fSvxSet.fLastAvailRun=fSvxSet.fLastMissingRun=0;
  fSvxSet.fFirstMissingRun=9999999;


  fPass10A.fNumMissingRuns=fPass17A.fNumMissingRuns=fCotBeam.fNumMissingRuns=fSvxBeam.fNumMissingRuns=fCotSet.fNumMissingRuns=fSvxSet.fNumMissingRuns=0;
//   fPass10A.fNumOldRuns=fPass17A.fNumOldRuns=fCotBeam.fNumOldRuns=fSvxBeam.fNumOldRuns=fCotSet.fNumOldRuns=fSvxSet.fNumOldRuns=0;
//   fPass10A.fNumXOldRuns=fPass17A.fNumXOldRuns=fCotBeam.fNumXOldRuns=fSvxBeam.fNumXOldRuns=fCotSet.fNumXOldRuns=fSvxSet.fNumXOldRuns=0;

  for(int i=0; i<NRUNS; i++) {
    fPass10A.fMissingRunsCode[i]=fPass10A.fMissingRuns[i]=0; 
    fPass17A.fMissingRunsCode[i]=fPass17A.fMissingRuns[i]=0; 
    fCotBeam.fMissingRunsCode[i]=fCotBeam.fMissingRuns[i]=0; 
    fSvxBeam.fMissingRunsCode[i]=fSvxBeam.fMissingRuns[i]=0; 
    fCotSet.fMissingRunsCode[i]=fCotSet.fMissingRuns[i]=0; 
    fSvxSet.fMissingRunsCode[i]=fSvxSet.fMissingRuns[i]=0; 
  }

  fPass10A.fFirstRun=fPass17A.fFirstRun=fCotBeam.fFirstRun=fSvxBeam.fFirstRun=fCotSet.fFirstRun=fSvxSet.fFirstRun=0;

  return 0;
}

//_____________________________________________________________________________
int TCalibrationsMonitor::UpdateNtuple() {


//  read the data file and fills the fStatus class (no ntuple!)
//-----------------------------------------------------------------------------

  printf(" inside TCalibrationsMonitor::UpdateNtuple()\n"); // AC


  TDatime now;
  int tDiff;
  int hour, min, sec, day, month, year;
  char mon[16];
  char dummy[300];
  const char* Month[] = {"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"};
  FILE* f;
  int pass10aRuns[NRUNS], pass17aRuns[NRUNS], nPass10aRuns=0, nPass17aRuns=0;
  bool notInPass;


// TSQLServer* db = TSQLServer::Connect("oracle://fcdfora1.fnal.gov:1521/cdfofprd.fnal.gov","cdf_reader","reader");
// TSQLResult* resf = db->Query("select lorun from passcalibs where pass_index=123 and lorun>207000")



  // 1) prod10A

  if(fPass10A.fExist) {
    fPass10A.fMissingRunsMaxTime = 0;
    f = fopen(fPass10A.fFileName,"r");
    // let's skip all comments
    
    fscanf(f,"%s", dummy);  // <pre>
    fscanf(f,"%s %s %d %d:%d:%d %s %d", dummy, mon, &day, &hour, &min, &sec, dummy, &year);

    for(int i=0; i<12; i++) if(strncmp(mon, Month[i],3)==0) month=i+1;
    (fData->fFileTime).Set(year-1900, month, day, hour, min, sec);  // watch out: year must be 95<year<199, i.e. year-1900
    fPass10A.fFileTime = fData->fFileTime;
    fgets(dummy, 300, f);  //
    fgets(dummy, 300, f);  // --- 
    fgets(dummy, 300, f);  // --- 
    fgets(dummy, 300, f);  // // RunNum  Trigger Table ...
    
    while(fscanf(f,"%s", dummy) != -1){
      if(strncmp(dummy,"</pre>",6)!=0) {
	fData->fRun=atoi(dummy);
	if(nPass10aRuns<NRUNS)  pass10aRuns[nPass10aRuns]=fData->fRun;
	nPass10aRuns++;
	if(fPass10A.fFirstRun==0) fPass10A.fFirstRun=fData->fRun;
	fscanf(f,"%s %d %d.%d.%d", fData->fTable, &fData->fVersion, &year, &month, &day);
	fscanf(f,"%d:%d:%d %s %s %s", &hour, &min, &sec, fData->fProcess, fData->fPass, dummy);
	(fData->fRunTime).Set(year-1900, month, day, hour, min, sec); // watch out: year must be 95<year<199, i.e. year-1900
	if(strncmp(dummy,"is",2)==0) {  // missing calibration
	  fscanf(f,"%s %s", dummy, dummy);
	  fData->fNameTag=fData->fProdVersion=fData->fJobset=0; 
	  strcpy(fData->fStatus,"MISSING");
	  strcpy(fData->fUser," ");
	  if(strstr(fData->fTable,"TEST")==NULL) {  // skip test runs
	    if(fData->fRun < fPass10A.fFirstMissingRun) {
	      fPass10A.fFirstMissingRun=fData->fRun;
	      fPass10A.fFirstMissingTime=fData->fRunTime;
	    }
	    if(fData->fRun > fPass10A.fLastMissingRun) {
	      fPass10A.fLastMissingRun=fData->fRun;
	      fPass10A.fLastMissingTime=fData->fRunTime;
	    }
	    if(fPass10A.fNumMissingRuns<NRUNS) {
	      fPass10A.fMissingRuns[fPass10A.fNumMissingRuns]=fData->fRun;  
	      fPass10A.fMissingRunsTime[fPass10A.fNumMissingRuns]=fData->fRunTime;
	      tDiff = now.Convert()- fData->fRunTime.Convert();
	      if(tDiff>(fPars.maxDaysMissWPass10A*ONEDAY) && tDiff<=(fPars.maxDaysMissEPass10A*ONEDAY)) fPass10A.fMissingRunsCode[fPass10A.fNumMissingRuns]=1;
	      if(tDiff>(fPars.maxDaysMissEPass10A*ONEDAY)) fPass10A.fMissingRunsCode[fPass10A.fNumMissingRuns]=2;
	      fPass10A.fMissingRunsMaxTime = MAX(fPass10A.fMissingRunsMaxTime, tDiff);
	      fPass10A.fNumMissingRuns++;
	    }
	  }
	} else { // calibration available
	  fData->fNameTag=atoi(dummy);
	  fscanf(f,"%d %s %d", &fData->fProdVersion, fData->fStatus, &fData->fJobset);
	  fscanf(f,"%s %s %d %d:%d:%d %d %s", dummy, mon, &day, &hour, &min, &sec, &year, fData->fUser);
	  for(int i=0; i<12; i++) if(strncmp(mon, Month[i],3)==0) month=i+1;
	  (fData->fCalTime).Set(year-1900, month, day, hour, min, sec); // watch out: year must be 95<year<199, i.e. year-1900
	  if(strstr(fData->fTable,"TEST")==NULL) {  // skip test runs
	    if(fData->fRun > fPass10A.fLastAvailRun) {
	      fPass10A.fLastAvailRun=fData->fRun;
	      fPass10A.fLastAvailTime=fData->fRunTime;
	    }
	  }
	}
      } // endif no </pre>
    }  // end while loop
  fclose(f);
  } // if exists

 // 2) prod17A

  if(fPass17A.fExist) {
    fPass17A.fMissingRunsMaxTime = 0;
    f = fopen(fPass17A.fFileName,"r");
    
    // let's skip all comments
    
    fscanf(f,"%s", dummy); // <pre>
    fscanf(f,"%s %s %d %d:%d:%d %s %d", dummy, mon, &day, &hour, &min, &sec, dummy, &year);
    for(int i=0; i<12; i++) if(strncmp(mon, Month[i],3)==0) month=i+1;
    (fData->fFileTime).Set(year-1900, month, day, hour, min, sec); // watch out: year must be 95<year<199, i.e. year-1900
    fPass17A.fFileTime = fData->fFileTime;
    fgets(dummy, 300, f);  // 
    fgets(dummy, 300, f);  // --- 
    fgets(dummy, 300, f);  // --- 
    fgets(dummy, 300, f);  //  RunNum  Trigger Table ...
    
    
    while(fscanf(f,"%s", dummy) != -1){
      if(strncmp(dummy,"</pre>",6)!=0) {
	fData->fRun=atoi(dummy);
	if(nPass17aRuns<NRUNS)  pass17aRuns[nPass17aRuns]=fData->fRun;
	nPass17aRuns++;
	if(fPass17A.fFirstRun==0) fPass17A.fFirstRun=fData->fRun;
	fscanf(f,"%s %d %d.%d.%d", fData->fTable, &fData->fVersion, &year, &month, &day);
	
	fscanf(f,"%d:%d:%d %s %s %s", &hour, &min, &sec, fData->fProcess, fData->fPass, dummy);
	(fData->fRunTime).Set(year-1900, month, day, hour, min, sec); // watch out: year must be 95<year<199, i.e. year-1900
	if(strncmp(dummy,"is",2)==0) { // missing calibration
	  fscanf(f,"%s %s", dummy, dummy);
	  fData->fNameTag=fData->fProdVersion=fData->fJobset=0; 
	  strcpy(fData->fStatus,"MISSING");
	  strcpy(fData->fUser," ");
	  if(strstr(fData->fTable,"TEST")==NULL) {  // skip test runs
	    if(fData->fRun < fPass17A.fFirstMissingRun) {
	      fPass17A.fFirstMissingRun=fData->fRun;
	      fPass17A.fFirstMissingTime=fData->fRunTime;
	    }
	    if(fData->fRun > fPass17A.fLastMissingRun) {
	      fPass17A.fLastMissingRun=fData->fRun;
	      fPass17A.fLastMissingTime=fData->fRunTime;
	    }
	    if(fPass17A.fNumMissingRuns<NRUNS) {
	      fPass17A.fMissingRuns[fPass17A.fNumMissingRuns]=fData->fRun;  
	      fPass17A.fMissingRunsTime[fPass17A.fNumMissingRuns]=fData->fRunTime;
	      tDiff = now.Convert()- fData->fRunTime.Convert();
	      if(tDiff>(fPars.maxDaysMissWPass17A*ONEDAY) && tDiff<=(fPars.maxDaysMissEPass17A*ONEDAY)) fPass17A.fMissingRunsCode[fPass17A.fNumMissingRuns]=1;
	      if(tDiff>(fPars.maxDaysMissEPass17A*ONEDAY)) fPass17A.fMissingRunsCode[fPass17A.fNumMissingRuns]=2;
	      fPass17A.fMissingRunsMaxTime = MAX(fPass17A.fMissingRunsMaxTime, tDiff);
	      fPass17A.fNumMissingRuns++;
	    }
	  }
	} else { // calibration available
	  fData->fNameTag=atoi(dummy);
	  fscanf(f,"%d %s %d", &fData->fProdVersion, fData->fStatus, &fData->fJobset);
	  fscanf(f,"%s %s %d %d:%d:%d %d %s", dummy, mon, &day, &hour, &min, &sec, &year, fData->fUser);
	  for(int i=0; i<12; i++) if(strncmp(mon, Month[i],3)==0) month=i+1;
	  (fData->fCalTime).Set(year-1900, month, day, hour, min, sec); // watch out: year must be 95<year<199, i.e. year-1900
	  if(strstr(fData->fTable,"TEST")==NULL) {  // skip test runs
	    if(fData->fRun > fPass17A.fLastAvailRun) {
	      fPass17A.fLastAvailRun=fData->fRun;
	      fPass17A.fLastAvailTime=fData->fRunTime;
	    }
	  }
	}
      } // endif no </pre>
    }  // end while loop
    
    fclose(f);
  } // if exists

  //  3) CotBeam

  if(fCotBeam.fExist) {
    fCotBeam.fMissingRunsMaxTime = 0;
    f = fopen(fCotBeam.fFileName,"r");
    
    // let's skip all comments
    
    fscanf(f,"%s", dummy); // <pre>
    fscanf(f,"%s %s %d %d:%d:%d %s %d", dummy, mon, &day, &hour, &min, &sec, dummy, &year);
    
    for(int i=0; i<12; i++) if(strncmp(mon, Month[i],3)==0) month=i+1;
    (fData->fFileTime).Set(year-1900, month, day, hour, min, sec);  // watch out: year must be 95<year<199, i.e. year-1900
    fCotBeam.fFileTime = fData->fFileTime;    
    fscanf(f,"%s", dummy); // <start>
    fgets(dummy, 300, f);  //
    fgets(dummy, 300, f);  // --- 
    fgets(dummy, 300, f);  // --- 
    fgets(dummy, 300, f);  // // RunNum  Trigger Table ...

    while(fscanf(f,"%s", dummy) != -1){
      if(strncmp(dummy,"</pre>",6)!=0) {
	fData->fRun=atoi(dummy);
	if(fCotBeam.fFirstRun==0) fCotBeam.fFirstRun=fData->fRun;
	fscanf(f,"%s %d %d.%d.%d", fData->fTable, &fData->fVersion, &year, &month, &day);
	fscanf(f,"%d:%d:%d %s %s", &hour, &min, &sec, fData->fProcess, fData->fPass);
	(fData->fRunTime).Set(year-1900, month, day, hour, min, sec); // watch out: year must be 95<year<199, i.e. year-1900
	if(strncmp(fData->fPass,"is",2)==0) { // missing calibration
	  fscanf(f,"%s %s", dummy, dummy);
	  fData->fNameTag=fData->fProdVersion=fData->fJobset=0; 
	  strcpy(fData->fStatus,"MISSING");
	  strcpy(fData->fUser," ");
	  if(strstr(fData->fTable,"TEST")==NULL) { // skip test runs
	    if(fData->fRun < fCotBeam.fFirstMissingRun) {
	      fCotBeam.fFirstMissingRun=fData->fRun;
	      fCotBeam.fFirstMissingTime=fData->fRunTime;
	    }
	    if(fData->fRun > fCotBeam.fLastMissingRun) {
	      fCotBeam.fLastMissingRun=fData->fRun;
	      fCotBeam.fLastMissingTime=fData->fRunTime;
	    }
	    if(fCotBeam.fNumMissingRuns<NRUNS) {
	      fCotBeam.fMissingRuns[fCotBeam.fNumMissingRuns]=fData->fRun;  
	      fCotBeam.fMissingRunsTime[fCotBeam.fNumMissingRuns]=fData->fRunTime;
	      tDiff = now.Convert()- fData->fRunTime.Convert();
	      if(tDiff>(fPars.maxDaysMissWCotBeam*ONEDAY) && tDiff<=(fPars.maxDaysMissECotBeam*ONEDAY)) fCotBeam.fMissingRunsCode[fCotBeam.fNumMissingRuns]=1;
	      if(tDiff>(fPars.maxDaysMissECotBeam*ONEDAY)) fCotBeam.fMissingRunsCode[fCotBeam.fNumMissingRuns]=2;
	      fCotBeam.fMissingRunsMaxTime = MAX(fCotBeam.fMissingRunsMaxTime, tDiff);
	      fCotBeam.fNumMissingRuns++;
	    }
	  }
	} else { // calibration available
	  fData->fNameTag = atoi(fData->fPass);
	  strcpy(fData->fPass," ");
	  fscanf(f,"%d %s %d", &fData->fProdVersion, fData->fStatus, &fData->fJobset);
	  fscanf(f,"%s %s %d %d:%d:%d %d %s", dummy, mon, &day, &hour, &min, &sec, &year, fData->fUser);
	  for(int i=0; i<12; i++) if(strncmp(mon, Month[i],3)==0) month=i+1;
	  (fData->fCalTime).Set(year-1900, month, day, hour, min, sec); // watch out: year must be 95<year<199, i.e. year-1900
	  if(strstr(fData->fTable,"TEST")==NULL) {  // skip test runs
	    if(fData->fRun > fCotBeam.fLastAvailRun) {
	      fCotBeam.fLastAvailRun=fData->fRun;
	      fCotBeam.fLastAvailTime=fData->fRunTime;
	    }
	    notInPass=true;
	    for(int i=0; i<nPass17aRuns; i++) {
	      if(fData->fRun==pass17aRuns[i]) notInPass=false;
	    }
	    if(notInPass) {
	      fCotBeam.fRunsNotinPass[fCotBeam.fNumRunsNotinPass]=fData->fRun;
	      fCotBeam.fNumRunsNotinPass++;
	    }
	  }
	}
      } // endif no </pre>
    }  // end while loop
    fclose(f);
  } // if exists

  //  4) SvxBeam

  if(fSvxBeam.fExist) {
    fSvxBeam.fMissingRunsMaxTime = 0;
    f = fopen(fSvxBeam.fFileName,"r");
    // let's skip all comments
    
    fscanf(f,"%s", dummy); // <pre>
    fscanf(f,"%s %s %d %d:%d:%d %s %d", dummy, mon, &day, &hour, &min, &sec, dummy, &year);
    for(int i=0; i<12; i++) if(strncmp(mon, Month[i],3)==0) month=i+1;
    (fData->fFileTime).Set(year-1900, month, day, hour, min, sec);  // watch out: year must be 95<year<199, i.e. year-1900
    fSvxBeam.fFileTime = fData->fFileTime;     
    fscanf(f,"%s", dummy); // <start>
    fgets(dummy, 300, f);  //
    fgets(dummy, 300, f);  // --- 
    fgets(dummy, 300, f);  // --- 
    fgets(dummy, 300, f);  // // RunNum  Trigger Table ...
 
    
    while(fscanf(f,"%s", dummy) != -1){
      if(strncmp(dummy,"</pre>",6)!=0) {
	fData->fRun=atoi(dummy);
	if(fSvxBeam.fFirstRun==0) fSvxBeam.fFirstRun=fData->fRun;
	fscanf(f,"%s %d %d.%d.%d", fData->fTable, &fData->fVersion, &year, &month, &day);
	fscanf(f,"%d:%d:%d %s %s", &hour, &min, &sec, fData->fProcess, fData->fPass);
	(fData->fRunTime).Set(year-1900, month, day, hour, min, sec); // watch out: year must be 95<year<199, i.e. year-1900
	if(strncmp(fData->fPass,"is",2)==0) { // missing calibration
	  fscanf(f,"%s %s", dummy, dummy);
	  fData->fNameTag=fData->fProdVersion=fData->fJobset=0; 
	  strcpy(fData->fStatus,"MISSING");
	  strcpy(fData->fUser," ");
	  if(strstr(fData->fTable,"TEST")==NULL) {  // skip test runs
	    if(fData->fRun < fSvxBeam.fFirstMissingRun) {
	      fSvxBeam.fFirstMissingRun=fData->fRun;
	      fSvxBeam.fFirstMissingTime=fData->fRunTime;
	    }
	    if(fData->fRun > fSvxBeam.fLastMissingRun) {
	      fSvxBeam.fLastMissingRun=fData->fRun;
	      fSvxBeam.fLastMissingTime=fData->fRunTime;
	    }
	    if(fSvxBeam.fNumMissingRuns<NRUNS) {
	      fSvxBeam.fMissingRuns[fSvxBeam.fNumMissingRuns]=fData->fRun;  
	      fSvxBeam.fMissingRunsTime[fSvxBeam.fNumMissingRuns]=fData->fRunTime;
	      tDiff = now.Convert()- fData->fRunTime.Convert();
	      if(tDiff>(fPars.maxDaysMissWSvxBeam*ONEDAY) && tDiff<=(fPars.maxDaysMissESvxBeam*ONEDAY)) fSvxBeam.fMissingRunsCode[fSvxBeam.fNumMissingRuns]=1;
	      if(tDiff>(fPars.maxDaysMissESvxBeam*ONEDAY)) fSvxBeam.fMissingRunsCode[fSvxBeam.fNumMissingRuns]=2;
	      fSvxBeam.fMissingRunsMaxTime = MAX(fSvxBeam.fMissingRunsMaxTime, tDiff);
	      fSvxBeam.fNumMissingRuns++;
	    }
	  }
	} else { // calibration available
	  fData->fNameTag = atoi(fData->fPass);
	  strcpy(fData->fPass," ");
	  fscanf(f,"%d %s %d", &fData->fProdVersion, fData->fStatus, &fData->fJobset);
	  fscanf(f,"%s %s %d %d:%d:%d %d %s", dummy, mon, &day, &hour, &min, &sec, &year, fData->fUser);
	  for(int i=0; i<12; i++) if(strncmp(mon, Month[i],3)==0) month=i+1;
	  (fData->fCalTime).Set(year-1900, month, day, hour, min, sec); // watch out: year must be 95<year<199, i.e. year-1900
	  if(strstr(fData->fTable,"TEST")==NULL) {  // skip test runs
	    if(fData->fRun > fSvxBeam.fLastAvailRun) {
	      fSvxBeam.fLastAvailRun=fData->fRun;
	      fSvxBeam.fLastAvailTime=fData->fRunTime;
	    }
	    notInPass=true;
	    for(int i=0; i<nPass17aRuns; i++) {
	      if(fData->fRun==pass17aRuns[i]) notInPass=false;
	    }
	    if(notInPass) {
	      fSvxBeam.fRunsNotinPass[fSvxBeam.fNumRunsNotinPass]=fData->fRun;
	      fSvxBeam.fNumRunsNotinPass++;
	    }
	  }
	}
      } // endif no </pre>
    }  // end while loop
    fclose(f);
  } // if exists


  //  5) CotSet

  if(fCotSet.fExist) {
    fCotSet.fMissingRunsMaxTime = 0;
    f = fopen(fCotSet.fFileName,"r");
    // let's skip all comments
    
    
    fscanf(f,"%s", dummy); // <pre>
    fscanf(f,"%s %s %d %d:%d:%d %s %d", dummy, mon, &day, &hour, &min, &sec, dummy, &year);
    for(int i=0; i<12; i++) if(strncmp(mon, Month[i],3)==0) month=i+1;
    (fData->fFileTime).Set(year-1900, month, day, hour, min, sec);  // watch out: year must be 95<year<199, i.e. year-1900
    fCotSet.fFileTime = fData->fFileTime;     
    fscanf(f,"%s", dummy); // <start>
    fgets(dummy, 300, f);  //
    fgets(dummy, 300, f);  // --- 
    fgets(dummy, 300, f);  // --- 
    fgets(dummy, 300, f);  // // RunNum  Trigger Table ...
    
    while(fscanf(f,"%s", dummy) != -1){
      if(strncmp(dummy,"</pre>",6)!=0) {
	fData->fRun=atoi(dummy);
	if(fCotSet.fFirstRun==0) fCotSet.fFirstRun=fData->fRun;
	fscanf(f,"%s %d %d.%d.%d", fData->fTable, &fData->fVersion, &year, &month, &day);
	
	fscanf(f,"%d:%d:%d %s %s", &hour, &min, &sec, fData->fProcess, fData->fPass);
	(fData->fRunTime).Set(year-1900, month, day, hour, min, sec); // watch out: year must be 95<year<199, i.e. year-1900
	if(strncmp(fData->fPass,"is",2)==0) { // missing calibration
	  fscanf(f,"%s %s", dummy, dummy);
	  fData->fNameTag=fData->fProdVersion=fData->fJobset=0; 
	  strcpy(fData->fStatus,"MISSING");
	  strcpy(fData->fUser," ");
	  if(strstr(fData->fTable,"TEST")==NULL) { // skip test runs
	    if(fData->fRun < fCotSet.fFirstMissingRun) {
	      fCotSet.fFirstMissingRun=fData->fRun;
	      fCotSet.fFirstMissingTime=fData->fRunTime;
	    }
	    if(fData->fRun > fCotSet.fLastMissingRun) {
	      fCotSet.fLastMissingRun=fData->fRun;
	      fCotSet.fLastMissingTime=fData->fRunTime;
	    }
	    if(fCotSet.fNumMissingRuns<NRUNS) {
	      fCotSet.fMissingRuns[fCotSet.fNumMissingRuns]=fData->fRun;  
	      fCotSet.fMissingRunsTime[fCotSet.fNumMissingRuns]=fData->fRunTime;
	      tDiff = now.Convert()- fData->fRunTime.Convert();
	      if(tDiff>(fPars.maxHoursMissWCotSet*ONEHOUR) && tDiff<=(fPars.maxHoursMissECotSet*ONEHOUR)) fCotSet.fMissingRunsCode[fCotSet.fNumMissingRuns]=1;
	      if(tDiff>(fPars.maxHoursMissECotSet*ONEHOUR)) fCotSet.fMissingRunsCode[fCotSet.fNumMissingRuns]=2;
	      fCotSet.fMissingRunsMaxTime = MAX(fCotSet.fMissingRunsMaxTime, tDiff);
	      fCotSet.fNumMissingRuns++;
	    }
	  }
	} else { // calibration available
	  fData->fNameTag = atoi(fData->fPass);
	  strcpy(fData->fPass," ");
	  fscanf(f,"%d %s %d", &fData->fProdVersion, fData->fStatus, &fData->fJobset);
	  fscanf(f,"%s %s %d %d:%d:%d %d %s", dummy, mon, &day, &hour, &min, &sec, &year, fData->fUser);
	  for(int i=0; i<12; i++) if(strncmp(mon, Month[i],3)==0) month=i+1;
	  (fData->fCalTime).Set(year-1900, month, day, hour, min, sec); // watch out: year must be 95<year<199, i.e. year-1900
	  if(strstr(fData->fTable,"TEST")==NULL) {  // skip test runs
	    if(fData->fRun > fCotSet.fLastAvailRun) {
	      fCotSet.fLastAvailRun=fData->fRun;
	      fCotSet.fLastAvailTime=fData->fRunTime;
	    }
	    notInPass=true;
	    for(int i=0; i<nPass10aRuns; i++) {
	      if(fData->fRun==pass10aRuns[i]) notInPass=false;
	    }
	    if(notInPass) {
	      fCotSet.fRunsNotinPass[fCotSet.fNumRunsNotinPass]=fData->fRun;
	      fCotSet.fNumRunsNotinPass++;
	    }
	  }
	}
      } // endif no </pre>
    }  // end while loop
    fclose(f);
  } // if exists


  //  6) SvxSet

  f = fopen(fSvxSet.fFileName,"r");
  // let's skip all comments

  if(fSvxSet.fExist) {
    fSvxSet.fMissingRunsMaxTime = 0;
    fscanf(f,"%s", dummy); // <pre> 
    fscanf(f,"%s %s %d %d:%d:%d %s %d", dummy, mon, &day, &hour, &min, &sec, dummy, &year);
    for(int i=0; i<12; i++) if(strncmp(mon, Month[i],3)==0) month=i+1;
    (fData->fFileTime).Set(year-1900, month, day, hour, min, sec);  // watch out: year must be 95<year<199, i.e. year-1900
    fSvxSet.fFileTime = fData->fFileTime;     
    fscanf(f,"%s", dummy); // <start>
    fgets(dummy, 300, f);  //
    fgets(dummy, 300, f);  // --- 
    fgets(dummy, 300, f);  // --- 
    fgets(dummy, 300, f);  // // RunNum  Trigger Table ...
    
    while(fscanf(f,"%s", dummy) != -1){
      if(strncmp(dummy,"</pre>",6)!=0) {
	fData->fRun=atoi(dummy);
	if(fSvxSet.fFirstRun==0) fSvxSet.fFirstRun=fData->fRun;
	fscanf(f,"%s %d %d.%d.%d", fData->fTable, &fData->fVersion, &year, &month, &day);
	
	fscanf(f,"%d:%d:%d %s %s", &hour, &min, &sec, fData->fProcess, fData->fPass);
	(fData->fRunTime).Set(year-1900, month, day, hour, min, sec); // watch out: year must be 95<year<199, i.e. year-1900
	if(strncmp(fData->fPass,"is",2)==0) { // missing calibration
	  fscanf(f,"%s %s", dummy, dummy);
	  fData->fNameTag=fData->fProdVersion=fData->fJobset=0; 
	  strcpy(fData->fStatus,"MISSING");
	  strcpy(fData->fUser," ");
	  if(strstr(fData->fTable,"TEST")==NULL) { // skip test runs
	    if(fData->fRun < fSvxSet.fFirstMissingRun) {
	      fSvxSet.fFirstMissingRun=fData->fRun;
	      fSvxSet.fFirstMissingTime=fData->fRunTime;
	    }
	    if(fData->fRun > fSvxSet.fLastMissingRun) {
	      fSvxSet.fLastMissingRun=fData->fRun;
	      fSvxSet.fLastMissingTime=fData->fRunTime;
	    }
	    if(fSvxSet.fNumMissingRuns<NRUNS) {
	      fSvxSet.fMissingRuns[fSvxSet.fNumMissingRuns]=fData->fRun;  
	      fSvxSet.fMissingRunsTime[fSvxSet.fNumMissingRuns]=fData->fRunTime;
	      tDiff = now.Convert()- fData->fRunTime.Convert();
	      if(tDiff>(fPars.maxHoursMissWSvxSet*ONEHOUR) && tDiff<=(fPars.maxHoursMissESvxSet*ONEHOUR)) fSvxSet.fMissingRunsCode[fSvxSet.fNumMissingRuns]=1;
	      if(tDiff>(fPars.maxHoursMissESvxSet*ONEHOUR)) fSvxSet.fMissingRunsCode[fSvxSet.fNumMissingRuns]=2;
	      fSvxSet.fMissingRunsMaxTime = MAX(fSvxSet.fMissingRunsMaxTime, tDiff);
	      fSvxSet.fNumMissingRuns++;
	    }
	  }
	} else {  // calibration available
	  fData->fNameTag = atoi(fData->fPass);
	  strcpy(fData->fPass," ");
	  fscanf(f,"%d %s %d", &fData->fProdVersion, fData->fStatus, &fData->fJobset);
	  fscanf(f,"%s %s %d %d:%d:%d %d %s", dummy, mon, &day, &hour, &min, &sec, &year, fData->fUser);
	  for(int i=0; i<12; i++) if(strncmp(mon, Month[i],3)==0) month=i+1;
	  (fData->fCalTime).Set(year-1900, month, day, hour, min, sec); // watch out: year must be 95<year<199, i.e. year-1900
	  if(strstr(fData->fTable,"TEST")==NULL) {  // skip test runs	  
	    if(fData->fRun > fSvxSet.fLastAvailRun) {
	      fSvxSet.fLastAvailRun=fData->fRun;
	      fSvxSet.fLastAvailTime=fData->fRunTime;
	    }
	    notInPass=true;
	    for(int i=0; i<nPass10aRuns; i++) {
	      if(fData->fRun==pass10aRuns[i]) notInPass=false;
	    }
	    if(notInPass) {
	      fSvxSet.fRunsNotinPass[fSvxSet.fNumRunsNotinPass]=fData->fRun;
	      fSvxSet.fNumRunsNotinPass++;
	    }
	  }
	}
      } // endif no </pre>
    }  // end while loop

    fclose(f);
  } // if exist

  return 0;
  }

//_____________________________________________________________________________
int TCalibrationsMonitor::MakePlots(const char* HtmlFile) {

#define max(A,B) ((A)>(B)?(A):(B))

  printf(" inside TCalibrationsMonitor::MakePlots()\n"); // AC

  TDatime now;
  int tDiff;

  // just fills the Status
  int code;

//   if(fPass10A.fNumOldRuns>0) fPass10A.fStatus=1;
//   if(fPass10A.fNumXOldRuns>0)  fPass10A.fStatus=2;
  code=0;
  if(fPass10A.fNumMissingRuns>0) {
    for(int i=0; i<fPass10A.fNumMissingRuns; i++) {  
      if(fPass10A.fMissingRunsCode[i]==1) code = max(code, 1);
      if(fPass10A.fMissingRunsCode[i]==2) code = max(code, 2);
    }
  }
  fPass10A.fStatus = code;
  tDiff = now.Convert() - fPass10A.fFileTime.Convert(); 
  if(!fPass10A.fExist || tDiff > 2.*ONEHOUR) fPass10A.fStatus=4;  

//   if(fPass17A.fNumOldRuns>0) fPass17A.fStatus=1;
//   if(fPass17A.fNumXOldRuns>0)  fPass17A.fStatus=2;
  code=0;
  if(fPass17A.fNumMissingRuns>0) {
    for(int i=0; i<fPass17A.fNumMissingRuns; i++) {  
      if(fPass17A.fMissingRunsCode[i]==1) code = max(code, 1);
      if(fPass17A.fMissingRunsCode[i]==2) code = max(code, 2);
    }
  }
  fPass17A.fStatus = code;
  tDiff = now.Convert() - fPass17A.fFileTime.Convert(); 
  if(!fPass17A.fExist || tDiff > 2.*ONEHOUR) fPass17A.fStatus=4; 

//   if(fCotBeam.fNumOldRuns>0) fCotBeam.fStatus=1;
//   if(fCotBeam.fNumXOldRuns>0)  fCotBeam.fStatus=2;
  code=0;
  if(fCotBeam.fNumMissingRuns>0) {
    for(int i=0; i<fCotBeam.fNumMissingRuns; i++) {    
      if(fCotBeam.fMissingRunsCode[i]==1) code = max(code, 1);
      if(fCotBeam.fMissingRunsCode[i]==2) code = max(code, 2);
    }
  }
  fCotBeam.fStatus = code;
  tDiff = now.Convert() - fCotBeam.fFileTime.Convert(); 
  if(!fCotBeam.fExist || tDiff > 2.*ONEHOUR) fCotBeam.fStatus=4; 
  
//   if(fSvxBeam.fNumOldRuns>0) fSvxBeam.fStatus=1;
//   if(fSvxBeam.fNumXOldRuns>0)  fSvxBeam.fStatus=2;
  code=0;
  if(fSvxBeam.fNumMissingRuns>0) {
    for(int i=0; i<fSvxBeam.fNumMissingRuns; i++) {    
      if(fSvxBeam.fMissingRunsCode[i]==1) code = max(code, 1);
      if(fSvxBeam.fMissingRunsCode[i]==2) code = max(code, 2);
    }
  }
  fSvxBeam.fStatus = code;
  tDiff = now.Convert() - fSvxBeam.fFileTime.Convert(); 
  if(!fSvxBeam.fExist || tDiff > 2.*ONEHOUR) fSvxBeam.fStatus=4; 

//   if(fCotSet.fNumOldRuns>0) fCotSet.fStatus=1;
//   if(fCotSet.fNumXOldRuns>0)  fCotSet.fStatus=2;
  code=0;
  if(fCotSet.fNumMissingRuns>0) {
    for(int i=0; i<fCotSet.fNumMissingRuns; i++) {   
      if(fCotSet.fMissingRunsCode[i]==1) code = max(code, 1);
      if(fCotSet.fMissingRunsCode[i]==2) code = max(code, 2);
    }
  }
  fCotSet.fStatus = code;
  tDiff = now.Convert() - fCotSet.fFileTime.Convert(); 
  if(!fCotSet.fExist || tDiff > 2.*ONEHOUR) fCotSet.fStatus=4; 

//   if(fSvxSet.fNumOldRuns>0) fSvxSet.fStatus=1;
//   if(fSvxSet.fNumXOldRuns>0)  fSvxSet.fStatus=2;
  code=0;
  if(fSvxSet.fNumMissingRuns>0) {
    for(int i=0; i<fSvxSet.fNumMissingRuns; i++) {    
      if(fSvxSet.fMissingRunsCode[i]==1) code = max(code, 1);
      if(fSvxSet.fMissingRunsCode[i]==2) code = max(code, 2);
    }
  }
  fSvxSet.fStatus = code;
  tDiff = now.Convert() - fSvxSet.fFileTime.Convert(); 
  if(!fSvxSet.fExist || tDiff > 2.*ONEHOUR) fSvxSet.fStatus=4;   
  
  TString statusFile;
  
  statusFile = fHtmlDirectory + "/Status.dat";
  
  FILE* fOut = fopen(statusFile,"w");
  fprintf(fOut,"%d %d %d %d %d %d\n", fPass10A.fStatus, fPass17A.fStatus, fCotBeam.fStatus, fSvxBeam.fStatus, fCotSet.fStatus, fSvxSet.fStatus);
  fprintf(fOut,"%s", now.AsSQLString());
  fclose(fOut); 


  return 0; 
}


//_____________________________________________________________________________
int TCalibrationsMonitor::MakeHtml(const char* HtmlFile) {
  // input file is always a raw data file...


  printf(" inside TCalibrationsMonitor::MakeHtml()\n"); // AC

  char * wwwBase={"http://www-cdf.fnal.gov/offline/monitoring/"};


  TDatime now;
  FILE* page;

  const char* mon_dir = gSystem->Getenv("OFFLINE_MON_DIR");

  TString inFile, outFile;
 
  // first the time-stamp file

  TString psFile, gifFile;
  char command[400];
  char cFileName[200];

  int calibStatus=0;

  if(fPass10A.fStatus==1 || fPass17A.fStatus==1 || fCotBeam.fStatus==1 || fSvxBeam.fStatus==1 || fCotSet.fStatus==1 || fSvxSet.fStatus==1) calibStatus=1;

  if(fPass10A.fStatus==2 || fPass17A.fStatus==2 || fCotBeam.fStatus==2 || fSvxBeam.fStatus==2 || fCotSet.fStatus==2 || fSvxSet.fStatus==2) calibStatus=2;

  if(fPass10A.fStatus==4 || fPass17A.fStatus==4 || fCotBeam.fStatus==4 || fSvxBeam.fStatus==4 || fCotSet.fStatus==4 || fSvxSet.fStatus==4) calibStatus=4;


  TCanvas * ctime = new TCanvas("ctime","ctime",250,80);
  TPaveText * ptime = new TPaveText(0.,0.,1.,1.);
  char timeLabel[100];
  sprintf(timeLabel, "%s", now.AsString());
  TText *txt = ptime->AddText(timeLabel);
  if(calibStatus==0) txt->SetTextColor(kGreen);
  if(calibStatus==1) txt->SetTextColor(kYellow);
  if(calibStatus==2) txt->SetTextColor(kRed);
  ptime->Draw();
  psFile = fHtmlDirectory + "/Time.eps"; 
  gifFile = fHtmlDirectory + "/Time.gif"; 
  ctime->Print(psFile);
  sprintf(command,"pstopnm -ppm -xborder 0 -yborder 0 -portrait %s",  psFile.Data());
  gSystem->Exec(command); 
  sprintf(command,"ppmtogif %s001.ppm > %s",   psFile.Data(), gifFile.Data());
  gSystem->Exec(command);
  sprintf(command,"rm -f %s001.ppm", psFile.Data());
  gSystem->Exec(command);


  // all passes

  // Pass10A
  if(fPass10A.fStatus==0) inFile = TString(mon_dir) + "/greenball.gif";
  if(fPass10A.fStatus==1) inFile = TString(mon_dir) + "/yelball.gif";
  if(fPass10A.fStatus==2) inFile = TString(mon_dir) + "/redball.gif";
  if(fPass10A.fStatus==4) inFile = TString(mon_dir) + "/down.gif";
  outFile = fHtmlDirectory + "/Pass10A.gif";
  gSystem->CopyFile(inFile.Data(), outFile.Data(), kTRUE);

  // Pass17A
  if(fPass17A.fStatus==0) inFile = TString(mon_dir) + "/greenball.gif";
  if(fPass17A.fStatus==1) inFile = TString(mon_dir) + "/yelball.gif";
  if(fPass17A.fStatus==2) inFile = TString(mon_dir) + "/redball.gif";
  if(fPass17A.fStatus==4) inFile = TString(mon_dir) + "/down.gif";
  outFile = fHtmlDirectory + "/Pass17A.gif";
  gSystem->CopyFile(inFile.Data(), outFile.Data(), kTRUE);

  // CotBeam
  if(fCotBeam.fStatus==0) inFile = TString(mon_dir) + "/greenball.gif";
  if(fCotBeam.fStatus==1) inFile = TString(mon_dir) + "/yelball.gif";
  if(fCotBeam.fStatus==2) inFile = TString(mon_dir) + "/redball.gif";
  if(fCotBeam.fStatus==4) inFile = TString(mon_dir) + "/down.gif";
  outFile = fHtmlDirectory + "/CotBeam.gif";
  gSystem->CopyFile(inFile.Data(), outFile.Data(), kTRUE);

  // SvxBeam
  if(fSvxBeam.fStatus==0) inFile = TString(mon_dir) + "/greenball.gif";
  if(fSvxBeam.fStatus==1) inFile = TString(mon_dir) + "/yelball.gif";
  if(fSvxBeam.fStatus==2) inFile = TString(mon_dir) + "/redball.gif";
  if(fSvxBeam.fStatus==4) inFile = TString(mon_dir) + "/down.gif";
  outFile = fHtmlDirectory + "/SvxBeam.gif";
  gSystem->CopyFile(inFile.Data(), outFile.Data(), kTRUE);

  // CotSet
  if(fCotSet.fStatus==0) inFile = TString(mon_dir) + "/greenball.gif";
  if(fCotSet.fStatus==1) inFile = TString(mon_dir) + "/yelball.gif";
  if(fCotSet.fStatus==2) inFile = TString(mon_dir) + "/redball.gif";
  if(fCotSet.fStatus==4) inFile = TString(mon_dir) + "/down.gif";
  outFile = fHtmlDirectory + "/CotSet.gif";
  gSystem->CopyFile(inFile.Data(), outFile.Data(), kTRUE);

  // SvxSet
  if(fSvxSet.fStatus==0) inFile = TString(mon_dir) + "/greenball.gif";
  if(fSvxSet.fStatus==1) inFile = TString(mon_dir) + "/yelball.gif";
  if(fSvxSet.fStatus==2) inFile = TString(mon_dir) + "/redball.gif";
  if(fSvxSet.fStatus==4) inFile = TString(mon_dir) + "/down.gif";
  outFile = fHtmlDirectory + "/SvxSet.gif";
  gSystem->CopyFile(inFile.Data(), outFile.Data(), kTRUE);




  // now global
  if(calibStatus==0) inFile = TString(mon_dir) + "/greenball.gif";
  if(calibStatus==1) inFile = TString(mon_dir) + "/yelball.gif";
  if(calibStatus==2) inFile = TString(mon_dir) + "/redball.gif";
  if(calibStatus==4) inFile = TString(mon_dir) + "/down.gif";
  outFile = fHtmlDirectory + "/All.gif";
  gSystem->CopyFile(inFile.Data(), outFile.Data(), kTRUE);


  char date1[20],date2[20];
  int code;
  int tDiff;
  int diffHours, hoursW, hoursE;

  TString htmlFile;



  // first we fill each single HTML  page

  // Pass10A status
  htmlFile = fHtmlDirectory + "/Pass10A.html";


  page = fopen(htmlFile,"w");


  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<head>\n");
  fprintf(page,"<script type=text/javascript>\n");
  fprintf(page,"<!--\n");
  fprintf(page,"function popup(mylink, windowname)\n");
  fprintf(page,"{\n");
  fprintf(page,"if (! window.focus)return true;\n");
  fprintf(page,"var href;\n");
  fprintf(page,"if (typeof(mylink) == 'string')\n");
  fprintf(page,"   href=mylink;\n");
  fprintf(page,"else\n");
  fprintf(page,"   href=mylink.href;\n");
  fprintf(page,"window.open(href, windowname, 'width=600,height=200,scrollbars=yes');\n");
  fprintf(page,"return false;\n");
  fprintf(page,"}\n");
  fprintf(page,"//-->\n");
  fprintf(page,"</script>\n");
  fprintf(page,"</head>\n");

  fprintf(page,"<table align=left border=3 cellpadding=4 cellspacing=10 width=700><tr>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=http://www-cdf.fnal.gov/offline/monitoring/CalibrationsMonitor/Status.html>Calibrations monitor</a></font></strong></td>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=http://www-cdf.fnal.gov/offline/calibrations/prod_physics_cdf_10A.html>Pass10A monitor</a></font></strong></td>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=CalibrationsMonitor/Pass10AHelp.html>Pass10A Help</a></font></strong></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left  width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  if(fPass10A.fStatus==0) fprintf(page,"<td align=center><img src=greenball.gif height=25 width=25 alt=greenball.gif> <strong><font color=#770000 size=+4>Pass10A Status</font></strong></td>\n");
  if(fPass10A.fStatus==1) fprintf(page,"<td align=center><img src=yelball.gif height=25 width=25 alt=yelball.gif> <strong><font color=#770000 size=+4>Pass10A Status</font></strong></td>\n");
  if(fPass10A.fStatus==2 || fPass10A.fStatus==4) fprintf(page,"<td align=center><img src=redball.gif height=25 width=25 alt=redball.gif> <strong><font color=#770000 size=+4>Pass10A Status</font></strong></td>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");

  if(fPass10A.fExist) {
    code=0;
    if(fPass10A.fNumMissingRuns>0) {
      for(int i=0; i<fPass10A.fNumMissingRuns; i++) {    
	if(fPass10A.fMissingRunsCode[i]==1) code = max(code, 1);
	if(fPass10A.fMissingRunsCode[i]==2) code = max(code, 2);
      }
    }
    
    if(code==0) { 
      fprintf(page,"<b> <font color=green size=+2> <img src=greenball.gif height=17 width=17 alt=greenball.gif> Runs with missing calibration ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==1) { 
    fprintf(page,"<b> <font color=yellow size=+2> <img src=yelball.gif height=17 width=17 alt=yelball.gif> Runs with missing calibration <blink> ==> KEEP AN EYE ON THIS </blink> ");
    fprintf(page," </a></font></b>\n");
    }
    if(code==2) { 
      fprintf(page,"<b> <font color=red size=+2> <img src=redball.gif height=17 width=17 alt=redball.gif> Runs with missing calibration ");
      fprintf(page,"<blink> ==> TAKE ACTION! (click on siren) ==> </blink> <a href=CalibrationsMonitor/ActionMissingPass10A.html onClick=\"return popup(this,'notes')\">  <img src=siren.gif height=30 width=30 alt=siren.gif>  </a></font></b>\n");
    }
    
    fprintf(page,"<br clear=all>\n");
    fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    
    fprintf(page,"<h3>\n");
    if(fPass10A.fNumMissingRuns==0) fprintf(page,"<font color=green> No Run missing calibration </font><br>\n");
    for(int i=0; i<fPass10A.fNumMissingRuns; i++) {
      tDiff = now.Convert()- fPass10A.fMissingRunsTime[i].Convert();
      diffHours= tDiff/3600;
      if(fPass10A.fMissingRunsCode[i]==0) fprintf(page,"<font color=green> Run %d is missing (run is %d hours old) </font><br>\n", fPass10A.fMissingRuns[i], diffHours);
      if(fPass10A.fMissingRunsCode[i]==1) fprintf(page,"<font color=yellow> Run %d is missing (run is %d hours old) </font><br>\n", fPass10A.fMissingRuns[i], diffHours);
      if(fPass10A.fMissingRunsCode[i]==2) fprintf(page,"<font color=red> Run %d is missing (run is %d hours old) </font><br>\n", fPass10A.fMissingRuns[i], diffHours);
    }
    fprintf(page,"</h3>\n");
    fprintf(page,"<br clear=all>\n");
  } else {
    fprintf(page,"<b> <font color=red size=+4> The calibration file for Pass10A is missing !");    
  }
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<tr><td><hr noshade=1 size=4></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<td align=center width=33%><img src=greenball.gif height=17 width=17 alt=greenball.gif><font size=-1 color=green> Recent runs</font></td>\n");
  fprintf(page,"<td align=center width=33%><img src=yelball.gif height=17 width=17 alt=yelball.gif><font size=-1 color=yellow>  Not-so-recent runs</font></td>\n");
  fprintf(page,"<td align=center width=33%><img src=redball.gif height=17 width=17 alt=redball.gif><font size=-1 color=red>  Old runs</font></td>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><hr noshade=1 size=2></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><a href=http://www.fnal.gov/pub/disclaim.html>Legal Notices</a></td></tr>\n");
  fprintf(page,"<tr><td></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Brought To You By: Calibrations Monitoring</font></em></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Last updated: %s </font></em></td></tr>\n", now.AsSQLString());
  fprintf(page,"</table>\n");
  fprintf(page,"</html>\n");


  fclose(page);

  // Pass10A popup
  hoursW = static_cast<int> ( fPars.maxDaysMissWPass10A*24 );
  hoursE = static_cast<int> ( fPars.maxDaysMissEPass10A*24 );

  htmlFile = fHtmlDirectory + "/Pass10APop.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Pass10As status</title></head>\n");
  fprintf(page,"<body><h3>\n");
  fprintf(page,"The status of the Pass10A calibration depends on how old is the first run for which calibrations are not available. If it is <font color=red> more than %d hours old </font>  then the situation is declared <font color=red> 'bad' (red ball) </font>. If the first non-calibrated run is <font color=yellow> between %d and %d hours old,</font> then the situation is flagged  <font color=yellow> 'abnormal' (yellow ball).</font>  <font color=green> Otherwise (<%d hours)</font>the situation is flagged as <font color=green> 'normal' (green ball)</font>\n", hoursE, hoursW, hoursE, hoursW);
  fprintf(page,"<br>\n");
  fprintf(page,"The <font color=blue> downward arrow </font> indicates that the <font color=blue>  calibration files are missing </font>or not up-to-date then there might be problems with the cron job and the expert should be contacted.\n");
  fprintf(page,"</h3></body></html>\n");

  fclose(page);

  // Pass10A Help
  htmlFile = fHtmlDirectory + "/Pass10AHelp.html";
  page = fopen(htmlFile,"w");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<html>\n");
  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Pass10A Help</title></head>\n");
  fprintf(page,"<body><h3>\n");

  fprintf(page,"  <table align=left width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<td align=center><strong><font color=#770000 size=+4>Pass10A Help</font></strong></td>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br>\n");
  fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"This monitor shows the status of calibrations for Pass10A. The things which are monitored are essentially:\n");
  fprintf(page,"<ul>\n");
  fprintf(page,"<li> the  existence of the corresponding web page (created by a cron job)\n");
  fprintf(page,"<li> the latest occurence of calibration\n");
  fprintf(page,"</ul>\n");
  fprintf(page,"<br>\n");
  fprintf(page,"For the latest runs, if there are runs missing calibration which are  <font color=green>  no more than %d hours old</font>, the situation is flagged as  <font color=green> 'normal' (green ball)</font>.\n", hoursW);
  fprintf(page,"If there are runs missing  calibration which are <font color=yellow>between %d and %d hours old</font>, this needs attention and the status is labeled as <font color=yellow>'abnormal' (yellow)</font>. \n", hoursW, hoursE);
  fprintf(page,"If there are runs  missing  calibration which are  <font color=red>more than %d hours old</font>, then there is need for immediate action and the situation is flagged as  <font color=red>'bad' (red)</font>.\n", hoursE); 
  
  fprintf(page,"<br>\n");

  fprintf(page,"If the calibration files are missing or not up-to-date then there might be problems with the cron job and the expert should be contacted.\n");
  fprintf(page,"<br>\n");
  fprintf(page,"</b>\n");

  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><a href=http://www.fnal.gov/pub/disclaim.html>Legal Notices</a></td></tr>\n");
  fprintf(page,"<tr><td></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Brought To You By: Calibrations Monitoring</font></em></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Last updated: %s </font></em></td></tr>\n", now.AsSQLString());
  fprintf(page,"</table>\n");
  fprintf(page,"</html>\n");

  fclose(page);




  // Pass17A status
  htmlFile = fHtmlDirectory + "/Pass17A.html";


  page = fopen(htmlFile,"w");


  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<head>\n");
  fprintf(page,"<script type=text/javascript>\n");
  fprintf(page,"<!--\n");
  fprintf(page,"function popup(mylink, windowname)\n");
  fprintf(page,"{\n");
  fprintf(page,"if (! window.focus)return true;\n");
  fprintf(page,"var href;\n");
  fprintf(page,"if (typeof(mylink) == 'string')\n");
  fprintf(page,"   href=mylink;\n");
  fprintf(page,"else\n");
  fprintf(page,"   href=mylink.href;\n");
  fprintf(page,"window.open(href, windowname, 'width=600,height=200,scrollbars=yes');\n");
  fprintf(page,"return false;\n");
  fprintf(page,"}\n");
  fprintf(page,"//-->\n");
  fprintf(page,"</script>\n");
  fprintf(page,"</head>\n");

  fprintf(page,"<table align=left border=3 cellpadding=4 cellspacing=10 width=700><tr>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=http://www-cdf.fnal.gov/offline/monitoring/CalibrationsMonitor/Status.html>Calibrations monitor</a></font></strong></td>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=http://www-cdf.fnal.gov/offline/calibrations/prod_physics_cdf_17A.html>Pass17A monitor</a></font></strong></td>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=CalibrationsMonitor/Pass17AHelp.html>Pass17A Help</a></font></strong></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left  width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  if(fPass17A.fStatus==0) fprintf(page,"<td align=center><img src=greenball.gif height=25 width=25 alt=greenball.gif> <strong><font color=#770000 size=+4>Pass17A Status</font></strong></td>\n");
  if(fPass17A.fStatus==1) fprintf(page,"<td align=center><img src=yelball.gif height=25 width=25 alt=yelball.gif> <strong><font color=#770000 size=+4>Pass17A Status</font></strong></td>\n");
  if(fPass17A.fStatus==2||fPass17A.fStatus==4) fprintf(page,"<td align=center><img src=redball.gif height=25 width=25 alt=redball.gif> <strong><font color=#770000 size=+4>Pass17A Status</font></strong></td>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");

  if(fPass17A.fExist) {  
    code=0;
    if(fPass17A.fNumMissingRuns>0) {
      for(int i=0; i<fPass17A.fNumMissingRuns; i++) {    
	if(fPass17A.fMissingRunsCode[i]==1) code = max(code, 1);
	if(fPass17A.fMissingRunsCode[i]==2) code = max(code, 2);
      }
    }
    
    if(code==0) { 
      fprintf(page,"<b> <font color=green size=+2> <img src=greenball.gif height=17 width=17 alt=greenball.gif> Runs with missing calibration ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==1) { 
      fprintf(page,"<b> <font color=yellow size=+2> <img src=yelball.gif height=17 width=17 alt=yelball.gif> Runs with missing calibration <blink> ==> KEEP AN EYE ON THIS </blink>");
      fprintf(page," </a></font></b>\n");
    }
    if(code==2) { 
      fprintf(page,"<b> <font color=red size=+2> <img src=redball.gif height=17 width=17 alt=redball.gif> Runs with missing calibration ");
      fprintf(page,"  <blink> ==> TAKE ACTION! (click on siren)  ==> </blink> <a href=CalibrationsMonitor/ActionMissingPass17A.html onClick=\"return popup(this,'notes')\">  <img src=siren.gif height=30 width=30 alt=siren.gif>  </a></font></b>\n");
    }
    
    fprintf(page,"<br clear=all>\n");
    fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    
    fprintf(page,"<h3>\n");
    if(fPass17A.fNumMissingRuns==0) fprintf(page,"<font color=green> No Run missing calibration </font><br>\n");
    for(int i=0; i<fPass17A.fNumMissingRuns; i++) {
      tDiff = now.Convert()- fPass17A.fMissingRunsTime[i].Convert();
      diffHours= tDiff/3600;
      if(fPass17A.fMissingRunsCode[i]==0) fprintf(page,"<font color=green> Run %d is missing  (run is %d hours old) </font><br>\n", fPass17A.fMissingRuns[i], diffHours);
      if(fPass17A.fMissingRunsCode[i]==1) fprintf(page,"<font color=yellow> Run %d is missing  (run is %d hours old) </font><br>\n", fPass17A.fMissingRuns[i],diffHours );
      if(fPass17A.fMissingRunsCode[i]==2) fprintf(page,"<font color=red> Run %d is missing  (run is %d hours old) </font><br>\n", fPass17A.fMissingRuns[i], diffHours);
    }
    fprintf(page,"</h3>\n");
    fprintf(page,"<br clear=all>\n");
  } else {
    fprintf(page,"<b> <font color=red size=+4> The calibration file for Pass17A is missing !");    
  }    

  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<tr><td><hr noshade=1 size=4></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<td align=center width=33%><img src=greenball.gif height=17 width=17 alt=greenball.gif><font size=-1> Recent runs</font></td>\n");
  fprintf(page,"<td align=center width=33%><img src=yelball.gif height=17 width=17 alt=yelball.gif><font size=-1>  Not-so-recent runs</font></td>\n");
  fprintf(page,"<td align=center width=33%><img src=redball.gif height=17 width=17 alt=redball.gif><font size=-1>  Old runs</font></td>\n");

  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><hr noshade=1 size=2></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><a href=http://www.fnal.gov/pub/disclaim.html>Legal Notices</a></td></tr>\n");
  fprintf(page,"<tr><td></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Brought To You By: Calibrations Monitoring</font></em></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Last updated: %s </font></em></td></tr>\n", now.AsSQLString());
  fprintf(page,"</table>\n");
  fprintf(page,"</html>\n");


  fclose(page);

  // Pass17A popup
  hoursW = static_cast<int> ( fPars.maxDaysMissWPass17A*24 );
  hoursE = static_cast<int> ( fPars.maxDaysMissEPass17A*24 );

  htmlFile = fHtmlDirectory + "/Pass17APop.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Pass17As status</title></head>\n");
  fprintf(page,"<body><h3>\n");
  fprintf(page,"The status of the Pass17A calibration depends on how old is the  first run for which calibrations are not available. If it is <font color=red>more than %d hours old</font> then the situation is declared <font color=red>'bad' (red ball)</font>. If the  first non-calibrated run is  <font color=yellow> between %d and %d hours old</font>, then the situation is flagged  <font color=yellow> 'abnormal' (yellow ball)</font>. <font color=green> Otherwise  (<%d hours)</font> the situation is flagged as <font color=green> 'normal' (green ball)</font>\n", hoursE, hoursW, hoursE, hoursW);
  fprintf(page,"<br>\n");
  fprintf(page,"The <font color=blue> downward arrow </font>indicates that the  <font color=blue> calibration files are missing</font> or not up-to-date then there might be problems with the cron job and the expert should be contacted.\n");
  fprintf(page,"</h3></body></html>\n");

  fclose(page);

  // Pass17A Help
  htmlFile = fHtmlDirectory + "/Pass17AHelp.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Pass10A Help</title></head>\n");
  fprintf(page,"<body><h3>\n");

    fprintf(page,"  <table align=left width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<td align=center><strong><font color=#770000 size=+4>Pass17A Help</font></strong></td>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br>\n");
  fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"This monitor shows the status of calibrations for Pass17A. The things which are monitored are essentially:\n");
  fprintf(page,"<ul>\n");
  fprintf(page,"<li> the  existence of the corresponding web page (created by a cron job)\n");
  fprintf(page,"<li> the latest occurence of calibration\n");
  fprintf(page,"</ul>\n");
  fprintf(page,"<br>\n");
  fprintf(page,"For the latest runs, if there are runs missing calibration which are  <font color=green> no more than %d hours old</font>, the situation is flagged as <font color=green> 'normal' (green ball)</font>.\n", hoursW);
  fprintf(page,"If there are runs  missing  calibration which are  <font color=yellow>between %d and %d hours old</font>, this needs attention and the status is labeled as <font color=yellow>'abnormal' (yellow)</font>. \n", hoursW, hoursE);
  fprintf(page,"If there are runs  missing  calibration which are   <font color=red>more than %d hours old</font>, then there is need for immediate action and the situation is flagged as  <font color=red>'bad' (red)</font>.\n", hoursE); 
  
  fprintf(page,"<br>\n");

  fprintf(page,"If the calibration files are missing  or not up-to-date then there might be problems with the cron job and the expert should be contacted.\n");
  fprintf(page,"<br>\n");
  fprintf(page,"</b>\n");

  
  fprintf(page,"<br>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><a href=http://www.fnal.gov/pub/disclaim.html>Legal Notices</a></td></tr>\n");
  fprintf(page,"<tr><td></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Brought To You By: Calibrations Monitoring</font></em></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Last updated: %s </font></em></td></tr>\n", now.AsSQLString());
  fprintf(page,"</table>\n");
  fprintf(page,"</html>\n");

  fclose(page);




  // CotBeam status
  htmlFile = fHtmlDirectory + "/CotBeam.html";


  page = fopen(htmlFile,"w");


  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<head>\n");
  fprintf(page,"<script type=text/javascript>\n");
  fprintf(page,"<!--\n");
  fprintf(page,"function popup(mylink, windowname)\n");
  fprintf(page,"{\n");
  fprintf(page,"if (! window.focus)return true;\n");
  fprintf(page,"var href;\n");
  fprintf(page,"if (typeof(mylink) == 'string')\n");
  fprintf(page,"   href=mylink;\n");
  fprintf(page,"else\n");
  fprintf(page,"   href=mylink.href;\n");
  fprintf(page,"window.open(href, windowname, 'width=600,height=200,scrollbars=yes');\n");
  fprintf(page,"return false;\n");
  fprintf(page,"}\n");
  fprintf(page,"//-->\n");
  fprintf(page,"</script>\n");
  fprintf(page,"</head>\n");

  fprintf(page,"<table align=left border=3 cellpadding=4 cellspacing=10 width=700><tr>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=http://www-cdf.fnal.gov/offline/monitoring/CalibrationsMonitor/Status.html>Calibrations monitor</a></font></strong></td>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=http://www-cdf.fnal.gov/offline/calibrations/pad_physics_cotbeam.html>Pad_Physics_Cot monitor</a></font></strong></td>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=CalibrationsMonitor/CotBeamHelp.html>Pad_Physics_CotBeam Help</a></font></strong></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left  width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  if(fCotBeam.fStatus==0) fprintf(page,"<td align=center><img src=greenball.gif height=25 width=25 alt=greenball.gif> <strong><font color=#770000 size=+4>Pad_Physics_CotBeam Status</font></strong></td>\n");
  if(fCotBeam.fStatus==1) fprintf(page,"<td align=center><img src=yelball.gif height=25 width=25 alt=yelball.gif> <strong><font color=#770000 size=+4>Pad_Physics_CotBeam Status</font></strong></td>\n");
  if(fCotBeam.fStatus==2||fCotBeam.fStatus==4) fprintf(page,"<td align=center><img src=redball.gif height=25 width=25 alt=redball.gif> <strong><font color=#770000 size=+4>Pad_Physics_CotBeam Status</font></strong></td>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  
  if(fCotBeam.fExist) {
    code=0;
    if(fCotBeam.fNumMissingRuns>0) {
      for(int i=0; i<fCotBeam.fNumMissingRuns; i++) {   
	if(fCotBeam.fMissingRunsCode[i]==1) code = max(code, 1);
	if(fCotBeam.fMissingRunsCode[i]==2) code = max(code, 2);
      }
    }
    
    if(code==0) { 
      fprintf(page,"<b> <font color=green size=+2> <img src=greenball.gif height=17 width=17 alt=greenball.gif> Runs with missing calibration ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==1) { 
      fprintf(page,"<b> <font color=yellow size=+2> <img src=yelball.gif height=17 width=17 alt=yelball.gif> Runs with missing calibration <blink> ==> KEEP AN EYE ON THIS </blink> ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==2) { 
      fprintf(page,"<b> <font color=red size=+2> <img src=redball.gif height=17 width=17 alt=redball.gif> Runs with missing calibration ");
      fprintf(page," <blink> ==> TAKE ACTION! (click on siren) ==>  </blink> <a href=CalibrationsMonitor/ActionMissingCotBeam.html onClick=\"return popup(this,'notes')\">  <img src=siren.gif height=30 width=30 alt=siren.gif>  </a></font></b>\n");
    }
    
    fprintf(page,"<br clear=all>\n");
    fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    
    fprintf(page,"<h3>\n");
    if(fCotBeam.fNumMissingRuns==0) fprintf(page,"<font color=green> No Run missing calibration </font><br>\n");
    for(int i=0; i<fCotBeam.fNumMissingRuns; i++) {
      tDiff = now.Convert()- fCotBeam.fMissingRunsTime[i].Convert();
      diffHours= tDiff/3600;
      if(fCotBeam.fMissingRunsCode[i]==0) fprintf(page,"<font color=green> Run %d is missing (run is %d hours old) </font><br>\n", fCotBeam.fMissingRuns[i], diffHours);
      if(fCotBeam.fMissingRunsCode[i]==1) fprintf(page,"<font color=yellow> Run %d is missing (run is %d hours old) </font><br>\n", fCotBeam.fMissingRuns[i], diffHours);
      if(fCotBeam.fMissingRunsCode[i]==2) fprintf(page,"<font color=red> Run %d is missing (run  is %d hours old) </font><br>\n", fCotBeam.fMissingRuns[i], diffHours);
    }
    fprintf(page,"</h3>\n");
    fprintf(page,"<br clear=all>\n");
    
    if(fCotBeam.fNumRunsNotinPass>0) {
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<b> <font color=green size=+2> <img src=greenball.gif height=17 width=17 alt=greenball.gif> Runs with calibration but not in PASS17A </font></b>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<h3>\n");
      for(int i=0; i<fCotBeam.fNumRunsNotinPass; i++) {
	fprintf(page,"<font color=green> Run %d is not in PASS17A</font><br>\n", fCotBeam.fRunsNotinPass[i]);  
      }
      fprintf(page,"</h3>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    }
  } else {
    fprintf(page,"<b> <font color=red size=+4> The calibration file for Pad_Physics_CotBeam is missing !");    
  }
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<tr><td><hr noshade=1 size=4></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<td align=center width=33%><img src=greenball.gif height=17 width=17 alt=greenball.gif><font size=-1 color=green> Recent runs</font></td>\n");
  fprintf(page,"<td align=center width=33%><img src=yelball.gif height=17 width=17 alt=yelball.gif><font size=-1 color=yellow>  Not-so-recent runs</font></td>\n");
  fprintf(page,"<td align=center width=33%><img src=redball.gif height=17 width=17 alt=redball.gif><font size=-1 color=red>  Old runs</font></td>\n");

  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><hr noshade=1 size=2></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><a href=http://www.fnal.gov/pub/disclaim.html>Legal Notices</a></td></tr>\n");
  fprintf(page,"<tr><td></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Brought To You By: Calibrations Monitoring</font></em></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Last updated: %s </font></em></td></tr>\n", now.AsSQLString());
  fprintf(page,"</table>\n");
  fprintf(page,"</html>\n");


  fclose(page);

  // CotBeam popup
  htmlFile = fHtmlDirectory + "/CotBeamPop.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Pad_Physics_CotBeam status</title></head>\n");
  fprintf(page,"<body><h3>\n");
  fprintf(page,"The status of the Pad_Physics_CotBeam calibration depends on how old is the last available calibration. If it is <font color=red> more than %3.1f days old  </font> then the situation is declared <font color=red>'bad' (red ball) </font> . If the last available calibration is <font color=yellow> between %3.1f and %3.1f days old </font> , then the situation is flagged <font color=yellow>'abnormal' (yellow ball) </font> . <font color=green>Otherwise (<%3.1f days) </font> the situation is flagged as <font color=green>'normal' (green ball) </font> \n", fPars.maxDaysMissESvxBeam, fPars.maxDaysMissWSvxBeam, fPars.maxDaysMissESvxBeam, fPars.maxDaysMissWSvxBeam);
  fprintf(page,"<br>\n");
  fprintf(page,"The <font color=blue> downward arrow </font> indicates that the <font color=blue>  calibration files are missing </font>or not up-to-date then there might be problems with the cron job and the expert should be contacted.\n");
  fprintf(page,"</h3></body></html>\n");

  fclose(page);


  // CotBeam Help
  htmlFile = fHtmlDirectory + "/CotBeamHelp.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Pad_Physics_CotBeam Help</title></head>\n");
  fprintf(page,"<body><h3>\n");

    fprintf(page,"  <table align=left width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<td align=center><strong><font color=#770000 size=+4>Pad_Physics_CotBeam Help</font></strong></td>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br>\n");
  fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"This monitor shows the status of calibrations for Pad_Physics_CotBeam. The things which are monitored are essentially:\n");
  fprintf(page,"<ul>\n");
  fprintf(page,"<li> the  existence of the corresponding web page (created by a cron job)\n");
  fprintf(page,"<li> the latest occurence of calibration\n");
  fprintf(page,"</ul>\n");
  fprintf(page,"<br>\n");
  fprintf(page,"For the latest runs, if all runs have a calibration performed <font color=green>no later than %3.1f days.</font> before current time, the situation is flagged as <font color=green>'normal' (green ball).</font>\n", fPars.maxDaysMissWCotBeam);
  fprintf(page,"If there are runs whose calibration is<font color=yellow> between %3.1f and %3.1f days old.</font>, this needs attention and the status is labeled as <font color=yellow>'abnormal' (yellow</font>). \n", fPars.maxDaysMissWCotBeam, fPars.maxDaysMissECotBeam);
  fprintf(page,"If there are runs whose calibration occurred  <font color=red>more than %3.1f days ago.</font>, then there is need for immediate action and the situation is flagged as  <font color=red>'bad' (red).</font>\n", fPars.maxDaysMissECotBeam); 
  
  fprintf(page,"<br>\n");

  fprintf(page,"If the calibration files are missing  or not up-to-date then there might be problems with the cron job and the expert should be contacted.\n");
  fprintf(page,"<br>\n");
  fprintf(page,"</b>\n");

  
  fprintf(page,"<br>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><a href=http://www.fnal.gov/pub/disclaim.html>Legal Notices</a></td></tr>\n");
  fprintf(page,"<tr><td></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Brought To You By: Calibrations Monitoring</font></em></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Last updated: %s </font></em></td></tr>\n", now.AsSQLString());
  fprintf(page,"</table>\n");
  fprintf(page,"</html>\n");

  fclose(page);


  // SvxBeam status
  htmlFile = fHtmlDirectory + "/SvxBeam.html";


  page = fopen(htmlFile,"w");


  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<head>\n");
  fprintf(page,"<script type=text/javascript>\n");
  fprintf(page,"<!--\n");
  fprintf(page,"function popup(mylink, windowname)\n");
  fprintf(page,"{\n");
  fprintf(page,"if (! window.focus)return true;\n");
  fprintf(page,"var href;\n");
  fprintf(page,"if (typeof(mylink) == 'string')\n");
  fprintf(page,"   href=mylink;\n");
  fprintf(page,"else\n");
  fprintf(page,"   href=mylink.href;\n");
  fprintf(page,"window.open(href, windowname, 'width=600,height=200,scrollbars=yes');\n");
  fprintf(page,"return false;\n");
  fprintf(page,"}\n");
  fprintf(page,"//-->\n");
  fprintf(page,"</script>\n");
  fprintf(page,"</head>\n");

  fprintf(page,"<table align=left border=3 cellpadding=4 cellspacing=10 width=700><tr>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=http://www-cdf.fnal.gov/offline/monitoring/CalibrationsMonitor/Status.html>Calibrations monitor</a></font></strong></td>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=http://www-cdf.fnal.gov/offline/calibrations/pad_physics_svxbeam.html>Pad_Physics_SvxBeam monitor</a></font></strong></td>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=CalibrationsMonitor/SvxBeamHelp.html>Pad_Physics_SvxBeam Help</a></font></strong></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left  width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  if(fSvxBeam.fStatus==0) fprintf(page,"<td align=center><img src=greenball.gif height=25 width=25 alt=greenball.gif> <strong><font color=#770000 size=+4>Pad_Physics_SvxBeam Status</font></strong></td>\n");
  if(fSvxBeam.fStatus==1) fprintf(page,"<td align=center><img src=yelball.gif height=25 width=25 alt=yelball.gif> <strong><font color=#770000 size=+4>Pad_Physics_SvxBeam Status</font></strong></td>\n");
  if(fSvxBeam.fStatus==2||fSvxBeam.fStatus==4) fprintf(page,"<td align=center><img src=redball.gif height=25 width=25 alt=redball.gif> <strong><font color=#770000 size=+4>Pad_Physics_SvxBeam Status</font></strong></td>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");

  if(fSvxBeam.fExist) {    
    code=0;
    if(fSvxBeam.fNumMissingRuns>0) {
      for(int i=0; i<fSvxBeam.fNumMissingRuns; i++) {  
	if(fSvxBeam.fMissingRunsCode[i]==1) code = max(code, 1);
	if(fSvxBeam.fMissingRunsCode[i]==2) code = max(code, 2);
      }
    }
    
    if(code==0) { 
      fprintf(page,"<b> <font color=green size=+2> <img src=greenball.gif height=17 width=17 alt=greenball.gif> Runs with missing calibration ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==1) { 
      fprintf(page,"<b> <font color=yellow size=+2> <img src=yelball.gif height=17 width=17 alt=yelball.gif> Runs with missing calibration <blink> ==> KEEP AN EYE ON THIS </blink> ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==2) { 
      fprintf(page,"<b> <font color=red size=+2> <img src=redball.gif height=17 width=17 alt=redball.gif> Runs with missing calibration ");
      fprintf(page," <blink> ==> TAKE ACTION! (click on siren) ==>  </blink><a href=CalibrationsMonitor/ActionMissingSvxBeam.html onClick=\"return popup(this,'notes')\">  <img src=siren.gif height=30 width=30 alt=siren.gif>  </a></font></b>\n");
    }
    
    fprintf(page,"<br clear=all>\n");
    fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    
    fprintf(page,"<h3>\n");
    if(fSvxBeam.fNumMissingRuns==0) fprintf(page,"<font color=green> No Run missing calibration </font><br>\n");
    for(int i=0; i<fSvxBeam.fNumMissingRuns; i++) {
      tDiff = now.Convert()- fSvxBeam.fMissingRunsTime[i].Convert();
      diffHours= tDiff/3600;
      if(fSvxBeam.fMissingRunsCode[i]==0) fprintf(page,"<font color=green> Run %d is missing (run is %d hours old) </font><br>\n", fSvxBeam.fMissingRuns[i], diffHours);
      if(fSvxBeam.fMissingRunsCode[i]==1) fprintf(page,"<font color=yellow> Run %d is missing (run is %d hours old) </font><br>\n", fSvxBeam.fMissingRuns[i], diffHours);
      if(fSvxBeam.fMissingRunsCode[i]==2) fprintf(page,"<font color=red> Run %d is missing (run is %d hours old) </font><br>\n", fSvxBeam.fMissingRuns[i], diffHours);
    }
    fprintf(page,"</h3>\n");
    fprintf(page,"<br clear=all>\n");
    

    if(fSvxBeam.fNumRunsNotinPass>0) {
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<b> <font color=green size=+2> <img src=greenball.gif height=17 width=17 alt=greenball.gif> Runs with calibration but not in PASS17A </font></b>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<h3>\n");
      for(int i=0; i<fSvxBeam.fNumRunsNotinPass; i++) {
	fprintf(page,"<font color=green> Run %d is not in PASS17A</font><br>\n", fSvxBeam.fRunsNotinPass[i]);  
      }
      fprintf(page,"</h3>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    }
  } else {
    fprintf(page,"<b> <font color=red size=+4> The calibration file for Pad_Physics_SvxBeam is missing !");    
  }   
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<tr><td><hr noshade=1 size=4></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<td align=center width=33%><img src=greenball.gif height=17 width=17 alt=greenball.gif><font size=-1 color=green> Recent runs</font></td>\n");
  fprintf(page,"<td align=center width=33%><img src=yelball.gif height=17 width=17 alt=yelball.gif><font size=-1 colore=yellow>  Not-so-recent runs</font></td>\n");
  fprintf(page,"<td align=center width=33%><img src=redball.gif height=17 width=17 alt=redball.gif><font size=-1 color=red>  Old runs</font></td>\n");

  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><hr noshade=1 size=2></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><a href=http://www.fnal.gov/pub/disclaim.html>Legal Notices</a></td></tr>\n");
  fprintf(page,"<tr><td></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Brought To You By: Calibrations Monitoring</font></em></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Last updated: %s </font></em></td></tr>\n", now.AsSQLString());
  fprintf(page,"</table>\n");
  fprintf(page,"</html>\n");


  fclose(page);

  // SvxBeam popup
  htmlFile = fHtmlDirectory + "/SvxBeamPop.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Pad_Physics_SvxBeam status</title></head>\n");
  fprintf(page,"<body><h3>\n");
  fprintf(page,"The status of the Pad_Physics_SvxBeam calibration depends on how old is the last available calibration. If it is <font color=red>more than %3.1f days old </font>then the situation is declared <font color=red>'bad' (red ball)</font>. If the last available calibration is  <font color=yellow> between %3.1f and %3.1f days old</font>, then the situation is flagged  <font color=yellow>'abnormal' (yellow ball)</font>.  <font color=green>Otherwise (<%3.1f days) </font>the situation is flagged as  <font color=green>'normal' (green ball)</font>\n", fPars.maxDaysMissESvxBeam, fPars.maxDaysMissWSvxBeam, fPars.maxDaysMissESvxBeam, fPars.maxDaysMissWSvxBeam);
  fprintf(page,"<br>\n");
  fprintf(page,"The <font color=blue> downward arrow </font> indicates that the <font color=blue>  calibration files are missing </font>or not up-to-date then there might be problems with the cron job and the expert should be contacted.\n");
  fprintf(page,"</h3></body></html>\n");

  fclose(page);

  // SvxBeam Help
  htmlFile = fHtmlDirectory + "/SvxBeamHelp.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Pad_Physics_SvxBeam Help</title></head>\n");
  fprintf(page,"<body><h3>\n");

    fprintf(page,"  <table align=left width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<td align=center><strong><font color=#770000 size=+4>Pad_Physics_SvxBeam Help</font></strong></td>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br>\n");
  fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"This monitor shows the status of calibrations for Pad_Physics_SvxBeam. The things which are monitored are essentially:\n");
  fprintf(page,"<ul>\n");
  fprintf(page,"<li> the  existence of the corresponding web page (created by a cron job)\n");
  fprintf(page,"<li> the latest occurence of calibration\n");
  fprintf(page,"</ul>\n");
  fprintf(page,"<br>\n");
  fprintf(page,"For the latest runs, if there are runs missing calibration which are <font color=green> no more than %3.1f days old </font>, the situation is flagged as <font color=green>'normal' (green ball)</font>.\n", fPars.maxDaysMissWSvxBeam);
  fprintf(page,"If there are runs  missing  calibration which are <font color=yellow>  between %3.1f and %3.1f days old</font>, this needs attention and the status is labeled as <font color=yellow> 'abnormal' (yellow)</font>. \n", fPars.maxDaysMissWSvxBeam, fPars.maxDaysMissESvxBeam);
  fprintf(page,"If there are runs  missing  calibration which are  <font color=red>more than %3.1f days old</font>, then there is need for immediate action and the situation is flagged as <font color=red>'bad' (red)</font>.\n", fPars.maxDaysMissESvxBeam); 
  
  fprintf(page,"<br>\n");

  fprintf(page,"If the calibration files are missing  or not up-to-date then there might be problems with the cron job and the expert should be contacted.\n");
  fprintf(page,"<br>\n");
  fprintf(page,"</b>\n");

  
  fprintf(page,"<br>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><a href=http://www.fnal.gov/pub/disclaim.html>Legal Notices</a></td></tr>\n");
  fprintf(page,"<tr><td></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Brought To You By: Calibrations Monitoring</font></em></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Last updated: %s </font></em></td></tr>\n", now.AsSQLString());
  fprintf(page,"</table>\n");
  fprintf(page,"</html>\n");

  fclose(page);



  // CotSet status
  htmlFile = fHtmlDirectory + "/CotSet.html";


  page = fopen(htmlFile,"w");


  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<head>\n");
  fprintf(page,"<script type=text/javascript>\n");
  fprintf(page,"<!--\n");
  fprintf(page,"function popup(mylink, windowname)\n");
  fprintf(page,"{\n");
  fprintf(page,"if (! window.focus)return true;\n");
  fprintf(page,"var href;\n");
  fprintf(page,"if (typeof(mylink) == 'string')\n");
  fprintf(page,"   href=mylink;\n");
  fprintf(page,"else\n");
  fprintf(page,"   href=mylink.href;\n");
  fprintf(page,"window.open(href, windowname, 'width=600,height=200,scrollbars=yes');\n");
  fprintf(page,"return false;\n");
  fprintf(page,"}\n");
  fprintf(page,"//-->\n");
  fprintf(page,"</script>\n");
  fprintf(page,"</head>\n");

  fprintf(page,"<table align=left border=3 cellpadding=4 cellspacing=10 width=700><tr>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=http://www-cdf.fnal.gov/offline/monitoring/CalibrationsMonitor/Status.html>Calibrations monitor</a></font></strong></td>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=http://www-cdf.fnal.gov/offline/calibrations/prod_physics_cot.html>Prod_Physics_Cot monitor</a></font></strong></td>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=CalibrationsMonitor/CotSetHelp.html>Prod_Physics_Cot Help</a></font></strong></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left  width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  if(fCotSet.fStatus==0) fprintf(page,"<td align=center><img src=greenball.gif height=25 width=25 alt=greenball.gif> <strong><font color=#770000 size=+4>Prod_Physics_Cot Status</font></strong></td>\n");
  if(fCotSet.fStatus==1) fprintf(page,"<td align=center><img src=yelball.gif height=25 width=25 alt=yelball.gif> <strong><font color=#770000 size=+4>Prod_Physics_Cot Status</font></strong></td>\n");
  if(fCotSet.fStatus==2||fCotSet.fStatus==4) fprintf(page,"<td align=center><img src=redball.gif height=25 width=25 alt=redball.gif> <strong><font color=#770000 size=+4>Prod_Physics_Cot Status</font></strong></td>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");

  if(fCotSet.fExist) {  
    code=0;
    if(fCotSet.fNumMissingRuns>0) {
      for(int i=0; i<fCotSet.fNumMissingRuns; i++) {    
	if(fCotSet.fMissingRunsCode[i]==1) code = max(code, 1);
	if(fCotSet.fMissingRunsCode[i]==2) code = max(code, 2);
      }
    }
    
    if(code==0) { 
      fprintf(page,"<b> <font color=green size=+2> <img src=greenball.gif height=17 width=17 alt=greenball.gif> Runs with missing calibration ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==1) { 
      fprintf(page,"<b> <font color=yellow size=+2> <img src=yelball.gif height=17 width=17 alt=yelball.gif> Runs with missing calibration <blink> ==> KEEP AN EYE ON THIS </blink> ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==2) { 
      fprintf(page,"<b> <font color=red size=+2> <img src=redball.gif height=17 width=17 alt=redball.gif> Runs with missing calibration ");
      fprintf(page," <blink> ==> TAKE ACTION! (click on siren) ==>  </blink><a href=CalibrationsMonitor/ActionMissingCotSet.html onClick=\"return popup(this,'notes')\">  <img src=siren.gif height=30 width=30 alt=siren.gif>  </a></font></b>\n");
    }
    
    fprintf(page,"<br clear=all>\n");
    fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    
    fprintf(page,"<h3>\n");
    if(fCotSet.fNumMissingRuns==0) fprintf(page,"<font color=green> No Run missing calibration </font><br>\n");
    for(int i=0; i<fCotSet.fNumMissingRuns; i++) {
      tDiff = now.Convert()- fCotSet.fMissingRunsTime[i].Convert();
      diffHours= tDiff/3600;
      if(fCotSet.fMissingRunsCode[i]==0) fprintf(page,"<font color=green> Run %d is missing (run is %d hours old) </font><br>\n", fCotSet.fMissingRuns[i], diffHours);
      if(fCotSet.fMissingRunsCode[i]==1) fprintf(page,"<font color=yellow> Run %d is missing (run is %d hours old) </font><br>\n", fCotSet.fMissingRuns[i], diffHours);
      if(fCotSet.fMissingRunsCode[i]==2) fprintf(page,"<font color=red> Run %d is missing (run is %d hours old) </font><br>\n", fCotSet.fMissingRuns[i], diffHours);
    }
    fprintf(page,"</h3>\n");
    fprintf(page,"<br clear=all>\n");


    if(fCotSet.fNumRunsNotinPass>0) {
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<b> <font color=green size=+2> <img src=greenball.gif height=17 width=17 alt=greenball.gif> Runs with calibration but not in PASS10A </font></b>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<h3>\n");
      for(int i=0; i<fCotSet.fNumRunsNotinPass; i++) {
	fprintf(page,"<font color=green> Run %d is not in PASS10A</font><br>\n", fCotSet.fRunsNotinPass[i]);  
      }
      fprintf(page,"</h3>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    }
  } else {
    fprintf(page,"<b> <font color=red size=+4> The calibration file for Prod_Physics_Cot is missing !");    
  }
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<tr><td><hr noshade=1 size=4></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<td align=center width=33%><img src=greenball.gif height=17 width=17 alt=greenball.gif><font size=-1 color=green> Recent runs</font></td>\n");
  fprintf(page,"<td align=center width=33%><img src=yelball.gif height=17 width=17 alt=yelball.gif><font size=-1 color=yellow>  Not-so-recent runs</font></td>\n");
  fprintf(page,"<td align=center width=33%><img src=redball.gif height=17 width=17 alt=redball.gif><font size=-1 color=red>  Old runs</font></td>\n");

  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><hr noshade=1 size=2></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><a href=http://www.fnal.gov/pub/disclaim.html>Legal Notices</a></td></tr>\n");
  fprintf(page,"<tr><td></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Brought To You By: Calibrations Monitoring</font></em></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Last updated: %s </font></em></td></tr>\n", now.AsSQLString());
  fprintf(page,"</table>\n");
  fprintf(page,"</html>\n");


  fclose(page);

  // CotSet popup
  htmlFile = fHtmlDirectory + "/CotSetPop.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Prod_Physics_Cot status</title></head>\n");
  fprintf(page,"<body><h3>\n");
  fprintf(page,"The status of the Prod_Physics_Cot calibration depends on how old is the last available calibration. If it is <font color=red>more than %d hours old .</font>then the situation is declared <font color=red>'bad' (red ball).</font> If the last available calibration is  <font color=yellow> no more than %d hours old.</font>, then the situation is flagged  <font color=yellow>'abnormal' (yellow ball).</font>\n", fPars.maxHoursMissWCotSet, fPars.maxHoursMissECotSet);
  fprintf(page,"In this case there is no  <font color=green> 'normal' (green ball).</font> condition, since the calibrations should be there by the end of the run.\n");
  fprintf(page,"<br>\n");
  fprintf(page,"The <font color=blue> downward arrow </font> indicates that the <font color=blue>  calibration files are missing </font>or not up-to-date then there might be problems with the cron job and the expert should be contacted.\n");
  fprintf(page,"</h3></body></html>\n");

  fclose(page);

  // CotSet Help
  htmlFile = fHtmlDirectory + "/CotSetHelp.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Prod_Physics_Cot Help</title></head>\n");
  fprintf(page,"<body><h3>\n");

    fprintf(page,"  <table align=left width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<td align=center><strong><font color=#770000 size=+4>Prod_Physics_Cot Help</font></strong></td>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br>\n");
  fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"This monitor shows the status of calibrations for Prod_Physics_Cot. The things which are monitored are essentially:\n");
  fprintf(page,"<ul>\n");
  fprintf(page,"<li> the  existence of the corresponding web page (created by a cron job)\n");
  fprintf(page,"<li> the latest occurence of calibration\n");
  fprintf(page,"</ul>\n");
  fprintf(page,"<br>\n");
  fprintf(page,"For the latest runs, if all runs <font color=green>have a calibration </font>, the situation is flagged as <font color=green>'normal' (green ball)</font>.\n", fPars.maxHoursMissWCotSet);
  fprintf(page,"If there are runs missing calibration which are <font color=yellow> less than %d hours old</font>, this needs attention and the status is labeled as <font color=yellow> 'abnormal' (yellow)</font>. \n", fPars.maxHoursMissWCotSet);
  fprintf(page,"If there are runs missing calibration which are  <font color=red> more than %d hours old</font>, then there is need for immediate action and the situation is flagged as  <font color=red>'bad' (red)</font>.\n", fPars.maxHoursMissECotSet); 
  
  fprintf(page,"<br>\n");

  fprintf(page,"If the calibration files are missing  or not up-to-date then there might be problems with the cron job and the expert should be contacted.\n");
  fprintf(page,"<br>\n");
  fprintf(page,"</b>\n");

  
  fprintf(page,"<br>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><a href=http://www.fnal.gov/pub/disclaim.html>Legal Notices</a></td></tr>\n");
  fprintf(page,"<tr><td></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Brought To You By: Calibrations Monitoring</font></em></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Last updated: %s </font></em></td></tr>\n", now.AsSQLString());
  fprintf(page,"</table>\n");
  fprintf(page,"</html>\n");

  fclose(page);


  // SvxSet status
  htmlFile = fHtmlDirectory + "/SvxSet.html";


  page = fopen(htmlFile,"w");


  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<head>\n");
  fprintf(page,"<script type=text/javascript>\n");
  fprintf(page,"<!--\n");
  fprintf(page,"function popup(mylink, windowname)\n");
  fprintf(page,"{\n");
  fprintf(page,"if (! window.focus)return true;\n");
  fprintf(page,"var href;\n");
  fprintf(page,"if (typeof(mylink) == 'string')\n");
  fprintf(page,"   href=mylink;\n");
  fprintf(page,"else\n");
  fprintf(page,"   href=mylink.href;\n");
  fprintf(page,"window.open(href, windowname, 'width=600,height=200,scrollbars=yes');\n");
  fprintf(page,"return false;\n");
  fprintf(page,"}\n");
  fprintf(page,"//-->\n");
  fprintf(page,"</script>\n");
  fprintf(page,"</head>\n");

  fprintf(page,"<table align=left border=3 cellpadding=4 cellspacing=10 width=700><tr>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=http://www-cdf.fnal.gov/offline/monitoring/CalibrationsMonitor/Status.html>Calibrations monitor</a></font></strong></td>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=http://www-cdf.fnal.gov/offline/calibrations/prod_physics_svx.html>Prod_Physics_Svx monitor</a></font></strong></td>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=CalibrationsMonitor/SvxSetHelp.html>Prod_Physics_SvxS Help</a></font></strong></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left  width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  if(fSvxSet.fStatus==0) fprintf(page,"<td align=center><img src=greenball.gif height=25 width=25 alt=greenball.gif> <strong><font color=#770000 size=+4>Prod_Physics_Svx Status</font></strong></td>\n");
  if(fSvxSet.fStatus==1) fprintf(page,"<td align=center><img src=yelball.gif height=25 width=25 alt=yelball.gif> <strong><font color=#770000 size=+4>Prod_Physics_Svx Status</font></strong></td>\n");
  if(fSvxSet.fStatus==2||fSvxSet.fStatus==4) fprintf(page,"<td align=center><img src=redball.gif height=25 width=25 alt=redball.gif> <strong><font color=#770000 size=+4>Prod_Physics_Svx Status</font></strong></td>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");

  if(fSvxSet.fExist) {      
    code=0;
    if(fSvxSet.fNumMissingRuns>0) {
      for(int i=0; i<fSvxSet.fNumMissingRuns; i++) {   
	if(fSvxSet.fMissingRunsCode[i]==1) code = max(code, 1);
	if(fSvxSet.fMissingRunsCode[i]==2) code = max(code, 2);
      }
    }
    
    if(code==0) { 
      fprintf(page,"<b> <font color=green size=+2> <img src=greenball.gif height=17 width=17 alt=greenball.gif> Runs with missing calibration ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==1) { 
      fprintf(page,"<b> <font color=yellow size=+2> <img src=yelball.gif height=17 width=17 alt=yelball.gif> Runs with missing calibration <blink> ==> KEEP AN EYE ON THIS </blink> ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==2) { 
      fprintf(page,"<b> <font color=red size=+2> <img src=redball.gif height=17 width=17 alt=redball.gif> Runs with missing calibration ");
      fprintf(page,"  <blink>==> TAKE ACTION! (click on siren) ==>  </blink><a href=CalibrationsMonitor/ActionMissingSvxSet.html onClick=\"return popup(this,'notes')\">  <img src=siren.gif height=30 width=30 alt=siren.gif>  </a></font></b>\n");
    }
    
    fprintf(page,"<br clear=all>\n");
    fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    
    fprintf(page,"<h3>\n");
    if(fSvxSet.fNumMissingRuns==0) fprintf(page,"<font color=green> No Run missing calibration </font><br>\n");
    for(int i=0; i<fSvxSet.fNumMissingRuns; i++) {
      tDiff = now.Convert()- fSvxSet.fMissingRunsTime[i].Convert();
      diffHours= tDiff/3600;
      if(fSvxSet.fMissingRunsCode[i]==0) fprintf(page,"<font color=green> Run %d is missing (run is %d hours old) </font><br>\n", fSvxSet.fMissingRuns[i], diffHours);
      if(fSvxSet.fMissingRunsCode[i]==1) fprintf(page,"<font color=yellow> Run %d is missing (run is %d hours old) </font><br>\n", fSvxSet.fMissingRuns[i],diffHours );
      if(fSvxSet.fMissingRunsCode[i]==2) fprintf(page,"<font color=red> Run %d is missing (run is %d hours old) </font><br>\n", fSvxSet.fMissingRuns[i], diffHours);
    }
    fprintf(page,"</h3>\n");
    fprintf(page,"<br clear=all>\n");
    
    if(fSvxSet.fNumRunsNotinPass>0) {
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<b> <font color=green size=+2> <img src=greenball.gif height=17 width=17 alt=greenball.gif> Runs with calibration but not in PASS10A </font></b>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<h3>\n");
      for(int i=0; i<fSvxSet.fNumRunsNotinPass; i++) {
	fprintf(page,"<font color=green> Run %d is not in PASS10A</font><br>\n", fSvxSet.fRunsNotinPass[i]);  
      }
      fprintf(page,"</h3>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    }
  } else {
    fprintf(page,"<b> <font color=red size=+4> The calibration file for Prod_Physics_Svx is missing !");    
  }   
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<tr><td><hr noshade=1 size=4></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<td align=center width=33%><img src=greenball.gif height=17 width=17 alt=greenball.gif><font size=-1 color=green> Recent runs</font></td>\n");
  fprintf(page,"<td align=center width=33%><img src=yelball.gif height=17 width=17 alt=yelball.gif><font size=-1 color=yellow>  Not-so-recent runs</font></td>\n");
  fprintf(page,"<td align=center width=33%><img src=redball.gif height=17 width=17 alt=redball.gif><font size=-1 color=red>  Old runs</font></td>\n");

  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><hr noshade=1 size=2></td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><a href=http://www.fnal.gov/pub/disclaim.html>Legal Notices</a></td></tr>\n");
  fprintf(page,"<tr><td></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Brought To You By: Calibrations Monitoring</font></em></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Last updated: %s </font></em></td></tr>\n", now.AsSQLString());
  fprintf(page,"</table>\n");
  fprintf(page,"</html>\n");


  fclose(page);

  // SvxSet popup
  htmlFile = fHtmlDirectory + "/SvxSetPop.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Prod_Physics_Svx status</title></head>\n");
  fprintf(page,"<body><h3>\n");
  fprintf(page,"The status of the Prod_Physics_Svx calibration depends on how old is the last available calibration. If it is <font color=red>more than %d hours old </font>then the situation is declared <font color=red>'bad' (red ball)</font>. If the last available calibration is  <font color=yellow> between %d and %d hours old</font>, then the situation is flagged  <font color=yellow>'abnormal' (yellow ball)</font>.  <font color=green>Otherwise (<%d hours)</font>the situation is flagged as  <font color=green>'normal' (green ball)</font>\n", fPars.maxHoursMissESvxSet, fPars.maxHoursMissWSvxSet, fPars.maxHoursMissESvxSet, fPars.maxHoursMissWSvxSet);
  fprintf(page,"<br>\n");
  fprintf(page,"The <font color=blue> downward arrow </font> indicates that the <font color=blue>  calibration files are missing </font>or not up-to-date then there might be problems with the cron job and the expert should be contacted.\n");
  fprintf(page,"</h3></body></html>\n");

  fclose(page);

  // SvxSet Help
  htmlFile = fHtmlDirectory + "/SvxSetHelp.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Prod_Physics_Svx Help</title></head>\n");
  fprintf(page,"<body><h3>\n");

    fprintf(page,"  <table align=left width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<td align=center><strong><font color=#770000 size=+4>Prod_Physics_Svx Help</font></strong></td>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br>\n");
  fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"This monitor shows the status of calibrations for Prod_Physics_Svx. The things which are monitored are essentially:\n");
  fprintf(page,"<ul>\n");
  fprintf(page,"<li> the  existence of the corresponding web page (created by a cron job)\n");
  fprintf(page,"<li> the latest occurence of calibration\n");
  fprintf(page,"</ul>\n");
  fprintf(page,"<br>\n");
  fprintf(page,"For the latest runs, if there are runs missing calibration which are   <font color=green> no more than %d hours old </font>, the situation is flagged as  <font color=green>'normal' (green ball)</font>.\n", fPars.maxHoursMissWSvxSet);
  fprintf(page,"If there are runs missing calibration which are <font color=yellow>  between %d and %d hours old</font>, this needs attention and the status is labeled as <font color=yellow> 'abnormal' (yellow)</font>. \n", fPars.maxHoursMissWSvxSet, fPars.maxHoursMissESvxSet);
  fprintf(page,"If there are runs missing  calibration which are  <font color=red>more than %d hours old</font>, then there is need for immediate action and the situation is flagged as <font color=red>'bad' (red).</font>\n", fPars.maxHoursMissESvxSet); 
  
  fprintf(page,"<br>\n");

  fprintf(page,"If the calibration files are missing  or not up-to-date then there might be problems with the cron job and the expert should be contacted.\n");
  fprintf(page,"<br>\n");
  fprintf(page,"</b>\n");

  
  fprintf(page,"<br>\n");
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><a href=http://www.fnal.gov/pub/disclaim.html>Legal Notices</a></td></tr>\n");
  fprintf(page,"<tr><td></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Brought To You By: Calibrations Monitoring</font></em></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Last updated: %s </font></em></td></tr>\n", now.AsSQLString());
  fprintf(page,"</table>\n");
  fprintf(page,"</html>\n");

  fclose(page);


  // Action (missing run popup) Pass10A
  htmlFile = fHtmlDirectory + "/ActionMissingPass10A.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Calibrations missing!</title></head>\n");
  fprintf(page,"<body><h3>\n");
  fprintf(page,"If there are runs older than %3.1f days missing calibration, the CO should notify the Calibration experts: <font color=blue> %s </font>\n", fPars.maxDaysMissEPass10A,  fPars.fExpertPass);
  fprintf(page,"</h3></body></html>\n");

  fclose(page);

  // Action (missing run popup) Pass17A
  htmlFile = fHtmlDirectory + "/ActionMissingPass17A.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Calibrations missing!</title></head>\n");
  fprintf(page,"<body><h3>\n");
  fprintf(page,"If there are runs older than %3.1f days missing calibration, the CO should notify the Calibration expert: <font color=blue> %s </font>\n", fPars.maxDaysMissEPass17A, fPars.fExpertPass);
  fprintf(page,"</h3></body></html>\n");

  fclose(page);


  // Action (missing run popup) CotBeam
  htmlFile = fHtmlDirectory + "/ActionMissingCotBeam.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Calibrations missing!</title></head>\n");
  fprintf(page,"<body><h3>\n");
  fprintf(page,"If there are runs older than %3.1f days missing calibration, the CO should notify the Calibration expert: <font color=blue> %s </font>\n", fPars.maxDaysMissECotBeam, fPars.fExpertBeam);
  fprintf(page,"</h3></body></html>\n");

  fclose(page);


  // Action (missing run popup) SvxBeam
  htmlFile = fHtmlDirectory + "/ActionMissingSvxBeam.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Calibrations missing!</title></head>\n");
  fprintf(page,"<body><h3>\n");
  fprintf(page,"If there are runs older than %3.1f days missing calibration, the CO should notify the Calibration expert: <font color=blue> %s </font>\n", fPars.maxDaysMissESvxBeam, fPars.fExpertBeam);
  fprintf(page,"</h3></body></html>\n");

  fclose(page);

  // Action (missing run popup) CotSet
  htmlFile = fHtmlDirectory + "/ActionMissingCotSet.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Calibrations missing!</title></head>\n");
  fprintf(page,"<body><h3>\n");
  fprintf(page,"If there are runs older than %d hours missing calibration, the CO should notify the Calibration expert: <font color=blue> %s </font>\n", fPars.maxHoursMissECotSet, fPars.fExpertCot);
  fprintf(page,"</h3></body></html>\n");

  fclose(page);

  // Action (missing run popup) SvxSet
  htmlFile = fHtmlDirectory + "/ActionMissingSvxSet.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Calibrations missing!</title></head>\n");
  fprintf(page,"<body><h3>\n");
  fprintf(page,"If there are runs older than %d hours missing calibration, the CO should notify the Calibration expert: <font color=blue> %s </font>\n", fPars.maxHoursMissESvxSet, fPars.fExpertSvx);
  fprintf(page,"</h3></body></html>\n");

  fclose(page);



  // now Calibrations Status page

  htmlFile = fHtmlDirectory + "/Status.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<head>\n");
  fprintf(page,"<script type=text/javascript>\n");
  fprintf(page,"<!--\n");
  fprintf(page,"function popup(mylink, windowname)\n");
  fprintf(page,"{\n");
  fprintf(page,"if (! window.focus)return true;\n");
  fprintf(page,"var href;\n");
  fprintf(page,"if (typeof(mylink) == 'string')\n");
  fprintf(page,"   href=mylink;\n");
  fprintf(page,"else\n");
  fprintf(page,"   href=mylink.href;\n");
  fprintf(page,"window.open(href, windowname, 'width=600,height=200,scrollbars=yes');\n");
  fprintf(page,"return false;\n");
  fprintf(page,"}\n");
  fprintf(page,"//-->\n");
  fprintf(page,"</script>\n");
  fprintf(page,"</head>\n");

  // 1
  fprintf(page,"<table align=left border=3 cellpadding=4 cellspacing=10 width=700><tr>\n");  
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=http://www-cdf.fnal.gov/offline/monitoring/GlobalMonitor/Status.html>Global monitor</a></font></strong></td>\n");
 fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href= http://www-cdf.fnal.gov/tiki/tiki-index.php?page=CalibrationsDB.Home>Calibrations tikiPage</a></font></strong></td>\n");
  fprintf(page,"<td bgcolor=#fffff0><strong><font size=+2><a href=CalibrationsMonitor/Help.html>Calibrations Help</a></font></strong></td></tr>\n");
  fprintf(page,"</table>\n");
  
  fprintf(page,"<br clear=all>\n");
  
  // 2
  fprintf(page,"<table align=left  width=700>\n");  
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<td align=center><strong><font color=#770000 size=+4>Calibrations Monitor</font></strong></td>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"</table>\n");
  
  fprintf(page,"<br clear=all>\n");
  
//  3
  fprintf(page,"<table align=left width=700>\n");
//   fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<tr><td><hr noshade=1 size=4></td></tr>\n");
  fprintf(page,"</table>\n");

  fprintf(page,"<br clear=all>\n");


  

  
  // 3


  if(calibStatus==0) fprintf(page,"<table align=left cellpadding=3 cellspacing=3 width=700><CAPTION>  <a href=CalibrationsMonitor/StatusPop.html onClick=\"return popup(this,'notes')\"> <img src=greenball.gif height=30 width=30 alt=greenball.gif> </a> <font color=#770000 size=+3><strong>   Calibrations status</strong></font></caption>\n");
  if(calibStatus==1) fprintf(page,"<table align=left cellpadding=3 cellspacing=3 width=700><CAPTION>  <a href=CalibrationsMonitor/StatusPop.html onClick=\"return popup(this,'notes')\">  <img src=yelball.gif height=30 width=30 alt=yelball.gif>  </a> <font color=#770000 size=+3><strong>   Calibrations status</strong></font></caption>\n");
  if(calibStatus==2) {
    fprintf(page,"<table align=left cellpadding=3 cellspacing=3 width=700><CAPTION> <a href=CalibrationsMonitor/StatusPop.html onClick=\"return popup(this,'notes')\">  <img src=redball.gif height=30 width=30 alt=redball.gif>  </a>  <font color=#770000 size=+3><strong>   Calibrations Status</strong><br>\n");
    fprintf(page," <blink> ==> TAKE ACTION! (click on siren) ==>  </blink><a href=CalibrationsMonitorAction.html onClick=\"return popup(this,'notes')\">  <img src=siren.gif height=30 width=30 alt=siren.gif>  </a></font></caption>\n");
  }
  if(calibStatus==3) fprintf(page,"<table align=left cellpadding=3 cellspacing=3 width=700><CAPTION>  <a href=CalibrationsMonitor/StatusPop.html onClick=\"return popup(this,'notes')\"> <img src=checkmark.gif height=30 width=30 alt=checkmark.gif> </a> <font color=#770000 size=+3><strong>   Calibrations status</strong></font></caption>\n");
  if(calibStatus==4) {
    fprintf(page,"<table align=left cellpadding=3 cellspacing=3 width=700><CAPTION> <a href=CalibrationsMonitor/StatusPop.html onClick=\"return popup(this,'notes')\">  <img src=down.gif height=30 width=30 alt=down.gif>  </a>  <font color=#770000 size=+3><strong>   Calibrations Status</strong><br>\n");
    fprintf(page," <blink> ==> TAKE ACTION! (click on siren) ==>  </blink><a href=CalibrationsMonitor/ActionNoFiles.html onClick=\"return popup(this,'notes')\">  <img src=siren.gif height=30 width=30 alt=siren.gif>  </a></font></caption>\n");
  }


  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");



  // CotSet status  
  if(fCotSet.fStatus==0)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/CotSetPop.html onClick=\"return popup(this,'notes')\">  <img src=greenball.gif height=25 width=25 alt=greenball.gif><a href=CalibrationsMonitor/CotSet.html><font size=+2>    Prod_Physics_Cot</font></td>\n");
  if(fCotSet.fStatus==1)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/CotSetPop.html onClick=\"return popup(this,'notes')\"> <img src=yelball.gif height=25 width=25 alt=yelball.gif><a href=CalibrationsMonitor/CotSet.html><font size=+2>    Prod_Physics_Cot</font></td>\n");
  if(fCotSet.fStatus==2)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/CotSetPop.html onClick=\"return popup(this,'notes')\"> <img src=redball.gif height=25 width=25 alt=redball.gif><a href=CalibrationsMonitor/CotSet.html><font size=+2>    Prod_Physics_Cot</font></td>\n");
  if(fCotSet.fStatus==3)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/CotSetPop.html onClick=\"return popup(this,'notes')\"> <img src=checkmark.gif height=25 width=25 alt=checkmark.gif><a href=CalibrationsMonitor/CotSet.html><font size=+2>    Prod_Physics_Cot</font></td>\n");
 if(fCotSet.fStatus==4)  fprintf(page,"<td align=center width=33%>  <a href=CalibrationsMonitor/CotSetPop.html onClick=\"return popup(this,'notes')\">  <img src=down.gif height=25 width=25 alt=down.gif><a href=CalibrationsMonitor/CotSet.html><font size=+2>    Prod_Physics_Cot</font></td>\n");


  // SvxSet status  
  if(fSvxSet.fStatus==0)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/SvxSetPop.html onClick=\"return popup(this,'notes')\">  <img src=greenball.gif height=25 width=25 alt=greenball.gif><a href=CalibrationsMonitor/SvxSet.html><font size=+2>    Prod_Physics_Svx</font></td>\n");
  if(fSvxSet.fStatus==1)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/SvxSetPop.html onClick=\"return popup(this,'notes')\"> <img src=yelball.gif height=25 width=25 alt=yelball.gif><a href=CalibrationsMonitor/SvxSet.html><font size=+2>    Prod_Physics_Svx</font></td>\n");
  if(fSvxSet.fStatus==2)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/SvxSetPop.html onClick=\"return popup(this,'notes')\"> <img src=redball.gif height=25 width=25 alt=redball.gif><a href=CalibrationsMonitor/SvxSet.html><font size=+2>    Prod_Physics_Svx</font></td>\n");
  if(fSvxSet.fStatus==3)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/SvxSetPop.html onClick=\"return popup(this,'notes')\"> <img src=checkmark.gif height=25 width=25 alt=checkmark.gif><a href=CalibrationsMonitor/SvxSet.html><font size=+2>    Prod_Physics_Svx</font></td>\n");
 if(fSvxSet.fStatus==4)  fprintf(page,"<td align=center width=33%>  <a href=CalibrationsMonitor/SvxSetPop.html onClick=\"return popup(this,'notes')\">  <img src=down.gif height=25 width=25 alt=down.gif><a href=CalibrationsMonitor/SvxSet.html><font size=+2>    Prod_Physics_Svx</font></td>\n");


 // CotBeam status  
  if(fCotBeam.fStatus==0)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/CotBeamPop.html onClick=\"return popup(this,'notes')\">  <img src=greenball.gif height=25 width=25 alt=greenball.gif><a href=CalibrationsMonitor/CotBeam.html><font size=+2>    Pad_Physics_CotBeam</font></td>\n");
  if(fCotBeam.fStatus==1)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitorCotBeamPop.html onClick=\"return popup(this,'notes')\"> <img src=yelball.gif height=25 width=25 alt=yelball.gif><a href=CalibrationsMonitor/CotBeam.html><font size=+2>    Pad_Physics_CotBeam</font></td>\n");
  if(fCotBeam.fStatus==2)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/CotBeamPop.html onClick=\"return popup(this,'notes')\"> <img src=redball.gif height=25 width=25 alt=redball.gif><a href=CalibrationsMonitor/CotBeam.html><font size=+2>    Pad_Physics_CotBeam</font></td>\n");
  if(fCotBeam.fStatus==3)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/CotBeamPop.html onClick=\"return popup(this,'notes')\"> <img src=checkmark.gif height=25 width=25 alt=checkmark.gif><a href=CalibrationsMonitor/CotBeam.html><font size=+2>    Pad_Physics_CotBeam</font></td>\n");
 if(fCotBeam.fStatus==4)  fprintf(page,"<td align=center width=33%>  <a href=CalibrationsMonitor/CotBeamPop.html onClick=\"return popup(this,'notes')\">  <img src=down.gif height=25 width=25 alt=down.gif><a href=CalibrationsMonitor/CotBeam.html><font size=+2>    Pad_Physics_CotBeam</font></td>\n");


  fprintf(page,"</table>\n");  
  fprintf(page,"<br clear=all>\n");

  fprintf(page,"<table align=left width=700>\n");
  if(fCotSet.fStatus==4) fprintf(page,"<td align=center width=33%><font size=-1 color=red> %s </font></a></td>\n", fCotSet.fFileTime.AsSQLString());
  if(fSvxSet.fStatus==4) fprintf(page,"<td align=center width=33%><font size=-1 color=red> %s</font></a></td>\n", fSvxSet.fFileTime.AsSQLString());
  if(fCotBeam.fStatus==4) fprintf(page,"<td align=center width=33%><font size=-1 color=red> %s </font></a></td>\n", fCotBeam.fFileTime.AsSQLString());
  if(fCotSet.fStatus!=4) fprintf(page,"<td align=center width=33%><font size=-1 color=green> %s </font></a></td>\n", fCotSet.fFileTime.AsSQLString());
  if(fSvxSet.fStatus!=4) fprintf(page,"<td align=center width=33%><font size=-1 color=green> %s</font></a></td>\n", fSvxSet.fFileTime.AsSQLString());
  if(fCotBeam.fStatus!=4) fprintf(page,"<td align=center width=33%><font size=-1 color=green> %s </font></a></td>\n", fCotBeam.fFileTime.AsSQLString());
  fprintf(page,"</tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");

  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr> <td>&nbsp;</td></tr> \n");

  // SvxBeam status  
  if(fSvxBeam.fStatus==0)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/SvxBeamPop.html onClick=\"return popup(this,'notes')\">  <img src=greenball.gif height=25 width=25 alt=greenball.gif><a href=CalibrationsMonitor/SvxBeam.html><font size=+2>    Pad_Physics_SvxBeam</font></td>\n");
  if(fSvxBeam.fStatus==1)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/SvxBeamPop.html onClick=\"return popup(this,'notes')\"> <img src=yelball.gif height=25 width=25 alt=yelball.gif><a href=CalibrationsMonitor/SvxBeam.html><font size=+2>    Pad_Physics_SvxBeam</font></td>\n");
  if(fSvxBeam.fStatus==2)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/SvxBeamPop.html onClick=\"return popup(this,'notes')\"> <img src=redball.gif height=25 width=25 alt=redball.gif><a href=CalibrationsMonitor/SvxBeam.html><font size=+2>    Pad_Physics_SvxBeam</font></td>\n");
  if(fSvxBeam.fStatus==3)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/SvxBeamPop.html onClick=\"return popup(this,'notes')\"> <img src=checkmark.gif height=25 width=25 alt=checkmark.gif><a href=CalibrationsMonitor/SvxBeam.html><font size=+2>    Pad_Physics_SvxBeam</font></td>\n");
  if(fSvxBeam.fStatus==4)  fprintf(page,"<td align=center width=33%>  <a href=CalibrationsMonitor/SvxBeamPop.html onClick=\"return popup(this,'notes')\">  <img src=down.gif height=25 width=25 alt=down.gif><a href=CalibrationsMonitor/SvxBeam.html><font size=+2>    Pad_Physics_SvxBeam</font></td>\n");

  // Pass10A status  
  if(fPass10A.fStatus==0)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/Pass10APop.html onClick=\"return popup(this,'notes')\">  <img src=greenball.gif height=25 width=25 alt=greenball.gif><a href=CalibrationsMonitor/Pass10A.html><font size=+2>    Pass10A</font></td>\n");
  if(fPass10A.fStatus==1)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/Pass10APop.html onClick=\"return popup(this,'notes')\"> <img src=yelball.gif height=25 width=25 alt=yelball.gif><a href=CalibrationsMonitor/Pass10A.html><font size=+2>    Pass10A</font></td>\n");
  if(fPass10A.fStatus==2)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/Pass10APop.html onClick=\"return popup(this,'notes')\"> <img src=redball.gif height=25 width=25 alt=redball.gif><a href=CalibrationsMonitor/Pass10A.html><font size=+2>    Pass10A</font></td>\n");
  if(fPass10A.fStatus==3)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/Pass10APop.html onClick=\"return popup(this,'notes')\"> <img src=checkmark.gif height=25 width=25 alt=checkmark.gif><a href=CalibrationsMonitor/Pass10A.html><font size=+2>    Pass10A</font></td>\n");
  if(fPass10A.fStatus==4)  fprintf(page,"<td align=center width=33%>  <a href=CalibrationsMonitor/Pass10APop.html onClick=\"return popup(this,'notes')\">  <img src=down.gif height=25 width=25 alt=down.gif><a href=CalibrationsMonitor/Pass10A.html><font size=+2>Pass10A</font></td>\n");

  // Pass17A status  
  if(fPass17A.fStatus==0)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/Pass17APop.html onClick=\"return popup(this,'notes')\">  <img src=greenball.gif height=25 width=25 alt=greenball.gif><a href=CalibrationsMonitor/Pass17A.html><font size=+2>    Pass17A</font></td>\n");
  if(fPass17A.fStatus==1)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/Pass17APop.html onClick=\"return popup(this,'notes')\"> <img src=yelball.gif height=25 width=25 alt=yelball.gif><a href=CalibrationsMonitor/Pass17A.html><font size=+2>    Pass17A</font></td>\n");
  if(fPass17A.fStatus==2)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/Pass17APop.html onClick=\"return popup(this,'notes')\"> <img src=redball.gif height=25 width=25 alt=redball.gif><a href=CalibrationsMonitor/Pass17A.html><font size=+2>    Pass17A</font></td>\n");
  if(fPass17A.fStatus==3)  fprintf(page,"<td align=center width=33%> <a href=CalibrationsMonitor/Pass17APop.html onClick=\"return popup(this,'notes')\"> <img src=checkmark.gif height=25 width=25 alt=checkmark.gif><a href=CalibrationsMonitor/Pass17A.html><font size=+2>    Pass17A</font></td>\n");
  if(fPass17A.fStatus==4)  fprintf(page,"<td align=center width=33%>  <a href=CalibrationsMonitor/Pass17APop.html onClick=\"return popup(this,'notes')\">  <img src=down.gif height=25 width=25 alt=down.gif><a href=CalibrationsMonitor/Pass17A.html><font size=+2>    Pass17A</font></td>\n");

 
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");
  fprintf(page,"<table align=left width=700>\n");
  if(fSvxBeam.fStatus!=4) fprintf(page,"<td align=center width=33%><font size=-1 color=green> %s </font></a></td>\n", fSvxBeam.fFileTime.AsSQLString());
 if(fPass10A.fStatus!=4)  fprintf(page,"<td align=center width=33%><font size=-1 color=green> %s </font></a></td>\n", fPass10A.fFileTime.AsSQLString());
 if(fPass17A.fStatus!=4)  fprintf(page,"<td align=center width=33%><font size=-1 color=green> %s </font></a></td>\n", fPass17A.fFileTime.AsSQLString());
  if(fSvxBeam.fStatus==4) fprintf(page,"<td align=center width=33%><font size=-1 color=red> %s </font></a></td>\n", fSvxBeam.fFileTime.AsSQLString());
 if(fPass10A.fStatus==4)  fprintf(page,"<td align=center width=33%><font size=-1 color=red> %s </font></a></td>\n", fPass10A.fFileTime.AsSQLString());
 if(fPass17A.fStatus==4)  fprintf(page,"<td align=center width=33%><font size=-1 color=red> %s </font></a></td>\n", fPass17A.fFileTime.AsSQLString());
  fprintf(page,"</tr>\n");
  fprintf(page,"</table>\n");
  fprintf(page,"<br clear=all>\n");


//  4
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<tr><td><hr noshade=1 size=4></td></tr>\n");
  fprintf(page,"</table>\n");


  fprintf(page,"<br clear=all>\n");

// 5
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td align=center width=33%><img src=greenball.gif height=17 width=17 alt=greenball.gif><font size=-1 color=green>  All systems are operational</font></td>\n");
  fprintf(page,"<td align=center width=33%><img src=yelball.gif height=17 width=17 alt=yelball.gif><font size=-1 color=yellow>  Minor Problem</font></td>\n");
  fprintf(page,"<td align=center width=33%><img src=redball.gif height=17 width=17 alt=redball.gif><font size=-1 color=red>  Major Problem</font></td></tr>\n");

//   fprintf(page,"<td align=center width=50%><img src=star.gif height=17 width=17 alt=star.gif><font size=-1>  Situation under investigation</font></td></tr>\n");
//   fprintf(page,"<tr><td align=center width=50%><img src=checkmark.gif height=17 width=17 alt=checkmark.gif><font size=-1>  Scheduled outage</font></td>\n");
  fprintf(page,"<tr><td align=center width=50%><img src=checkmark.gif height=17 width=17 alt=down.gif><font size=-1 color=blue> Masked off</font></td>\n");
 fprintf(page,"<td align=center width=50%><img src=down.gif height=17 width=17 alt=down.gif><font size=-1 color=blue>  Calibration Files missing/not-recent</font></td></tr>\n");
  fprintf(page,"</table>\n");

  fprintf(page,"<br clear=all>\n");
  
  // 6
  fprintf(page,"<table align=left width=700>\n");
//   fprintf(page,"<tr><td>&nbsp;</td></tr>\n");
  fprintf(page,"<tr><td><hr noshade=1 size=2></td></tr>\n");
  fprintf(page,"</table>\n");
  
  fprintf(page,"<br clear=all>\n");


  // 7
  fprintf(page,"<table align=left width=700>\n");
  fprintf(page,"<tr><td><a href=http://www.fnal.gov/pub/disclaim.html>Legal Notices</a></td></tr>\n");
  fprintf(page,"<tr><td></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Brought To You By: Calibrations Monitoring</font></em></td></tr>\n");
  fprintf(page,"<td><em><font size=-1>Last updated: %s </font></em></td></tr>\n", now.AsSQLString());
  fprintf(page,"</table>\n");
  
  fprintf(page,"</html>\n");


  fclose(page);

  // Status popup
  htmlFile = fHtmlDirectory + "/StatusPop.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=test/javascript></script>\n");
  fprintf(page,"<head><title>Calibrations</title></head>\n");
  fprintf(page,"<body><h3>\n");
  fprintf(page,"The status of the calibrations depends is the 'OR' of the status of the various subsystems: if for any of them the last available calibration is <font color=red>too old (status 'bad')</font>, the situation is is flagged as  <font color=red>'bad' (red ball)</font>; if any one has a <font color=yellow>not so old calibration</font>, the situation is flagged <font color=yellow> 'abnormal' (yellow ball)</font>. <font color=green>Otherwise</font> the situation is flagged as <font color=green>'normal' (green ball)</font>\n");
  fprintf(page,"</h3></body></html>\n");


  fclose(page);

  //  delete page;


  // Action (calibrations popup)
  htmlFile = fHtmlDirectory + "/Action.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title>Calibrations are too old!</title></head>\n");
  fprintf(page,"<body><h3>\n");
  fprintf(page,"Some of the subsections have problems: please access the subsection in abnormal state (red ball) and investigate more\n");
  fprintf(page,"</h3></body></html>\n");

  fclose(page);


  // Action No files(calibrations popup)
  htmlFile = fHtmlDirectory + "/ActionNoFiles.html";
  page = fopen(htmlFile,"w");

  fprintf(page,"<html>\n");
  fprintf(page,"<base href=%s>\n", wwwBase);

  fprintf(page,"<script type=text/javascript></script>\n");
  fprintf(page,"<head><title> Calibration files are missing or not-recent</title></head>\n");
  fprintf(page,"<body><h3>\n");
  fprintf(page,"Please check which section is missing/not-recent  (down arrow) and send email to experts: <font color=blue> %s </font>\n",  fPars.fExpertCron);
  fprintf(page,"</h3></body></html>\n");

  fclose(page);


  // finally some TXT files for SNARF

  // Pass10A status
  htmlFile = fHtmlDirectory + "/Pass10A.txt";

  page = fopen(htmlFile,"w");

  if(fPass10A.fExist) {
    code=0;
    if(fPass10A.fNumMissingRuns>0) {
      for(int i=0; i<fPass10A.fNumMissingRuns; i++) {    
	if(fPass10A.fMissingRunsCode[i]==1) code = max(code, 1);
	if(fPass10A.fMissingRunsCode[i]==2) code = max(code, 2);
      }
    }
    
    if(code==0) { 
      fprintf(page,"<b> <font color=green size=+2> Runs with missing calibration ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==1) { 
    fprintf(page,"<b> <font color=yellow size=+2> Runs with missing calibration <blink> ==> KEEP AN EYE ON THIS </blink> ");
    fprintf(page," </a></font></b>\n");
    }
    if(code==2) { 
      fprintf(page,"<b> <font color=red size=+2> Runs with missing calibration ");
      fprintf(page,"<blink> ==> TAKE ACTION! ==> </blink></font></b>\n");
    }
    
    fprintf(page,"<br clear=all>\n");
    fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    
    fprintf(page,"<h3>\n");
    if(fPass10A.fNumMissingRuns==0) fprintf(page,"<font color=green> No Run missing calibration </font><br>\n");
    for(int i=0; i<fPass10A.fNumMissingRuns; i++) {
      tDiff = now.Convert()- fPass10A.fMissingRunsTime[i].Convert();
      diffHours= tDiff/3600;
      if(fPass10A.fMissingRunsCode[i]==0) fprintf(page,"<font color=green> Run %d is missing (run is %d hours old) </font><br>\n", fPass10A.fMissingRuns[i], diffHours);
      if(fPass10A.fMissingRunsCode[i]==1) fprintf(page,"<font color=yellow> Run %d is missing (run is %d hours old) </font><br>\n", fPass10A.fMissingRuns[i], diffHours);
      if(fPass10A.fMissingRunsCode[i]==2) fprintf(page,"<font color=red> Run %d is missing (run is %d hours old) </font><br>\n", fPass10A.fMissingRuns[i], diffHours);
    }
    fprintf(page,"</h3>\n");
    fprintf(page,"<br clear=all>\n");
  } else {
    fprintf(page,"<b> <font color=red size=+4> The calibration file for Pass10A is missing !");    
  }

  fclose(page);


  // Pass17A status
  htmlFile = fHtmlDirectory + "/Pass17A.txt";

  page = fopen(htmlFile,"w");

  if(fPass17A.fExist) {
    code=0;
    if(fPass17A.fNumMissingRuns>0) {
      for(int i=0; i<fPass17A.fNumMissingRuns; i++) {    
	if(fPass17A.fMissingRunsCode[i]==1) code = max(code, 1);
	if(fPass17A.fMissingRunsCode[i]==2) code = max(code, 2);
      }
    }
    
    if(code==0) { 
      fprintf(page,"<b> <font color=green size=+2> Runs with missing calibration ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==1) { 
    fprintf(page,"<b> <font color=yellow size=+2>  Runs with missing calibration <blink> ==> KEEP AN EYE ON THIS </blink> ");
    fprintf(page," </a></font></b>\n");
    }
    if(code==2) { 
      fprintf(page,"<b> <font color=red size=+2> Runs with missing calibration ");
      fprintf(page,"<blink> ==> TAKE ACTION! ==> </blink></font></b>\n");
    }
    
    fprintf(page,"<br clear=all>\n");
    fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    
    fprintf(page,"<h3>\n");
    if(fPass17A.fNumMissingRuns==0) fprintf(page,"<font color=green> No Run missing calibration </font><br>\n");
    for(int i=0; i<fPass17A.fNumMissingRuns; i++) {
      tDiff = now.Convert()- fPass17A.fMissingRunsTime[i].Convert();
      diffHours= tDiff/3600;
      if(fPass17A.fMissingRunsCode[i]==0) fprintf(page,"<font color=green> Run %d is missing (run is %d hours old) </font><br>\n", fPass17A.fMissingRuns[i], diffHours);
      if(fPass17A.fMissingRunsCode[i]==1) fprintf(page,"<font color=yellow> Run %d is missing (run is %d hours old) </font><br>\n", fPass17A.fMissingRuns[i], diffHours);
      if(fPass17A.fMissingRunsCode[i]==2) fprintf(page,"<font color=red> Run %d is missing (run is %d hours old) </font><br>\n", fPass17A.fMissingRuns[i], diffHours);
    }
    fprintf(page,"</h3>\n");
    fprintf(page,"<br clear=all>\n");
  } else {
    fprintf(page,"<b> <font color=red size=+4> The calibration file for Pass17A is missing !");    
  }

  fclose(page);


  // CotBeam status
  htmlFile = fHtmlDirectory + "/CotBeam.txt";


  page = fopen(htmlFile,"w");
  
  if(fCotBeam.fExist) {
    code=0;
    if(fCotBeam.fNumMissingRuns>0) {
      for(int i=0; i<fCotBeam.fNumMissingRuns; i++) {   
	if(fCotBeam.fMissingRunsCode[i]==1) code = max(code, 1);
	if(fCotBeam.fMissingRunsCode[i]==2) code = max(code, 2);
      }
    }
    
    if(code==0) { 
      fprintf(page,"<b> <font color=green size=+2>  Runs with missing calibration ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==1) { 
      fprintf(page,"<b> <font color=yellow size=+2>  Runs with missing calibration <blink> ==> KEEP AN EYE ON THIS </blink> ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==2) { 
      fprintf(page,"<b> <font color=red size=+2> Runs with missing calibration ");
      fprintf(page," <blink> ==> TAKE ACTION!  ==>  </blink> </font></b>\n");
    }
    
    fprintf(page,"<br clear=all>\n");
    fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    
    fprintf(page,"<h3>\n");
    if(fCotBeam.fNumMissingRuns==0) fprintf(page,"<font color=green> No Run missing calibration </font><br>\n");
    for(int i=0; i<fCotBeam.fNumMissingRuns; i++) {
      tDiff = now.Convert()- fCotBeam.fMissingRunsTime[i].Convert();
      diffHours= tDiff/3600;
      if(fCotBeam.fMissingRunsCode[i]==0) fprintf(page,"<font color=green> Run %d is missing (run is %d hours old) </font><br>\n", fCotBeam.fMissingRuns[i], diffHours);
      if(fCotBeam.fMissingRunsCode[i]==1) fprintf(page,"<font color=yellow> Run %d is missing (run is %d hours old) </font><br>\n", fCotBeam.fMissingRuns[i], diffHours);
      if(fCotBeam.fMissingRunsCode[i]==2) fprintf(page,"<font color=red> Run %d is missing (run  is %d hours old) </font><br>\n", fCotBeam.fMissingRuns[i], diffHours);
    }
    fprintf(page,"</h3>\n");
    fprintf(page,"<br clear=all>\n");
    
    if(fCotBeam.fNumRunsNotinPass>0) {
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<b> <font color=green size=+2> Runs with calibration but not in PASS17A </font></b>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<h3>\n");
      for(int i=0; i<fCotBeam.fNumRunsNotinPass; i++) {
	fprintf(page,"<font color=green> Run %d is not in PASS17A</font><br>\n", fCotBeam.fRunsNotinPass[i]);  
      }
      fprintf(page,"</h3>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    }
  } else {
    fprintf(page,"<b> <font color=red size=+4> The calibration file for Pad_Physics_CotBeam is missing !");    
  }

  fclose(page);

  // SvxBeam status
  htmlFile = fHtmlDirectory + "/SvxBeam.txt";


  page = fopen(htmlFile,"w");

  if(fSvxBeam.fExist) {    
    code=0;
    if(fSvxBeam.fNumMissingRuns>0) {
      for(int i=0; i<fSvxBeam.fNumMissingRuns; i++) {  
	if(fSvxBeam.fMissingRunsCode[i]==1) code = max(code, 1);
	if(fSvxBeam.fMissingRunsCode[i]==2) code = max(code, 2);
      }
    }
    
    if(code==0) { 
      fprintf(page,"<b> <font color=green size=+2> Runs with missing calibration ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==1) { 
      fprintf(page,"<b> <font color=yellow size=+2>Runs with missing calibration <blink> ==> KEEP AN EYE ON THIS </blink> ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==2) { 
      fprintf(page,"<b> <font color=red size=+2> Runs with missing calibration ");
      fprintf(page," <blink> ==> TAKE ACTION! ==>  </blink></font></b>\n");
    }
    
    fprintf(page,"<br clear=all>\n");
    fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    
    fprintf(page,"<h3>\n");
    if(fSvxBeam.fNumMissingRuns==0) fprintf(page,"<font color=green> No Run missing calibration </font><br>\n");
    for(int i=0; i<fSvxBeam.fNumMissingRuns; i++) {
      tDiff = now.Convert()- fSvxBeam.fMissingRunsTime[i].Convert();
      diffHours= tDiff/3600;
      if(fSvxBeam.fMissingRunsCode[i]==0) fprintf(page,"<font color=green> Run %d is missing (run is %d hours old) </font><br>\n", fSvxBeam.fMissingRuns[i], diffHours);
      if(fSvxBeam.fMissingRunsCode[i]==1) fprintf(page,"<font color=yellow> Run %d is missing (run is %d hours old) </font><br>\n", fSvxBeam.fMissingRuns[i], diffHours);
      if(fSvxBeam.fMissingRunsCode[i]==2) fprintf(page,"<font color=red> Run %d is missing (run is %d hours old) </font><br>\n", fSvxBeam.fMissingRuns[i], diffHours);
    }
    fprintf(page,"</h3>\n");
    fprintf(page,"<br clear=all>\n");
    

    if(fSvxBeam.fNumRunsNotinPass>0) {
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<b> <font color=green size=+2> Runs with calibration but not in PASS17A </font></b>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<h3>\n");
      for(int i=0; i<fSvxBeam.fNumRunsNotinPass; i++) {
	fprintf(page,"<font color=green> Run %d is not in PASS17A</font><br>\n", fSvxBeam.fRunsNotinPass[i]);  
      }
      fprintf(page,"</h3>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    }
  } else {
    fprintf(page,"<b> <font color=red size=+4> The calibration file for Pad_Physics_SvxBeam is missing !");    
  }   

  fclose(page);


  // CotSet status
  htmlFile = fHtmlDirectory + "/CotSet.txt";


  page = fopen(htmlFile,"w");


  if(fCotSet.fExist) {  
    code=0;
    if(fCotSet.fNumMissingRuns>0) {
      for(int i=0; i<fCotSet.fNumMissingRuns; i++) {    
	if(fCotSet.fMissingRunsCode[i]==1) code = max(code, 1);
	if(fCotSet.fMissingRunsCode[i]==2) code = max(code, 2);
      }
    }
    
    if(code==0) { 
      fprintf(page,"<b> <font color=green size=+2>  Runs with missing calibration ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==1) { 
      fprintf(page,"<b> <font color=yellow size=+2> Runs with missing calibration <blink> ==> KEEP AN EYE ON THIS </blink> ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==2) { 
      fprintf(page,"<b> <font color=red size=+2> Runs with missing calibration ");
      fprintf(page," <blink> ==> TAKE ACTION! ==>  </blink></font></b>\n");
    }
    
    fprintf(page,"<br clear=all>\n");
    fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    
    fprintf(page,"<h3>\n");
    if(fCotSet.fNumMissingRuns==0) fprintf(page,"<font color=green> No Run missing calibration </font><br>\n");
    for(int i=0; i<fCotSet.fNumMissingRuns; i++) {
      tDiff = now.Convert()- fCotSet.fMissingRunsTime[i].Convert();
      diffHours= tDiff/3600;
      if(fCotSet.fMissingRunsCode[i]==0) fprintf(page,"<font color=green> Run %d is missing (run is %d hours old) </font><br>\n", fCotSet.fMissingRuns[i], diffHours);
      if(fCotSet.fMissingRunsCode[i]==1) fprintf(page,"<font color=yellow> Run %d is missing (run is %d hours old) </font><br>\n", fCotSet.fMissingRuns[i], diffHours);
      if(fCotSet.fMissingRunsCode[i]==2) fprintf(page,"<font color=red> Run %d is missing (run is %d hours old) </font><br>\n", fCotSet.fMissingRuns[i], diffHours);
    }
    fprintf(page,"</h3>\n");
    fprintf(page,"<br clear=all>\n");


    if(fCotSet.fNumRunsNotinPass>0) {
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<b> <font color=green size=+2> Runs with calibration but not in PASS10A </font></b>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<h3>\n");
      for(int i=0; i<fCotSet.fNumRunsNotinPass; i++) {
	fprintf(page,"<font color=green> Run %d is not in PASS10A</font><br>\n", fCotSet.fRunsNotinPass[i]);  
      }
      fprintf(page,"</h3>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    }
  } else {
    fprintf(page,"<b> <font color=red size=+4> The calibration file for Prod_Physics_Cot is missing !");    
  }

  fclose(page);


  // SvxSet status
  htmlFile = fHtmlDirectory + "/SvxSet.txt";


  page = fopen(htmlFile,"w");


  if(fSvxSet.fExist) {      
    code=0;
    if(fSvxSet.fNumMissingRuns>0) {
      for(int i=0; i<fSvxSet.fNumMissingRuns; i++) {   
	if(fSvxSet.fMissingRunsCode[i]==1) code = max(code, 1);
	if(fSvxSet.fMissingRunsCode[i]==2) code = max(code, 2);
      }
    }
    
    if(code==0) { 
      fprintf(page,"<b> <font color=green size=+2> Runs with missing calibration ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==1) { 
      fprintf(page,"<b> <font color=yellow size=+2>Runs with missing calibration <blink> ==> KEEP AN EYE ON THIS </blink> ");
      fprintf(page," </a></font></b>\n");
    }
    if(code==2) { 
      fprintf(page,"<b> <font color=red size=+2> Runs with missing calibration ");
      fprintf(page,"  <blink>==> TAKE ACTION! ==>  </blink></font></b>\n");
    }
    
    fprintf(page,"<br clear=all>\n");
    fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    
    fprintf(page,"<h3>\n");
    if(fSvxSet.fNumMissingRuns==0) fprintf(page,"<font color=green> No Run missing calibration </font><br>\n");
    for(int i=0; i<fSvxSet.fNumMissingRuns; i++) {
      tDiff = now.Convert()- fSvxSet.fMissingRunsTime[i].Convert();
      diffHours= tDiff/3600;
      if(fSvxSet.fMissingRunsCode[i]==0) fprintf(page,"<font color=green> Run %d is missing (run is %d hours old) </font><br>\n", fSvxSet.fMissingRuns[i], diffHours);
      if(fSvxSet.fMissingRunsCode[i]==1) fprintf(page,"<font color=yellow> Run %d is missing (run is %d hours old) </font><br>\n", fSvxSet.fMissingRuns[i],diffHours );
      if(fSvxSet.fMissingRunsCode[i]==2) fprintf(page,"<font color=red> Run %d is missing (run is %d hours old) </font><br>\n", fSvxSet.fMissingRuns[i], diffHours);
    }
    fprintf(page,"</h3>\n");
    fprintf(page,"<br clear=all>\n");
    
    if(fSvxSet.fNumRunsNotinPass>0) {
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<b> <font color=green size=+2> Runs with calibration but not in PASS10A </font></b>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
      fprintf(page,"<h3>\n");
      for(int i=0; i<fSvxSet.fNumRunsNotinPass; i++) {
	fprintf(page,"<font color=green> Run %d is not in PASS10A</font><br>\n", fSvxSet.fRunsNotinPass[i]);  
      }
      fprintf(page,"</h3>\n");
      fprintf(page,"<br clear=all>\n");
      fprintf(page,"<hr align=left noshade=1 size=2 width=700>\n");
    }
  } else {
    fprintf(page,"<b> <font color=red size=+4> The calibration file for Prod_Physics_Svx is missing !");    
  }   


  fclose(page);





  return 0;
}

int TCalibrationsMonitor::MakeXml() {
  // XXX use actutal values

  monInfo.name = "Calibrations";
  monInfo.filename = "calibrations.xml";
  monInfo.contactname = "Calibration experts";
  monInfo.contacturl = "mailto:tvine@fnal.gov,smalik@fnal.gov,cdfoom@fnal.gov";
  monInfo.timestamp = TDatime().Convert();

  if(fPass10A.fStatus==1 || fPass17A.fStatus==1 || fCotBeam.fStatus==1 || fSvxBeam.fStatus==1 || fCotSet.fStatus==1 || fSvxSet.fStatus==1) monInfo.status=ABNORMAL;
  if(fPass10A.fStatus==2 || fPass17A.fStatus==2 || fCotBeam.fStatus==2 || fSvxBeam.fStatus==2 || fCotSet.fStatus==2 || fSvxSet.fStatus==2) monInfo.status=BAD;
  if(fPass10A.fStatus==4 || fPass17A.fStatus==4 || fCotBeam.fStatus==4 || fSvxBeam.fStatus==4 || fCotSet.fStatus==4 || fSvxSet.fStatus==4) monInfo.status=BAD;

  
  monSubInfo.reserve(6);
  monSubInfo.resize(6);
  monSubInfo[0].name = "Prod_Physics_Cot";
  monSubInfo[0].url = "http://www-cdf.fnal.gov/tiki/tiki-index.php?page=ProdPhysicsCot";
  monSubInfo[0].status = static_cast<Status>(fCotSet.fStatus) < BAD ? static_cast<Status>(fCotSet.fStatus) : BAD;

  monSubInfo[0].values.reserve(1);
  monSubInfo[0].values.resize(1);
  monSubInfo[0].values[0].grouping = "none";
  monSubInfo[0].values[0].group = "Missing runs / Oldest run";
  ostringstream oss;
  oss << fCotSet.fNumMissingRuns << " / " << fCotSet.fMissingRunsMaxTime/ONEHOUR << "h";
  monSubInfo[0].values[0].val = oss.str();
  
  monSubInfo[1].name = "Prod_Physics_Svx";
  monSubInfo[1].url = "http://www-cdf.fnal.gov/tiki/tiki-index.php?page=ProdPhysicsSvx";
  monSubInfo[1].status = static_cast<Status>(fSvxSet.fStatus) < BAD ? static_cast<Status>(fSvxSet.fStatus) : BAD;

  monSubInfo[1].values.reserve(1);
  monSubInfo[1].values.resize(1);
  monSubInfo[1].values[0].grouping = "none";
  monSubInfo[1].values[0].group = "Missing runs / Oldest run";
  oss.str("");
  oss << fSvxSet.fNumMissingRuns << " / " << fSvxSet.fMissingRunsMaxTime/ONEHOUR << "h";
  monSubInfo[1].values[0].val = oss.str();
  
  monSubInfo[2].name = "Pad_Physics_CotBeam";
  monSubInfo[2].url = "http://www-cdf.fnal.gov/tiki/tiki-index.php?page=PadPhysicsCot";
  monSubInfo[2].status = static_cast<Status>(fCotBeam.fStatus) < BAD ? static_cast<Status>(fCotBeam.fStatus) : BAD;

  monSubInfo[2].values.reserve(1);
  monSubInfo[2].values.resize(1);
  monSubInfo[2].values[0].grouping = "none";
  monSubInfo[2].values[0].group = "Missing runs / Oldest run";
  oss.str("");
  oss << fCotBeam.fNumMissingRuns << " / " << fCotBeam.fMissingRunsMaxTime/ONEHOUR << "h";
  monSubInfo[2].values[0].val = oss.str();
  
  monSubInfo[3].name = "Pad_Physics_SvxBeam";
  monSubInfo[3].url = "http://www-cdf.fnal.gov/tiki/tiki-index.php?page=PadPhysicsSvx";
  monSubInfo[3].status = static_cast<Status>(fSvxBeam.fStatus) < BAD ? static_cast<Status>(fSvxBeam.fStatus) : BAD;

  monSubInfo[3].values.reserve(1);
  monSubInfo[3].values.resize(1);
  monSubInfo[3].values[0].grouping = "none";
  monSubInfo[3].values[0].group = "Missing runs / Oldest run";
  oss.str("");
  oss << fSvxBeam.fNumMissingRuns << " / " << fSvxBeam.fMissingRunsMaxTime/ONEHOUR << "h";
  monSubInfo[3].values[0].val = oss.str();
  
  monSubInfo[4].name = "Pass10A";
  monSubInfo[4].url = "http://www-cdf.fnal.gov/tiki/tiki-index.php?page=Pass10A";
  monSubInfo[4].status = static_cast<Status>(fPass10A.fStatus) < BAD ? static_cast<Status>(fPass10A.fStatus) : BAD;

  monSubInfo[4].values.reserve(1);
  monSubInfo[4].values.resize(1);
  monSubInfo[4].values[0].grouping = "none";
  monSubInfo[4].values[0].group = "Missing runs / Oldest run";
  oss.str("");
  oss << fPass10A.fNumMissingRuns << " / " << fPass10A.fMissingRunsMaxTime/ONEHOUR << "h";
  monSubInfo[4].values[0].val = oss.str();
  
  monSubInfo[5].name = "Pass17A";
  monSubInfo[5].url = "http://www-cdf.fnal.gov/tiki/tiki-index.php?page=Pass17A";
  monSubInfo[5].status = static_cast<Status>(fPass17A.fStatus) < BAD ? static_cast<Status>(fPass17A.fStatus) : BAD;

  monSubInfo[5].values.reserve(1);
  monSubInfo[5].values.resize(1);
  monSubInfo[5].values[0].grouping = "none";
  monSubInfo[5].values[0].group = "Missing runs / Oldest run";
  oss.str("");
  oss << fPass17A.fNumMissingRuns << " / " << fPass17A.fMissingRunsMaxTime/ONEHOUR << "h";
  monSubInfo[5].values[0].val = oss.str();
  

  TOfflineMonitor::MakeXml();

  return 0;
}