![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to send.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / d / bin / mail / usermail|
Return to send.c CVS log | Up to [MW Coherent from dump] / coherent / d / bin / mail / usermail |
1.1 ! root 1: /* ! 2: * The code that passes an individual message to the mail system. ! 3: */ ! 4: ! 5: #include "mail.h" ! 6: ! 7: #define SITENAMELEN 32 /* max length of sitename */ ! 8: #define NODENAME "/etc/uucpname" ! 9: #define DOMAINNAME "/etc/domain" ! 10: char domain [64]; ! 11: ! 12: extern char *strtok(); ! 13: static char **allist; ! 14: static char **tolist; ! 15: static char **cclist = NULL; ! 16: ! 17: char mysite[SITENAMELEN]; /* this host's uucpname */ ! 18: ! 19: extern char *temp; ! 20: extern int myuid; /* User-id of mail user */ ! 21: extern int mygid; /* Group-id of mail user */ ! 22: extern char cmdname[]; /* Command for x{en,de}code filter */ ! 23: /* and for tail recursion to uumail */ ! 24: /* and for editor recursion */ ! 25: extern char *editname; /* name of editor */ ! 26: extern char *askcc; /* Ask for CC: list? (YES/NO) */ ! 27: extern int callmexmail; /* Xmail modifier present */ ! 28: extern char wrerr[]; ! 29: extern char myname[]; /* User name */ ! 30: extern char myfullname[]; /* full user name */ ! 31: extern int mflag; /* `You have mail.' message to recipient */ ! 32: extern int verbflag; /* verbose flag */ ! 33: extern char templ[]; /* Temp file name template */ ! 34: extern char mydead[]; /* $HOME/dead.letter */ ! 35: extern char mysig[]; ! 36: extern char nosave[]; ! 37: extern int callmermail; ! 38: ! 39: static int eflag; /* Edit this mail */ ! 40: static int senderr; ! 41: struct tm *tp; ! 42: char toerr[] = "Cannot create temporary file\n"; ! 43: char header[BUFSIZ]; /* Message header */ ! 44: char boxname[256]; /* Destination mailbox */ ! 45: char remotefrom [32]; /* "remote from uucp" */ ! 46: ! 47: char nosend[] = "Can't send mail to '%s'\n"; ! 48: char nopubk[] = "Can't send xmail to '%s'\n"; ! 49: static int fromtty; ! 50: ! 51: /* ! 52: * Send the message found on ! 53: * the file pointer to the list ! 54: * of people (argv style) with ! 55: * a NULL pointer at the end. ! 56: * The message is copied to a temp-file ! 57: * from position `start' to `end' (or EOF). ! 58: */ ! 59: send2(fp, users, start, end, asksubj) ! 60: FILE *fp; ! 61: register char **users; ! 62: fsize_t start, end; ! 63: int asksubj; ! 64: { ! 65: char **getcc(), **listpp; ! 66: FILE *xfp, *tfp, *sigfp; ! 67: time_t curtime; ! 68: ! 69: uucpname(); ! 70: domainname(); ! 71: senderr = 0; ! 72: temp = templ; ! 73: ! 74: fromtty = isatty(fileno(stdin)); ! 75: if ((tfp = fopen(temp, "w")) != NULL) { ! 76: fclose(tfp); ! 77: if ((tfp = fopen(temp, "r+w")) == NULL) ! 78: merr(toerr); ! 79: } else ! 80: merr(toerr); ! 81: chown(temp, myuid, mygid); ! 82: unlink(temp); ! 83: temp = NULL; ! 84: fseek(fp, start, 0); ! 85: end -= start; ! 86: ! 87: eflag = 0; ! 88: if (fromtty && asksubj && !callmermail) { ! 89: fprintf(stdout, "Subject: "); ! 90: fflush(stdout); ! 91: if (fgets(msgline, NLINE, fp) != NULL) { ! 92: if (strlen(msgline) > 1) ! 93: fprintf(tfp, "Subject: %s", msgline); ! 94: } ! 95: } ! 96: ! 97: if (intcheck()) { ! 98: fclose(tfp); ! 99: return(1); ! 100: } ! 101: ! 102: for (;;) { ! 103: if (fgets(msgline, NLINE, fp) == NULL) ! 104: break; ! 105: if (fp == stdin) ! 106: if ((strcmp(".\n", msgline)==0)) ! 107: break; ! 108: else if ((strcmp("?\n", msgline)==0)) { ! 109: eflag = 1; ! 110: break; ! 111: } ! 112: fputs(msgline, tfp); ! 113: if ( (end-=strlen(msgline)) <= 0 ) ! 114: break; ! 115: } ! 116: ! 117: if (intcheck()) { ! 118: fclose(tfp); ! 119: return(1); ! 120: } ! 121: ! 122: if (!callmermail && (sigfp = fopen(mysig, "r")) != NULL) { ! 123: fputs("\n", tfp); ! 124: while (fgets(msgline, NLINE, sigfp) != NULL) ! 125: fputs(msgline, tfp); ! 126: fclose(sigfp); ! 127: } ! 128: ! 129: /* ! 130: * Now, see if user wants to edit the message ! 131: */ ! 132: ! 133: if (eflag) { ! 134: xfp = tfp; ! 135: temp = templ; ! 136: if ((tfp = fopen(temp, "wr")) == NULL) ! 137: merr(toerr); ! 138: chown(temp, myuid, mygid); ! 139: mcopy(xfp, tfp, (fsize_t)0, (fsize_t)MAXLONG, 0); ! 140: fclose(xfp); ! 141: sprintf(cmdname, "exec %s %s", editname, templ); ! 142: system(cmdname); ! 143: unlink(temp); ! 144: temp = NULL; ! 145: } ! 146: ! 147: /* ! 148: * if empty message, bug out. ! 149: */ ! 150: ! 151: if (ftell(tfp) == 0) { ! 152: fclose(tfp); ! 153: return(1); ! 154: } ! 155: ! 156: /* ! 157: * Now see if a copy list is requested. ! 158: */ ! 159: ! 160: tolist = users; ! 161: cclist = (askcc && fromtty && !callmermail) ? getcc(): NULL; ! 162: allist = listcat(tolist, cclist); ! 163: ! 164: if ( verbflag ) { ! 165: mmsg( ! 166: "Recipient List:\n\n"); ! 167: for (listpp=allist; *listpp != NULL; listpp++) ! 168: mmsg("\t%s\n", *listpp); ! 169: } ! 170: ! 171: /* ! 172: * Now send the message. ! 173: */ ! 174: ! 175: time(&curtime); ! 176: tp = localtime(&curtime); ! 177: ! 178: if (callmexmail) ! 179: xsend(allist, tfp); ! 180: else ! 181: usend(allist, tfp); ! 182: ! 183: return( senderr ); ! 184: } ! 185: ! 186: usend(users, tfp) ! 187: char **users; ! 188: FILE *tfp; ! 189: { ! 190: FILE *xfp; ! 191: char *name; ! 192: char **ulist, **listpp; ! 193: char command[CMDLINE]; ! 194: char *arpadate(); ! 195: FILE *popen(); ! 196: ! 197: logdump("Date: %s From: %s!%s (%s)\n", ! 198: arpadate(tp), mysite, myname, myfullname); ! 199: for (ulist = users; (name=*ulist) != NULL; ulist++) ! 200: logdump("To: \"%s\"\n", name); ! 201: ! 202: /* Build the command line to the delivery program. */ ! 203: if ( callmexmail ) { ! 204: strcpy(command, XDELIVER); /* usually "/bin/rxmail" */ ! 205: } else { ! 206: strcpy(command, DELIVER); /* usually "/bin/rmail" */ ! 207: } /* if ( callmexmail ) */ ! 208: ! 209: /* Add the list of recipients to the command line. */ ! 210: for (listpp = users; *listpp != NULL; listpp++) { ! 211: strcat(command, " "); ! 212: strcat(command, *listpp); ! 213: } ! 214: ! 215: /* NB: I think there may be a security problem ! 216: here, since popen ought to exec $SHELL. Check this. */ ! 217: /* Now actually call the mail delivery agent. */ ! 218: if ( (xfp = popen(command, "w")) == NULL ) { ! 219: /* Report a send error and return. */ ! 220: } ! 221: ! 222: /* Pump the headers into the delivery agent. */ ! 223: build_header(xfp); ! 224: ! 225: /* Pump the message into the delivery agent. */ ! 226: rewind(tfp); ! 227: mcopy(tfp, xfp, (fsize_t)0, (fsize_t)MAXLONG, 0); ! 228: ! 229: fclose(xfp); ! 230: fclose(tfp); ! 231: } ! 232: ! 233: xsend(users, tfp) char **users; FILE *tfp; ! 234: { ! 235: register char **ulist; ! 236: register char *cp; ! 237: register struct passwd *pwp; ! 238: FILE *xfp; ! 239: ! 240: for (ulist = users; *ulist!=NULL; ulist++) { ! 241: rewind(tfp); ! 242: sprintf(boxname, "%s%s", SPOOLDIR, *ulist); ! 243: sprintf(cmdname, "xencode %s >> %s", *ulist, boxname); ! 244: if (index(*ulist, '!') != NULL ! 245: || (pwp = getpwnam(*ulist)) == NULL) { ! 246: mmsg(nosend, *ulist); ! 247: continue; ! 248: } ! 249: if (xaccess(*ulist) == 0) { ! 250: mmsg(nopubk, *ulist); ! 251: continue; ! 252: } ! 253: mlock(pwp->pw_uid); ! 254: if ((xfp = fopen(boxname, "a")) == NULL) { ! 255: mmsg(nosend, *ulist); ! 256: munlock(); ! 257: continue; ! 258: } ! 259: chown(boxname, pwp->pw_uid, pwp->pw_gid); ! 260: fprintf(xfp, "From xmail %s %s\n", cp, ! 261: tzname[tp->tm_isdst ? 1 : 0]); ! 262: fclose(xfp); ! 263: if ((xfp = popen(cmdname, "w")) == NULL) { ! 264: mmsg("Can't pipe to xencode\n"); ! 265: continue; ! 266: } ! 267: if (fwrite(header, strlen(header), 1, xfp) != 1 ! 268: || mcopy(tfp, xfp, (fsize_t)0, (fsize_t)MAXLONG, 0)) { ! 269: merr(wrerr, cmdname); ! 270: } ! 271: pclose(xfp); ! 272: munlock(); ! 273: } ! 274: fclose(tfp); ! 275: } ! 276: ! 277: uucpname() ! 278: { ! 279: FILE *uufile; ! 280: ! 281: if (NULL == (uufile = fopen(NODENAME, "r"))) { ! 282: strcpy(mysite, "<unknown>"); ! 283: return; ! 284: } ! 285: fgets(mysite, sizeof mysite, uufile); ! 286: mysite[strlen(mysite) - 1] = '\0'; /* remove '\n' */ ! 287: fclose(uufile); ! 288: return; ! 289: } ! 290: ! 291: domainname() ! 292: { ! 293: FILE *domfile; ! 294: if((domfile = fopen(DOMAINNAME, "r")) == NULL) { ! 295: strcpy(domain, ".UNKNOWN"); ! 296: return; ! 297: } ! 298: fgets(domain, sizeof domain, domfile); ! 299: domain [strlen(domain) - 1] = '\0'; ! 300: fclose (domfile); ! 301: return; ! 302: } ! 303: ! 304: char * ! 305: arpadate(tp) ! 306: struct tm *tp; ! 307: { ! 308: static char arpabuf [64]; ! 309: static char months[] = "JanFebMarAprMayJunJulAugSepOctNovDec"; ! 310: sprintf(arpabuf, "%d %c%c%c %d %02d:%02d:%02d", ! 311: tp->tm_mday, ! 312: months[tp->tm_mon * 3], ! 313: months[tp->tm_mon * 3 + 1], ! 314: months[tp->tm_mon * 3 + 2], ! 315: tp->tm_year, ! 316: tp->tm_hour, tp->tm_min, tp->tm_sec); ! 317: return arpabuf; ! 318: } ! 319: ! 320: char * ! 321: msgid(tp) ! 322: struct tm *tp; ! 323: { ! 324: static char msgidbuf [32]; ! 325: sprintf(msgidbuf, "%02d%02d%02d%02d%02d", ! 326: tp->tm_year, tp->tm_mon + 1, tp->tm_mday, tp->tm_hour, tp->tm_min); ! 327: return msgidbuf; ! 328: } ! 329: ! 330: build_header(xfp) ! 331: FILE *xfp; ! 332: { ! 333: char **ulist; ! 334: int processid; ! 335: ! 336: /* Generate a Message-Id. */ ! 337: processid = getpid(); ! 338: sprintf(header, "Message-Id: <%s.AA%d.V%s@%s.%s>\n", ! 339: msgid(tp), processid, revnop(), mysite, domain); ! 340: if (fwrite(header, strlen(header), 1, xfp) != 1) ! 341: return 0; ! 342: ! 343: /* generate Date: and From: lines. */ ! 344: sprintf(header, "Date: %s\nFrom: %s@%s.%s (%s)\n", ! 345: arpadate(tp), myname, mysite, domain, myfullname); ! 346: if (fwrite(header, strlen(header), 1, xfp) != 1) ! 347: return 0; ! 348: ! 349: /* Generate the full To: lines. We just spit addresses out ! 350: verbatum, with no cleanup. */ ! 351: strcpy(header, "To:"); ! 352: for (ulist=tolist; *ulist != NULL; ulist++) { ! 353: strcat(header, " "); ! 354: strcat(header, *ulist); ! 355: } ! 356: strcat(header, "\n"); ! 357: if (fwrite(header, strlen(header), 1, xfp) != 1) ! 358: return 0; ! 359: ! 360: /* Generate a Cc: line if needed. */ ! 361: if (cclist[0] != NULL) { ! 362: strcpy(header, "Cc:"); ! 363: for (ulist=cclist; *ulist != NULL; ulist++) { ! 364: strcat(header, " "); ! 365: strcat(header, *ulist); ! 366: } ! 367: strcat(header, "\n"); ! 368: if (fwrite(header, strlen(header), 1, xfp) != 1) ! 369: return 0; ! 370: } ! 371: return 1; ! 372: } ! 373:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.