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*/ }