root/qmail
1
0
Fork 0
Code Activity
qmail/qmail-showctl.c
MAILER-DAEMON 69cea49034 Makes qmail-smtpd with AUTH support plus SPF and DKIM. 
This is the qmail that we're currently running at antartida.xyz.  We
took the notqmail repository and essentially applied patches for AUTH,
SPF and DKIM.

The DKIM patch does not come from the notqmail repository.  We took it
from the excellent notes at

  https://www.memoryhole.net/qmail/

We also applied the any-to-cname patch.  But we did not take the
oversize-dns patch.  Any mistakes here are mine---I had to merge it as
best we could and resolve various conflicts.

This is it. -- MAILER DAEMON :)

(*) Commit message from the notqmail branch

Remove FILES.auth, add new files to FILES.

Realphabetize Makefile targets.  Remove trailing whitespace variously.

Remove duplication declaration of auth in qmail-smtpd.c

Modification to Erwin Hoffmann's SMTP authentication for qmail-smtpd,
qmail-remote.

Apply Jana Saout's qmail-spf-rc5.patch

From https://www.saout.de/misc/spf/

This is an SPF implementation for qmail.

SPF is something like a DNS based "reverse MX" system to designate
permitted senders for mails depending on the domain name. The goal
is to disallow sender address forgery.

The patch is entirely written using the qmail string and DNS
functions, and thus completely integrated into qmail without
external dependencies.

It can check incoming mails inside the SMTP daemon, add Received-SPF
lines and optionally block undesired transfers. The check is
performed at the envelope level.
2024-11-24 13:20:39 -03:00

315 lines
11 KiB
C
Raw Permalink Blame History

