cx170.c

170话费催交系统

		break ;

	  case '1':
		gsm4(NULL);
		break;

	  default :
		abcd4(NULL);
		break;
	}
}

void gnqhdn ()
{
	char asdf[8] ;

	strcpy (asdf, gnh) ;

	switch (phonenum[0])
	{
	  case '9':
		dgd3(asdf);
		break;

	  case '1':
		gsm3(asdf);
		break;

	  default:
		abcd3 (asdf) ;
		break;
	}

	return;
}

void dfhmdn ()
{
	char asdf[18] ;

	strcpy (asdf, dfhm) ;

	switch (phonenum[0])
	{
	  case '9':
		dgd3(asdf);
		break;

	  case '1':
		gsm3(asdf);
		break;

	  default:
		abcd3 (asdf) ;
		break;
	}

	return;
}

void mxlsmon ()
{
	switch (phonenum[0])
	{
	  case '9':
		dgd2(NULL);
		break;

	  case '1':
		gsm2(NULL);
		break ;

	  defult :
		abcd2(NULL);
		break ;
	}			
	return ;
}

void gjqhdq ()
{
	char asdf[8] ;

	strcpy (asdf, gjh) ;

	switch (phonenum[0])
	{
	  case '9':
		dgd4(asdf);
		break;

	  case '1':
		gsm4(asdf);
		break;

	  default:
		abcd4 (asdf) ;
		break;
	}

	return;
}

void gnqhdq ()
{
	char asdf[8] ;

	strcpy (asdf, gnh) ;

	switch (phonenum[0])
	{
	  case '9':
		dgd4(asdf);
		break;

	  case '1':
		gsm4(asdf);
		break;

	  default:
		abcd4 (asdf) ;
		break;
	}

	return;
}

void dfhmdq ()
{
	char asdf[18] ;

	strcpy (asdf, dfhm) ;

	switch (phonenum[0])
	{
	  case '9':
		dgd4(asdf);
		break;

	  case '1':
		gsm4(asdf);
		break;

	  default:
		abcd4 (asdf) ;
		break;
	}

	return;
}

void dymx1125 ()
{
	switch (phonenum[0])
	{
	  case '9':
		dgd3(NULL);
		break;

	  case '1':
		gsm3(NULL);
		break;

	  default:
		abcd3 (NULL) ;
		break;
	}
	return;
}

void gjqhdn ()
{
	char asdf[8] ;

	strcpy (asdf, gjh) ;

	switch (phonenum[0])
	{
	  case '9':
		dgd3(asdf);
		break;

	  case '1':
		gsm3(asdf);
		break;

	  default:
		abcd3 (asdf) ;
		break;
	}

	return;
}

void gjqhsy ()
{
	char asdf[8] ;

	strcpy (asdf, gjh) ;

	switch (phonenum[0])
	{
	  case '9':
		dgd2(asdf);
		break;

	  case '1':
		gsm2(asdf);
		break;

	  default:
		abcd2 (asdf) ;
		break;
	}
	return ;

}

void gnqhsy ()
{
	char asdf[8] ;

	strcpy (asdf, gnh) ;

	switch (phonenum[0])
	{
	  case '9':
		dgd2(asdf);
		break;

	  case '1':
		gsm2(asdf);
		break;

	  default:
		abcd2 (asdf) ;
		break;
	}
	return ;

}

void dfhmsy ()
{
	char asdf[18] ;

	strcpy (asdf, dfhm) ;

	switch (phonenum[0])
	{
	  case '9':
		dgd2(asdf);
		break;

	  case '1':
		gsm2(asdf);
		break;

	  default:
		abcd2 (asdf) ;
		break;
	}

	return ;
}

void ingjqh ()
{
	DL_DATA dl_databgn ;
	char  indate[8] ;

	dl_databgn.da_recvdig = 6 ;
	dl_databgn.da_time = 100 ;
	dl_databgn.da_digit = "#" ;
	dl_databgn.da_numretry = 3 ;

	gt_data (indate, val_gjqh, "gjdqhin", "errgjdqh", bye_gjqh, &dl_databgn) ;
	strcpy (gjh, indate) ;
	return ;
}

void *val_gjqh (digbufp)
char *digbufp;
{
	int  i, len;

	len = strlen(digbufp) ;
	if (digbufp[len-1] == '#')
	{
		digbufp[len-1] = '\0' ;
		len--;
	}
	for (i=0;i<len;i++)
		if (digbufp[i] == '*')
			return NULL ;
	if ((digbufp[0] != '0') || (digbufp[1] != '0'))
		return NULL ;

	if (! gsmbill) 
		for (i=0;i<len;i++)
			digbufp[i] = digbufp[i+1] ;

	return ((void *) 1) ;
}

