Return to scfgmdm.c CVS log

Up to [Synchronet] / sbbs / sbbs2 / scfg

2.30b OS/2

/* SCFGMDM.C */

/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */

#include "scfg.h"

int exec_mdm(char *fname);

void mdm_cfg(int mdmnum)
{

FREE(mdm_result);
mdm_result=NULL;

/*
strcpy(mdm_answ,"ATA");
strcpy(mdm_hang,"ATH");
strcpy(mdm_dial,"ATDT");
strcpy(mdm_offh,"ATM0H1");
strcpy(mdm_term,"ATE1V1");
strcpy(mdm_init,"AT&FS0=0S2=128E0V0X4&C1&D2");
*/
mdm_answ[0]=0;
mdm_hang[0]=0;
mdm_dial[0]=0;
mdm_offh[0]=0;
mdm_term[0]=0;
mdm_init[0]=0;
mdm_spec[0]=0;
mdm_results=0;
mdm_misc=(MDM_RTS|MDM_CTS);

exec_mdm(mdm_file[mdmnum]);

}

void cvttab(char *str)
{
	int i;

for(i=0;str[i];i++)
	if(str[i]==TAB)
		str[i]=SP;
}

int export_mdm(char *fname)
{
	char str[256];
	int file,i;
	time_t now;
	FILE *stream;

sprintf(str,"%s%s.MDM",ctrl_dir,fname);
if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1)
	return(0);
if((stream=fdopen(file,"wb"))==NULL) {
    close(file);
	return(0); }

now=time(NULL);
fprintf(stream,"# Exported from %s Node %u on %.24s\r\n\r\n"
	,sys_name,node_num,ctime(&now));
fprintf(stream,"COM_RATE\t%ld\r\n",com_rate);
fprintf(stream,"INIT_STR\t%s\r\n",mdm_init);
fprintf(stream,"DIAL_STR\t%s\r\n",mdm_dial);
fprintf(stream,"HANGUP_STR\t%s\r\n",mdm_hang);
fprintf(stream,"ANSWER_STR\t%s\r\n",mdm_answ);
fprintf(stream,"OFFHOOK_STR\t%s\r\n",mdm_offh);
fprintf(stream,"SPEC_INIT\t%s\r\n",mdm_spec);
fprintf(stream,"TERM_INIT\t%s\r\n",mdm_term);
fprintf(stream,"LOCKED_RATE\t%s\r\n",(mdm_misc&MDM_STAYHIGH) ? "YES":"NO");
fprintf(stream,"CALLER_ID\t%s\r\n",(mdm_misc&MDM_CALLERID) ? "YES":"NO");
fprintf(stream,"DROP_DTR\t%s\r\n",(mdm_misc&MDM_NODTR) ? "NO":"YES");
fprintf(stream,"FLOW_CONTROL\t%s\r\n"
	,(mdm_misc&(MDM_RTS|MDM_CTS)==(MDM_RTS|MDM_CTS)) ? "BOTH":
	(mdm_misc&MDM_CTS) ? "TRANSMIT" : (mdm_misc&MDM_RTS) ? "RECEIVE" : "NONE");
for(i=0;i<mdm_results;i++)
	fprintf(stream,"RESULT\t\t%u\t%u\t%u\t%s\r\n",mdm_result[i].code
		,mdm_result[i].cps,mdm_result[i].rate,mdm_result[i].str);

fclose(stream);

return(1);
}

