void CGEEngine::offUse() {
debugC(1, kCGEDebugEngine, "CGEEngine::offUse()");
trouble(kSeqOffUse, kOffUse + newRandom(_offUseCount));
}
void CGEEngine::tooFar() {
debugC(1, kCGEDebugEngine, "CGEEngine::tooFar()");
trouble(kSeqTooFar, kTooFar);
}
xtrysend()
{
int i;
dem_open(dfname); /*open spider connection.*/
if((dfb = fopen(dfname, "r")) == NULL){
if(LDIRNAM < (i = sizeof(baddf)-1)){
strncpy(baddf, dfname, i);
baddf[i] = '\0';
baddf[LDIRNAM] = 'b';
link(dfname, baddf);
}
unlink(dfname);
retcode = 0;
trouble("Can't read %s.", dfname);
}
getowner(dfname); /*RBB*/
mesp = message;
*mesp = 0;
while (getline()) switch (line[0]) {
case 'S':
get_snumb(); /*get snumb for GCOS.*/
continue;
case 'B':
if(sascii(0))
trouble("Can't send %s.", &line[1]);
continue;
case 'F':
if(sascii(1))
trouble("Can't send %s.", &line[1]);
continue;
case 'I': /*mail back $IDENT card. MRW*/
mesp = copline(&line[1], linel-1, mesp);
case 'L':
lwrite(); /*write a literal line.*/
continue;
case 'M':
continue;
case 'N': /*mail back file name. MRW*/
copline(&line[1], linel-1, mailfname);
continue;
case 'Q': /*additional text to mail back*/
if(mesp+linel <= message+MXMESS)
mesp = copline(&line[1], linel-1, mesp);
case 'U':
continue;
}
/*
* Second pass.
* Unlink files and send mail.
*/
alarm(0);
fseek(dfb, (long)0, 0);
while (getline()) switch (line[0]) {
default:
continue;
case 'U':
unlink(&line[1]);
continue;
case 'M':
sendmail();
continue;
}
FCLOSE(dfb);
dem_close(); /*close connection to spider.*/
unlink(dfname);
retcode = 0;
trouble("OK: %-5s %-7s %-8s", snumb, fowner, dfname+LDIRNAM); /*RBB*/
}
