/* psfax2.c */
/*---------------------------------------------------------------------------*/
/* This file is part of PSFax/2. */
/* */
/* Written By: Gary L. Hennigan */
/* */
/* This code can modified as much as you like provided you follow the */
/* guidelines as described in the file install.doc which you should have */
/* received with this file. If you did not please notify the author for a */
/* copy of this file via Internet email. The address is: */
/* ghenniga@NMSU.Edu */
/*---------------------------------------------------------------------------*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include "psfax2.h"
/**Global variable(s). **/
char cGlobResp[MAXRESPLEN];
int main(int argc, char **argv)
{
/**Local functions. **/
void vMemCheck( void * );
void vCleanExit( char *, char *, int, int );
int iPageCount( char * );
ULONG ulOpenPort(char *, HFILE *);
ULONG ulClosePort( HFILE );
int iPortGetSet( HFILE, DCBINFO * );
int iPortInit( HFILE, DCBINFO * );
int iModemInit( HFILE, DCBINFO * );
int iModemDial( HFILE, char *, DCBINFO *, int );
int iFaxInit( HFILE , DCBINFO *, int, int, int, int );
int iFaxSendPage( HFILE, DCBINFO *, FILE *, int );
int iFaxInterrupt( HFILE, DCBINFO * );
/**Local variables. **/
FILE *fp;
int i1, iTemp, iPageCnt, iPageStat;
char *cTemp, *cRecipPhone, *cSendPhone, *cRecipName, *cSendName;
char *cPSFileName[MAXPSFILES], *cTempDir, *cFaxDir, *cFaxCnfFile;
char cBuff[CCHMAXPATH], cBuff2[2*CCHMAXPATH], cCoverName[CCHMAXPATH];
char cPortID[6];
HFILE hTTY;
DCBINFO dcbCom;
/**Initialized local variables. **/
BOOL bRecipPhone=FALSE, bCover=FALSE, bSendPhone=FALSE;
BOOL bRecipName=FALSE, bSendName=FALSE, bCQuote=FALSE;
int iNumPSFiles=0, iWait=60, iRedial=5;
/*-------------------------------End Declarations---------------------------*/
/**If no arguments were given print out help information. **/
if( argc <= 1 )
{
printf("usage: psfax2 -p <rnum> -c -s <sname> -S <snum> -r <rname> ");
printf("[psfile]\n");
printf("where:\n(required)\n");
printf("\trnum - fax phone number of recipient\n");
printf("(optional cover sheet)\n");
printf("\t-c - use the predefined cover sheet\n");
printf("\tsnam - the sender's name\n");
printf("\tsnum - the sender's return fax phone number\n");
printf("\trname - the recipient's name\n");
printf("\t[psfile1] - the name of the postscript file ");
printf("to send\n\n");
printf("example:\n psfax2 -p1-505-555-1234 -c -s \"jay ");
printf("doe\" -S1-202-555-4321 -r \"jan doe\" psout.ps\n");
exit(0);
}
/**Determine the location of the configuration file. **/
cTemp = getenv("FAXPATH");
if(!cTemp)
{
printf("You must set the environment variable FAXPATH to point to");
printf(" the directory\nwhich contains the file psfax2.cnf\n");
exit(-1);
}
cFaxDir = (char *)malloc((strlen(cTemp)+2)*sizeof(char));
vMemCheck(cFaxDir);
strcpy(cFaxDir,cTemp);
if(cFaxDir[strlen(cTemp)] != '\\')
{
cFaxDir[strlen(cTemp)] = '\\';
cFaxDir[strlen(cTemp)+1] = '\000';
}
cFaxCnfFile = (char *)malloc((strlen(cFaxDir)+12)*sizeof(char));
vMemCheck(cFaxCnfFile);
strcpy(cFaxCnfFile,cFaxDir);
strcat(cFaxCnfFile,"psfax2.cnf");
/**If it exists, open the configuration file. **/
fp=fopen(cFaxCnfFile,"r");
if(!fp)
{
printf("The configuration file \"%s\" could not be found!\n",
cFaxCnfFile);
exit(-1);
}
fscanf(fp, "%s", cPortID);
strcpy(cCoverName,cFaxDir);
fscanf(fp, "%s", &cCoverName[strlen(cCoverName)]);
fscanf(fp, "%d", &iWait);
fscanf(fp, "%d", &iRedial);
fclose(fp);
free(cFaxCnfFile);
free(cFaxDir);
/**Parse the command line. **/
for( i1=1; i1 < argc; i1++ )
{
cTemp = strchr(argv[i1],'-');
if( cTemp )
{
switch(cTemp[1])
{
/** Recipient's phone number. **/
case 'p':
if(cTemp[2])
{
cRecipPhone = (char *)malloc((strlen(&cTemp[2])+1)*
sizeof(char));
vMemCheck(cRecipPhone);
strcpy(cRecipPhone,&cTemp[2]);
}
else
{
cRecipPhone = (char *)malloc((strlen(argv[i1+1])+1)*
sizeof(char));
vMemCheck(cRecipPhone);
strcpy(cRecipPhone,argv[i1+1]);
i1++;
}
bRecipPhone=TRUE;
break;
/** Cover page flag. **/
case 'c':
bCover = TRUE;
break;
/** Sender's phone number. **/
case 'S':
if(cTemp[2])
{
cSendPhone = (char *)malloc((strlen(&cTemp[2])+1)*
sizeof(char));
vMemCheck(cSendPhone);
strcpy(cSendPhone,&cTemp[2]);
}
else
{
cSendPhone = (char *)malloc((strlen(argv[i1+1])+1)*
sizeof(char));
vMemCheck(cSendPhone);
strcpy(cSendPhone,argv[i1+1]);
i1++;
}
bSendPhone=TRUE;
break;
/** Recipient's name. **/
case 'r':
if(cTemp[2])
{
/** Multiple word and/or quoted name. **/
if(cTemp[2] == '\"'|| cTemp[2] == '\'')
{
iTemp = strlen(&cTemp[3]);
if(cTemp[iTemp+2] == '\"' || cTemp[iTemp+2] == '\'')
{
cTemp[iTemp+2] = 0x00;
iTemp--;
bCQuote = TRUE;
}
cRecipName = (char *)malloc((iTemp+1)*
sizeof(char));
vMemCheck(cRecipName);
strcpy(cRecipName,&cTemp[3]);
while(bCQuote == FALSE)
{
i1++;
iTemp = strlen(argv[i1]);
if(argv[i1][iTemp-1] == '\"' ||
argv[i1][iTemp-1] == '\'')
{
argv[i1][iTemp-1] = 0x00;
bCQuote = TRUE;
iTemp--;
}
cRecipName = (char *)realloc(cRecipName,
(strlen(cRecipName)+
iTemp+2)*
sizeof(char));
vMemCheck(cRecipName);
strcat(cRecipName," ");
strcat(cRecipName,argv[i1]);
}
}
/** Single word name, no quotes. **/
else
{
cRecipName = (char *)malloc((strlen(&cTemp[2])+1)*
sizeof(char));
vMemCheck(cRecipName);
strcpy(cRecipName,&cTemp[2]);
}
}
/** Space between paramater and argument. **/
else
{
/** Multiple word name. **/
if(argv[i1+1][0] == '\"' || argv[i1+1][0] == '\'')
{
cTemp = &argv[i1+1][1];
iTemp = strlen(cTemp);
if(cTemp[iTemp-1] == '\"' || cTemp[iTemp-1] == '\'')
{
cTemp[iTemp-1] = 0x00;
iTemp--;
bCQuote = TRUE;
}
cRecipName = (char *)malloc((iTemp+1)*
sizeof(char));
vMemCheck(cRecipName);
strcpy(cRecipName,cTemp);
while(bCQuote == FALSE)
{
i1++;
iTemp = strlen(argv[i1+1]);
if(argv[i1+1][iTemp-1] == '\"' ||
argv[i1+1][iTemp-1] == '\'')
{
argv[i1+1][iTemp-1] = 0x00;
bCQuote = TRUE;
iTemp--;
}
cRecipName = (char *)realloc(cRecipName,
(strlen(cRecipName)+
iTemp+2)*
sizeof(char));
vMemCheck(cRecipName);
strcat(cRecipName," ");
strcat(cRecipName,argv[i1+1]);
}
i1++;
}
/** Single word name. **/
else
{
i1++;
cRecipName = (char *)malloc((strlen(argv[i1])+1)*
sizeof(char));
vMemCheck(cRecipName);
strcpy(cRecipName,argv[i1]);
}
}
bCQuote=FALSE;
bRecipName=TRUE;
break; /* Recipient's Name */
/** Sender's name. **/
case 's':
if(cTemp[2])
{
/** Multiple word and/or quoted name. **/
if(cTemp[2] == '\"'|| cTemp[2] == '\'')
{
iTemp = strlen(&cTemp[3]);
if(cTemp[iTemp+2] == '\"' || cTemp[iTemp+2] == '\'')
{
cTemp[iTemp+2] = 0x00;
iTemp--;
bCQuote = TRUE;
}
cSendName = (char *)malloc((iTemp+1)*
sizeof(char));
vMemCheck(cSendName);
strcpy(cSendName,&cTemp[3]);
while(bCQuote == FALSE)
{
i1++;
iTemp = strlen(argv[i1]);
if(argv[i1][iTemp-1] == '\"' ||
argv[i1][iTemp-1] == '\'')
{
argv[i1][iTemp-1] = 0x00;
bCQuote = TRUE;
iTemp--;
}
cSendName = (char *)realloc(cSendName,
(strlen(cSendName)+
iTemp+2)*
sizeof(char));
vMemCheck(cSendName);
strcat(cSendName," ");
strcat(cSendName,argv[i1]);
}
}
/** Single word name, no quotes. **/
else
{
cSendName = (char *)malloc((strlen(&cTemp[2])+1)*
sizeof(char));
vMemCheck(cSendName);
strcpy(cSendName,&cTemp[2]);
}
}
/** Space between paramater and argument. **/
else
{
/** Multiple word name. **/
if(argv[i1+1][0] == '\"' || argv[i1+1][0] == '\'')
{
cTemp = &argv[i1+1][1];
iTemp = strlen(cTemp);
if(cTemp[iTemp-1] == '\"' || cTemp[iTemp-1] == '\'')
{
cTemp[iTemp-1] = 0x00;
iTemp--;
bCQuote = TRUE;
}
cSendName = (char *)malloc((iTemp+1)*
sizeof(char));
vMemCheck(cSendName);
strcpy(cSendName,cTemp);
while(bCQuote == FALSE)
{
i1++;
iTemp = strlen(argv[i1+1]);
if(argv[i1+1][iTemp-1] == '\"' ||
argv[i1+1][iTemp-1] == '\'')
{
argv[i1+1][iTemp-1] = 0x00;
bCQuote = TRUE;
iTemp--;
}
cSendName = (char *)realloc(cSendName,
(strlen(cSendName)+
iTemp+2)*
sizeof(char));
vMemCheck(cSendName);
strcat(cSendName," ");
strcat(cSendName,argv[i1+1]);
}
i1++;
}
/** Single word name. **/
else
{
i1++;
cSendName = (char *)malloc((strlen(argv[i1])+1)*
sizeof(char));
vMemCheck(cSendName);
strcpy(cSendName,argv[i1]);
}
}
bCQuote=FALSE;
bSendName=TRUE;
break; /* Sender Name */
default:
printf("Unknown option %s!\n", argv[i1]);
break;
} /* end switch cTemp[1] */
} /* endif cTemp */
/** Anything without a "-" is considered a postscript file name. **/
else
{
if(iNumPSFiles < MAXPSFILES)
{
cPSFileName[iNumPSFiles] = (char *)malloc((strlen(argv[i1])+1)*
sizeof(char));
strcpy(cPSFileName[iNumPSFiles],argv[i1]);
}
else
{
printf("Too many files! Maximum is %d\n", MAXPSFILES);
exit(0);
}
iNumPSFiles++;
}
} /* end i1 for loop, command line parser */
/**Check that at least one file was specified. **/
if( iNumPSFiles <= 0 )
{
puts("No files specified!");
exit(-1);
}
/**Check if the specified files exist. **/
i1 = 0;
do
{
fp = fopen(cPSFileName[i1++],"r");
if( !fp )
{
printf("The file specified, \"%s\", does not exist!\n",
cPSFileName[i1-1]);
exit(-1);
}
fclose(fp);
} while(i1 < iNumPSFiles);
/**Locate the TMP directory. **/
cTemp = getenv("TMP");
if(cTemp)
{
cTempDir = (char *)malloc((strlen(cTemp)+2)*sizeof(char));
vMemCheck(cTempDir);
strcpy(cTempDir,cTemp);
if(cTempDir[strlen(cTempDir)-1] != '\\')
strcat(cTempDir,"\\");
/** Translate to lower case. For some reason the DosDelete function **/
/** doesn't like uppercase? **/
for(i1=0; i1 < strlen(cTempDir); i1++)
{
if(!islower(cTempDir[i1]))
cTempDir[i1] = tolower(cTempDir[i1]);
}
}
else
{
cTempDir = (char *)malloc(3*sizeof(char));
vMemCheck(cTempDir);
strcpy(cTempDir,"\\");
}
/**Clean out any old fax files. **/
puts("Cleaning out old files...");
strcpy(cBuff,cTempDir);
strcat(cBuff,"g3cfax.1");
DosDelete(cBuff);
strcpy(cBuff,cTempDir);
strcat(cBuff,"g3fax.1");
i1 = 2;
while(DosDelete(cBuff) == 0)
{
sprintf(cBuff,"%sg3fax.%d",cTempDir,i1);
i1++;
}
/**Convert the PostScript documents to G3 fax files. **/
puts("Converting documents...");
strcpy(cBuff,cTempDir);
strcat(cBuff,"g3fax.%%d");
sprintf(cBuff2, "gs.exe -dNOPAUSE -sDEVICE=dfaxhigh -q -sOutputFile=%s ",
cBuff);
for(i1=0; i1 < iNumPSFiles; i1++ )
{
strcat(cBuff2,cPSFileName[i1]);
fp = popen(cBuff2, "w");
fprintf(fp, "quit\n");
pclose(fp);
}
/**Get a page count. **/
iPageCnt = iPageCount(cTempDir);
/**If it was specified, generate a coverpage. **/
if( bCover == TRUE )
{
fp = fopen("mcover.ps","w");
fprintf(fp, "/recipnum (%s) def\n", cRecipPhone);
if(bRecipName == TRUE)
fprintf(fp, "/recipient (%s) def\n", cRecipName);
if(bSendName == TRUE)
fprintf(fp, "/sender (%s) def\n", cSendName);
if(bSendPhone == TRUE)
fprintf(fp, "/returnfaxnum (%s) def\n", cSendPhone);
fprintf(fp, "/pages (%d) def\n", iPageCnt+1);
fprintf(fp,"(");
for(i1=0; i1 < strlen(cCoverName); i1++)
{
if(cCoverName[i1] == '\\')
{
fprintf(fp, "\\");
}
fprintf(fp, "%c", cCoverName[i1]);
}
fprintf(fp, ")");
fprintf(fp, " run\n");
fclose(fp);
/** Create the Group 3 coverpage. **/
strcpy(cBuff,cTempDir);
strcat(cBuff,"g3cfax.%%d");
sprintf(cBuff2,
"gs.exe -dNOPAUSE -sDEVICE=dfaxhigh -q -sOutputFile=%s mcover.ps",
cBuff);
fp = popen(cBuff2,"w");
fprintf(fp, "quit\n");
pclose(fp);
DosDelete("mcover.ps");
}
printf("\n"); /* To make room on the screen. */
/**Open the port. **/
puts("Initializing port and modem...");
while(ulOpenPort(cPortID, &hTTY) != 0)
{
printf("Port %s is invalid or being used by another process\n",
cPortID);
printf("Enter 'e' to exit or 'r' to retry: ");
scanf("%s",cBuff);
if(cBuff[0] == 'e' || cBuff[0] == 'E')
vCleanExit(cTempDir,cBuff,iPageCnt,-1);
}
/**Get the current port characteristics. **/
if(iPortGetSet(hTTY, &dcbCom) != 0)
{
puts("Could not get port settings!");
vCleanExit(cTempDir,cBuff,iPageCnt,-1);
}
/**Initialize the port. **/
if(iPortInit(hTTY, &dcbCom) != 0)
{
puts("Setting port characteristics failed!");
vCleanExit(cTempDir,cBuff,iPageCnt,-1);
}
/**Initialize the modem. **/
if(iModemInit(hTTY, &dcbCom) != 0)
{
puts("Modem initialization timed out!");
vCleanExit(cTempDir,cBuff,iPageCnt,-1);
}
/**Dial the modem. **/
printf("Dialing %s...\n", cRecipPhone);
do
{
iTemp = iModemDial(hTTY, cRecipPhone, &dcbCom, iWait);
switch(iTemp)
{
case DIAL_BUSY:
puts("Phone busy!");
break;
case DIAL_NOANSWER:
printf("No answer from remote! ");
printf("Enter 'r' to retry, 'e' to exit: ");
scanf("%s",cBuff);
if(cBuff[0] == 'e' || cBuff[0] == 'E')
vCleanExit(cTempDir,cBuff,iPageCnt,-1);
break;
case DIAL_NOCARRIER:
printf("Could not detect carrier!");
printf(" Enter 'r' to retry, 'e' to exit: ");
scanf("%s",cBuff);
if(cBuff[0] == 'e' || cBuff[0] == 'E')
vCleanExit(cTempDir,cBuff,iPageCnt,-1);
break;
case DIAL_NODIALTONE:
printf("No dial tone! Enter 'r' to retry, 'e' to exit: ");
scanf("%s",cBuff);
if(cBuff[0] == 'e' || cBuff[0] == 'E')
vCleanExit(cTempDir,cBuff,iPageCnt,-1);
break;
case DIAL_UNKNOWN:
printf("Unexpected or unknown response! ");
printf("Enter 'r' to retry, 'e' to exit: ");
scanf("%s",cBuff);
if(cBuff[0] == 'e' || cBuff[0] == 'E')
vCleanExit(cTempDir,cBuff,iPageCnt,-1);
break;
}
if( iTemp != 0 )
{
printf("Waiting %d seconds to redial...",iRedial);
sleep(iRedial);
printf("\n");
}
}
while(iTemp != 0);
/**Initiate fax connection. */
if(iFaxInit(hTTY, &dcbCom, DF_1DHUFFMAN, VR_FINE, WD_1728,
LN_UNLIMITED) != 0)
{
puts("Could not init fax data transmission for the page!");
vCleanExit(cTempDir, cBuff, iPageCnt, -1);
}
/**Begin sending the document(s). **/
iTemp = PEND_ANOTHER;
if(bCover == TRUE)
{
puts("Sending cover page...");
if(iPageCnt <= 0)
iTemp = PEND_ENDTRAN;
strcpy(cBuff,cTempDir);
strcat(cBuff,"g3cfax.1");
fp = fopen(cBuff,"r");
if(!fp)
{
puts("G3 cover page could not be found...");
vCleanExit(cTempDir, cBuff, iPageCnt, -1);
}
do
{
iPageStat = iFaxSendPage(hTTY, &dcbCom, fp, iTemp);
switch( iPageStat )
{
case PPR_PPR:
printf("There were partial page errors during the cover page");
printf(" transmission! Continuing...\n");
iPageStat = 0;
break;
case PPR_MCF:
iPageStat = 0;
break;
case PPR_RTN:
printf("Remote requested retransmission! Retransmitting...\n");
rewind(fp);
iPageStat = 1;
break;
case PPR_RTP:
printf("Page good but remote wants a retransmission? ");
printf("Retransmitting...\n");
rewind(fp);
iPageStat = 1;
break;
case PPR_PIN:
printf("Page bad and remote requests an interrupt!\n");
iPageStat = -1;
break;
case PPR_PIP:
printf("Page good but remote requests an interrupt!\n");
iFaxInterrupt(hTTY, &dcbCom);
vCleanExit(cTempDir, cBuff, iPageCnt, -1);
break;
default:
puts("Cancelling transmission!");
iFaxInterrupt(hTTY, &dcbCom);
vCleanExit(cTempDir, cBuff, iPageCnt, -1);
break;
}
} while(iPageStat == 1);
fclose(fp);
}
/**Send the pages of the document. **/
for(i1=0; i1 < iPageCnt; i1++)
{
/** Send the page. **/
printf("Sending page %d...\n",i1+1);
if(i1 == iPageCnt-1)
iTemp = PEND_ENDTRAN;
sprintf(cBuff, "%sg3fax.%d", cTempDir, i1+1);
fp = fopen(cBuff,"r");
if(!fp)
{
printf("G3 page %d could not be opened!\n", i1);
vCleanExit(cTempDir, cBuff, iPageCnt, -1);
}
do
{
iPageStat = iFaxSendPage(hTTY, &dcbCom, fp, iTemp);
switch( iPageStat )
{
case PPR_PPR:
printf("There were partial page errors during the page");
printf(" transmission! Continuing...\n");
iPageStat = 0;
break;
case PPR_MCF:
iPageStat = 0;
break;
case PPR_RTN:
printf("Remote requested retransmission! Retransmitting...\n");
rewind(fp);
iPageStat = 1;
break;
case PPR_RTP:
printf("Page good but remote wants a retransmission? ");
printf("Retransmitting...\n");
rewind(fp);
iPageStat = 1;
break;
case PPR_PIN:
printf("Page bad and remote requests an interrupt!\n");
iPageStat = -1;
break;
case PPR_PIP:
printf("Page good but remote requests an interrupt!\n");
iPageStat = -1;
break;
default:
puts("Cancelling transmission!");
iPageStat = -1;
break;
}
} while(iPageStat == 1);
fclose(fp);
/** If an interrupt was requested, Grant It. **/
if(iPageStat == -1)
{
iFaxInterrupt(hTTY, &dcbCom);
vCleanExit(cTempDir, cBuff, iPageCnt, -1);
}
}
/**Close the port, clean up and exit. **/
ulClosePort(hTTY);
vCleanExit(cTempDir, cBuff, iPageCnt, 0);
return 0;
}
/****************************************************************************/
/************************Memory check function*******************************/
/****************************************************************************/
void vMemCheck( void *ptr )
{
if( !ptr )
{
puts("Not enough memory!");
exit(-1);
}
}
/****************************************************************************/
/*************************Count the number of********************************/
/*****************************pages to fax***********************************/
/****************************************************************************/
int iPageCount(CHAR *cTempDir)
{
FILE *fp;
char cBuff[CCHMAXPATH];
int iCnt=0;
/*-----------------------------End Declarations----------------------------*/
sprintf(cBuff, "%sg3fax.1", cTempDir);
fp = fopen(cBuff,"r");
while( fp )
{
iCnt++;
fclose(fp);
sprintf(cBuff,"%sg3fax.%d", cTempDir, iCnt+1);
fp = fopen(cBuff,"r");
}
return iCnt;
}
/****************************************************************************/
/**************************Clean up any files********************************/
/****************************and exit PSFax2*********************************/
/****************************************************************************/
void vCleanExit(char *cTempDir, char *cBuff, int iPageCnt, int iError)
{
int i1;
/*-----------------------------End Declarations----------------------------*/
/**Clean out the fax files. **/
if(iError != 0)
printf("Cleaning up and exiting on error condition %d\n", iError);
else
puts("Cleaning up and exiting...");
strcpy(cBuff,cTempDir);
strcat(cBuff,"g3cfax.1");
DosDelete(cBuff);
strcpy(cBuff,cTempDir);
strcat(cBuff,"g3fax.1");
for(i1=1; i1 <= iPageCnt; i1++)
{
sprintf(cBuff,"%sg3fax.%d",cTempDir,i1);
DosDelete(cBuff);
}
exit(iError);
}