#include <sys/types.h>
#include <sys/stat.h>
#include "substdio.h"
#include "subfd.h"
#include "exit.h"
#include "fmt.h"
#include "str.h"
#include "control.h"
#include "constmap.h"
#include "stralloc.h"
#include "direntry.h"
#include "auto_uids.h"
#include "auto_qmail.h"
#include "auto_break.h"
#include "auto_patrn.h"
#include "auto_spawn.h"
#include "auto_split.h"
#include "spf.h"
stralloc me = {0};
int meok;
stralloc line = {0};
char num[FMT_ULONG];
void safeput(buf,len)
char *buf;
unsigned int len;
{
char ch;
while (len > 0) {
ch = *buf;
if ((ch < 32) || (ch > 126)) ch = '?';
substdio_put(subfdout,&ch,1);
++buf;
--len;
}
}
void do_int(fn,def,pre,post)
char *fn;
char *def;
char *pre;
char *post;
{
int i;
substdio_puts(subfdout,"\n");
substdio_puts(subfdout,fn);
substdio_puts(subfdout,": ");
switch(control_readint(&i,fn)) {
case 0:
substdio_puts(subfdout,"(Default.) ");
substdio_puts(subfdout,pre);
substdio_puts(subfdout,def);
substdio_puts(subfdout,post);
substdio_puts(subfdout,".\n");
break;
case 1:
if (i < 0) i = 0;
substdio_puts(subfdout,pre);
substdio_put(subfdout,num,fmt_uint(num,i));
substdio_puts(subfdout,post);
substdio_puts(subfdout,".\n");
break;
default:
substdio_puts(subfdout,"Oops! Trouble reading this file.\n");
break;
}
}
void do_str(fn,flagme,def,pre)
char *fn;
int flagme;
char *def;
char *pre;
{
substdio_puts(subfdout,"\n");
substdio_puts(subfdout,fn);
substdio_puts(subfdout,": ");
switch(control_readline(&line,fn)) {
case 0:
substdio_puts(subfdout,"(Default.) ");
if (!stralloc_copys(&line,def)) {
substdio_puts(subfdout,"Oops! Out of memory.\n");
break;
}
if (flagme && meok)
if (!stralloc_copy(&line,&me)) {
substdio_puts(subfdout,"Oops! Out of memory.\n");
break;
}
case 1:
substdio_puts(subfdout,pre);
safeput(line.s,line.len);
substdio_puts(subfdout,".\n");
break;
default:
substdio_puts(subfdout,"Oops! Trouble reading this file.\n");
break;
}
}
int do_lst(fn,def,pre,post)
char *fn;
char *def;
char *pre;
char *post;
{
int i;
int j;
substdio_puts(subfdout,"\n");
substdio_puts(subfdout,fn);
substdio_puts(subfdout,": ");
switch(control_readfile(&line,fn)) {
case 0:
substdio_puts(subfdout,"(Default.) ");
substdio_puts(subfdout,def);
substdio_puts(subfdout,"\n");
return 0;
case 1:
substdio_puts(subfdout,"\n");
i = 0;
for (j = 0;j < line.len;++j)
if (!line.s[j]) {
substdio_puts(subfdout,pre);
safeput(line.s + i,j - i);
substdio_puts(subfdout,post);
substdio_puts(subfdout,"\n");
i = j + 1;
}
return 1;
default:
substdio_puts(subfdout,"Oops! Trouble reading this file.\n");
return -1;
}
}
void main()
{
DIR *dir;
direntry *d;
struct stat stmrh;
struct stat stmrhcdb;
substdio_puts(subfdout,"qmail home directory: ");
substdio_puts(subfdout,auto_qmail);
substdio_puts(subfdout,".\n");
substdio_puts(subfdout,"user-ext delimiter: ");
substdio_puts(subfdout,auto_break);
substdio_puts(subfdout,".\n");
substdio_puts(subfdout,"paternalism (in decimal): ");
substdio_put(subfdout,num,fmt_ulong(num,(unsigned long) auto_patrn));
substdio_puts(subfdout,".\n");
substdio_puts(subfdout,"silent concurrency limit: ");
substdio_put(subfdout,num,fmt_ulong(num,(unsigned long) auto_spawn));
substdio_puts(subfdout,".\n");
substdio_puts(subfdout,"subdirectory split: ");
substdio_put(subfdout,num,fmt_ulong(num,(unsigned long) auto_split));
substdio_puts(subfdout,".\n");
substdio_puts(subfdout,"user ids: ");
substdio_put(subfdout,num,fmt_ulong(num,(unsigned long) auto_uida));
substdio_puts(subfdout,", ");
substdio_put(subfdout,num,fmt_ulong(num,(unsigned long) auto_uidd));
substdio_puts(subfdout,", ");
substdio_put(subfdout,num,fmt_ulong(num,(unsigned long) auto_uidl));
substdio_puts(subfdout,", ");
substdio_put(subfdout,num,fmt_ulong(num,(unsigned long) auto_uido));
substdio_puts(subfdout,", ");
substdio_put(subfdout,num,fmt_ulong(num,(unsigned long) auto_uidp));
substdio_puts(subfdout,", ");
substdio_put(subfdout,num,fmt_ulong(num,(unsigned long) auto_uidq));
substdio_puts(subfdout,", ");
substdio_put(subfdout,num,fmt_ulong(num,(unsigned long) auto_uidr));
substdio_puts(subfdout,", ");
substdio_put(subfdout,num,fmt_ulong(num,(unsigned long) auto_uids));
substdio_puts(subfdout,".\n");
substdio_puts(subfdout,"group ids: ");
substdio_put(subfdout,num,fmt_ulong(num,(unsigned long) auto_gidn));
substdio_puts(subfdout,", ");
substdio_put(subfdout,num,fmt_ulong(num,(unsigned long) auto_gidq));
substdio_puts(subfdout,".\n");
if (chdir(auto_qmail) == -1) {
substdio_puts(subfdout,"Oops! Unable to chdir to ");
substdio_puts(subfdout,auto_qmail);
substdio_puts(subfdout,".\n");
substdio_flush(subfdout);
_exit(111);
}
if (chdir("control") == -1) {
substdio_puts(subfdout,"Oops! Unable to chdir to control.\n");
substdio_flush(subfdout);
_exit(111);
}
dir = opendir(".");
if (!dir) {
substdio_puts(subfdout,"Oops! Unable to open current directory.\n");
substdio_flush(subfdout);
_exit(111);
}
meok = control_readline(&me,"me");
if (meok == -1) {
substdio_puts(subfdout,"Oops! Trouble reading control/me.");
substdio_flush(subfdout);
_exit(111);
}
do_lst("authsenders","No authenticated SMTP sender.","Authenicated SMTP sender: ","");
do_lst("badmailfrom","Any MAIL FROM is allowed.",""," not accepted in MAIL FROM.");
do_str("bouncefrom",0,"MAILER-DAEMON","Bounce user name is ");
do_str("bouncehost",1,"bouncehost","Bounce host name is ");
do_int("concurrencylocal","10","Local concurrency is ","");
do_int("concurrencyremote","20","Remote concurrency is ","");
do_int("databytes","0","SMTP DATA limit is "," bytes");
do_str("defaultdomain",1,"defaultdomain","Default domain name is ");
do_str("defaulthost",1,"defaulthost","Default host name is ");
do_str("doublebouncehost",1,"doublebouncehost","2B recipient host: ");
do_str("doublebounceto",0,"postmaster","2B recipient user: ");
do_str("envnoathost",1,"envnoathost","Presumed domain name is ");
do_str("helohost",1,"helohost","SMTP client HELO host name is ");
do_str("idhost",1,"idhost","Message-ID host name is ");
do_str("localiphost",1,"localiphost","Local IP address becomes ");
do_lst("locals","Messages for me are delivered locally.","Messages for "," are delivered locally.");
do_str("me",0,"undefined! Uh-oh","My name is ");
do_lst("percenthack","The percent hack is not allowed.","The percent hack is allowed for user%host@",".");
do_str("plusdomain",1,"plusdomain","Plus domain name is ");
do_lst("qmqpservers","No QMQP servers.","QMQP server: ",".");
do_int("queuelifetime","604800","Message lifetime in the queue is "," seconds");
if (do_lst("rcpthosts","SMTP clients may send messages to any recipient.","SMTP clients may send messages to recipients at ","."))
do_lst("morercpthosts","No effect.","SMTP clients may send messages to recipients at ",".");
else
do_lst("morercpthosts","No rcpthosts; morercpthosts is irrelevant.","No rcpthosts; doesn't matter that morercpthosts has ",".");
/* XXX: check morercpthosts.cdb contents */
substdio_puts(subfdout,"\nmorercpthosts.cdb: ");
if (stat("morercpthosts",&stmrh) == -1)
if (stat("morercpthosts.cdb",&stmrhcdb) == -1)
substdio_puts(subfdout,"(Default.) No effect.\n");
else
substdio_puts(subfdout,"Oops! morercpthosts.cdb exists but morercpthosts doesn't.\n");
else
if (stat("morercpthosts.cdb",&stmrhcdb) == -1)
substdio_puts(subfdout,"Oops! morercpthosts exists but morercpthosts.cdb doesn't.\n");
else
if (stmrh.st_mtime > stmrhcdb.st_mtime)
substdio_puts(subfdout,"Oops! morercpthosts.cdb is older than morercpthosts.\n");
else
substdio_puts(subfdout,"Modified recently enough; hopefully up to date.\n");
do_str("smtpgreeting",1,"smtpgreeting","SMTP greeting: 220 ");
do_lst("smtproutes","No artificial SMTP routes.","SMTP route: ","");
do_int("spfbehavior","0","The SPF behavior is ","");
do_str("spfexp",0,SPF_DEFEXP,"The SPF default explanation is: 550 ");
do_str("spfguess",0,"","The guess SPF rules are: ");
do_str("spfrules",0,"","The local SPF rules are: ");
do_int("timeoutconnect","60","SMTP client connection timeout is "," seconds");
do_int("timeoutremote","1200","SMTP client data timeout is "," seconds");
do_int("timeoutsmtpd","1200","SMTP server data timeout is "," seconds");
do_lst("virtualdomains","No virtual domains.","Virtual domain: ","");
while (d = readdir(dir)) {
if (str_equal(d->d_name,".")) continue;
if (str_equal(d->d_name,"..")) continue;
if (str_equal(d->d_name,"authsenders")) continue;
if (str_equal(d->d_name,"badmailfrom")) continue;
if (str_equal(d->d_name,"bouncefrom")) continue;
if (str_equal(d->d_name,"bouncehost")) continue;
if (str_equal(d->d_name,"concurrencylocal")) continue;
if (str_equal(d->d_name,"concurrencyremote")) continue;
if (str_equal(d->d_name,"databytes")) continue;
if (str_equal(d->d_name,"defaultdomain")) continue;
if (str_equal(d->d_name,"defaulthost")) continue;
if (str_equal(d->d_name,"doublebouncehost")) continue;
if (str_equal(d->d_name,"doublebounceto")) continue;
if (str_equal(d->d_name,"envnoathost")) continue;
if (str_equal(d->d_name,"helohost")) continue;
if (str_equal(d->d_name,"idhost")) continue;
if (str_equal(d->d_name,"localiphost")) continue;
if (str_equal(d->d_name,"locals")) continue;
if (str_equal(d->d_name,"me")) continue;
if (str_equal(d->d_name,"morercpthosts")) continue;
if (str_equal(d->d_name,"morercpthosts.cdb")) continue;
if (str_equal(d->d_name,"percenthack")) continue;
if (str_equal(d->d_name,"plusdomain")) continue;
if (str_equal(d->d_name,"qmqpservers")) continue;
if (str_equal(d->d_name,"queuelifetime")) continue;
if (str_equal(d->d_name,"rcpthosts")) continue;
if (str_equal(d->d_name,"smtpgreeting")) continue;
if (str_equal(d->d_name,"smtproutes")) continue;
if (str_equal(d->d_name,"spfbehavior")) continue;
if (str_equal(d->d_name,"spfexp")) continue;
if (str_equal(d->d_name,"spfguess")) continue;
if (str_equal(d->d_name,"spfrules")) continue;
if (str_equal(d->d_name,"timeoutconnect")) continue;
if (str_equal(d->d_name,"timeoutremote")) continue;
if (str_equal(d->d_name,"timeoutsmtpd")) continue;
if (str_equal(d->d_name,"virtualdomains")) continue;
substdio_puts(subfdout,"\n");
substdio_puts(subfdout,d->d_name);
substdio_puts(subfdout,": I have no idea what this file does.\n");
}
substdio_flush(subfdout);
_exit(0);
}
View git blame Copy permalink