/*
cgi.h	汎用CGIライブラリ
copyright (c) 1999- TaraChan
*/

#if !defined(__CGI_H)
#define __CGI_H

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "stringxx.h"

#define CGI_H_EOF_CHR "-EOF-\n"
#define CGI_H_BUFFER_SIZE 1024
#define CGI_H_N_BUF 64

typedef struct{
	char *name;
	char *value;
} hash;


/*関数のプロトタイプ---------------------------------------------------------*/
char *get_form_strings(void);
/*【フォームからのデータ入手】
GET、POST両方から文字列を受け取ります。
受け取る文字列の形式は、CGIの規則どおりです。(name1=value1&name2=value2&...)
戻り値は、受け取った文字列の先頭のポインタです。文字列が受け取れなかったときも、
空文字列の先頭ポインタを返します。失敗したときは、NULLを返します。
*/

int value_count(char *inport);
/*【要素数のカウント】
要素の個数('&'の数+1)を返します。
戻り値が要素の個数です。
*/

int cut_string(char *inport,int len,hash hashs[],int *index);
/*【CGIのデータを切る】
文字列inportを、「=」「&」で分割し、hashに格納（注意）します。
*indexには、ハッシュの要素数が入ります。
戻り値は、0です。
(注)inport内を指すポインタとして格納するので、inportを開放するとnameとvalueの
値は消えてしまいます。
*/

int decode_string(char *inport,int len);
/*【デコード】
inportの文字列のデコードを行います。
具体的には、「%xx」「+」の変換となります。
戻り値は、成功すると0、文字列が無いか、失敗したときは-1を返します。
*/

int encode_string(unsigned char *in,char *out,int len);
/*【エンコード】
inportの文字列のエンコードを行います。outは、inの約3倍の大きさが
必要です。
戻り値は、成功すると0、文字列が無いか、失敗したときは-1を返します。
*/

char *get_value(char *input,hash hashs[],int index);
/*【ハッシュの値の取得】
hashのvalue中でnameがindexと同じ物を返します。
戻り値は、対応するvalue[]の先頭のポインタとなります。
対応するものが無ければ、NULLを返します。
*/

int read_conf(const char *conf_file,hash hashs[],int *o_index);
/*
【コンフィグファイルから値を読み込む】
conf_fileをコンフィグファイルとして読み込みます。
hashに値を格納し、要素数は*o_indexに入ります。
戻り値は、要素数です。失敗したときは-1を返します。
文字列hash内の文字列はcallocで確保されるので、開放が必要です。
*/
/*コンフィグファイルの書式===============================*/
/*     name = "value"                                    */
/*     又は                                              */
/*     name _=                                           */
/*     value         （複数行可能）                      */
/*     -EOF-         （この行には空白などを含めないこと）*/
/*                   （-EOF-の後には改行が必須）         */
/*=======================================================*/

void str_conv(char *s,char *out,hash hashs[],int index,int n);
/*
【[name]をhashで展開】
　[]で囲まれた変数値を展開します。sは入力文字列、outは出力文字列、
ハッシュ,indexは変数と個数、nは出力の最大
文字数です。
　戻り値はありません。
*/
/*---------------------------------------------------------------------------*/

char *get_form_strings(void){
	int len;
	char *clen;
	char *data;
	char *data2;
	char *string;
	clen=getenv("CONTENT_LENGTH");
	if(clen==NULL){
		ALLOC_STR (data,1,return(NULL));
		data[0]='\0';
	}else{
		len=atol(clen);
		ALLOC_STR(data,len+1,return(NULL));
		scanf("%s",data);
		data[len]='\0';
	}

	if (getenv("QUERY_STRING")==NULL){
		ALLOC_STR(data2,1,return(NULL));
		data2[0]='\0';
	}else{
		len=strlen(getenv("QUERY_STRING"));	/*再利用*/	
		ALLOC_STR(data2,len+1,return(NULL));
		strcpy(data2,getenv("QUERY_STRING"));
	}	
	ALLOC_STR(string,strlen(data)+strlen(data2)+2,return(NULL));
						/*　'\0'と'&'の分　*/
	strcpy(string,data);
	if (data[0]!='\0' && data2[0]!='\0') strcat(string,"&");
	strcat(string,data2);
	free(data);
	free(data2);
	return string;
}

int value_count(char *inport){
	int count=0;
	while (*inport!='\0'){
		if (*(inport++)=='&') count++;
	}
	return count+1;
}

int cut_string(char *inport,int len,hash hashs[],int *index)
{
	int i=0,cur_index=0;
	*index=0;
	if(inport[0]=='\0') {return -1;}
	hashs[0].name=inport;
	hashs[0].value=inport;	/*初期化*/
	while((inport[i]!='\0' && i<len)){
		if(inport[i]=='='){
			inport[i]='\0';
			hashs[cur_index].value=inport+i+1;
		}else if(inport[i]=='&'){
			inport[i]='\0';
			cur_index++;
			hashs[cur_index].name=inport+i+1;
			hashs[cur_index].value=inport+i;	/*valueの初期化(=が無いときの為)*/
		}
		i++;
	}
	*index=cur_index+1;
	return 0;
}

