/* Bruce Bockius September 1996
   Converts InFileName, a tab delinated file generated my FMPro
   into OutFileName, a HTML file indexing the many individual
   HTML files created in OutDir for each date.

   Modified 3/6/97 to correct build time/analysis time errors.
   */


#include <conio.h>;
#include <stdio.h>;
#include <stdlib.h>;
#include <string.h>;
#include <dos.h>;

#define InFileName "C:\\PROGRA~1\\FMPRO\\BUILD.TAB"
#define OutTmpName "C:\\FRONTP~1\\Zodiac\\Zodiac\\BUILD.TMP"
#define OutFileName "C:\\FRONTP~1\\Zodiac\\Zodiac\\LOG.HTM"
#define OutDir "C:\\FRONTP~1\\Zodiac\\Zodiac\\BUILD\\"
#define BufSize 10000
#define MaxEntries 350

main() {
	FILE		*InLogFile,*InHTMLFile,*OutFile,*OutPage;
	int		a,b,c,d,i,j,Entry,LastEntry;
	char		*Buf,ShortDesc[128],*LongDesc,*p,*BI;
	char		AsOfDate[12],Date[12],Date2[12],SubName[80],d2[12];
	float		BuildTime,AnalysisTime,TotalTime,RBuild,RAnalysis;
	struct date     DosDate;
	char 		LinkData[MaxEntries][9];

	clrscr();
	printf("Converting " InFileName " to " OutFileName " and " OutDir "*.HTM\n\n");

	/* InHTMLFile	The old BUILD.HTM file from GNN Press
	   InLogFile    The new A:BUILD.TAB file from filemaker pro
	   OutFile	The new BUILD.TMP file for GNN Press
	   OutPage	The individual detailed descriptions */

	printf("Opening original HTML file...\n");
	if ((InHTMLFile=fopen(OutFileName,"r"))==NULL) {
		printf("ERROR OPENING INPUT HTML FILE: " OutFileName "\n\n");
		abort();
		}
	printf("Opening Temporary output file...\n");
	if ((OutFile=fopen(OutTmpName,"w"))==NULL) {
		printf("ERROR OPENING TEMP OUTPUT FILE: " OutTmpName "\n\n");
		fcloseall();
		abort();
		}
	printf("Opening Input Log file...\n");
	if ((InLogFile=fopen(InFileName,"r"))==NULL) {
		printf("ERROR OPENING INPUT LOG FILE 1st TIME: " InFileName "\n\n");
		fcloseall();
		abort();
		}

	/* Ok, copy everything before the first table */

	printf("Allocating memory...\n");
	if ((Buf=malloc(BufSize))==NULL) {
		fcloseall();
		printf("MALLOC FAILED FOR Buf\n\n");
		abort();
		}
	if ((LongDesc=malloc(BufSize))==NULL) {
		fcloseall();
		free(Buf);
		printf("MALLOC FAILED FOR LongDesc\n\n");
		abort();
		}

	printf("Copying start of original HTML file...\n");
	do {
		p=fgets(Buf,BufSize,InHTMLFile);
		fprintf(OutFile,"%s",Buf);
	} while ((strncmp(Buf,"<table",6))&&(p!=NULL));

	if (p==NULL) {
		printf("'<table' not found in input file\n\n");
		fcloseall();
		free(Buf);  free(LongDesc);
		abort();
		}

	/* scans ahead to get forward links & totals */

	printf("Looking ahead for forward links and total in table...\n");
	RBuild=RAnalysis=0.0;  Entry=0;
	do {
	   p=fgets(Buf,BufSize,InLogFile);
	   if (p==NULL) continue;
	   j=0;  BI=Buf;
	   for (i=0;i<BufSize;i++,p++) {
		if (*p==0) break;
		if (*p!='\t') continue;
		*p=0; j++;
		switch (j) {
		    case 1: strcpy(Date,BI); break;
		    case 4: sscanf(BI,"%i:%i",&a,&b); break;
		    case 5: sscanf(BI,"%i:%i",&c,&d); break;
		    }
		BI=p+1;
		}
	   if (j!=8) {
		printf("\n\nERROR IN INPUT LOG FORMAT:\n%s\n\n",Buf);
		fcloseall();
		free(Buf);  free(LongDesc);
		abort();
		}

	   AnalysisTime=a+b/60.0; BuildTime=c+d/60.0;
	   RBuild+=BuildTime; RAnalysis+=AnalysisTime;
	   strcpy(SubName,"BUILD\\");
	   strcpy(Date2,Date);  /* looks like 2/5/97 right now */
	   if (Date2[1]=='/') {
		strcpy(d2,Date2);
		d2[1]=d2[0];
		d2[0]='0';
		d2[2]=0;
		strcat(d2,"/");
		strcat(d2,Date2+2);
		strcpy(Date2,d2);
		}
	   /* now it looks like 02/5/97    */
	   if (Date2[4]=='/') {
		strcpy(d2,Date2);
		d2[4]=d2[3];
		d2[3]='0';
		d2[5]=0;
		strcat(d2,"/");
		strcat(d2,Date2+5);
		strcpy(Date2,d2);
		}
	   /* Now it looks like 02/05/97 */
	   for (i=0;i<strlen(Date2);i++)
		if (Date2[i]=='/') Date2[i]='_';
	   /* Now it looks like 02_05_97 */
	   strcpy(d2,Date2);
	   strcpy(Date2,Date2+6);
	   strcat(Date2,"_");
	   d2[5]=0;
	   strcat(Date2,d2);
	   /* Now it looks like 97_02_05 */
	   strcat(SubName,Date2);
	   strcat(SubName,".htm");
	   strcpy(LinkData[Entry++],Date2);
	} while (p!=NULL);
	fclose(InLogFile);
	if ((InLogFile=fopen(InFileName,"r"))==NULL) {
		printf("ERROR OPENING INPUT LOG FILE 2nd TIME: " InFileName "\n\n");
		fcloseall();
		abort();
		}

	getdate(&DosDate);
	itoa(DosDate.da_mon,AsOfDate,10);
	itoa(DosDate.da_day,Buf,10);
	strcat(AsOfDate,"/");
	strcat(AsOfDate,Buf);
	itoa(DosDate.da_year-1900,Buf,10);
	strcat(AsOfDate,"/");
	strcat(AsOfDate,Buf);
	TotalTime=RBuild+RAnalysis;

	printf("Creating table #1 in temporary file...\n");
	/* Now insert the build total numbers */
	fprintf(OutFile,"<TR>\n<TD>\nTotal build time as of\n</TD>\n<TD>\n");
	fprintf(OutFile,"%s:\n",AsOfDate);
	fprintf(OutFile,"</TD>\n<TD>\n");
	fprintf(OutFile,"%6.1f hours\n",RAnalysis);
	fprintf(OutFile,"</TD>\n</TR>\n<TR>\n<TD>\nTotal analysis time:\n</TD>\n<TD>\n</TD>\n<TD>\n");
	fprintf(OutFile,"<U>%6.1f hours</U>\n</TD>\n</TR>\n",RBuild);
	fprintf(OutFile,"<TR>\n<TD>\nTOTAL TIME:\n</TD>\n<TD>\n</TD>\n<TD>\n");
	fprintf(OutFile,"%6.1f hours\n</TD>\n</TR>\n</table>\n",TotalTime);

	/* Construct table #2 */

	printf("Creating table #2 in temporary file...\n");
	fprintf(OutFile,"<P>\n<table width=100% BORDER CELLPADDING=\42" "2\42" ">\n");
	fprintf(OutFile,"<TR VALIGN=\42" "Bottom\42" ">\n<TD><P ALIGN=Center>\nDATE\n</TD>\n");
	fprintf(OutFile,"<TD>\n<SMALL>BUILD and</SMALL>\n<P>\n<SMALL>ANALYSIS</SMALL>\n<P ALIGN=Center>\n<SMALL>TIME (hours)</SMALL>\n</TD>\n");
	fprintf(OutFile,"<TD><P ALIGN=Center>\nDESCRIPTION SUMMARY\n</TD>\n</TR>\n");

	LastEntry=Entry-1; Entry=0;
	do {
	   p=fgets(Buf,BufSize,InLogFile);
	   if (p==NULL) continue;
	   j=0;  BI=Buf;
	   for (i=0;i<BufSize;i++,p++) {
		if (*p==0) break;
		if (*p!='\t') continue;
		*p=0; j++;
		switch (j) {
		    case 1: strcpy(Date,BI); break;
		    case 2: strcpy(LongDesc,BI); break;
		    case 3: strcpy(ShortDesc,BI); break;
		    case 4: sscanf(BI,"%i:%i",&a,&b); break;
		    case 5: sscanf(BI,"%i:%i",&c,&d); break;
		    }
		BI=p+1;
		}
	   if (j!=8) {
		printf("\n\nERROR IN INPUT LOG FORMAT 2nd TIME???:\n%s\n\n",Buf);
		fcloseall();
		free(Buf);  free(LongDesc);
		abort();
		}

	   AnalysisTime=c+d/60.0; BuildTime=a+b/60.0;
	   TotalTime=BuildTime+AnalysisTime;
	   fprintf(OutFile,"<TR>\n<TD>\n%s\n</TD>",Date);
	   fprintf(OutFile,"<TD>\n%6.1f\n</TD>\n",TotalTime);
	   strcpy(SubName,"build/");

	   strcpy(Date2,Date);
	   if (Date2[1]=='/') {
		strcpy(d2,Date2);
		d2[1]=d2[0];
		d2[0]='0';
		d2[2]=0;
		strcat(d2,"/");
		strcat(d2,Date2+2);
		strcpy(Date2,d2);
		}
	   /* now it looks like 02/5/97    */
	   if (Date2[4]=='/') {
		strcpy(d2,Date2);
		d2[4]=d2[3];
		d2[3]='0';
		d2[5]=0;
		strcat(d2,"/");
		strcat(d2,Date2+5);
		strcpy(Date2,d2);
		}
	   /* Now it looks like 02/05/97 */
	   for (i=0;i<strlen(Date2);i++)
		if (Date2[i]=='/') Date2[i]='_';
	   /* Now it looks like 02_05_97 */
	   strcpy(d2,Date2);
	   strcpy(Date2,Date2+6);
	   strcat(Date2,"_");
	   d2[5]=0;
	   strcat(Date2,d2);
	   /* Now it looks like 97_02_05 */

	   strcat(SubName,Date2);
	   fprintf(OutFile,"<TD>\n<A HREF=\42" "%s.htm\42" ">%s</A>\n</TD>\n</TR>\n",SubName,ShortDesc);
	   strcpy(SubName,OutDir);
	   strcat(SubName,Date2);
	   strcat(SubName,".HTM");
	   printf("Opening %s...\n",SubName);
	   if ((OutPage=fopen(SubName,"w"))==NULL) {
		free(Buf);  free(LongDesc);
		fcloseall();
		printf("\n\nERROR OPENING OUTPUT FILE: %s\n\n",SubName);
		abort();
		}
	   fprintf(OutPage,"<HTML>\n<HEAD>\n<TITLE>%s</TITLE>\n",ShortDesc);
	   fprintf(OutPage,"<META Name=\42" "GENERATOR\42" " Content=\42" "=BCB= Software, Inc.\42" ">\n");
	   fprintf(OutPage,"</HEAD><BODY BGCOLOR=\42" "#000000\42" " TEXT=\42" "#ffffff\42" " LINK=\42" "#00ff00\42" " VLINK=\42" "#ff0000\42" " BACKGROUND=\42" "../starry.jpg\42" ">\n");
	   fprintf(OutPage,"<H1 ALIGN=Center>Builder's Log %s</H1>\n",Date);
	   fprintf(OutPage,"<P><H2 ALIGN=Center>%s</H2>\n",ShortDesc);
	   fprintf(OutPage,"<P>Build Time: %6.1f hours ... Analysis Time: %6.1f hours\n",BuildTime,AnalysisTime);
	   fprintf(OutPage,"<P>%s<P><H4>\n",LongDesc);
	   if (Entry>0) fprintf(OutPage,"<A HREF=\42" "%s.htm\42" ">Next Log Entry</A> . . . \n",LinkData[Entry-1]);
	   if (Entry<LastEntry) fprintf(OutPage,"<A HREF=\42" "%s.htm\42" ">Previous Log Entry</A>\n",LinkData[Entry+1]);
	   fprintf(OutPage,"</H4><H4><A HREF=\42" "../log.htm\42" ">Back to Log Index</A></H4>\n");
	   fprintf(OutPage,"<H4><A HREF=\42" "../index.shtml\42" " target=\42" "_top\42" ">To First Page</A></H4>\n");
	   fprintf(OutPage,"</BODY></HTML>\n");
	   fclose(OutPage);  Entry++;
	} while (p!=NULL);


	fprintf(OutFile,"</table>\n");

	free(LongDesc);
	/* copy end of input file - first skip 2 tables */
	printf("Copying end of original HTML file...\n");
	do {
		p=fgets(Buf,BufSize,InHTMLFile);
	} while ((strncmp(Buf,"</table>",8))&&(p!=NULL));

	if (p==NULL) {
		printf("'</table>' number one not found in input file\n\n");
		fcloseall();
		free(Buf);
		abort();
		}
	do {
		p=fgets(Buf,BufSize,InHTMLFile);
	} while ((strncmp(Buf,"</table>",8))&&(p!=NULL));

	if (p==NULL) {
		printf("'</table>' number two not found in input file\n\n");
		fcloseall();
		free(Buf);
		abort();
		}
	do {
		p=fgets(Buf,1024,InHTMLFile);
		if (p!=NULL) fprintf(OutFile,"%s",Buf);
	} while ((strncmp(Buf,"<table",6))&&(p!=NULL));

	/* Now close temp file, delete original & rename */
	printf("Closing all files, deallocating memory...\n");
	fcloseall();
	free(Buf);
	printf("Delete original log file...\n");
	unlink(OutFileName);
	printf("Renaming temp file...\n");
	rename(OutTmpName,OutFileName);
	printf("Done.\n");
	getch();
}