esp_age.c

Go to the documentation of this file.

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <errno.h>
#include <math.h>
#include <sys/time.h>
 
/* returns the age of an esp .CS file in hours */
 
int esp_age (char *directory, char *file, int debug)
{
FILE *fp;
FILE *pf, *popen();
char fmt[80];
char filename[256];
char line[256];
char info[256];
char cmd[256];
int age;
int time;
int year,month,day,hour,minute;
int yr,mo,dy,hr,mn,sd;
int off_set;
int approach=2;
long t_file,t_system;
unsigned long fileLen;
float *buffer;
 
  strcpy(filename,directory);
  strcat(filename,"/");
  strcat(filename,file);
 
  if(debug)
  {
    printf("dir:   <%s>\n",directory);
    printf("file:  <%s>\n",file);
    printf("both:  <%s>\n",filename);
  }
 
  if(approach==1)
  {
    sprintf(cmd,"/awips/hydroapps/lx/rfc/nwsrfs/ens/scripts/run_espdata h %s",filename);
    if(debug)
      printf("cmd: <%s>\n",line);
 
    year=2000;month=1;day=1;hour=12;
 
    pf=popen(cmd,"r");
    while(fgets(line,sizeof(line),pf))
    {
      if(debug)
        printf("%s\n",line);
      if(!strncmp(line,"_now[0]",7))
        sscanf(line+13,"%d",&month);
      if(!strncmp(line,"_now[1]",7))
        sscanf(line+13,"%d",&day);
      if(!strncmp(line,"_now[2]",7))
        sscanf(line+13,"%d",&year);
      if(!strncmp(line,"_now[3]",7))
      {
        sscanf(line+13,"%d",&time);
        hour=time/100;
        minute=time%100;
      }
    }
    pclose(pf);
    t_file=ouptime(year,month,day,hour,0,0);
    if(debug)
    {
      printf("esp_file = %02d/%02d/%04d @ %02d%02d",month,day,year,hour,minute);
      printf("esp_time = %d\n",t_file);
    }
  }
  else
  {
    if((fp=fopen(filename,"rb")))
    {
      fseek(fp,0,SEEK_END);
      fileLen=ftell(fp);
      fseek(fp,0,SEEK_SET);
      buffer=(float *)malloc(fileLen+1);
 
      if(!buffer)
      {
        if(debug)
          printf("memmory error on buffer\n");
        fclose(fp);
        return(-1);
      }
 
      fread(buffer,fileLen,4,fp);
      if(debug)
        printf("%s read into buffer!\n",filename);
      fclose(fp);
 
      if(debug)
        printf("%s (fileLen=%d bytes)\n",filename,fileLen*4);
 
      month=(int)buffer[9];
      day=(int)buffer[10];
      year=(int)buffer[11];
      time=(int)buffer[12];
      hour=time/100;
      minute=time%100;
 
      off_set=-1*(int)buffer[24];
      adj_time(off_set,year,month,day,hour,&yr,&mo,&dy,&hr);
      year=yr;month=mo;day=dy;hour=hr;
      t_file=ouptime(year,month,day,hour,0,0);
 
      if(debug)
      {
        printf("esp_file = %02d/%02d/%04d @ %02d%02d ZULU\n",month,day,year,hour,minute);
        printf("esp_time = %d\n",t_file);
      }
    }
    else
    {
      if(debug)
        printf("cannot open .CS file: %s\n",filename);
      return(-1);
    }
  }
 
  strncpy(fmt,"'+%Y %m %d %H %M %S'",20);
  *(fmt+20)='\0';
  sprintf(line,"date -u %s",fmt);
  if(debug)
    printf("cmd: <%s>\n",line);
  pf=popen(line,"r");
  fgets(info,sizeof(info),pf);
  if(debug)
    printf("info: <%s>\n",info);
  pclose(pf);
 
  sscanf(info,"%d %d %d %d %d %d",&yr,&mo,&dy,&hr,&mn,&sd);
  t_system=ouptime(yr,mo,dy,hr,mn,sd);
  if(debug)
    printf("system_time: %d\n",t_system);
 
  age=(int)((t_system - t_file)/3600);
   
  if(debug)
    printf("esp_age is %d hrs.\n",age);
 
  return(age);
}