to_wan.c

Go to the documentation of this file.

#include "prototypes_new.h"
/* adapted to send products to wan q */
int to_wan(char *fname)
 
{
 
char *afos,cmd[200],*p,mbuf[100];
time_t tim;
struct tm *tm;
int ier;
 
 
afos=getenv("AFOS");
 
if(afos==NULL)
           return(-1);
 
tim=time(NULL);
 
tm=gmtime(&tim);
 
p=strrchr(fname,'/');
 
if(p!=NULL)
          p=p+1;
 
else
          p=fname;
 
sprintf(mbuf,"%s.%02d%02d%02d.%02d%02d%02d",p,
              tm->tm_year,
              tm->tm_mon+1,
              tm->tm_mday, 
              tm->tm_hour,
              tm->tm_min,
              tm->tm_sec);
 
sprintf(cmd,"cp %s %s/%s",fname,afos,mbuf);
 
printf("cmd is %s\n",cmd);
 
ier=system(cmd);
 
printf("ier is %d\n",ier);
 
return(ier);
 
}