/* This program, written in ANSI C, is designed to be called by HTTPD, and return
 * data in HTML, readable by Mosaic. You must have HTTPD and Mosaic to use it.
 * The compiled program should be placed in the cgi-bin directory of your HTTPD
 * heirarchy.  I MAKE NO CLAIMS AS TO PORTABILITY; ONLY TESTED ON SunOS 4.1.1,
 * COMPILED WITH GCC.
 * The unit descriptions must be named box%.unit#, where % represents a
 * box number in arbitary format, and # is the unit
 * number, unpadded.  Clearly this must be changed for DOS.
 * The unit desired is passed to the program by the environment variable PATH_INFO,
 * and a leading slash is deleted.  Thus e.g., a correct URL to call this program
 * to return the description of unit 9 would be:
 *			http://hostname/cgi-bin/lithterp_html/9
 *
 * You must make one modification: change the sprintf command below to
 * reflect the actual full path to the directory where you place the unit
 * descriptions.
 * 
 * Version 2.0 6/17/94 File format changed; RQD moved to header; unused fields dropped.
 * Version 1.0 6/16/94 
 * Paul Asimow (paul@expet.gps.caltech.edu)
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <fcntl.h>
#include <malloc.h>

void main() {
	FILE *fp1;
	char *buf, *data[100], instring[600], outstring[100];
	char filename[20][50], *unitstring;
	int field,unit,i=0,j,k;
	int fd, activecomma;
	buf = (char *) malloc(sizeof(char));
	
	unitstring = getenv("PATH_INFO");	/* Get the unit number as passed by */
	unit = atoi(++unitstring);		/* HTTPD and remove the slash */

