--- /dev/null
+/*
+Subject: Re: send mail from chrooted Apache
+ From: Wietse Venema (wietseporcupine.org)
+ Date: Tue Jun 06 2000 - 07:43:31 CDT
+Next message: Wietse Venema: "Re: -"
+Previous message: Brad Knowles: "Re: performance issues"
+In reply to: ISM Kolemanov, Ivan: "send mail from chrooted Apache"
+ ISM Kolemanov, Ivan:
+ > hi all,
+ >
+ > I've just prepared Apache Web Server in chroot env.
+ > but now I have a problem, I can't send mails from the web server
+ > I mean that on the web server I have some formulars,
+ > which my clients are using to send me mail.
+ >
+ > I guess that there is any solution for that, but up to now I didn't find it.
+ > If anybody knows it please respond.
+ >
+ > 10x in advance
+ > Ivan Kolemanov
+
+This is a quick-and-dirty stand-alone SMTP client from long ago.
+ Works OK for lines up to BUFSIZ characters, nothing to worry about
+ security-wise. You could probably do the same in PERL, but I wrote
+ this for a web server that allowed no programming languages inside
+ the jail.
+
+ Wietse
+ */
+/*++
+ /* NAME
+ /* smtp 1
+ /* SUMMARY
+ /* simple smtp client
+ /* SYNOPSIS
+ /* smtp [options] recipient(s)...
+ /* DESCRIPTION
+ /* \fIsmtp\fP is a minimal smtp client that takes an email
+ /* message body and passes it on to an smtp daemon (default
+ /* the smtp daemon on the local host). Since it is
+ /* completely self-supporting, the smtp client is especially
+ /* suitable for use in restricted environments.
+ /*
+ /* Options:
+ /* .TP
+ /* -c carbon-copy
+ /* Specifies one Cc: address to send one copy of the message to.
+ /* .TP
+ /* -e errors-to
+ /* Specifies the Errors-To: address. This is where delivery
+ /* problems should be reported.
+ /* .TP
+ /* -f from
+ /* Sets the From: address. Default is "daemon", which is
+ /* probably wrong.
+ /* .TP
+ /* -m mailhost
+ /* Specifies where the mail should be posted. By default, the
+ /* mail is posted to the smtp daemon on \fIlocalhost\fR.
+ /* .TP
+ /* -M
+ /* Use MIME-style translation to quoted-printable (base 16).
+ /* .TP
+ /* -r reply-to
+ /* Sets the Reply-To: address.
+ /* .TP
+ /* -s subject
+ /* Specifies the message subject.
+ /* .TP
+ /* -v
+ /* Turn on verbose logging to stdout.
+ /* DIAGNOSTICS
+ /* Non-zero exit status in case of problems. Errors are reported
+ /* to the syslogd, with facility daemon.
+ /* AUTHOR(S)
+ /* W.Z. Venema
+ /* Eindhoven University of Technology
+ /* Department of Mathematics and Computer Science
+ /* Den Dolech 2, P.O. Box 513, 5600 MB Eindhoven, The Netherlands
+ /* CREATION DATE
+ /* Wed Dec 1 14:51:13 MET 1993
+ /* LAST UPDATE
+ /* Fri Aug 11 12:29:23 MET DST 1995
+ /*--*/
+
+/* System libraries */
+
+#include <sys/types.h>
+ #include <sys/socket.h>
+ #include <netinet/in.h>
+ #include <syslog.h>
+ #include <stdio.h>
+ #include <netdb.h>
+ #include <string.h>
+ #include <ctype.h>
+ #include <pwd.h>
+
+#ifdef __STDC__
+ #include <stdarg.h>
+ #define VARARGS(func,arg,type) func(type arg, ...)
+ #define VASTART(ap,name,type) { va_start(ap, name)
+ #define VAEND(ap) va_end(ap); }
+ #else
+ #include <varargs.h>
+ #define VARARGS(func,arg,type) func(va_alist) \
+ va_dcl
+ #define VASTART(ap,name,type) { type name; \
+ va_start(ap); \
+ name = va_arg(ap, type)
+ #define VAEND(ap) va_end(ap); }
+ #endif /* __STDC__ */
+
+extern int optind;
+ extern char *optarg;
+
+/* Local stuff */
+
+static char *cc_addr = 0;
+ static char *err_addr = 0;
+ static char *from_addr = "daemon";
+ static char *mailhost = "localhost";
+ static char *reply_addr = 0;
+ static char *subject = 0;
+ static int mime_style = 0;
+ static int verbose = 0;
+
+static FILE *sfp;
+ static FILE *rfp;
+
+#define dprintf if (verbose) printf
+ #define dvprintf if (verbose) vprintf
+
+void toqp();
+
+/* usage - explain and bail out */
+
+void usage()
+ {
+ syslog(LOG_ERR,
+ "usage: smtp [-c cc] [-e errors-to] [-f from] [-m mailhost] [-M] [-r reply-to] [-s subject] [-v] recipents..\n");
+ exit(1);
+ }
+
+/* get_response - examine message from server */
+
+void get_response()
+ {
+ char buf[BUFSIZ];
+
+ while (fgets(buf, sizeof(buf), rfp)) {
+ buf[strlen(buf) - 1] = 0;
+ dprintf(">>>> %s\n", buf);
+ if (!isdigit(buf[0]) || buf[0] > '3') {
+ syslog(LOG_ERR, "unexpected reply: %s", buf);
+ exit(1);
+ }
+ if (buf[4] != '-')
+ break;
+ }
+ }
+
+/* chat - say something to server and check the response */
+
+void VARARGS(chat, fmt, char *)
+ {
+ va_list ap;
+
+ /* Format the message. */
+
+ VASTART(ap, fmt, char *);
+ vfprintf(sfp, fmt, ap);
+ VAEND(ap);
+
+ VASTART(ap, fmt, char *);
+ dvprintf(fmt, ap);
+ VAEND(ap);
+
+ /* Send message to server and parse its response. */
+
+ fflush(sfp);
+ get_response();
+ }
+
+main(argc, argv)
+ int argc;
+ char **argv;
+ {
+ char buf[BUFSIZ];
+ char my_name[BUFSIZ];
+ struct sockaddr_in sin;
+ struct hostent *hp;
+ struct servent *sp;
+ int c;
+ int s;
+ int r;
+ int i;
+ struct passwd *pwd;
+
+ openlog(argv[0], LOG_PID, LOG_DAEMON);
+
+ /* Go away when something gets stuck. */
+
+ alarm(60);
+
+ /* Parse JCL. */
+
+ while ((c = getopt(argc, argv, "c:e:f:m:Mr:s:v")) != EOF) {
+ switch (c) {
+ case 'c': /* carbon copy */
+ cc_addr = optarg;
+ break;
+ case 'e': /* errors-to */
+ err_addr = optarg;
+ break;
+ case 'f': /* originator */
+ from_addr = optarg;
+ break;
+ case 'm': /* mailhost */
+ mailhost = optarg;
+ break;
+ case 'M': /* MIME quoted printable */
+ mime_style = 1;
+ break;
+ case 'r': /* reply-to */
+ reply_addr = optarg;
+ break;
+ case 's': /* subject */
+ subject = optarg;
+ break;
+ case 'v': /* log protocol */
+ verbose = 1;
+ break;
+ default:
+ usage();
+ /* NOTREACHED */
+ }
+ }
+ if (argc == optind)
+ usage();
+
+ /* Find out my own host name for HELO; if possible, get the FQDN. */
+
+ if (gethostname(my_name, sizeof(my_name) - 1) < 0) {
+ syslog(LOG_ERR, "gethostname: %m");
+ exit(1);
+ }
+ if ((hp = gethostbyname(my_name)) == 0) {
+ syslog(LOG_ERR, "%s: unknown host\n", my_name);
+ exit(1);
+ }
+ strncpy(my_name, hp->h_name, sizeof(my_name) - 1);
+
+ /* Connect to smtp daemon on mailhost. */
+
+ if ((hp = gethostbyname(mailhost)) == 0) {
+ syslog(LOG_ERR, "%s: unknown host\n", mailhost);
+ exit(1);
+ }
+ if (hp->h_addrtype != AF_INET) {
+ syslog(LOG_ERR, "unknown address family: %d", hp->h_addrtype);
+ exit(1);
+ }
+ memset((char *) &sin, 0, sizeof(sin));
+ memcpy((char *) &sin.sin_addr, hp->h_addr, hp->h_length);
+ sin.sin_family = hp->h_addrtype;
+ if ((sp = getservbyname("smtp", "tcp")) != 0) {
+ sin.sin_port = sp->s_port;
+ } else {
+ syslog(LOG_ERR, "smtp/tcp: unknown service");
+ exit(1);
+ }
+ if ((s = socket(AF_INET, SOCK_STREAM, 0)) < 0) {
+ syslog(LOG_ERR, "socket: %m");
+ exit(1);
+ }
+ if (connect(s, (struct sockaddr *) & sin, sizeof(sin)) < 0) {
+ syslog(LOG_ERR, "connect: %m");
+ exit(1);
+ }
+ if ((r = dup(s)) < 0) {
+ syslog(LOG_ERR, "dup: %m");
+ exit(1);
+ }
+ if ((sfp = fdopen(s, "w")) == 0) {
+ syslog(LOG_ERR, "fdopen: %m");
+ exit(1);
+ }
+ if ((rfp = fdopen(r, "r")) == 0) {
+ syslog(LOG_ERR, "fdopen: %m");
+ exit(1);
+ }
+ /* Speak SMTP. */
+
+ get_response(); /* banner */
+
+ chat("HELO %s\r\n", my_name);
+
+ chat("MAIL FROM: <%s>\r\n", from_addr);
+
+ for (i = optind; i < argc; i++)
+ chat("RCPT TO: <%s>\r\n", argv[i]);
+ if (cc_addr)
+ chat("RCPT TO: <%s>\r\n", cc_addr);
+
+ chat("DATA\r\n");
+
+ /* Do message header. */
+
+ fprintf(sfp, "From: %s\r\n", from_addr);
+
+ if (subject)
+ fprintf(sfp, "Subject: %s\r\n", subject);
+
+ if (err_addr)
+ fprintf(sfp, "Errors-To: %s\r\n", err_addr);
+
+ if (reply_addr)
+ fprintf(sfp, "Reply-To: %s\r\n", reply_addr);
+
+ if ((pwd = getpwuid(getuid())) == 0) {
+ fprintf(sfp, "Sender: userid-%d%s\r\n", getuid(), my_name);
+ } else {
+ fprintf(sfp, "Sender: %s%s\r\n", pwd->pw_name, my_name);
+ }
+
+ fprintf(sfp, "To: %s", argv[optind]);
+ for (i = optind + 1; i < argc; i++)
+ fprintf(sfp, ", %s", argv[i]);
+ fprintf(sfp, "\r\n");
+
+ if (cc_addr)
+ fprintf(sfp, "Cc: %s\r\n", cc_addr);
+
+ if (mime_style) {
+ fprintf(sfp, "Mime-Version: 1.0\r\n");
+ fprintf(sfp, "Content-Type: text/plain; charset=ISO-8859-1\r\n");
+ fprintf(sfp, "Content-Transfer-Encoding: quoted-printable\r\n");
+ }
+ fprintf(sfp, "\r\n");
+
+ /* Do message body. */
+
+ if (mime_style) { /* MIME quoted-printable */
+ toqp(stdin, sfp);
+ } else { /* traditional... */
+ while (fgets(buf, sizeof(buf), stdin)) {
+ buf[strlen(buf) - 1] = 0;
+ if (strcmp(buf, ".") == 0) { /* quote lone dots */
+ fprintf(sfp, "..\r\n");
+ } else { /* pass thru mode */
+ fprintf(sfp, "%s\r\n", buf);
+ }
+ }
+ }
+ chat(".\r\n");
+ chat("QUIT\r\n");
+ exit(0);
+ }
+
+ /*
+ * Following code was lifted from the metamail version 2.7 source code
+ * (codes.c) and modified to emit \r\n at line boundaries.
+ */
+
+static char basis_hex[] = "0123456789ABCDEF";
+
+/* toqp - transform to MIME-style quoted printable */
+
+void toqp(infile, outfile)
+ FILE *infile,
+ *outfile;
+ {
+ int c,
+ ct = 0,
+ prevc = 255;
+
+ while ((c = getc(infile)) != EOF) {
+ if ((c < 32 && (c != '\n' && c != '\t'))
+ || (c == '=')
+ || (c >= 127)
+
+ /*
+ * Following line is to avoid single periods alone on lines, which
+ * messes up some dumb smtp implementations, sigh...
+ */
+ || (ct == 0 && c == '.')) {
+ putc('=', outfile);
+ putc(basis_hex[c >> 4], outfile);
+ putc(basis_hex[c & 0xF], outfile);
+ ct += 3;
+ prevc = 'A'; /* close enough */
+ } else if (c == '\n') {
+ if (prevc == ' ' || prevc == '\t') {
+ putc('=', outfile); /* soft & hard lines */
+ putc(c, outfile);
+ }
+ putc(c, outfile);
+ ct = 0;
+ prevc = c;
+ } else {
+ if (c == 'F' && prevc == '\n') {
+
+ /*
+ * HORRIBLE but clever hack suggested by MTR for
+ * sendmail-avoidance
+ */
+ c = getc(infile);
+ if (c == 'r') {
+ c = getc(infile);
+ if (c == 'o') {
+ c = getc(infile);
+ if (c == 'm') {
+ c = getc(infile);
+ if (c == ' ') {
+ /* This is the case we are looking for */
+ fputs("=46rom", outfile);
+ ct += 6;
+ } else {
+ fputs("From", outfile);
+ ct += 4;
+ }
+ } else {
+ fputs("Fro", outfile);
+ ct += 3;
+ }
+ } else {
+ fputs("Fr", outfile);
+ ct += 2;
+ }
+ } else {
+ putc('F', outfile);
+ ++ct;
+ }
+ ungetc(c, infile);
+ prevc = 'x'; /* close enough -- printable */
+ } else { /* END horrible hack */
+ putc(c, outfile);
+ ++ct;
+ prevc = c;
+ }
+ }
+ if (ct > 72) {
+ putc('=', outfile);
+ putc('\r', outfile); /* XXX */
+ putc('\n', outfile);
+ ct = 0;
+ prevc = '\n';
+ }
+ }
+ if (ct) {
+ putc('=', outfile);
+ putc('\r', outfile); /* XXX */
+ putc('\n', outfile);
+ }
+ }
projects / bacula / bacula / commitdiff