int decode_string(char *inport,int len){
	int i,j;
	char buf,*s1;
	if(len==0 || inport[0]=='\0') return(-1);
	ALLOC_STR(s1,len,return(-1));
	for(i=0,j=0;i<len;i++,j++){
		if(inport[i]=='+'){s1[j]=' ';continue;}
		if(inport[i]!='%') {s1[j]=inport[i];continue;}
		buf=((inport[++i]>='A') ? inport[i]-'A'+10 : inport[i]-'0');
		buf*=16;
		buf+=((inport[++i]>='A') ? inport[i]-'A'+10 : inport[i]-'0');
		s1[j]=buf;
	}
	for(i=0;i<j;i++) inport[i]=s1[i];
	inport[i]='\0';
	free(s1);
	return(0);
}

int encode_string(unsigned char *in,char *out,int len){
	int i=0;
	unsigned char c1,c2;
	if(in[0]=='\0') return(-1);
	while(*in!='\0'){
		if ((i+=3)>len-1) break;
		c1=*in/16;
		c2=*in-c1*16;
		c1=((c1<10) ? '0'+c1 : 'A'-10+c1);
		c2=((c2<10) ? '0'+c2 : 'A'-10+c2);
		*(out++)='%';
		*(out++)=c1;
		*(out++)=c2;
		in++;
	}
	*out='\0';
	return(0);
}

char *get_value(char *input,hash hashs[],int index){
	int i;
	for (i=0;i<index;i++){
		if(strcmp(hashs[i].name,input)==0){
			return (hashs[i].value);
		}
	}
	return (NULL);
}

int read_conf(const char *conf_file,hash hashs[],int *o_index)
{
	FILE *in;
	char buf0[CGI_H_BUFFER_SIZE],buf1[CGI_H_BUFFER_SIZE];
	char *s0,*s1,*temp;
	int flag=0;
	int index=0;
	if ((in=fopen(conf_file,"rt"))==NULL){
		*o_index=0;
		return (0);
	}
	while (fgets(buf0,CGI_H_BUFFER_SIZE,in)!=NULL){
		s1=buf1;
		if (flag==1){
				if (strcmp(buf0,CGI_H_EOF_CHR)!=0){
					ALLOC_STR(temp,strlen(hashs[index].value)+strlen(buf0)+1,return(-1));
					sprintf(temp,"%s%s",hashs[index].value,buf0);
					free(hashs[index].value);
					hashs[index].value=temp;
				}else{
					flag=0;
					index++;
				}
		}else{
			hashs[index].name=NULL;
			for (s0=buf0;*s0!='\0';s0++){
				if (*s0=='\t' || *s0==' ') continue;
				if (*s0=='#') break;
				if (*s0=='='){
					*s1='\0';
					ALLOC_STR(hashs[index].name,strlen(buf1)+1,return(-1));
					strcpy(hashs[index].name,buf1);
					s1=buf1;
					if (*(s0+1)=='_'){
						flag=1;
						ALLOC_STR(hashs[index].value,1,return(-1));
						hashs[index].value[0]='\0';
						break;
					}else{
						continue;
					}
				}
				if (*s0=='"'){
					s1=buf1;
					for (s0++;*s0!='"';s0++){
						if (*s0=='\n' || *s0=='\0') {
							strcpy(buf1,"error");
							break;
						}
						*(s1++)=*s0;
					}
					if (hashs[index].name!=NULL){
						*s1='\0';
						ALLOC_STR(hashs[index].value,strlen(buf1)+1,return(-1));
						strcpy(hashs[index].value,buf1);
						index++;
					}
					break;
				}
				*(s1++)=*s0;
			}
		}
	}
	fclose(in);
	*o_index=index;
	return (index);
}

void str_conv(char *s,char *out,hash hashs[],int index,int n){
	char n_buf[CGI_H_N_BUF],*t,*temp;
	int flag=0;
	for(t=n_buf;*s!='\0';s++){
		if (*s==']'){
			flag=0;
			*t='\0';
			temp=get_value(n_buf,hashs,index);
			if (temp==NULL) continue;
			n-=strlen(temp);
			if (n<=0) {
				*out='\0';
				return;
			}
			strcpy(out,temp);
			out+=strlen(temp);
			t=n_buf;
			continue;
		}
		if (flag==1){
			*(t++)=*s;
			continue;
		}
		if (*s=='[') {
			flag=1;
			continue;
		}
		n--;
		if (n<=0) {
			*out='\0';
			return;
		}
		*(out++)=*s;
	}
	*out='\0';
}

/*
更新履歴
1999.07.28	・v0.990728公開開始。
          	・split_word()の追加。
          	・split1word()の追加。
1999.08.02	・value_count()の追加。
1999.08.05	・文字列操作関係を分離。
1999.08.06	・bcc32で出力されるworningの修正。
          	・alloc系での失敗したときのインタフェースを追加。
1999.08.07	・未使用変数の除去。
1999.08.14	・str_conv()の追加。
1999.08.14	・encode_string()の追加。
          	・str_conv()の不具合訂正。
1999.08.18	・構造体hashの導入。name,valueは無くなりました。
          	・マクロALLOC_STR()の追加。
          	・save_table(),load_table()の追加。

1999.08.19	・save_table(),load_table()、ALLOC_STR()の分離。
1999.08.22	・encode_string()の不具合訂正。
1999.08.25	・cut_string()の不具合訂正。
*/

#endif