/* Modify this line to reflect the full path of the directory where your data is */
	sprintf(outstring, "ls /home2/httpd/httphome/units/box*.unit%d",unit);

	fp1 = popen(outstring, "r");				/* get a listing of */
	while (fscanf(fp1, "%s", filename[i]) != EOF) i++;	/* all files which  */
	pclose(fp1);						/* describe this unit*/

	printf("Content-type: text/html%c%c",10,10);		/* Needed by Mosaic */
	printf("<title>Unit Summaries for unit %d </title>",unit);

	printf("<h1>Lithologic Unit #%d</h1>(appears in %d boxes)<hr>",unit,i);
	for (j=0;j<i;j++) {	/* Loop over boxes in which the unit was found */
		field = 0; activecomma = 1; strcpy(instring,"");
		fd = open(filename[j],0);		/* Open the file */
		while (read(fd,buf,1)) {		/* read one byte at a time */
			if (*buf == 34) activecomma = 1-activecomma; /*Double-quotes?*/
			else if (activecomma == 1 && *buf == 44) {   /*End of field?*/
				data[field] = (char *) malloc((1+strlen(instring))*sizeof(char));
				strcpy(data[field], instring);	     /* Put data in*/
				field++;			     /* array      */
				strcpy(instring,"");
			} else strncat(instring,buf,1); /*else add character to string */
		}	
		if (strlen(instring)) {		/*In case file doesn't end with comma*/
			data[field] = (char *) malloc((1+strlen(instring))*sizeof(char));
			strcpy(data[field],instring);
			field++;
		}
		close(fd);
		printf("<h2>Box %s</h2>", data[0]);	/*Begin writing data*/	
		printf("Core runs in box: ");
		for(k=1;k<=6;k++) {
			if (data[k] == "") break;
			else printf("%s ",data[k]);
		}
		printf("<br> Recovery in %% core runs in box: ");
		for(k=7;k<=12;k++) {
			if (data[k] == "") break;
			else printf("%s ", data[k]);
		}
		printf("<br> RQD in ratio form for core runs: ");
                for(k=13;k<=18;k++) {
                        if (data[k] == "") break;
                        else printf("%s ",data[k]);
                }
                printf("<p>Logged by %s, on date %s <br>", data[19], data[20]);
                printf("Checked by %s on date %s<br>", data[21], data[22]);
                printf("Driller's depth of <b>box</b>: top %s ft., bottom %s ft.<br>", data[23], data[24]);
                printf("Core Type: %s; # of Units in box: %s<hr>",data[25],data[26]);
	
                printf("<h2>Unit #%s, %s</h2>",data[27],data[28]); 
                if (strlen(data[29])) printf("Unit type: %s <br>",data[29]);
		if (strlen(data[30])) printf("Comments: %s <p>",data[30]);
                printf("<h3>Contacts</h3><b>Top:</b>");
                if (strlen(data[31])) printf(" Core run %s,",data[31]);
                if (strlen(data[32])) printf(" revised depth %s,",data[32]);
                if (strlen(data[33])) printf(" contact type %s",data[33]);
                printf("<br>");
                printf("<b>Bottom:</b>");
                if (strlen(data[34])) printf(" Core run %s,",data[34]);
                if (strlen(data[35])) printf(" revised depth %s,",data[35]);
                if (strlen(data[36])) printf(" contact type %s",data[36]);
                printf("<br>");
                if (strlen(data[37])) printf("Comments: %s<br>", data[37]);
                else printf("<br>");
                printf("<h3>Phenocrysts</h3>");
                if (strlen(data[38])) printf("Overall abundance %s<br>",data[38]);
                if (strlen(data[39])) printf("Overall comments: %s<br>",data[39]);
                if (strlen(data[40])) {
                        printf("<b>a</b>: %s.",data[40]);
                        if (strlen(data[41])) printf(" <i>Abundance</i> %s,",data[41]);
                        if (strlen(data[42])) printf(" <i>Average size</i> %s,",data[42]);
                        if (strlen(data[42])) printf(" <i>shape</i> %s,",data[43]);
                        if (strlen(data[44])) printf(" <i>alteration</i> %s,",data[44]);
                        if (strlen(data[45])) printf(" <i>comments</i>: %s",data[45]);
                        if (strlen(data[46])) {
                                printf("<br><b>b</b>: %s.",data[46]);
                                if (strlen(data[47])) printf(" <i>Abundance</i> %s,",data[47]);
                                if (strlen(data[48])) printf(" <i>Average size</i> %s,",data[48]);
                                if (strlen(data[49])) printf(" <i>shape</i> %s,",data[49]);
                                if (strlen(data[50])) printf(" <i>alteration</i> %s,",data[50]);
                                if (strlen(data[51])) printf(" <i>comments</i>: %s",data[51]);
                                if (strlen(data[52])) {
                                        printf("<br><b>c</b>: %s.",data[52]);
                                        if (strlen(data[53])) printf(" <i>Abundance</i> %s,",data[53]);
                                        if (strlen(data[54])) printf(" <i>Average size</i> %s,",data[54]);
                                        if (strlen(data[55])) printf(" <i>shape</i> %s,",data[55]);
                                        if (strlen(data[56])) printf(" <i>alteration</i> %s,",data[56]);
                                        if (strlen(data[57])) printf(" <i>comments</i>: %s",data[57]);
                                }
                        }
                }
                if (strlen(data[59])||strlen(data[60])||strlen(data[58])) {
                        printf("<h3>Groundmass</h3>");
                        if (strlen(data[54])) printf(" <i>Lithology</i> %s,",data[58]);
                        if (strlen(data[55])) printf(" <i>texture</i> %s,",data[59]);
                        if (strlen(data[56])) printf(" <i>comments</i> %s",data[60]);
                }
                if (strlen(data[61])) printf("<h3>Color (dry)</h3> %s<br>",data[61]);
                if (strlen(data[62])) printf("<h3>Sedimentary/Volcanic Structures</h3> %s<br>", data[62]);
                if (strlen(data[63])) printf("<h3>Sorting</h3> %s<br>",data[63]);
                if (strlen(data[64])) {
                        printf("<h3>Vesicles</h3> <i>abundance</i> %s,",data[64]);
                        if (strlen(data[65])) printf(" <i>Average size</i> %s,",data[65]);
                        if (strlen(data[66])) printf(" <i>Shape</i> %s,",data[66]);
                        if (strlen(data[67])) printf(" <i>Fillings</i> %s,",data[67]);
                        if (strlen(data[68])) printf(" <i>Aspect ratio</i> %s,",data[68]);
                        if (strlen(data[69])) printf(" <i>Comments</i> %s",data[69]);
                }
                if (strlen(data[70])||strlen(data[71])||strlen(data[72])) {
                        printf("<h3>Alteration</h3>");
                        if (strlen(data[70])) printf(" <i>Abundance</i> %s,",data[70]);
                        if (strlen(data[71])) printf(" <i>Mineralogy</i> %s,",data[71]);
                        if (strlen(data[72])) printf(" <i>Comments</i> %s",data[72]);
                }
                if (strlen(data[73])) printf("<h3>Veins</h3> %s<br>",data[73]);
                if (strlen(data[74])) printf("<h3>Fractures</h3> %s<br>",data[74]); 
                if (strlen(data[75])) printf("<h3>Additional Comments</h3> %s",data[75]);
		printf("<hr>");
		for (k=0;k<field;k++) free(data[k]);
	}
}