int exec_mdm(char *fname)
{
	char str[256],msg[128],*p;
	int file,i,j;
	FILE *stream;

sprintf(str,"%s%s.MDM",ctrl_dir,fname);

if((file=open(str,O_RDONLY|O_BINARY|O_DENYALL))==-1)
	return(0);
if((stream=fdopen(file,"rb"))==NULL) {
    close(file);
    return(0); }

while(!feof(stream)) {
	if(!fgets(str,255,stream))
		break;
	cvttab(str);
    truncsp(str);
	p=str;
	while(*p && *p<=SP)   /* look for beginning of command */
		p++;
	if(!*p)
		continue;
	if(*p=='#')             /* remarks start with # */
        continue;

	if(!strnicmp(p,"COM_RATE",8)) {
		p+=8;
		while(*p==SP) p++;
		com_rate=atol(p);
		continue; }

	if(!strnicmp(p,"INIT_STR",8)) {
		p+=8;
		while(*p==SP) p++;
		sprintf(mdm_init,"%.63s",p);
        continue; }

	if(!strnicmp(p,"DIAL_STR",8)) {
		p+=8;
		while(*p==SP) p++;
		sprintf(mdm_dial,"%.63s",p);
        continue; }

	if(!strnicmp(p,"HANGUP_STR",10)) {
		p+=10;
		while(*p==SP) p++;
		sprintf(mdm_hang,"%.63s",p);
        continue; }

	if(!strnicmp(p,"ANSWER_STR",10)) {
		p+=10;
		while(*p==SP) p++;
		sprintf(mdm_answ,"%.63s",p);
        continue; }

	if(!strnicmp(p,"OFFHOOK_STR",11)) {
		p+=11;
		while(*p==SP) p++;
		sprintf(mdm_offh,"%.63s",p);
        continue; }

	if(!strnicmp(p,"SPEC_INIT",9)) {
		p+=9;
		while(*p==SP) p++;
		sprintf(mdm_spec,"%.63s",p);
        continue; }

	if(!strnicmp(p,"TERM_INIT",9)) {
		p+=9;
		while(*p==SP) p++;
		sprintf(mdm_term,"%.63s",p);
        continue; }

	if(!strnicmp(p,"LOCKED_RATE",11)) {
		p+=11;
		while(*p==SP) p++;
		if(!stricmp(p,"OFF") || !stricmp(p,"NO"))
			mdm_misc&=~MDM_STAYHIGH;
		else
			mdm_misc|=MDM_STAYHIGH;
        continue; }

	if(!strnicmp(p,"CALLER_ID",9)) {
		p+=9;
		while(*p==SP) p++;
		if(!stricmp(p,"YES") || !stricmp(p,"ON"))
			mdm_misc|=MDM_CALLERID;
		else
			mdm_misc&=~MDM_CALLERID;
        continue; }

	if(!strnicmp(p,"VERBAL_RESULTS",14)) {
		p+=14;
		while(*p==SP) p++;
		if(!stricmp(p,"YES") || !stricmp(p,"ON"))
			mdm_misc|=MDM_VERBAL;
		else
			mdm_misc&=~MDM_VERBAL;
        continue; }

	if(!strnicmp(p,"DROP_DTR",8)) {
		p+=8;
		while(*p==SP) p++;
		if(!stricmp(p,"OFF") || !stricmp(p,"NO"))
			mdm_misc|=MDM_NODTR;
		else
			mdm_misc&=~MDM_NODTR;
        continue; }

	if(!strnicmp(p,"FLOW_CONTROL",12)) {
		p+=12;
		while(*p==SP) p++;
		mdm_misc&=~(MDM_RTS|MDM_CTS);
		strupr(p);
		if(strstr(p,"RTS") || strstr(p,"RECEIVE") || strstr(p,"RECV")
			|| strstr(p,"BOTH"))
			mdm_misc|=MDM_RTS;
		if(strstr(p,"CTS") || strstr(p,"TRANSMIT") || strstr(p,"SEND")
			|| strstr(p,"BOTH"))
			mdm_misc|=MDM_CTS;
        continue; }

	if(!strnicmp(p,"RESULT ",7)) {
		p+=7;
		while(*p==SP) p++;
		i=atoi(p);
		for(j=0;j<mdm_results;j++)
			if(mdm_result[j].code==i)
				break;
		if(j>=mdm_results) {
			if((mdm_result=(mdm_result_t *)REALLOC(
				mdm_result,sizeof(mdm_result_t)
				*(mdm_results+1)))==NULL) {
				errormsg(WHERE,ERR_ALLOC,p,mdm_results+1);
				mdm_results=0;
				bail(1);
				continue; }
			mdm_results++; }
		mdm_result[j].code=i;
		while(*p!=SP) p++;
		while(*p==SP) p++;
		mdm_result[j].cps=atoi(p);
		while(*p!=SP) p++;
        while(*p==SP) p++;
		mdm_result[j].rate=atoi(p);
		while(*p!=SP) p++;
        while(*p==SP) p++;
		sprintf(mdm_result[j].str,"%.*s",LEN_MODEM,p);
		continue; }

	if(!strnicmp(p,"INCLUDE ",8)) {
		p+=8;
		while(*p==SP) p++;
		exec_mdm(p);
		continue; }

	sprintf(msg,"ERROR: '%.15s' in %.8s.MDM",p,fname);
	savnum--;
	umsg(msg);
	savnum++; }

fclose(stream);
return(1);
}


void init_mdms()
{
	char str[128],fname[128];
	int file;
	FILE *stream;

mdm_types=0;
mdm_type=NULL;
mdm_file=NULL;
sprintf(str,"%sMDMS.IXT",ctrl_dir);
if((file=nopen(str,O_RDONLY))==-1) {
	errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
	return; }
if((stream=fdopen(file,"rb"))==NULL) {
	close(file);
	errormsg(WHERE,ERR_FDOPEN,str,O_RDONLY);
	return; }

while(!feof(stream)) {
	if(!fgets(str,120,stream))
        break;
	truncsp(str);
	if(!fgets(fname,120,stream))
		break;
	truncsp(fname);
	if((mdm_type=REALLOC(mdm_type,sizeof(char *)*(mdm_types+1)))==NULL) {
		errormsg(WHERE,ERR_ALLOC,"Modem Type",sizeof(char *)*(mdm_types+1));
		break; }
	if((mdm_file=REALLOC(mdm_file,sizeof(char *)*(mdm_types+1)))==NULL) {
		errormsg(WHERE,ERR_ALLOC,"Modem File",sizeof(char *)*(mdm_types+1));
        break; }
	if((mdm_type[mdm_types]=MALLOC(strlen(str)+1))==NULL) {
		errormsg(WHERE,ERR_ALLOC,"Modem Typename",sizeof(char *)*(mdm_types+1));
        break; }
	if((mdm_file[mdm_types]=MALLOC(9))==NULL) {
		errormsg(WHERE,ERR_ALLOC,"Modem Filename",sizeof(char *)*(mdm_types+1));
        break; }
	strcpy(mdm_type[mdm_types],str);
	sprintf(mdm_file[mdm_types],"%.8s",fname);
	mdm_types++; }
fclose(stream);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.