void bye_gjqh()
{
	unsigned short  recvdig;

//	recvdig = def_rp_tpt[DX_MAXDTMF-1].tp_length; /* Save max. digit setting */
//	def_rp_tpt[DX_MAXDTMF-1].tp_length = 0; /* Don't terminate on any digit */
	playmsg("mlterrgjdqh");
//	def_rp_tpt[DX_MAXDTMF-1].tp_length = recvdig; /* Restore max. digit set */
	duration();
	tb_offhkdti () ;
	longjmp(idlestate,1);
}

void ingnqh ()
{
	DL_DATA dl_databgn ;
	char  indate[8] ;

	dl_databgn.da_recvdig = 5 ;
	dl_databgn.da_time = 100 ;
	dl_databgn.da_digit = "#" ;
	dl_databgn.da_numretry = 3 ;

	gt_data (indate, val_gnqh, "gnqhin", "errgnqh", bye_gnqh, &dl_databgn); 
	strcpy (gnh, indate) ;
	return ;
}

void *val_gnqh (digbufp)
char *digbufp ;
{
	int  i, len ;

	len = strlen(digbufp) ;
	if (digbufp[len-1] == '#') {
		digbufp[len-1] = '\0' ;
		len--;
	}
	for (i=0;i<len;i++)
		if (digbufp[i] == '*')
			return NULL ;
	if (digbufp[0] == '0') {
		if (digbufp[1] == '0')
			return NULL ;
		if (! gsmbill) 
			for (i=0;i<len;i++)
				digbufp[i] = digbufp[i+1] ;
	} else
		return NULL ;

	return ((void *) 1) ;
}

void bye_gnqh()
{
	unsigned short  recvdig;

//	recvdig = def_rp_tpt[DX_MAXDTMF-1].tp_length; /* Save max. digit setting */
//	def_rp_tpt[DX_MAXDTMF-1].tp_length = 0; /* Don't terminate on any digit */
	playmsg("mlterrgnqh");
//	def_rp_tpt[DX_MAXDTMF-1].tp_length = recvdig; /* Restore max. digit set */
	duration();
	tb_offhkdti () ;
	longjmp(idlestate,1);
}

void inphone ()
{
	DL_DATA dl_databgn ;
	char  indate[18] ;

	dl_databgn.da_recvdig = 16 ;
	dl_databgn.da_time = 150 ;
	dl_databgn.da_digit = "#" ;
	dl_databgn.da_numretry = 3 ;

	gt_data (indate, val_phone, "dfhmin", "errdfhm", bye_dfhm, &dl_databgn) ;
	strcpy (dfhm, indate) ;
	return ;
}

void *val_phone (digbufp)
char *digbufp ;
{
	int  i, len ;

	len = strlen(digbufp) ;
	if (digbufp[len-1] == '#')
	{
		digbufp[len-1] = '\0' ;
		len--;
	}
	for (i=0;i<len;i++)
		if (digbufp[i] == '*')
			return NULL ;
	if ((digbufp[0] == '0') && (! gsmbill)) 
		for (i=0;i<len;i++)
			digbufp[i] = digbufp[i+1] ;

	return ((void *) 1) ;
}

void bye_dfhm()
{
	unsigned short  recvdig;

//	recvdig = def_rp_tpt[DX_MAXDTMF-1].tp_length; /* Save max. digit setting */
//	def_rp_tpt[DX_MAXDTMF-1].tp_length = 0; /* Don't terminate on any digit */
	playmsg("mlterrdfhm");
//	def_rp_tpt[DX_MAXDTMF-1].tp_length = recvdig; /* Restore max. digit set */
	duration();
	tb_offhkdti () ;
	longjmp(idlestate,1);
}

//dsgfile****************************************************** 
FILE *duse(char *dbfname)
{
	if((fp=fopen(dbfname,"r"))==NULL)
	{	
		printf("File %s not found\n",dbfname);
		playmsg("datano1");
		return(NULL);
	}
	fread(&dbhead,sizeof(struct headdb),1,fp);
	recordnum = dbhead.recordnum;
	fieldnum=(dbhead.structlen-1-32)/32;
//	fieldptr=(struct structdb *)malloc(sizeof(struct structdb)*fieldnum);
//	recordptr=(char *)malloc(dbhead.recordlen);
	fread(fieldptr,sizeof(struct structdb),fieldnum,fp);
	return(fp);
}

FILE *duse1(char *dbfname)
{
	if((fp=fopen(dbfname,"r"))==NULL)
	{	
		sprintf (dispbuf, "Can't open file %s", dbfname) ;
		writefifo(2, dispbuf);
		return(NULL) ;
	}
	fread(&dbhead,sizeof(struct headdb),1,fp);
	recordnum = dbhead.recordnum;
	fieldnum=(dbhead.structlen-1-32)/32;
	fread(fieldptr,sizeof(struct structdb),fieldnum,fp);
	return(fp);
}

