From 23f0e1561767dd8a396188e317bae5920d171ea8 Mon Sep 17 00:00:00 2001 From: erdgeist Date: Sun, 16 Aug 2015 16:38:25 +0200 Subject: Initial import of my nikola website --- .../software/Code/elektropost/auth.patch.diff-tls | 141 ++++ files/arts/software/Code/elektropost/maildroprc | 21 + files/arts/software/Code/elektropost/mkvalidrcptto | 826 +++++++++++++++++++++ .../Code/elektropost/qmail-smtpd.c.force.tls.patch | 42 ++ .../Code/elektropost/qmail-smtpd.c.privacy.patch | 31 + files/arts/software/Code/elektropost/tcp.smtp | 14 + .../Code/elektropost/validrcptto.cdb.patch.new | 153 ++++ files/arts/software/Code/vchat-client | Bin 0 -> 1922072 bytes 8 files changed, 1228 insertions(+) create mode 100644 files/arts/software/Code/elektropost/auth.patch.diff-tls create mode 100644 files/arts/software/Code/elektropost/maildroprc create mode 100755 files/arts/software/Code/elektropost/mkvalidrcptto create mode 100644 files/arts/software/Code/elektropost/qmail-smtpd.c.force.tls.patch create mode 100644 files/arts/software/Code/elektropost/qmail-smtpd.c.privacy.patch create mode 100644 files/arts/software/Code/elektropost/tcp.smtp create mode 100644 files/arts/software/Code/elektropost/validrcptto.cdb.patch.new create mode 100755 files/arts/software/Code/vchat-client (limited to 'files/arts/software/Code') diff --git a/files/arts/software/Code/elektropost/auth.patch.diff-tls b/files/arts/software/Code/elektropost/auth.patch.diff-tls new file mode 100644 index 0000000..2960def --- /dev/null +++ b/files/arts/software/Code/elektropost/auth.patch.diff-tls @@ -0,0 +1,141 @@ +*** auth.patch.orig Fri May 10 07:41:20 2002 +--- auth.patch Thu Jan 9 15:22:06 2014 +*************** +*** 14,42 **** + binm1.sh conf-qmail + cat binm1.sh \ + *************** +! *** 1536,1547 **** + timeoutwrite.o ip.o ipme.o ipalloc.o control.o constmap.o received.o \ + date822fmt.o now.o qmail.o cdb.a fd.a wait.a datetime.a getln.a \ + open.a sig.a case.a env.a stralloc.a alloc.a substdio.a error.a str.a \ + ! fs.a auto_qmail.o socket.lib + ./load qmail-smtpd rcpthosts.o commands.o timeoutread.o \ + timeoutwrite.o ip.o ipme.o ipalloc.o control.o constmap.o \ + received.o date822fmt.o now.o qmail.o cdb.a fd.a wait.a \ + datetime.a getln.a open.a sig.a case.a env.a stralloc.a \ + ! alloc.a substdio.a error.a str.a fs.a auto_qmail.o `cat \ + socket.lib` + + qmail-smtpd.0: \ +! --- 1540,1551 ---- + timeoutwrite.o ip.o ipme.o ipalloc.o control.o constmap.o received.o \ + date822fmt.o now.o qmail.o cdb.a fd.a wait.a datetime.a getln.a \ + open.a sig.a case.a env.a stralloc.a alloc.a substdio.a error.a str.a \ + ! fs.a auto_qmail.o base64.o socket.lib + ./load qmail-smtpd rcpthosts.o commands.o timeoutread.o \ + timeoutwrite.o ip.o ipme.o ipalloc.o control.o constmap.o \ + received.o date822fmt.o now.o qmail.o cdb.a fd.a wait.a \ + datetime.a getln.a open.a sig.a case.a env.a stralloc.a \ +! ! alloc.a substdio.a error.a str.a fs.a auto_qmail.o base64.o `cat \ + socket.lib` + + qmail-smtpd.0: \ +--- 14,44 ---- + binm1.sh conf-qmail + cat binm1.sh \ + *************** +! *** 1537,1549 **** + timeoutwrite.o ip.o ipme.o ipalloc.o control.o constmap.o received.o \ + date822fmt.o now.o qmail.o cdb.a fd.a wait.a datetime.a getln.a \ + open.a sig.a case.a env.a stralloc.a alloc.a substdio.a error.a str.a \ + ! fs.a auto_qmail.o socket.lib + ./load qmail-smtpd rcpthosts.o commands.o timeoutread.o \ + timeoutwrite.o ip.o ipme.o ipalloc.o control.o constmap.o \ ++ tls.o ssl_timeoutio.o ndelay.a -L/usr/local/ssl/lib -lssl -lcrypto \ + received.o date822fmt.o now.o qmail.o cdb.a fd.a wait.a \ + datetime.a getln.a open.a sig.a case.a env.a stralloc.a \ + ! alloc.a substdio.a error.a str.a fs.a auto_qmail.o `cat \ + socket.lib` + + qmail-smtpd.0: \ +! --- 1541,1553 ---- + timeoutwrite.o ip.o ipme.o ipalloc.o control.o constmap.o received.o \ + date822fmt.o now.o qmail.o cdb.a fd.a wait.a datetime.a getln.a \ + open.a sig.a case.a env.a stralloc.a alloc.a substdio.a error.a str.a \ + ! fs.a auto_qmail.o base64.o socket.lib + ./load qmail-smtpd rcpthosts.o commands.o timeoutread.o \ + timeoutwrite.o ip.o ipme.o ipalloc.o control.o constmap.o \ ++ tls.o ssl_timeoutio.o ndelay.a -L/usr/local/ssl/lib -lssl -lcrypto \ + received.o date822fmt.o now.o qmail.o cdb.a fd.a wait.a \ + datetime.a getln.a open.a sig.a case.a env.a stralloc.a \ +! ! alloc.a substdio.a error.a str.a fs.a auto_qmail.o base64.o `cat \ + socket.lib` + + qmail-smtpd.0: \ +*************** +*** 174,203 **** + stralloc greeting = {0}; + + *************** +! *** 229,235 **** +! } + void smtp_ehlo(arg) char *arg; + { +! ! smtp_greet("250-"); out("\r\n250-PIPELINING\r\n250 8BITMIME\r\n"); + seenmail = 0; dohelo(arg); +! } +! void smtp_rset() +! --- 241,255 ---- +! } + void smtp_ehlo(arg) char *arg; + { +! ! smtp_greet("250-"); +! ! #ifdef AUTHCRAM + ! out("\r\n250-AUTH LOGIN CRAM-MD5 PLAIN"); + ! out("\r\n250-AUTH=LOGIN CRAM-MD5 PLAIN"); + ! #else + ! out("\r\n250-AUTH LOGIN PLAIN"); + ! out("\r\n250-AUTH=LOGIN PLAIN"); + ! #endif +! ! out("\r\n250-PIPELINING\r\n250 8BITMIME\r\n"); + seenmail = 0; dohelo(arg); +- } +- void smtp_rset() + *************** + *** 394,403 **** + --- 414,639 ---- +--- 176,218 ---- + stralloc greeting = {0}; + + *************** +! *** 265,273 **** + void smtp_ehlo(arg) char *arg; + { +! smtp_greet("250-"); +! #ifdef TLS +! ! if (!ssl && (stat("control/servercert.pem",&st) == 0)) +! ! out("\r\n250-STARTTLS"); +! #endif +! out("\r\n250-PIPELINING\r\n250 8BITMIME\r\n"); + seenmail = 0; dohelo(arg); +! --- 277,302 ---- + void smtp_ehlo(arg) char *arg; + { +! smtp_greet("250-"); +! + #ifdef AUTHCRAM +! #ifdef TLS +! ! out("\r\n250-AUTH LOGIN CRAM-MD5 PLAIN"); +! ! out("\r\n250-AUTH=LOGIN CRAM-MD5 PLAIN"); +! ! if (!ssl && (stat("control/servercert.pem",&st) == 0)) +! ! out("\r\n250-STARTTLS"); +! ! #else + ! out("\r\n250-AUTH LOGIN CRAM-MD5 PLAIN"); + ! out("\r\n250-AUTH=LOGIN CRAM-MD5 PLAIN"); ++ ! #endif ++ ! #else ++ ! #ifdef TLS ++ ! out("\r\n250-AUTH LOGIN PLAIN"); ++ ! out("\r\n250-AUTH=LOGIN PLAIN"); ++ ! if (!ssl && (stat("control/servercert.pem",&st) == 0)) ++ ! out("\r\n250-STARTTLS"); + ! #else + ! out("\r\n250-AUTH LOGIN PLAIN"); + ! out("\r\n250-AUTH=LOGIN PLAIN"); + ! #endif +! #endif +! out("\r\n250-PIPELINING\r\n250 8BITMIME\r\n"); + seenmail = 0; dohelo(arg); + *************** + *** 394,403 **** + --- 414,639 ---- diff --git a/files/arts/software/Code/elektropost/maildroprc b/files/arts/software/Code/elektropost/maildroprc new file mode 100644 index 0000000..5d07a7c --- /dev/null +++ b/files/arts/software/Code/elektropost/maildroprc @@ -0,0 +1,21 @@ +import EXT +import HOST + +#This just bloody won't work for me.. don't know why +VHOME=`/usr/local/vpopmail/bin/vuserinfo -d $EXT@$HOST` +#VHOME=/usr/local/vpopmail/domains/$HOST/$EXT + +if (/^X-Spam-Flag: *YES/) +{ + exception { + TMP=`if [ ! -d $VHOME/Maildir/.Junk ]; then /usr/local/bin/maildirmake -f Junk $VHOME/Maildir/; fi` + TMP=`if ! grep -q ^Junk$ $VHOME/Maildir/.subscriptions; then echo Junk >> $VHOME/Maildir/.subscriptions; fi` + to "$VHOME/Maildir/.Junk/" + } +} +else +{ + exception { + to "$VHOME/Maildir/" + } +} diff --git a/files/arts/software/Code/elektropost/mkvalidrcptto b/files/arts/software/Code/elektropost/mkvalidrcptto new file mode 100755 index 0000000..5b03fbb --- /dev/null +++ b/files/arts/software/Code/elektropost/mkvalidrcptto @@ -0,0 +1,826 @@ +#!/usr/bin/perl -w +# +# mkvalidrcptto +# John Simpson 2005-04-20 +# +# reads qmail control files and builds a list of all valid email addresses +# on the system. +# +# 2005-05-04 jms1 - cleaned up the code a little bit. holding the output in +# memory until the whole thing is done so that partial output doesn't +# become an issue. it also makes it possible to create a cdb file directly, +# but i don't think i'm going to do that- i like the "chaining" approach +# better, piping this script's output through "cdbmake-12" to produce the +# cdb file. +# +# 2005-05-09 jms1 - changing the vpopmail user info process. instead of +# reading vpasswd.cdb, using "vuserinfo -D {domain}" and parsing that +# output. this should include mysql user information for people who are +# using vpopmail with mysql. Thanks to Roman Volf on the qmailrocks +# mailing list for pointing this out. +# +# 2005-06-09 jms1 - adding support for "fastforward" aliases. +# +# 2005-06-18 jms1 - finishing support for .qmail-* files in local user home +# directories... i don't ever use local users for mailboxes myself, so it +# wasn't an issue for me, but somebody out there may be doing it, so... +# +# 2005-06-23 jms1 - changed the search pattern when reading "vuserinfo -D" +# to get a vpopmail domain's mailbox list, instead of recognizing \w+ +# it now uses \S+ which should allow "." in mailbox names +# +# 2005-06-29 jms1 - translating ":" to "." in .qmail-* filenames... i forgot +# that qmail-local does this. somebody emailed me to remind me about this, +# but i can't find the email so i don't know who to thank for reminding me +# about this... +# +# 2005-06-30 jms1 - when vpopmail stores everything in a mysql database, +# aliases are apparently not represented by .qmail files at all. it looks +# like we have no choice but to use the vpopmail command-line tools to +# get the lists of mailboxes and aliases in the domain. thanks to Rob Pitt +# for telling me that this wasn't working (i don't use vpopmail with mysql +# so i had no way to know that this would be a problem.) +# +# 2005-07-17 jms1 - domains listed in smtproutes are currently listed as +# just "@domain", meaning the entire domain is accepted without any checks +# done for individual userid's. adding code so that you can create a +# directory full of files named for the domains, containing userid's +# which exist in that domain. thanks to roman volf for the suggestion. +# +# 2005-08-03 jms1 - turns out if vpopmail is compiled with support for mysql, +# the "valias -s" command doesn't list aliases which exist by virtue of +# .qmail-blah files... which rather sucks, because this is how ezmlm sets +# up the aliases it needs, by creating .qmail-blah files. thanks again to +# Roman Volf for pointing this out. +# +# 2005-10-24 jms1 - adding a "-n" switch to generate a list without the +# system accounts (i.e. no "locals" or "me" domains will be printed.) +# note that "fastforward" aliases are considered local, since they are +# processed through the local delivery mechanism. +# +# 2005-11-29 jms1 - now treats missing vpopmail directory as a warning +# rather than a fatal error. +# +# 2005-12-07 jms1 - after reviewing qmail-send.c and controls.c, it +# turns out that the "me" becoming part of "locals" only happens if +# the "control/locals" file does not exist... otherwise an empty +# "control/locals" file means that there are no locals. updating the +# script to duplicate this logic. +# also replacing ":" with "." in .qmail filenames. +# thanks to jeff hedlund for pointing me towards the "me" problem, +# and for pointing out my oversight with the ":" thing. +# +# 2005-12-29 jms1 - adding an array of numeric uid's (empty by default) +# which will be ignored when system uid's are scanned. thanks to +# roman volf for the suggestion. +# +# 2006-01-08 jms1 - fixed a typo, thanks to "marlowe" for pointing it out. +# +# 2006-01-11 jms1 - vpopmail has a "--enable-qmail-ext" option which +# changes how mailbox names are handled. if vpopmail is running WITH +# this option, every vpopmail mailbox has an implied "-default" alias +# whether there's a .qmail-user-default file there or not. thanks to +# robin bowes for pointing this out. +# +# 2006-01-12 jms1 - making the script work correctly in the unlikely +# case that the user-ext separator character was changed, either by +# changing conf-break before compiling qmail, or specifying a custom +# value in the users/cdb file. +# +# 2006-02-05 jms1 - adding an "exclude" list, for addresses which you +# may not want to include in the output (i.e. private mailing list +# aliases and things like that.) also fixed a bug in the code which +# handles the user-ext separator character. +# +# 2006-03-26 jms1 - fixed a minor typo in the text of an error message +# (which does not affect how the script works.) Thanks to Robin Bowes +# for pointing it out. +# +# 2006-11-29 jms1 - adding logic to work around the case where users/cdb +# just plain doesn't exist (which can happen on systems which don't use +# vpopmail etc.) thanks to "Eric d'Alibut" on djb's qmail mailing list +# for pointing it out. +# +############################################################################### +# +# Copyright (C) 2005-2006 John Simpson. +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License, version 2, as +# published by the Free Software Foundation. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# or visit http://www.gnu.org/licenses/gpl.txt +# +############################################################################### + +require 5.003 ; +use strict ; + +use CDB_File ; + +############################################################################### +# +# configuration + +my $vq = "/var/qmail" ; +my $vuser = "vpopmail" ; # vpopmail userid + +# any numeric uid's on the system which are lower than this will be ignored +# this way we don't create entries for root, bin, daemon, lp, news, uucp, +# and other non-used system users. +my $uid_min = 500 ; # ignore uid's lower than this +my $uid_max = 65000 ; # ignore uid's higher than this +my @uid_ignore = qw ( ) ; # ignore any uid's listed in this array + +# any entries listed in this array will NOT be included in the output +my @exclude = qw +( + sample1@domain.xyz + sample2@domain.xyz +) ; + +# if you have text files containing lists of valid mailboxes for smtproutes +# domains, put them all into a single directory and put that directory in +# the variable below. +# +# each line of each files should contain a mailbox userid- anything on the +# line which comes after "#" or "@" is deleted, so you can use "#" for +# comments if you like, and you can use a symlink (or hard link) to cause +# one file to be effective for multiple domains. +# +# note that these files are only consulted for domains listed in the +# smtproutes file. if this variable is blank, or it points to a directory +# which doesn't exist, all smtproutes domains will be printed as "@domain", +# which tells qmail-smtpd to accept any mailbox userid in that domain. + +my $smtpr_dir = "" ; + +############################################################################### +# +# global variables + +my ( %alldom , %ldom , %vdom , %sdom , %adom , %lusr , %ausr , + %home , %MRH , %UCDB , @output , $ffl , %ACDB ) ; + +my $err = 0 ; +my $lfound = 0 ; +my $afound = 0 ; +my $vfound = 0 ; +my $showlocal = 1 ; +my $need_untie = 0 ; + +my $vhome = "" ; +my $vbin = "" ; +my $vinc = "" ; +my $vqext = "?" ; +my $dash = "" ; +my $gdash = "" ; + +############################################################################### +# +# debugging function + +my $show_debug = 0 ; + +sub debug($) +{ + $show_debug && print $_[0] ; +} + +############################################################################### +# +# function to read /var/qmail/alias/.qmail-default + +sub find_ffl($) +{ + my $file = shift ; + + my $flagdeliver = 1 ; + my $flagpassthrough = 0 ; + my $flagdefault = 0 ; + + if ( open ( DQD , "<$file" ) ) + { + while ( my $line = ) + { + chomp $line ; + next unless ( $line =~ /^\|.*fastforward/ ) ; + + $line =~ s/^.*fastforward\s+// ; + my @dw = split ( /\s+/ , $line ) ; + while ( my $zz = shift @dw ) + { + next if ( $zz =~ /^\-/ ) ; + $ffl = $zz ; + last ; + } + + last if ( $ffl ) ; + } + close DQD ; + } +} + +############################################################################### +############################################################################### +############################################################################### + +my $arg = ( shift || "" ) ; +if ( "-n" eq $arg ) +{ + $showlocal = 0 ; +} + +############################################################################### +# +# only interested in domains for which we legitimately receive mail + +open ( I , "<$vq/control/rcpthosts" ) + or die "$vq/control/rcpthosts: $!\n" ; +while ( my $line = ) +{ + chomp $line ; + $alldom{$line} = 1 ; +} +close I ; + +open ( I , "<$vq/control/morercpthosts" ) + or die "$vq/control/morercpthosts: $!\n" ; +while ( my $line = ) +{ + chomp $line ; + $alldom{$line} = 1 ; +} +close I ; + +if ( -f "$vq/control/morercpthosts.cdb" ) +{ + tie ( %MRH , "CDB_File" , "$vq/control/morercpthosts.cdb" ) + or die "$vq/control/morercpthosts: $!\n" ; + map { $alldom{$_} = 1 } keys %MRH ; + untie %MRH ; +} + +############################################################################### +# +# classify each one as local, virtual, or pass-thru +# +# note that if the control/locals file does not exist, the name listed +# in the control/me file is used as if control/locals contained the +# data. + +if ( -f "$vq/control/locals" ) +{ + open ( I , "<$vq/control/locals" ) + or die "$vq/control/locals: $!\n" ; + while ( my $line = ) + { + chomp $line ; + + ######################################## + # ignore any that we don't actually receive mail for + + next unless ( exists $alldom{$line} ) ; + delete $alldom{$line} ; + + ######################################## + # mark this one as local + + $ldom{$line} = 1 ; + $lfound ++ ; + $afound ++ ; + } + close I ; +} +elsif ( -f "$vq/control/me" ) +{ + open ( I , "<$vq/control/me" ) + or die "$vq/control/me: $!\n" ; + while ( my $line = ) + { + chomp $line ; + + ######################################## + # ignore any that we don't actually receive mail for + + next unless ( exists $alldom{$line} ) ; + delete $alldom{$line} ; + + ######################################## + # mark this one as local + + $ldom{$line} = 1 ; + $lfound ++ ; + $afound ++ ; + } + close I ; +} + +if ( -f "$vq/control/virtualdomains" ) +{ + open ( I , "<$vq/control/virtualdomains" ) + or die "$vq/control/virtualdomains: $!\n" ; + while ( my $line = ) + { + chomp $line ; + + ######################################## + # extract the domain name + + my ( $dom , $zu ) = split ( /\s*\:\s*/ , $line ) ; + $dom || die "error in $vq/control/virtualdomains\n$line\n" ; + + ######################################## + # ignore any that we don't actually receive mail for + + next unless ( exists $alldom{$dom} ) ; + delete $alldom{$dom} ; + + ######################################## + # check the userid + + if ( $zu eq "alias" ) + { + ######################################## + # if the domain is handled by the qmail "alias" + # user, then it needs alias processing + + $adom{$dom} = 1 ; + $afound ++ ; + } + else + { + ######################################## + # mark this one as a virtual domain + # and remember the full line, we will need it later + + $vdom{$dom} = $line ; + $vfound ++ ; + } + } + close I ; +} + +if ( -f "$vq/control/smtproutes" ) +{ + open ( I , "<$vq/control/smtproutes" ) + or die "$vq/control/smtproutes: $!\n" ; + while ( my $line = ) + { + chomp $line ; + + ######################################## + # extract the domain name + + $line =~ s/\:.*// ; + + ######################################## + # ignore lines with no domain (default instruction) + + next unless $line ; + + ######################################## + # ignore any that we don't actually receive mail for + + next unless ( exists $alldom{$line} ) ; + delete $alldom{$line} ; + + ######################################## + # mark this one as an smtproutes domain + + $sdom{$line} = 1 ; + } + close I ; +} + +############################################################################### +# +# catch leftovers - domains which come into the machine but are not handled + +for my $d ( sort keys %alldom ) +{ + print "ERROR: $d is listed in rcpthosts/morercpthosts.cdb" + . " but is not handled by the server.\n" ; + $err ++ ; +} + +$err && die "Cannot continue.\n" ; + +############################################################################### +# +# start generating output. +# +# smtproutes domains - if a directory was specified, and it exists, and a +# file for the domain exists, read userid's from the file and generate +# "userid@domain" lines... otherwise just generate a single "@domain" line. + +for my $d ( sort keys %sdom ) +{ + if ( $smtpr_dir && ( -d $smtpr_dir ) && ( -f "$smtpr_dir/$d" ) ) + { + open ( I , "<$smtpr_dir/$d" ) + or die "Can\'t read $smtpr_dir/$d: $!\n" ; + while ( my $line = ) + { + chomp $line ; + $line =~ s/#.*// ; + $line =~ s/\@.*// ; + $line =~ s/^\s+// ; + $line =~ s/\s+$// ; + next unless ( $line ) ; + push ( @output , "$line\@$d" ) ; + } + close I ; + } + else + { + push ( @output, "\@$d" ) ; + } +} + +############################################################################### +# +# local domains - all system accounts and aliases, in each local domain + +if ( $lfound || $afound ) +{ + ######################################## + # need the global "dash" character + + unless ( $gdash ) + { + open ( GD , "$vq/bin/qmail-showctl |" ) + or die "Can\'t run qmail-showctl: $!\n" ; + while ( my $gdline = ) + { + if ( $gdline =~ /user\-ext delimiter\: (.)/ ) + { + $gdash = $1 ; + last ; + } + } + close GD ; + } +} + +if ( $lfound ) +{ + ######################################## + # turn array into hash for speed + + my %ig = () ; + map { $ig{$_} = "" } @uid_ignore ; + + ######################################## + # grab a list of system accounts + + while ( my @pw = getpwent() ) + { + next if ( $pw[2] < $uid_min ) ; # ignore system accounts + next if ( $pw[2] > $uid_max ) ; # ignore "nobody" accounts + next if ( exists $ig{$pw[2]} ) ; # ignore special accounts + next unless ( $pw[2] ) ; # no deliveries to root + $lusr{$pw[0]} = 1 ; + + if ( opendir ( D , $pw[7] ) ) + { + while ( my $f = readdir D ) + { + next unless ( $f =~ /^\.qmail${gdash}(.+)/ ) ; + my $zu = $1 ; + $zu =~ s/\:/./g ; + $lusr{"$pw[0]${gdash}$zu"} = 1 ; + } + closedir D ; + } + } +} + +if ( $showlocal && ( $lfound || $afound ) ) +{ + ######################################## + # grab a list of aliases + + opendir ( D , "$vq/alias" ) + or die "$vq/alias: $!\n" ; + while ( my $f = readdir ( D ) ) + { + next unless ( $f =~ /^\.qmail${gdash}(.*)/ ) ; + my $u = $1 ; + + if ( $u eq "default" ) + { + find_ffl ( "$vq/alias/.qmail${gdash}default" ) ; + } + else + { + $u =~ s/\:/./g ; + $ausr{$u} = 1 ; + } + } + closedir D ; + + ######################################## + # if we found a fastforward file, grab those aliases as well + + if ( $ffl ) + { + tie ( %ACDB , "CDB_File" , $ffl ) + or die "$ffl: $!\n" ; + + for my $k ( keys %ACDB ) + { + next unless ( $k =~ /^\:(.*)\@(.*)$/ ) ; + my ( $au , $ad ) = ( $1 , $2 ) ; + + if ( $ad ) + { + next unless ( exists ( $adom{$ad} ) + || exists ( $ldom{$ad} ) ) ; + push ( @output , "$au\@$ad" ) ; + } + else + { + $ausr{$au} = 1 ; + } + } + + untie %ACDB ; + } + + ######################################## + # generate output. + # local domains get every system user AND every alias user + + for my $dd ( sort keys %ldom ) + { + map { push ( @output , "$_\@$dd" ) } sort keys %lusr ; + map { push ( @output , "$_\@$dd" ) } sort keys %ausr ; + } + + ######################################## + # alias domains get every alias user + + for my $dd ( sort keys %adom ) + { + map { push ( @output , "$_\@$dd" ) } sort keys %ausr ; + } +} + +############################################################################### +# +# virtual domains - a little more complicated. + +if ( $vfound ) +{ + ####################################################################### + # + # the virtualdomains file contains a mapping from the domain name to a + # userid, which may be a system account and may be a virtual userid + # defined in the $vq/users/assign file. + # + # vpopmail normally uses the domain name as the virtual userid for + # this purpose, but we want to be flexible enough to handle other + # cases as well. + # + # in order to deal with this extra layer of indirection, we need to + # read the users/cdb file. and because it's a cdb, we don't even need + # to read the whole thing- we just need to open it so that we can + # search it. + + if ( -f "$vq/users/cdb" ) + { + tie ( %UCDB , "CDB_File" , "$vq/users/cdb" ) + or die "$vq/users/cdb: $!\n" ; + $need_untie = 1 ; + } + else + { + %UCDB = () ; + } + + my $wc = ( $UCDB{""} || "" ) ; + + ####################################################################### + # + # now we have the list of users/assign virtual users (if any), we need + # to identify the home directory, real or virutal, for the user. + + for my $dom ( sort keys %vdom ) + { + $vdom{$dom} =~ /\:(.*)$/ ; + my $usr = $1 ; + + my %vusr = () ; + my $dir = "" ; + my $vpopmail = 0 ; + + ######################################## + # note that in cases where a given "userid" exists as both a + # system userid and a virtual userid, the virtual userid takes + # precedence (according to the qmail-lspawn man page.) + # this is why we saved the home directories above. + + if ( exists $UCDB{"!$usr$wc"} ) + { + my @w = split ( /\0/ , $UCDB{"!$usr$wc"} ) ; + $dir = ( $w[3] || die "mis-formed users/cdb data:" + . " $usr\n" ) ; + $dash = ( $w[4] || "" ) ; + } + else + { + if ( my @pw = getpwnam ( $usr ) ) + { + $dir = $pw[7] ; + } + } + + die "ERROR: virtual user \"$usr\" not found" + . " (for virtualdomain \"$dom\")\n" + unless ( $dir ) ; + + ######################################## + # now we know which directory to look in. check for a + # ".qmail-default" file. if it contains "vdelievermail", we + # know that vpopmail is in control here... and if the + # vdelivermail line also has "bounce-no-mailbox", we need + # the list of individual users. otherwise we can just + # blindly accept the entire domain. + + unless ( -r $dir ) + { + print STDERR "Can\'t read directory $dir" + . " (for vpopmail domain \"$dom\")\n" ; + next ; + } + + if ( -f "$dir/.qmail${dash}default" ) + { + open ( V , "<$dir/.qmail${dash}default" ) + or die "$dir/.qmail${dash}default: $!\n" ; + + while ( my $line = ) + { + if ( $line =~ /vdelivermail.*(bounce\-no\-mailbox|delete)/ ) + { + $vpopmail = 1 ; + } + } + close V ; + } + + ######################################## + # if we need the users... + + if ( $vpopmail ) + { + ######################################## + # if we don't already know where it is, + # find the vpopmail user's "/bin" directory. + + unless ( $vhome ) + { + my @pw = getpwnam ( $vuser ) + or die "getpwnam($vuser): $!\n" ; + $vhome = $pw[7] ; + $vbin = "$vhome/bin" ; + $vinc = "$vhome/include" ; + + die "Can\'t find $vbin/vuserinfo: $!\n" + unless ( -e "$vbin/vuserinfo" ) ; + } + + ######################################## + # if we don't already know, find out if + # vpopmail was built with --enable-qmail-ext + + if ( $vqext eq "?" ) + { + $vqext = "no" ; + open ( VCH , "<$vinc/vpopmail_config.h" ) + or die ( "Can\'t read " + . "$vinc/vpopmail_config.h: $!\n" ) ; + + while ( my $vcl = ) + { + next unless ( $vcl =~ /^#define QMAIL_EXT 1/ ) ; + $vqext = "yes" ; + last ; + } + close VCH ; + debug "vqext=$vqext\n" ; + } + + ######################################## + # run "vuserinfo -D {domain}" to get a list of + # actual mailboxes within the domain. + + debug "/----- $vbin/vuserinfo -D $dom\n" ; + open ( VP , "$vbin/vuserinfo -D $dom |" ) + or die "Can\'t execute $vbin/vuserinfo: $!\n" ; + while ( my $line = ) + { + debug $line ; + next unless ( $line =~ /^name\:\s+(\S+)/ ) ; + my $u = $1 ; + $vusr{$u} = $u ; + debug "\t[$u]" ; + if ( $vqext eq "yes" ) + { + $vusr{"$u${dash}default"} = + "$u${dash}default" ; + debug " [$u${dash}default]" ; + } + debug "\n" ; + } + close VP ; + debug "\\-----\n" ; + + ######################################## + # run "valias -s {domain}" to get a list of + # aliases within the domain. + + debug "/----- $vbin/valias -s $dom\n" ; + open ( VP , "$vbin/valias -s $dom |" ) + or die "Can\'t execute $vbin/valias: $!\n" ; + while ( my $line = ) + { + debug $line ; + next unless ( $line =~ /^(.+?)\@/ ) ; + my $u = $1 ; + $vusr{$u} = $u ; + debug "\t[$u]\n" ; + } + close VP ; + debug "\\-----\n" ; + + ######################################## + # read the directory itself. any .qmail-___ files are + # also valid aliases within the domain, even if + # "valias" doesn't seem to know about them. + + opendir ( D , $dir ) + or die "$dir: $!\n" ; + while ( my $f = readdir ( D ) ) + { + if ( $f =~ /^\.qmail${dash}(.*)/ ) + { + my $u = $1 ; + next if ( $u eq "default" ) ; + $u =~ s/\:/./g ; + $vusr{$u} = $u ; + } + } + closedir D ; + + ######################################## + # now %vusr contains a list of all valid email + # addresses within the domain. + + map { push ( @output , "$_\@$dom" ) ; + debug "{$_\@$dom}\n" } sort keys %vusr ; + } + else + { + ######################################## + # virtual domain, but either it's not handled by + # vpopmail, or there is something going on with + # itother than "bounce-no-mailbox", which means + # we don't need the full list of mailboxes. + + push ( @output , "\@$dom" ) ; + } + } + + if ( $need_untie ) + { + untie %UCDB ; + $need_untie = 0 ; + } +} + +############################################################################### +# +# if we make it this far, we have no errors and can print the list. +# we need to filter out any "exclude" entries + +my %ex = () ; +map { $ex{lc $_} = "" } @exclude ; + +for my $k ( @output ) +{ + $k = lc $k ; + unless ( exists $ex{$k} ) + { + print "$k\n" ; + } +} diff --git a/files/arts/software/Code/elektropost/qmail-smtpd.c.force.tls.patch b/files/arts/software/Code/elektropost/qmail-smtpd.c.force.tls.patch new file mode 100644 index 0000000..8eb4132 --- /dev/null +++ b/files/arts/software/Code/elektropost/qmail-smtpd.c.force.tls.patch @@ -0,0 +1,42 @@ +*** qmail-smtpd.c.orig Thu Jan 9 16:24:52 2014 +--- qmail-smtpd.c Thu Jan 9 16:30:52 2014 +*************** +*** 42,47 **** +--- 42,48 ---- + int tls_verify(); + void tls_nogateway(); + int ssl_rfd = -1, ssl_wfd = -1; /* SSL_get_Xfd() are broken */ ++ int forcetls = 0; + #endif + + int safewrite(fd,buf,len) int fd; char *buf; int len; +*************** +*** 700,705 **** +--- 701,709 ---- + if (!stralloc_0(&proto)) die_nomem(); + protocol = proto.s; + ++ /* Check if we have to force users to use ssl when authenticating */ ++ if(control_readint(&forcetls,"control/smtpforcetls") == -1) die_control(); ++ + /* have to discard the pre-STARTTLS HELO/EHLO argument, if any */ + dohelo(remotehost); + } +*************** +*** 894,899 **** +--- 898,912 ---- + out("503 auth not available (#5.3.3)\r\n"); + return; + } ++ #ifdef TLS ++ if (forcetls && !ssl) ++ { ++ out("538 auth not available without TLS (#5.3.3)\r\n"); ++ flush(); ++ die_read(); ++ } ++ #endif ++ + if (authd) { err_authd(); return; } + if (seenmail) { err_authmail(); return; } + diff --git a/files/arts/software/Code/elektropost/qmail-smtpd.c.privacy.patch b/files/arts/software/Code/elektropost/qmail-smtpd.c.privacy.patch new file mode 100644 index 0000000..d9ba4fd --- /dev/null +++ b/files/arts/software/Code/elektropost/qmail-smtpd.c.privacy.patch @@ -0,0 +1,31 @@ +--- qmail-smtpd.c 2009-07-21 23:32:27.000000000 +0200 ++++ qmail-smtpd.c 2009-07-21 23:30:48.000000000 +0200 +@@ -34,7 +34,7 @@ + unsigned int databytes = 0; + int timeout = 1200; + unsigned int spfbehavior = 0; +- ++static int authd = 0; + const char *protocol = "SMTP"; + + #ifdef TLS +@@ -614,7 +614,10 @@ + qp = qmail_qp(&qqt); + out("354 go ahead\r\n"); + +- received(&qqt,protocol,local,remoteip,remotehost,remoteinfo,fakehelo); ++ if(!authd) ++ received(&qqt,protocol,local,remoteip,remotehost,remoteinfo,fakehelo); ++ else ++ received(&qqt,protocol,local,remoteinfo,local,0,local); + spfreceived(); + blast(&hops); + hops = (hops >= MAXHOPS); +@@ -839,7 +842,6 @@ + char **childargs; + substdio ssup; + char upbuf[128]; +-int authd = 0; + + int authgetl(void) { + int i; diff --git a/files/arts/software/Code/elektropost/tcp.smtp b/files/arts/software/Code/elektropost/tcp.smtp new file mode 100644 index 0000000..81e47fa --- /dev/null +++ b/files/arts/software/Code/elektropost/tcp.smtp @@ -0,0 +1,14 @@ +# Das hier sind die rulez fuer den tcpserver (ucspi) der den qmail-smtpd startet +# als relay fungiert nur fuer localhost und . +# Alle anderen duerfen zwar senden, aber nur an domains, die in +# /var/qmail/control/rcpthosts stehen. +# +# Diese Datei muss mittels +# +# "cat /usr/local/vpopmail/etc/tcp.smtp | tcprules /usr/local/vpopmail/etc/tcp.smtp.cdb /usr/local/vpopmail/etc/tcp.smtp.tmp" +# +# "kompiliert" werden. +# +:allow +#127.0.0.1:allow,RELAYCLIENT="" +#192.168.0.1:allow,RELAYCLIENT="" diff --git a/files/arts/software/Code/elektropost/validrcptto.cdb.patch.new b/files/arts/software/Code/elektropost/validrcptto.cdb.patch.new new file mode 100644 index 0000000..bbd1eb4 --- /dev/null +++ b/files/arts/software/Code/elektropost/validrcptto.cdb.patch.new @@ -0,0 +1,153 @@ +--- Makefile.old Mon Dec 4 03:33:09 2006 ++++ Makefile Mon Dec 4 03:35:01 2006 +@@ -1558,15 +1558,15 @@ + + qmail-smtpd: \ + load qmail-smtpd.o rcpthosts.o commands.o timeoutread.o \ +-timeoutwrite.o ip.o ipme.o ipalloc.o strsalloc.o control.o constmap.o \ ++timeoutwrite.o ip.o ipme.o ipalloc.o subfderr.o strsalloc.o control.o constmap.o \ + received.o date822fmt.o now.o qmail.o spf.o dns.o cdb.a fd.a wait.a \ +-datetime.a getln.a open.a sig.a case.a env.a stralloc.a alloc.a substdio.a \ ++datetime.a getln.a open.a sig.a case.a env.a strerr.a stralloc.a alloc.a substdio.a \ + error.a str.a fs.a auto_qmail.o base64.o socket.lib dns.lib + ./load qmail-smtpd rcpthosts.o commands.o timeoutread.o \ +- timeoutwrite.o ip.o ipme.o ipalloc.o strsalloc.o control.o \ ++ timeoutwrite.o ip.o ipme.o ipalloc.o subfderr.o strsalloc.o control.o \ + tls.o ssl_timeoutio.o ndelay.a -L/usr/lib -lssl -lcrypto \ + constmap.o received.o date822fmt.o now.o qmail.o spf.o dns.o cdb.a \ +- fd.a wait.a datetime.a getln.a open.a sig.a case.a env.a stralloc.a \ ++ fd.a wait.a datetime.a getln.a open.a sig.a case.a env.a strerr.a stralloc.a \ + alloc.a substdio.a error.a fs.a auto_qmail.o base64.o \ + str.a `cat socket.lib` `cat dns.lib` + +@@ -1579,7 +1579,7 @@ + substdio.h alloc.h auto_qmail.h control.h received.h constmap.h \ + error.h ipme.h ip.h ipalloc.h strsalloc.h ip.h gen_alloc.h ip.h qmail.h \ + substdio.h str.h fmt.h scan.h byte.h case.h env.h now.h datetime.h \ +-exit.h rcpthosts.h timeoutread.h timeoutwrite.h commands.h wait.h spf.h \ ++exit.h rcpthosts.h timeoutread.h timeoutwrite.h commands.h wait.h spf.h cdb.h uint32.h \ + fd.h base64.h + ./compile qmail-smtpd.c + +--- qmail-smtpd.c.old Mon Dec 4 03:36:22 2006 ++++ qmail-smtpd.c Mon Dec 4 03:44:49 2006 +@@ -26,6 +26,8 @@ + #include "wait.h" + #include "fd.h" + #include "spf.h" ++#include "strerr.h" ++#include "cdb.h" + + #define AUTHCRAM + #define MAXHOPS 100 +@@ -99,6 +101,7 @@ + int err_noauth() { out("504 auth type unimplemented (#5.5.1)\r\n"); return -1; } + int err_authabrt() { out("501 auth exchange cancelled (#5.0.0)\r\n"); return -1; } + int err_input() { out("501 malformed auth input (#5.5.4)\r\n"); return -1; } ++void err_vrt() { out("553 sorry, this recipient is not in my validrcptto list (#5.7.1)\r\n"); } + + stralloc greeting = {0}; + stralloc spflocal = {0}; +@@ -139,6 +142,7 @@ + int bmfok = 0; + stralloc bmf = {0}; + struct constmap mapbmf; ++int vrtfd = -1; + + void setup() + { +@@ -155,6 +159,9 @@ + + if (rcpthosts_init() == -1) die_control(); + ++ vrtfd = open_read("control/validrcptto.cdb"); ++ if (-1 == vrtfd) if (errno != error_noent) die_control(); ++ + bmfok = control_readfile(&bmf,"control/badmailfrom",0); + if (bmfok == -1) die_control(); + if (bmfok) +@@ -269,6 +276,60 @@ + return 0; + } + ++int vrtcheck() ++{ ++ int j,k,r; ++ uint32 dlen; ++ stralloc laddr = {0}; ++ ++ stralloc user = {0}; ++ stralloc adom = {0}; ++ stralloc utry = {0}; ++ ++ if (-1 == vrtfd) return 1; ++ ++ /* lowercase whatever we were sent */ ++ if (!stralloc_copy(&laddr,&addr)) die_nomem() ; ++ case_lowerb(laddr.s,laddr.len); ++ ++ /* exact match? */ ++ r = cdb_seek(vrtfd,laddr.s,laddr.len-1,&dlen) ; ++ if (r>0) return r; ++ ++ j = byte_rchr(laddr.s,laddr.len,'@'); ++ if (j < laddr.len) ++ { ++ /* start "-default" search loop */ ++ stralloc_copyb(&user,laddr.s,j) ; ++ stralloc_copyb(&adom,laddr.s+j,laddr.len-j-1); ++ ++ while(1) ++ { ++ k = byte_rchr(user.s,user.len,'-'); ++ if (k >= user.len) break ; ++ ++ user.len = k+1; ++ stralloc_cats(&user,"default"); ++ ++ stralloc_copy(&utry,&user); ++ stralloc_cat (&utry,&adom); ++ stralloc_0(&utry); ++ ++ r = cdb_seek(vrtfd,utry.s,utry.len-1,&dlen); ++ if (r>0) return r; ++ ++ user.len = k ; ++ } ++ ++ /* try "@domain" */ ++ r = cdb_seek(vrtfd,laddr.s+j,laddr.len-j-1,&dlen) ; ++ if (r>0) return r; ++ } ++ ++ return 0; ++} ++ ++ + int addrallowed() + { + int r; +@@ -280,7 +341,6 @@ + return r; + } + +- + int seenmail = 0; + int flagbarf; /* defined if seenmail */ + int flagbarfspf; +@@ -402,8 +462,14 @@ + if (!stralloc_cats(&addr,relayclient)) die_nomem(); + if (!stralloc_0(&addr)) die_nomem(); + } +- else ++ else { + if (!addrallowed()) { err_nogateway(); return; } ++ if (!vrtcheck()) { ++ strerr_warn4("qmail-smtpd: not in validrcptto: ",addr.s, ++ " at ",remoteip,0); ++ err_vrt(); return; ++ } ++ } + if (!stralloc_cats(&rcptto,"T")) die_nomem(); + if (!stralloc_cats(&rcptto,addr.s)) die_nomem(); + if (!stralloc_0(&rcptto)) die_nomem(); diff --git a/files/arts/software/Code/vchat-client b/files/arts/software/Code/vchat-client new file mode 100755 index 0000000..ab1c6f3 Binary files /dev/null and b/files/arts/software/Code/vchat-client differ -- cgit v1.2.3