void dclose()
{

	fclose(fp);
	return;
}

void gotorecord(long nrecord)
{
	long	offsetb;

	if (nrecord > dbhead.recordnum)
		return;
	offsetb=(long)(dbhead.structlen+dbhead.recordlen*(nrecord-1));
	fseek(fp,offsetb,0);
	fread(recordptr,dbhead.recordlen,1,fp);
	fseek(fp,offsetb,0);
	return;
}

double getsn(char *ch)
{
	int ii;
	char cfield[256];
	double	dfield;

	for(ii=0;ii<fieldnum;ii++)
	{
		if (strcmp(ch,fieldptr[ii].fieldname))
			continue;
		if (fieldptr[ii].fieldtye!='N')
			return(-1);
		else
		{
		       
memcpy(cfield,recordptr+fieldptr[ii].startb,fieldptr[ii].fieldlen);
			cfield[fieldptr[ii].fieldlen]='\0';
			dfield = atof(cfield);
			return(dfield);
		}
	}
	return(-1);
}

getsl(char *ch)
{
	int	ii;
	char	cfield[256];

	for (ii=0;ii<fieldnum;ii++)
	{
		if (strcmp(ch,fieldptr[ii].fieldname))
			continue;
		if (fieldptr[ii].fieldtye!='N')
			return(-1);
		else
		{
       		
memcpy(cfield,recordptr+fieldptr[ii].startb,fieldptr[ii].fieldlen);
			cfield[fieldptr[ii].fieldlen]='\0';
		        return(atoi(cfield));
		}
	}
	return(-1);
}

char *getsc(char *str1, char *str2)
{
	int	i, flen;

	for (i = 0; i < fieldnum; i++)
	{
		if (strcmp(str1,fieldptr[i].fieldname))
			continue;
		if (fieldptr[i].fieldtye!='C')
			return(NULL);
		else
		{
			flen = fieldptr[i].fieldlen;
			memcpy(str2, recordptr+fieldptr[i].startb,flen);
			str2[flen]='\0';
			return(str2);
		}
	}
	return(NULL);
}
//dsgfile-end************************************************

void paymoney()
{
	char		fnm1[32], fnm2[32], month[8] ;
	int		pst ;
	unsigned long	recno;

	sprintf (routnm, "paymoney");
	writefifo(1, "Duepay Inquiring");
	if (! strcmp(proto, "       ")) {
//		playmsg("d8250224");
		playmsg("datano1");
		return;
	}

/*
	month[0] = strtime[4] ;
	month[1] = strtime[5] ;
	month[2] = '\0' ;
	pst = atoi(month) - 1 ;
	if (pst == 0)
		pst = 12 ;
	sprintf (month, "%d", pst) ;

	printf ("proto = %ld\n", atol(proto)) ;

	sprintf(fnm1, "/jfsrv/xtydj/sft/i-xfsjh%d.idx", pst) ;
	sprintf(fnm2, "/jfsrv/xtydj/d-xfsj0%d.dbf", pst) ;
*/
	strcpy(fnm1, "/jfsrv/xtydj/sft/i-xfsjh.idx") ;
	strcpy(fnm2, "/jfsrv/xtydj/sft/d-xfsj.dbf") ;
	recno = skidx3(fnm1);
	if (recno > 0)
		skfd13(fnm2, recno) ;
	else
		playmsg("datano1");
//		playmsg("d8250224");

	return ;
}

long skidx2 (fnm1)
char *fnm1 ;
{
	union {
		unsigned long dec ;
		unsigned char str[4] ;
	}pp ;
	union {
		unsigned short dec ;
		unsigned char  str[4] ;
	}pp2 ;
	unsigned long rtblk, phone, skadr ;
	int  i, yflg, numind, mm ;
	char ch ;
	int  hle ;

	if ((hle = open(fnm1, O_RDONLY)) == -1) {
//		printf ("File %s not found\n", fnm1) ;
//		playmsg ("datano1") ;
		return 0 ;
	}

	lseek (hle, 0, 0) ;
	read (hle, pp.str, 4) ;
	rtblk = pp.dec ;
	lseek (hle, rtblk, 0) ;
	mm = 1 ;

	while (mm) {
		read (hle, pp2.str, 2) ;
		pp2.str[2] = '\0' ;
		yflg = pp2.dec ;
		read (hle, pp2.str, 2) ;
		pp2.str[2] = '\0' ;
		numind = pp2.dec ;
		read (hle, pp.str, 4) ;
//		lowadr = pp.dec ;
		read (hle, pp.str, 4) ;
//		upadr = pp.dec ;

		for (i=0;i<numind;i++) {
			read (hle, pp.str, 4) ;
			ch = pp.str[0] ;
			pp.str[0] = pp.str[3] ;