diff --git a/add_list.php b/add_list.php new file mode 100644 index 0000000..88fcace --- /dev/null +++ b/add_list.php @@ -0,0 +1,42 @@ + 30 ) + { + // List name must not be longer than 30 characters + $_SESSION["error_code"] = 6; + header("Location: error.php"); + exit(); + } + + $domain = $_SESSION["domain"]; + shell_exec("cp -r misc/template_$language $lists_path/$domain/$list_name"); + file_put_contents("$lists_path/$domain/$list_name/control/listaddress", "$list_name@$domain"); + file_put_contents("$lists_path/$domain/$list_name/control/customheaders", "From: $list_name@$domain\nReply-To: $list_name@$domain\n"); + file_put_contents("$lists_path/$domain/$list_name/control/prefix", "[$list_name]"); + shell_exec("sed -i -e 's/_unsub_addr_/$list_name\+unsubscribe@$domain/g' $lists_path/$domain/$list_name/control/footer-*"); +} + +header("Location: index.php"); +exit(); +?> diff --git a/del_list.php b/del_list.php new file mode 100644 index 0000000..9ee43e4 --- /dev/null +++ b/del_list.php @@ -0,0 +1,40 @@ + 30 ) +{ + header("Location: error.php"); + exit(); +} + +// Test list existence +if( !is_dir("$lists_path/$domain/$list_name") ) +{ + header("Location: error.php"); + exit(); +} + +if (!isset($_SESSION["auth"]) || $_SESSION["auth"] != 1) +{ + // If not authenticated, then redirect to login page + header("Location: login.php"); + exit(); +} + +if(!empty($list_name)) +{ + shell_exec("rm -rf $lists_path/$domain/$list_name"); + header("Location: index.php"); + exit(); +} +?> diff --git a/delete.svg b/delete.svg new file mode 100644 index 0000000..18c9a8d --- /dev/null +++ b/delete.svg @@ -0,0 +1,65 @@ + + + + + + image/svg+xml + + + + + + + + + + + diff --git a/edit_list.php b/edit_list.php new file mode 100644 index 0000000..7586370 --- /dev/null +++ b/edit_list.php @@ -0,0 +1,82 @@ + 30 ) +{ + header("Location: error.php"); + exit(); +} + +// Test list existence +if( !is_dir("$lists_path/$domain/$list_name") ) +{ + header("Location: error.php"); + exit(); +} + +// Get a subscribers list +$subscribers = shell_exec("/usr/bin/mlmmj-list -L $lists_path/$domain/$list_name"); +// Remove trailing empty symbols +$subscribers = trim($subscribers); + +// Get a list type. There are three types of lists: +// a closed moderated list (0), a newslist (1) and a conference (2) +$list_type = file_get_contents("$lists_path/$domain/$list_name/list_type.txt"); +$list_type = trim($list_type); + +// Select current list in select html elemant +$list_type_selected = ["", "", ""]; +$list_type_selected[$list_type] = "selected"; + +// Get a footer +$footer = file_get_contents("$lists_path/$domain/$list_name/control/footer-text"); +$footer = trim($footer); + +// News list do not has moderators file +if ($list_type !== "2") +{ + // Get a moderators list + $moderators = file_get_contents("$lists_path/$domain/$list_name/control/moderators"); + // Remove trailing empty symbols + $moderators = trim($moderators); +} +else +{ + $moderators = NULL; +} + +// Get a prefix +$prefix = file_get_contents("$lists_path/$domain/$list_name/control/prefix"); +// Remove trailing empty symbols +$prefix = trim($prefix); + +$notmetoo_checked = file_exists("$lists_path/$domain/$list_name/control/notmetoo") ? "checked" : ""; + +// Load page +$smarty->assign("subscribers", $subscribers); +$smarty->assign("list_name", $list_name); +$smarty->assign("domain", $domain); +$smarty->assign("list_type_selected", $list_type_selected); +$smarty->assign("footer", $footer); +$smarty->assign("moderators", $moderators); +$smarty->assign("prefix", $prefix); +$smarty->assign("notmetoo_checked", $notmetoo_checked); +$smarty->display("edit_list.tpl"); +?> diff --git a/error.php b/error.php new file mode 100644 index 0000000..d9b031d --- /dev/null +++ b/error.php @@ -0,0 +1,7 @@ +assign("error_code", $error_code); +$smarty->display("error.tpl"); +?> diff --git a/help.svg b/help.svg new file mode 100644 index 0000000..41d8c34 --- /dev/null +++ b/help.svg @@ -0,0 +1,168 @@ + + + + + + + EPS converted from http://aiga.org + + + symbol + mapsym + + + + + Open Clip Art Library + + + + + Jean-Victor Balin + + + + + Jean-Victor Balin + + + + image/svg+xml + + + en + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/index.php b/index.php new file mode 100644 index 0000000..2cfab9e --- /dev/null +++ b/index.php @@ -0,0 +1,36 @@ +assign("lists", $lists); +$smarty->assign("domain", $domain); +$smarty->display("index.tpl"); +?> diff --git a/init.php b/init.php new file mode 100644 index 0000000..c9613ef --- /dev/null +++ b/init.php @@ -0,0 +1,23 @@ +setTemplateDir("misc/smarty/templates_$language"); +$smarty->setCompileDir("misc/smarty/templates_c"); +$smarty->setCacheDir("misc/smarty/cache"); +$smarty->setConfigDir("misc/smarty/configs"); + +session_start(); +?> diff --git a/login.php b/login.php new file mode 100644 index 0000000..37d7ca4 --- /dev/null +++ b/login.php @@ -0,0 +1,74 @@ +display("login.tpl"); +} +?> diff --git a/logout.php b/logout.php new file mode 100644 index 0000000..0f0f5ac --- /dev/null +++ b/logout.php @@ -0,0 +1,8 @@ + diff --git a/misc/.htaccess b/misc/.htaccess new file mode 100644 index 0000000..b66e808 --- /dev/null +++ b/misc/.htaccess @@ -0,0 +1 @@ +Require all denied diff --git a/misc/TODO.txt b/misc/TODO.txt new file mode 100644 index 0000000..5967939 --- /dev/null +++ b/misc/TODO.txt @@ -0,0 +1,40 @@ +1. dkim, spf + +init.sh: +1. mlmmj-footer-receive and footer compile +2. disable /etc/cron.d/mlmmj +4. Cron: +34 */2 * * * /root/bin/mlmmj.maintaince.sh 1>/dev/null 2>/dev/null +*/15 * * * * /root/bin/remove_frozen_bounces.sh > /dev/null 2>&1 +5. Проверить, что в файлах /etc/mailname и /etc/hostname FQDN +6. Права доступа на templates устанавливать в init.sh, прочие права тоже допилить +8. AllowOverride All in /etc/apache2.conf +9. user mlmmj for apache and exim + +Left this to better times: +1. Automatic installation of Let's Encrypt SSL; +2. Send letter to moderators when a letter has sent to all subscribers; + +--------------------- +testing: +0. moderated list: + - test@list.mlmmj.tk (mod) DISCARDED + - test@list.mlmmj.tk (sub) PASSED TO MODS + - test@list.mlmmj.tk (mod+sub) PASSED TO MODS + - test@list.mlmmj.tk (not sub) DISCARDED + - test+subscribe@list.mlmmj.tk (not sub) DISCARDED + - test+unsubscribe@list.mlmmj.tk (sub) CONFIRM + FAREWELL + +1. news list: + - test@list.mlmmj.tk (mod) DISCARDED + - test@list.mlmmj.tk (sub) DISCARDED + - test@list.mlmmj.tk (mod+sub) PASSED TO MODS + - test@list.mlmmj.tk (not sub) DISCARDED + - test+subscribe@list.mlmmj.tk (not sub) CONFIRM + GREETING + - test+unsubscribe@list.mlmmj.tk (sub) CONFIRM + FAREWELL + +2. conference list: + - test@list.mlmmj.tk (sub) PASSED + - test@list.mlmmj.tk (not sub) DISCARDED + - test+subscribe@list.mlmmj.tk (not sub) DISCARDED + - test+unsubscribe@list.mlmmj.tk (sub) CONFIRM + FAREWELL diff --git a/misc/config.txt b/misc/config.txt new file mode 100644 index 0000000..97d9293 --- /dev/null +++ b/misc/config.txt @@ -0,0 +1,4 @@ +lists_path = /var/spool/mlmmj +web_path = /var/www/html +web_url = http://mlmmj.tk/ +language = ru diff --git a/misc/init.sh b/misc/init.sh new file mode 100755 index 0000000..4022883 --- /dev/null +++ b/misc/init.sh @@ -0,0 +1,16 @@ +#!/bin/bash + +if [ "$#" -ne 0 ]; then + echo "This script prepaire system for mlmmj-light-web installation." + exit 1 +fi + +install mlmmj, apg, apache2, exim, php_mod, altermime + +useradd -r -s /bin/false mlmmj +chown mlmmj:mlmmj -R /var/spool/mlmmj +chmod -R g+s /var/spool/mlmmj +chmod -R g+w /var/spool/mlmmj +#change apache user in /etc/apache2/envvars +#exim config and filter +#/usr/bin/mlmmj-amime-receive diff --git a/misc/manage_domains.sh b/misc/manage_domains.sh new file mode 100755 index 0000000..60a3614 --- /dev/null +++ b/misc/manage_domains.sh @@ -0,0 +1,42 @@ +#!/bin/bash + +function load_config() +{ + lists_path=$(cat config.txt | grep lists_path | sed 's/.*=//g' | sed 's/[[:blank:]]//g') + web_url=$(cat config.txt | grep web_url | sed 's/.*=//g' | sed 's/[[:blank:]]//g') +} + +if [ "$#" -ne 2 ]; then + echo "With this script you can create and delete domains for mailing lists." + echo + echo "Usage:" + echo "$0 add list.example.com" + echo "$0 del list.example.com" + exit 1 +fi + +load_config +operation=$1 +domain=$2 + +if [ "${operation}" = "add" ]; then +# password=$(apg -MCLN -m 12 -a 1 -n 1) + password="123" + hash=$(echo -n $password | sha256sum | head -c 64) + mkdir -p $lists_path/$domain + echo $domain:$hash >> $lists_path/passwords.txt + chown mlmmj:mlmmj -R $lists_path + echo -e "Domain: ${domain} \nPass: ${password}\nURL: ${web_url}" +fi + +if [ "${operation}" = "del" ]; then + find_domain=$(sed -n "/^${domain}:.*/p" $lists_path/passwords.txt) + if [ -z "${find_domain}" ]; then + echo "ERROR: No such domain. Aborting." + exit 1 + else + sed -i -e "/^${domain}:.*/d" $lists_path/passwords.txt + rm -r $lists_path/$domain + echo -e "Domain $domain has deleted." + fi +fi diff --git a/misc/move/exim4.conf b/misc/move/exim4.conf new file mode 100644 index 0000000..5c0be82 --- /dev/null +++ b/misc/move/exim4.conf @@ -0,0 +1,2100 @@ +##################################################### +### main/01_exim4-config_listmacrosdefs +##################################################### +###################################################################### +# Runtime configuration file for Exim 4 (Debian Packaging) # +###################################################################### + +###################################################################### +# /etc/exim4/exim4.conf.template is only used with the non-split +# configuration scheme. +# /etc/exim4/conf.d/main/01_exim4-config_listmacrosdefs is only used +# with the split configuration scheme. +# If you find this comment anywhere else, somebody copied it there. +# Documentation about the Debian exim4 configuration scheme can be +# found in /usr/share/doc/exim4-base/README.Debian.gz. +###################################################################### + +###################################################################### +# MAIN CONFIGURATION SETTINGS # +###################################################################### + +system_filter = /etc/exim4/exim4.filter +MLMMJ_HOME=/var/spool/mlmmj/$domain +domainlist mlmmj_domains = lsearch;/var/spool/mlmmj/passwords.txt +delay_warning_condition = ${if match_domain{$domain}{+mlmmj_domains}{no}{yes}} + +# Just for reference and scripts. +# On Debian systems, the main binary is installed as exim4 to avoid +# conflicts with the exim 3 packages. +exim_path = /usr/sbin/exim4 + +# Macro defining the main configuration directory. +# We do not use absolute paths. +.ifndef CONFDIR +CONFDIR = /etc/exim4 +.endif + +# debconf-driven macro definitions get inserted after this line +UPEX4CmacrosUPEX4C = 1 + +# Create domain and host lists for relay control +# '@' refers to 'the name of the local host' + +# List of domains considered local for exim. Domains not listed here +# need to be deliverable remotely. +domainlist local_domains = MAIN_LOCAL_DOMAINS + +# List of recipient domains to relay _to_. Use this list if you're - +# for example - fallback MX or mail gateway for domains. +domainlist relay_to_domains = MAIN_RELAY_TO_DOMAINS : +mlmmj_domains + +# List of sender networks (IP addresses) to _unconditionally_ relay +# _for_. If you intend to be SMTP AUTH server, you do not need to enter +# anything here. +hostlist relay_from_hosts = localhost + +# Decide which domain to use to add to all unqualified addresses. +# If MAIN_PRIMARY_HOSTNAME_AS_QUALIFY_DOMAIN is defined, the primary +# hostname is used. If not, but MAIN_QUALIFY_DOMAIN is set, the value +# of MAIN_QUALIFY_DOMAIN is used. If both macros are not defined, +# the first line of /etc/mailname is used. +.ifndef MAIN_PRIMARY_HOSTNAME_AS_QUALIFY_DOMAIN +.ifndef MAIN_QUALIFY_DOMAIN +qualify_domain = ETC_MAILNAME +.else +qualify_domain = MAIN_QUALIFY_DOMAIN +.endif +.endif + +# listen on all all interfaces? +.ifdef MAIN_LOCAL_INTERFACES +local_interfaces = MAIN_LOCAL_INTERFACES +.endif + +.ifndef LOCAL_DELIVERY +# The default transport, set in /etc/exim4/update-exim4.conf.conf, +# defaulting to mail_spool. See CONFDIR/conf.d/transport/ for possibilities +LOCAL_DELIVERY=mail_spool +.endif + +# The gecos field in /etc/passwd holds not only the name. see passwd(5). +gecos_pattern = ^([^,:]*) +gecos_name = $1 + +# define macros to be used in acl/30_exim4-config_check_rcpt to check +# recipient local parts for strange characters. + +# This macro definition really should be in +# acl/30_exim4-config_check_rcpt but cannot be there due to +# http://www.exim.org/bugzilla/show_bug.cgi?id=101 as of exim 4.62. + +# These macros are documented in acl/30_exim4-config_check_rcpt, +# can be changed here or overridden by a locally added configuration +# file as described in README.Debian chapter 2.1.2 + +.ifndef CHECK_RCPT_LOCAL_LOCALPARTS +CHECK_RCPT_LOCAL_LOCALPARTS = ^[.] : ^.*[@%!/|`#&?] +.endif + +.ifndef CHECK_RCPT_REMOTE_LOCALPARTS +CHECK_RCPT_REMOTE_LOCALPARTS = ^[./|] : ^.*[@%!`#&?] : ^.*/\\.\\./ +.endif + +# always log tls_peerdn as we use TLS for outgoing connects by default +.ifndef MAIN_LOG_SELECTOR +MAIN_LOG_SELECTOR = +tls_peerdn +.endif +##################################################### +### end main/01_exim4-config_listmacrosdefs +##################################################### +##################################################### +### main/02_exim4-config_options +##################################################### + +### main/02_exim4-config_options +################################# + + +# Defines the access control list that is run when an +# SMTP MAIL command is received. +# +.ifndef MAIN_ACL_CHECK_MAIL +MAIN_ACL_CHECK_MAIL = acl_check_mail +.endif +acl_smtp_mail = MAIN_ACL_CHECK_MAIL + + +# Defines the access control list that is run when an +# SMTP RCPT command is received. +# +.ifndef MAIN_ACL_CHECK_RCPT +MAIN_ACL_CHECK_RCPT = acl_check_rcpt +.endif +acl_smtp_rcpt = MAIN_ACL_CHECK_RCPT + + +# Defines the access control list that is run when an +# SMTP DATA command is received. +# +.ifndef MAIN_ACL_CHECK_DATA +MAIN_ACL_CHECK_DATA = acl_check_data +.endif +acl_smtp_data = MAIN_ACL_CHECK_DATA + + +# Message size limit. The default (used when MESSAGE_SIZE_LIMIT +# is unset) is 50 MB +.ifdef MESSAGE_SIZE_LIMIT +message_size_limit = MESSAGE_SIZE_LIMIT +.endif + + +# If you are running exim4-daemon-heavy or a custom version of Exim that +# was compiled with the content-scanning extension, you can cause incoming +# messages to be automatically scanned for viruses. You have to modify the +# configuration in two places to set this up. The first of them is here, +# where you define the interface to your scanner. This example is typical +# for ClamAV; see the manual for details of what to set for other virus +# scanners. The second modification is in the acl_check_data access +# control list. + +# av_scanner = clamd:/var/run/clamav/clamd.ctl + + +# For spam scanning, there is a similar option that defines the interface to +# SpamAssassin. You do not need to set this if you are using the default, which +# is shown in this commented example. As for virus scanning, you must also +# modify the acl_check_data access control list to enable spam scanning. + +# spamd_address = 127.0.0.1 783 + +# Domain used to qualify unqualified recipient addresses +# If this option is not set, the qualify_domain value is used. +# qualify_recipient = + + +# Allow Exim to recognize addresses of the form "user@[10.11.12.13]", +# where the domain part is a "domain literal" (an IP address) instead +# of a named domain. The RFCs require this facility, but it is disabled +# in the default config since it is seldomly used and frequently abused. +# Domain literal support also needs a special router, which is automatically +# enabled if you use the enable macro MAIN_ALLOW_DOMAIN_LITERALS. +# Additionally, you might want to make your local IP addresses (or @[]) +# local domains. +.ifdef MAIN_ALLOW_DOMAIN_LITERALS +allow_domain_literals +.endif + + +# Do a reverse DNS lookup on all incoming IP calls, in order to get the +# true host name. If you feel this is too expensive, the networks for +# which a lookup is done can be listed here. +.ifndef DC_minimaldns +.ifndef MAIN_HOST_LOOKUP +MAIN_HOST_LOOKUP = * +.endif +host_lookup = MAIN_HOST_LOOKUP +.endif + + +# In a minimaldns setup, update-exim4.conf guesses the hostname and +# dumps it here to avoid DNS lookups being done at Exim run time. +.ifdef MAIN_HARDCODE_PRIMARY_HOSTNAME +primary_hostname = MAIN_HARDCODE_PRIMARY_HOSTNAME +.endif + +# The settings below, which are actually the same as the defaults in the +# code, cause Exim to make RFC 1413 (ident) callbacks for all incoming SMTP +# calls. You can limit the hosts to which these calls are made, and/or change +# the timeout that is used. If you set the timeout to zero, all RFC 1413 calls +# are disabled. RFC 1413 calls are cheap and can provide useful information +# for tracing problem messages, but some hosts and firewalls are +# misconfigured to drop the requests instead of either answering or +# rejecting them. This can result in a timeout instead of an immediate refused +# connection, leading to delays on starting up SMTP sessions. (The default was +# reduced from 30s to 5s for release 4.61.) +# rfc1413_hosts = * +# rfc1413_query_timeout = 5s + +# When using an external relay tester (such as rt.njabl.org and/or the +# currently defunct relay-test.mail-abuse.org, the test may be aborted +# since exim complains about "too many nonmail commands". If you want +# the test to complete, add the host from where "your" relay tester +# connects from to the MAIN_SMTP_ACCEPT_MAX_NOMAIL_HOSTS macro. +# Please note that a non-empty setting may cause extra DNS lookups to +# happen, which is the reason why this option is commented out in the +# default settings. +# MAIN_SMTP_ACCEPT_MAX_NOMAIL_HOSTS = !rt.njabl.org +.ifdef MAIN_SMTP_ACCEPT_MAX_NOMAIL_HOSTS +smtp_accept_max_nonmail_hosts = MAIN_SMTP_ACCEPT_MAX_NOMAIL_HOSTS +.endif + +# By default, exim forces a Sender: header containing the local +# account name at the local host name in all locally submitted messages +# that don't have the local account name at the local host name in the +# From: header, deletes any Sender: header present in the submitted +# message and forces the envelope sender of all locally submitted +# messages to the local account name at the local host name. +# The following settings allow local users to specify their own envelope sender +# in a locally submitted message. Sender: headers existing in a locally +# submitted message are not removed, and no automatic Sender: headers +# are added. These settings are fine for most hosts. +# If you run exim on a classical multi-user systems where all users +# have local mailboxes that can be reached via SMTP from the Internet +# with the local FQDN as the domain part of the address, you might want +# to disable the following three lines for traceability reasons. +.ifndef MAIN_FORCE_SENDER +local_from_check = false +local_sender_retain = true +untrusted_set_sender = * +.endif + + +# By default, Exim expects all envelope addresses to be fully qualified, that +# is, they must contain both a local part and a domain. Configure exim +# to accept unqualified addresses from certain hosts. When this is done, +# unqualified addresses are qualified using the settings of qualify_domain +# and/or qualify_recipient (see above). +# sender_unqualified_hosts = +# recipient_unqualified_hosts = + + +# Configure Exim to support the "percent hack" for certain domains. +# The "percent hack" is the feature by which mail addressed to x%y@z +# (where z is one of the domains listed) is locally rerouted to x@y +# and sent on. If z is not one of the "percent hack" domains, x%y is +# treated as an ordinary local part. The percent hack is rarely needed +# nowadays but frequently abused. You should not enable it unless you +# are sure that you really need it. +# percent_hack_domains = + + +# Bounce handling +.ifndef MAIN_IGNORE_BOUNCE_ERRORS_AFTER +MAIN_IGNORE_BOUNCE_ERRORS_AFTER = 2d +.endif +ignore_bounce_errors_after = MAIN_IGNORE_BOUNCE_ERRORS_AFTER + +.ifndef MAIN_TIMEOUT_FROZEN_AFTER +MAIN_TIMEOUT_FROZEN_AFTER = 7d +.endif +timeout_frozen_after = MAIN_TIMEOUT_FROZEN_AFTER + +.ifndef MAIN_FREEZE_TELL +MAIN_FREEZE_TELL = postmaster +.endif +freeze_tell = MAIN_FREEZE_TELL + + +# Define spool directory +.ifndef SPOOLDIR +SPOOLDIR = /var/spool/exim4 +.endif +spool_directory = SPOOLDIR + + +# trusted users can set envelope-from to arbitrary values +.ifndef MAIN_TRUSTED_USERS +MAIN_TRUSTED_USERS = uucp +.endif +trusted_users = MAIN_TRUSTED_USERS +.ifdef MAIN_TRUSTED_GROUPS +trusted_groups = MAIN_TRUSTED_GROUPS +.endif + + +# users in admin group can do many other things +# admin_groups = + + +# SMTP Banner. The example includes the Debian version in the SMTP dialog +# MAIN_SMTP_BANNER = "${primary_hostname} ESMTP Exim ${version_number} (Debian package MAIN_PACKAGE_VERSION) ${tod_full}" +# smtp_banner = $smtp_active_hostname ESMTP Exim $version_number $tod_full + +.ifdef MAIN_KEEP_ENVIRONMENT +keep_environment = MAIN_KEEP_ENVIRONMENT +.else +# set option to empty value to avoid warning. +keep_environment = +.endif +.ifdef MAIN_ADD_ENVIRONMENT +add_environment = MAIN_ADD_ENVIRONMENT +.endif +##################################################### +### end main/02_exim4-config_options +##################################################### +##################################################### +### main/03_exim4-config_tlsoptions +##################################################### + +### main/03_exim4-config_tlsoptions +################################# + +# TLS/SSL configuration for exim as an SMTP server. +# See /usr/share/doc/exim4-base/README.Debian.gz for explanations. + +.ifdef MAIN_TLS_ENABLE +# Defines what hosts to 'advertise' STARTTLS functionality to. The +# default, *, will advertise to all hosts that connect with EHLO. +.ifndef MAIN_TLS_ADVERTISE_HOSTS +MAIN_TLS_ADVERTISE_HOSTS = * +.endif +tls_advertise_hosts = MAIN_TLS_ADVERTISE_HOSTS + + +# Full paths to Certificate and Private Key. The Private Key file +# must be kept 'secret' and should be owned by root.Debian-exim mode +# 640 (-rw-r-----). exim-gencert takes care of these prerequisites. +# Normally, exim4 looks for certificate and key in different files: +# MAIN_TLS_CERTIFICATE - path to certificate file, +# CONFDIR/exim.crt if unset +# MAIN_TLS_PRIVATEKEY - path to private key file +# CONFDIR/exim.key if unset +# You can also configure exim to look for certificate and key in the +# same file, set MAIN_TLS_CERTKEY to that file to enable. This takes +# precedence over all other settings regarding certificate and key file. +.ifdef MAIN_TLS_CERTKEY +tls_certificate = MAIN_TLS_CERTKEY +.else +.ifndef MAIN_TLS_CERTIFICATE +MAIN_TLS_CERTIFICATE = CONFDIR/exim.crt +.endif +tls_certificate = MAIN_TLS_CERTIFICATE + +.ifndef MAIN_TLS_PRIVATEKEY +MAIN_TLS_PRIVATEKEY = CONFDIR/exim.key +.endif +tls_privatekey = MAIN_TLS_PRIVATEKEY +.endif + +# Pointer to the CA Certificates against which client certificates are +# checked. This is controlled by the `tls_verify_hosts' and +# `tls_try_verify_hosts' lists below. +# If you want to check server certificates, you need to add an +# tls_verify_certificates statement to the smtp transport. +# /etc/ssl/certs/ca-certificates.crt is generated by +# the "ca-certificates" package's update-ca-certificates(8) command. +.ifndef MAIN_TLS_VERIFY_CERTIFICATES +MAIN_TLS_VERIFY_CERTIFICATES = ${if exists{/etc/ssl/certs/ca-certificates.crt}\ + {/etc/ssl/certs/ca-certificates.crt}\ + {/dev/null}} +.endif +tls_verify_certificates = MAIN_TLS_VERIFY_CERTIFICATES + + +# A list of hosts which are constrained by `tls_verify_certificates'. A host +# that matches `tls_verify_host' must present a certificate that is +# verifyable through `tls_verify_certificates' in order to be accepted as an +# SMTP client. If it does not, the connection is aborted. +.ifdef MAIN_TLS_VERIFY_HOSTS +tls_verify_hosts = MAIN_TLS_VERIFY_HOSTS +.endif + +# A weaker form of checking: if a client matches `tls_try_verify_hosts' (but +# not `tls_verify_hosts'), request a certificate and check it against +# `tls_verify_certificates' but do not abort the connection if there is no +# certificate or if the certificate presented does not match. (This +# condition can be tested for in ACLs through `verify = certificate') +# By default, this check is done for all hosts. It is known that some +# clients (including incredimail's version downloadable in February +# 2008) choke on this. To disable, set MAIN_TLS_TRY_VERIFY_HOSTS to an +# empty value. +.ifdef MAIN_TLS_TRY_VERIFY_HOSTS +tls_try_verify_hosts = MAIN_TLS_TRY_VERIFY_HOSTS +.endif + +.endif +##################################################### +### end main/03_exim4-config_tlsoptions +##################################################### +##################################################### +### main/90_exim4-config_log_selector +##################################################### + +### main/90_exim4-config_log_selector +################################# + +# uncomment this for debugging +# MAIN_LOG_SELECTOR == MAIN_LOG_SELECTOR +all -subject -arguments + +.ifdef MAIN_LOG_SELECTOR +log_selector = MAIN_LOG_SELECTOR +.endif +##################################################### +### end main/90_exim4-config_log_selector +##################################################### +##################################################### +### acl/00_exim4-config_header +##################################################### + +###################################################################### +# ACL CONFIGURATION # +# Specifies access control lists for incoming SMTP mail # +###################################################################### +begin acl + + +##################################################### +### end acl/00_exim4-config_header +##################################################### +##################################################### +### acl/20_exim4-config_local_deny_exceptions +##################################################### + +### acl/20_exim4-config_local_deny_exceptions +################################# + +# This is used to determine whitelisted senders and hosts. +# It checks for CONFDIR/host_local_deny_exceptions and +# CONFDIR/sender_local_deny_exceptions. +# +# It is meant to be used from some other acl entry. +# +# See exim4-config_files(5) for details. +# +# If the files do not exist, the white list never matches, which is +# the desired behaviour. +# +# The old file names CONFDIR/local_host_whitelist and +# CONFDIR/local_sender_whitelist will continue to be honored for a +# transition period. Their use is deprecated. + +acl_local_deny_exceptions: + accept + hosts = ${if exists{CONFDIR/host_local_deny_exceptions}\ + {CONFDIR/host_local_deny_exceptions}\ + {}} + accept + senders = ${if exists{CONFDIR/sender_local_deny_exceptions}\ + {CONFDIR/sender_local_deny_exceptions}\ + {}} + accept + hosts = ${if exists{CONFDIR/local_host_whitelist}\ + {CONFDIR/local_host_whitelist}\ + {}} + accept + senders = ${if exists{CONFDIR/local_sender_whitelist}\ + {CONFDIR/local_sender_whitelist}\ + {}} + + # This hook allows you to hook in your own ACLs without having to + # modify this file. If you do it like we suggest, you'll end up with + # a small performance penalty since there is an additional file being + # accessed. This doesn't happen if you leave the macro unset. + .ifdef LOCAL_DENY_EXCEPTIONS_LOCAL_ACL_FILE + .include LOCAL_DENY_EXCEPTIONS_LOCAL_ACL_FILE + .endif + + # this is still supported for a transition period and is deprecated. + .ifdef WHITELIST_LOCAL_DENY_LOCAL_ACL_FILE + .include WHITELIST_LOCAL_DENY_LOCAL_ACL_FILE + .endif +##################################################### +### end acl/20_exim4-config_local_deny_exceptions +##################################################### +##################################################### +### acl/30_exim4-config_check_mail +##################################################### + +### acl/30_exim4-config_check_mail +################################# + +# This access control list is used for every MAIL command in an incoming +# SMTP message. The tests are run in order until the address is either +# accepted or denied. +# +acl_check_mail: + .ifdef CHECK_MAIL_HELO_ISSUED + deny + message = no HELO given before MAIL command + condition = ${if def:sender_helo_name {no}{yes}} + .endif + + accept +##################################################### +### end acl/30_exim4-config_check_mail +##################################################### +##################################################### +### acl/30_exim4-config_check_rcpt +##################################################### + +### acl/30_exim4-config_check_rcpt +################################# + +# This access control list is used for every RCPT command in an incoming +# SMTP message. The tests are run in order until the address is either +# accepted or denied. +# +acl_check_rcpt: + + # Accept if the source is local SMTP (i.e. not over TCP/IP). We do this by + # testing for an empty sending host field. + accept + hosts = : + control = dkim_disable_verify + + # Do not try to verify DKIM signatures of incoming mail if DC_minimaldns + # or DISABLE_DKIM_VERIFY are set. +.ifdef DC_minimaldns + warn + control = dkim_disable_verify +.else +.ifdef DISABLE_DKIM_VERIFY + warn + control = dkim_disable_verify +.endif +.endif + + # The following section of the ACL is concerned with local parts that contain + # certain non-alphanumeric characters. Dots in unusual places are + # handled by this ACL as well. + # + # Non-alphanumeric characters other than dots are rarely found in genuine + # local parts, but are often tried by people looking to circumvent + # relaying restrictions. Therefore, although they are valid in local + # parts, these rules disallow certain non-alphanumeric characters, as + # a precaution. + # + # Empty components (two dots in a row) are not valid in RFC 2822, but Exim + # allows them because they have been encountered. (Consider local parts + # constructed as "firstinitial.secondinitial.familyname" when applied to + # a name without a second initial.) However, a local part starting + # with a dot or containing /../ can cause trouble if it is used as part of a + # file name (e.g. for a mailing list). This is also true for local parts that + # contain slashes. A pipe symbol can also be troublesome if the local part is + # incorporated unthinkingly into a shell command line. + # + # These ACL components will block recipient addresses that are valid + # from an RFC2822 point of view. We chose to have them blocked by + # default for security reasons. + # + # If you feel that your site should have less strict recipient + # checking, please feel free to change the default values of the macros + # defined in main/01_exim4-config_listmacrosdefs or override them from a + # local configuration file. + # + # Two different rules are used. The first one has a quite strict + # default, and is applied to messages that are addressed to one of the + # local domains handled by this host. + + # The default value of CHECK_RCPT_LOCAL_LOCALPARTS is defined in + # main/01_exim4-config_listmacrosdefs: + # CHECK_RCPT_LOCAL_LOCALPARTS = ^[.] : ^.*[@%!/|`#&?] + # This blocks local parts that begin with a dot or contain a quite + # broad range of non-alphanumeric characters. + .ifdef CHECK_RCPT_LOCAL_LOCALPARTS + deny + domains = +local_domains + local_parts = CHECK_RCPT_LOCAL_LOCALPARTS + message = restricted characters in address + .endif + + + # The second rule applies to all other domains, and its default is + # considerably less strict. + + # The default value of CHECK_RCPT_REMOTE_LOCALPARTS is defined in + # main/01_exim4-config_listmacrosdefs: + # CHECK_RCPT_REMOTE_LOCALPARTS = ^[./|] : ^.*[@%!`#&?] : ^.*/\\.\\./ + + # It allows local users to send outgoing messages to sites + # that use slashes and vertical bars in their local parts. It blocks + # local parts that begin with a dot, slash, or vertical bar, but allows + # these characters within the local part. However, the sequence /../ is + # barred. The use of some other non-alphanumeric characters is blocked. + # Single quotes might probably be dangerous as well, but they're + # allowed by the default regexps to avoid rejecting mails to Ireland. + # The motivation here is to prevent local users (or local users' malware) + # from mounting certain kinds of attack on remote sites. + .ifdef CHECK_RCPT_REMOTE_LOCALPARTS + deny + domains = !+local_domains + local_parts = CHECK_RCPT_REMOTE_LOCALPARTS + message = restricted characters in address + .endif + + + # Accept mail to postmaster in any local domain, regardless of the source, + # and without verifying the sender. + # + accept + .ifndef CHECK_RCPT_POSTMASTER + local_parts = postmaster + .else + local_parts = CHECK_RCPT_POSTMASTER + .endif + domains = +local_domains : +relay_to_domains + + + # Deny unless the sender address can be verified. + # + # This is disabled by default so that DNSless systems don't break. If + # your system can do DNS lookups without delay or cost, you might want + # to enable this feature. + # + # This feature does not work in smarthost and satellite setups as + # with these setups all domains pass verification. See spec.txt chapter + # 39.31 with the added information that a smarthost/satellite setup + # routes all non-local e-mail to the smarthost. + .ifdef CHECK_RCPT_VERIFY_SENDER + deny + message = Sender verification failed + !acl = acl_local_deny_exceptions + !verify = sender + .endif + + # Verify senders listed in local_sender_callout with a callout. + # + # In smarthost and satellite setups, this causes the callout to be + # done to the smarthost. Verification will thus only be reliable if the + # smarthost does reject illegal addresses in the SMTP dialog. + deny + !acl = acl_local_deny_exceptions + senders = ${if exists{CONFDIR/local_sender_callout}\ + {CONFDIR/local_sender_callout}\ + {}} + !verify = sender/callout + + + # Accept if the message comes from one of the hosts for which we are an + # outgoing relay. It is assumed that such hosts are most likely to be MUAs, + # so we set control=submission to make Exim treat the message as a + # submission. It will fix up various errors in the message, for example, the + # lack of a Date: header line. If you are actually relaying out out from + # MTAs, you may want to disable this. If you are handling both relaying from + # MTAs and submissions from MUAs you should probably split them into two + # lists, and handle them differently. + + # Recipient verification is omitted here, because in many cases the clients + # are dumb MUAs that don't cope well with SMTP error responses. If you are + # actually relaying out from MTAs, you should probably add recipient + # verification here. + + # Note that, by putting this test before any DNS black list checks, you will + # always accept from these hosts, even if they end up on a black list. The + # assumption is that they are your friends, and if they get onto black + # list, it is a mistake. + accept + hosts = +relay_from_hosts + control = submission/sender_retain + control = dkim_disable_verify + + + # Accept if the message arrived over an authenticated connection, from + # any host. Again, these messages are usually from MUAs, so recipient + # verification is omitted, and submission mode is set. And again, we do this + # check before any black list tests. + accept + authenticated = * + control = submission/sender_retain + control = dkim_disable_verify + + + # Insist that any other recipient address that we accept is either in one of + # our local domains, or is in a domain for which we explicitly allow + # relaying. Any other domain is rejected as being unacceptable for relaying. + require + message = relay not permitted + domains = +local_domains : +relay_to_domains + + + # We also require all accepted addresses to be verifiable. This check will + # do local part verification for local domains, but only check the domain + # for remote domains. + require + verify = recipient + + + # Verify recipients listed in local_rcpt_callout with a callout. + # This is especially handy for forwarding MX hosts (secondary MX or + # mail hubs) of domains that receive a lot of spam to non-existent + # addresses. The only way to check local parts for remote relay + # domains is to use a callout (add /callout), but please read the + # documentation about callouts before doing this. + deny + !acl = acl_local_deny_exceptions + recipients = ${if exists{CONFDIR/local_rcpt_callout}\ + {CONFDIR/local_rcpt_callout}\ + {}} + !verify = recipient/callout + + + # CONFDIR/local_sender_blacklist holds a list of envelope senders that + # should have their access denied to the local host. Incoming messages + # with one of these senders are rejected at RCPT time. + # + # The explicit white lists are honored as well as negative items in + # the black list. See exim4-config_files(5) for details. + deny + message = sender envelope address $sender_address is locally blacklisted here. If you think this is wrong, get in touch with postmaster + !acl = acl_local_deny_exceptions + senders = ${if exists{CONFDIR/local_sender_blacklist}\ + {CONFDIR/local_sender_blacklist}\ + {}} + + + # deny bad sites (IP address) + # CONFDIR/local_host_blacklist holds a list of host names, IP addresses + # and networks (CIDR notation) that should have their access denied to + # The local host. Messages coming in from a listed host will have all + # RCPT statements rejected. + # + # The explicit white lists are honored as well as negative items in + # the black list. See exim4-config_files(5) for details. + deny + message = sender IP address $sender_host_address is locally blacklisted here. If you think this is wrong, get in touch with postmaster + !acl = acl_local_deny_exceptions + hosts = ${if exists{CONFDIR/local_host_blacklist}\ + {CONFDIR/local_host_blacklist}\ + {}} + + + # Warn if the sender host does not have valid reverse DNS. + # + # If your system can do DNS lookups without delay or cost, you might want + # to enable this. + # If sender_host_address is defined, it's a remote call. If + # sender_host_name is not defined, then reverse lookup failed. Use + # this instead of !verify = reverse_host_lookup to catch deferrals + # as well as outright failures. + .ifdef CHECK_RCPT_REVERSE_DNS + warn + condition = ${if and{{def:sender_host_address}{!def:sender_host_name}}\ + {yes}{no}} + add_header = X-Host-Lookup-Failed: Reverse DNS lookup failed for $sender_host_address (${if eq{$host_lookup_failed}{1}{failed}{deferred}}) + .endif + + + # Use spfquery to perform a pair of SPF checks (for details, see + # http://www.openspf.org/) + # + # This is quite costly in terms of DNS lookups (~6 lookups per mail). Do not + # enable if that's an issue. Also note that if you enable this, you must + # install "spf-tools-perl" which provides the spfquery command. + # Missing spf-tools-perl will trigger the "Unexpected error in + # SPF check" warning. + .ifdef CHECK_RCPT_SPF + deny + message = [SPF] $sender_host_address is not allowed to send mail from \ + ${if def:sender_address_domain {$sender_address_domain}{$sender_helo_name}}. \ + Please see \ + http://www.openspf.org/Why?scope=${if def:sender_address_domain \ + {mfrom}{helo}};identity=${if def:sender_address_domain \ + {$sender_address}{$sender_helo_name}};ip=$sender_host_address + log_message = SPF check failed. + !acl = acl_local_deny_exceptions + condition = ${run{/usr/bin/spfquery.mail-spf-perl --ip \ + ${quote:$sender_host_address} --identity \ + ${if def:sender_address_domain \ + {--scope mfrom --identity ${quote:$sender_address}}\ + {--scope helo --identity ${quote:$sender_helo_name}}}}\ + {no}{${if eq {$runrc}{1}{yes}{no}}}} + + defer + message = Temporary DNS error while checking SPF record. Try again later. + !acl = acl_local_deny_exceptions + condition = ${if eq {$runrc}{5}{yes}{no}} + + warn + condition = ${if <={$runrc}{6}{yes}{no}} + add_header = Received-SPF: ${if eq {$runrc}{0}{pass}\ + {${if eq {$runrc}{2}{softfail}\ + {${if eq {$runrc}{3}{neutral}\ + {${if eq {$runrc}{4}{permerror}\ + {${if eq {$runrc}{6}{none}{error}}}}}}}}}\ + } client-ip=$sender_host_address; \ + ${if def:sender_address_domain \ + {envelope-from=${sender_address}; }{}}\ + helo=$sender_helo_name + + warn + log_message = Unexpected error in SPF check. + condition = ${if >{$runrc}{6}{yes}{no}} + .endif + + + # Check against classic DNS "black" lists (DNSBLs) which list + # sender IP addresses + .ifdef CHECK_RCPT_IP_DNSBLS + warn + dnslists = CHECK_RCPT_IP_DNSBLS + add_header = X-Warning: $sender_host_address is listed at $dnslist_domain ($dnslist_value: $dnslist_text) + log_message = $sender_host_address is listed at $dnslist_domain ($dnslist_value: $dnslist_text) + .endif + + + # Check against DNSBLs which list sender domains, with an option to locally + # whitelist certain domains that might be blacklisted. + # + # Note: If you define CHECK_RCPT_DOMAIN_DNSBLS, you must append + # "/$sender_address_domain" after each domain. For example: + # CHECK_RCPT_DOMAIN_DNSBLS = rhsbl.foo.org/$sender_address_domain \ + # : rhsbl.bar.org/$sender_address_domain + .ifdef CHECK_RCPT_DOMAIN_DNSBLS + warn + !senders = ${if exists{CONFDIR/local_domain_dnsbl_whitelist}\ + {CONFDIR/local_domain_dnsbl_whitelist}\ + {}} + dnslists = CHECK_RCPT_DOMAIN_DNSBLS + add_header = X-Warning: $sender_address_domain is listed at $dnslist_domain ($dnslist_value: $dnslist_text) + log_message = $sender_address_domain is listed at $dnslist_domain ($dnslist_value: $dnslist_text) + .endif + + + # This hook allows you to hook in your own ACLs without having to + # modify this file. If you do it like we suggest, you'll end up with + # a small performance penalty since there is an additional file being + # accessed. This doesn't happen if you leave the macro unset. + .ifdef CHECK_RCPT_LOCAL_ACL_FILE + .include CHECK_RCPT_LOCAL_ACL_FILE + .endif + + + ############################################################################# + # This check is commented out because it is recognized that not every + # sysadmin will want to do it. If you enable it, the check performs + # Client SMTP Authorization (csa) checks on the sending host. These checks + # do DNS lookups for SRV records. The CSA proposal is currently (May 2005) + # an Internet draft. You can, of course, add additional conditions to this + # ACL statement to restrict the CSA checks to certain hosts only. + # + # require verify = csa + ############################################################################# + + + # Accept if the address is in a domain for which we are an incoming relay, + # but again, only if the recipient can be verified. + + accept + domains = +relay_to_domains + endpass + verify = recipient + + + # At this point, the address has passed all the checks that have been + # configured, so we accept it unconditionally. + + accept +##################################################### +### end acl/30_exim4-config_check_rcpt +##################################################### +##################################################### +### acl/40_exim4-config_check_data +##################################################### + +### acl/40_exim4-config_check_data +################################# + +# This ACL is used after the contents of a message have been received. This +# is the ACL in which you can test a message's headers or body, and in +# particular, this is where you can invoke external virus or spam scanners. + +acl_check_data: + + # Deny unless the address list headers are syntactically correct. + # + # If you enable this, you might reject legitimate mail. + .ifdef CHECK_DATA_VERIFY_HEADER_SYNTAX + deny + message = Message headers fail syntax check + !acl = acl_local_deny_exceptions + !verify = header_syntax + .endif + + + # require that there is a verifiable sender address in at least + # one of the "Sender:", "Reply-To:", or "From:" header lines. + .ifdef CHECK_DATA_VERIFY_HEADER_SENDER + deny + message = No verifiable sender address in message headers + !acl = acl_local_deny_exceptions + !verify = header_sender + .endif + + + # Deny if the message contains malware. Before enabling this check, you + # must install a virus scanner and set the av_scanner option in the + # main configuration. + # + # exim4-daemon-heavy must be used for this section to work. + # + # deny + # malware = * + # message = This message was detected as possible malware ($malware_name). + + + # Add headers to a message if it is judged to be spam. Before enabling this, + # you must install SpamAssassin. You also need to set the spamd_address + # option in the main configuration. + # + # exim4-daemon-heavy must be used for this section to work. + # + # Please note that this is only suiteable as an example. There are + # multiple issues with this configuration method. For example, if you go + # this way, you'll give your spamassassin daemon write access to the + # entire exim spool which might be a security issue in case of a + # spamassassin exploit. + # + # See the exim docs and the exim wiki for more suitable examples. + # + # warn + # spam = Debian-exim:true + # add_header = X-Spam_score: $spam_score\n\ + # X-Spam_score_int: $spam_score_int\n\ + # X-Spam_bar: $spam_bar\n\ + # X-Spam_report: $spam_report + + + # This hook allows you to hook in your own ACLs without having to + # modify this file. If you do it like we suggest, you'll end up with + # a small performance penalty since there is an additional file being + # accessed. This doesn't happen if you leave the macro unset. + .ifdef CHECK_DATA_LOCAL_ACL_FILE + .include CHECK_DATA_LOCAL_ACL_FILE + .endif + + + # accept otherwise + accept +##################################################### +### end acl/40_exim4-config_check_data +##################################################### +##################################################### +### router/00_exim4-config_header +##################################################### + +###################################################################### +# ROUTERS CONFIGURATION # +# Specifies how addresses are handled # +###################################################################### +# THE ORDER IN WHICH THE ROUTERS ARE DEFINED IS IMPORTANT! # +# An address is passed to each router in turn until it is accepted. # +###################################################################### + +begin routers + +mlmmj_router: + driver = accept + domains = +mlmmj_domains + require_files = MLMMJ_HOME/${lc::$local_part} + # Use this instead, if you don't want to give Exim rx rights to mlmmj spool. + # Exim will then spawn a new process running under the UID of "mlmmj". + #require_files = mlmmj:MLMMJ_HOME/${lc::$local_part} + local_part_suffix = +* + local_part_suffix_optional + headers_remove = Delivered-To + headers_add = Delivered-To: $local_part$local_part_suffix@$domain + transport = mlmmj_transport + +dnslookup: + driver = dnslookup + domains = ! +local_domains + transport = remote_smtp + ignore_target_hosts = 0.0.0.0 : 127.0.0.0/8 + no_more + +##################################################### +### end router/00_exim4-config_header +##################################################### +##################################################### +### router/100_exim4-config_domain_literal +##################################################### + +### router/100_exim4-config_domain_literal +################################# + +# This router handles e-mail addresses in "domain literal" form like +# . The RFCs require this facility, but it is disabled +# in the default config since it is seldomly used and frequently abused. +# Domain literal support also needs to be enabled in the main config, +# which is automatically done if you use the enable macro +# MAIN_ALLOW_DOMAIN_LITERALS. + +.ifdef MAIN_ALLOW_DOMAIN_LITERALS +domain_literal: + debug_print = "R: domain_literal for $local_part@$domain" + driver = ipliteral + domains = ! +local_domains + transport = remote_smtp +.endif +##################################################### +### end router/100_exim4-config_domain_literal +##################################################### +##################################################### +### router/150_exim4-config_hubbed_hosts +##################################################### + +# router/150_exim4-config_hubbed_hosts +################################# + +# route specific domains manually. +# +# see exim4-config_files(5) and spec.txt chapter 20.3 through 20.7 for +# more detailed documentation. + +hubbed_hosts: + debug_print = "R: hubbed_hosts for $domain" + driver = manualroute + domains = "${if exists{CONFDIR/hubbed_hosts}\ + {partial-lsearch;CONFDIR/hubbed_hosts}\ + fail}" + same_domain_copy_routing = yes + route_data = ${lookup{$domain}partial-lsearch{CONFDIR/hubbed_hosts}} + transport = remote_smtp +##################################################### +### end router/150_exim4-config_hubbed_hosts +##################################################### +##################################################### +### router/200_exim4-config_primary +##################################################### + +### router/200_exim4-config_primary +################################# +# This file holds the primary router, responsible for nonlocal mails + +.ifdef DCconfig_internet +# configtype=internet +# +# deliver mail to the recipient if recipient domain is a domain we +# relay for. We do not ignore any target hosts here since delivering to +# a site local or even a link local address might be wanted here, and if +# such an address has found its way into the MX record of such a domain, +# the local admin is probably in a place where that broken MX record +# could be fixed. + +dnslookup_relay_to_domains: + debug_print = "R: dnslookup_relay_to_domains for $local_part@$domain" + driver = dnslookup + domains = ! +local_domains : +relay_to_domains + transport = remote_smtp + same_domain_copy_routing = yes + no_more + +# deliver mail directly to the recipient. This router is only reached +# for domains that we do not relay for. Since we most probably can't +# have broken MX records pointing to site local or link local IP +# addresses fixed, we ignore target hosts pointing to these addresses. + +dnslookup: + debug_print = "R: dnslookup for $local_part@$domain" + driver = dnslookup + domains = !+mlmmj_domains : !+local_domains + transport = remote_smtp + same_domain_copy_routing = yes + # ignore private rfc1918 and APIPA addresses + ignore_target_hosts = 0.0.0.0 : 127.0.0.0/8 : 192.168.0.0/16 :\ + 172.16.0.0/12 : 10.0.0.0/8 : 169.254.0.0/16 :\ + 255.255.255.255 + no_more + +.endif + + +.ifdef DCconfig_local +# configtype=local +# +# Stand-alone system, so generate an error for mail to a non-local domain +nonlocal: + debug_print = "R: nonlocal for $local_part@$domain" + driver = redirect + domains = ! +local_domains + allow_fail + data = :fail: Mailing to remote domains not supported + no_more + +.endif + + +.ifdef DCconfig_smarthost DCconfig_satellite +# configtype=smarthost or configtype=satellite +# +# Send all non-local mail to a single other machine (smarthost). +# +# This means _ALL_ non-local mail goes to the smarthost. This will most +# probably not do what you want for domains that are listed in +# relay_domains. The most typical use for relay_domains is to control +# relaying for incoming e-mail on secondary MX hosts. In that case, +# it doesn't make sense to send the mail to the smarthost since the +# smarthost will probably send the message right back here, causing a +# loop. +# +# If you want to use a smarthost while being secondary MX for some +# domains, you'll need to copy the dnslookup_relay_to_domains router +# here so that mail to relay_domains is handled separately. + +smarthost: + debug_print = "R: smarthost for $local_part@$domain" + driver = manualroute + domains = ! +local_domains + transport = remote_smtp_smarthost + route_list = * DCsmarthost byname + host_find_failed = ignore + same_domain_copy_routing = yes + no_more + +.endif + + +# The "no_more" above means that all later routers are for +# domains in the local_domains list, i.e. just like Exim 3 directors. +##################################################### +### end router/200_exim4-config_primary +##################################################### +##################################################### +### router/300_exim4-config_real_local +##################################################### + +### router/300_exim4-config_real_local +################################# + +# This router allows reaching a local user while avoiding local +# processing. This can be used to inform a user of a broken .forward +# file, for example. The userforward router does this. + +COND_LOCAL_SUBMITTER = "\ + ${if match_ip{$sender_host_address}{:@[]}\ + {1}{0}\ + }" + +real_local: + debug_print = "R: real_local for $local_part@$domain" + driver = accept + domains = +local_domains + condition = COND_LOCAL_SUBMITTER + local_part_prefix = real- + check_local_user + transport = LOCAL_DELIVERY + +##################################################### +### end router/300_exim4-config_real_local +##################################################### +##################################################### +### router/400_exim4-config_system_aliases +##################################################### + +### router/400_exim4-config_system_aliases +################################# + +# This router handles aliasing using a traditional /etc/aliases file. +# +##### NB You must ensure that /etc/aliases exists. It used to be the case +##### NB that every Unix had that file, because it was the Sendmail default. +##### NB These days, there are systems that don't have it. Your aliases +##### NB file should at least contain an alias for "postmaster". +# +# This router handles the local part in a case-insensitive way which +# satisfies the RFCs requirement that postmaster be reachable regardless +# of case. If you decide to handle /etc/aliases in a caseful way, you +# need to make arrangements for a caseless postmaster. +# +# Delivery to arbitrary directories, files, and piping to programs in +# /etc/aliases is disabled per default. +# If that is a problem for you, see +# /usr/share/doc/exim4-base/README.Debian.gz +# for explanation and some workarounds. + +system_aliases: + debug_print = "R: system_aliases for $local_part@$domain" + driver = redirect + domains = +local_domains + allow_fail + allow_defer + data = ${lookup{$local_part}lsearch{/etc/aliases}} + .ifdef SYSTEM_ALIASES_USER + user = SYSTEM_ALIASES_USER + .endif + .ifdef SYSTEM_ALIASES_GROUP + group = SYSTEM_ALIASES_GROUP + .endif + .ifdef SYSTEM_ALIASES_FILE_TRANSPORT + file_transport = SYSTEM_ALIASES_FILE_TRANSPORT + .endif + .ifdef SYSTEM_ALIASES_PIPE_TRANSPORT + pipe_transport = SYSTEM_ALIASES_PIPE_TRANSPORT + .endif + .ifdef SYSTEM_ALIASES_DIRECTORY_TRANSPORT + directory_transport = SYSTEM_ALIASES_DIRECTORY_TRANSPORT + .endif +##################################################### +### end router/400_exim4-config_system_aliases +##################################################### +##################################################### +### router/500_exim4-config_hubuser +##################################################### + +### router/500_exim4-config_hubuser +################################# + +.ifdef DCconfig_satellite +# This router is only used for configtype=satellite. +# It takes care to route all mail targetted to +# to the host where we read our mail +# +hub_user: + debug_print = "R: hub_user for $local_part@$domain" + driver = redirect + domains = +local_domains + data = ${local_part}@DCreadhost + check_local_user + +# Grab the redirected mail and deliver it. +# This is a duplicate of the smarthost router, needed because +# DCreadhost might end up as part of +local_domains +hub_user_smarthost: + debug_print = "R: hub_user_smarthost for $local_part@$domain" + driver = manualroute + domains = DCreadhost + transport = remote_smtp_smarthost + route_list = * DCsmarthost byname + host_find_failed = ignore + same_domain_copy_routing = yes + check_local_user +.endif + + +##################################################### +### end router/500_exim4-config_hubuser +##################################################### +##################################################### +### router/600_exim4-config_userforward +##################################################### + +### router/600_exim4-config_userforward +################################# + +# This router handles forwarding using traditional .forward files in users' +# home directories. It also allows mail filtering with a forward file +# starting with the string "# Exim filter" or "# Sieve filter". +# +# The no_verify setting means that this router is skipped when Exim is +# verifying addresses. Similarly, no_expn means that this router is skipped if +# Exim is processing an EXPN command. +# +# The check_ancestor option means that if the forward file generates an +# address that is an ancestor of the current one, the current one gets +# passed on instead. This covers the case where A is aliased to B and B +# has a .forward file pointing to A. +# +# The four transports specified at the end are those that are used when +# forwarding generates a direct delivery to a directory, or a file, or to a +# pipe, or sets up an auto-reply, respectively. +# +userforward: + debug_print = "R: userforward for $local_part@$domain" + driver = redirect + domains = +local_domains + check_local_user + file = $home/.forward + require_files = $local_part:$home/.forward + no_verify + no_expn + check_ancestor + allow_filter + forbid_smtp_code = true + directory_transport = address_directory + file_transport = address_file + pipe_transport = address_pipe + reply_transport = address_reply + skip_syntax_errors + syntax_errors_to = real-$local_part@$domain + syntax_errors_text = \ + This is an automatically generated message. An error has\n\ + been found in your .forward file. Details of the error are\n\ + reported below. While this error persists, you will receive\n\ + a copy of this message for every message that is addressed\n\ + to you. If your .forward file is a filter file, or if it is\n\ + a non-filter file containing no valid forwarding addresses,\n\ + a copy of each incoming message will be put in your normal\n\ + mailbox. If a non-filter file contains at least one valid\n\ + forwarding address, forwarding to the valid addresses will\n\ + happen, and those will be the only deliveries that occur. + +##################################################### +### end router/600_exim4-config_userforward +##################################################### +##################################################### +### router/700_exim4-config_procmail +##################################################### + +procmail: + debug_print = "R: procmail for $local_part@$domain" + driver = accept + domains = +local_domains + check_local_user + transport = procmail_pipe + # emulate OR with "if exists"-expansion + require_files = ${local_part}:\ + ${if exists{/etc/procmailrc}\ + {/etc/procmailrc}{${home}/.procmailrc}}:\ + +/usr/bin/procmail + no_verify + no_expn + +##################################################### +### end router/700_exim4-config_procmail +##################################################### +##################################################### +### router/800_exim4-config_maildrop +##################################################### + +### router/800_exim4-config_maildrop +################################# + +maildrop: + debug_print = "R: maildrop for $local_part@$domain" + driver = accept + domains = +local_domains + check_local_user + transport = maildrop_pipe + require_files = ${local_part}:${home}/.mailfilter:+/usr/bin/maildrop + no_verify + no_expn + +##################################################### +### end router/800_exim4-config_maildrop +##################################################### +##################################################### +### router/850_exim4-config_lowuid +##################################################### + +### router/850_exim4-config_lowuid +################################# + +.ifndef FIRST_USER_ACCOUNT_UID +FIRST_USER_ACCOUNT_UID = 0 +.endif + +.ifndef DEFAULT_SYSTEM_ACCOUNT_ALIAS +DEFAULT_SYSTEM_ACCOUNT_ALIAS = :fail: no mail to system accounts +.endif + +COND_SYSTEM_USER_AND_REMOTE_SUBMITTER = "\ + ${if and{{! match_ip{$sender_host_address}{:@[]}}\ + {<{$local_user_uid}{FIRST_USER_ACCOUNT_UID}}}\ + {1}{0}\ + }" + +lowuid_aliases: + debug_print = "R: lowuid_aliases for $local_part@$domain (UID $local_user_uid)" + check_local_user + driver = redirect + allow_fail + domains = +local_domains + condition = COND_SYSTEM_USER_AND_REMOTE_SUBMITTER + data = ${if exists{CONFDIR/lowuid-aliases}\ + {${lookup{$local_part}lsearch{CONFDIR/lowuid-aliases}\ + {$value}{DEFAULT_SYSTEM_ACCOUNT_ALIAS}}}\ + {DEFAULT_SYSTEM_ACCOUNT_ALIAS}} +##################################################### +### end router/850_exim4-config_lowuid +##################################################### +##################################################### +### router/900_exim4-config_local_user +##################################################### + +### router/900_exim4-config_local_user +################################# + +# This router matches local user mailboxes. If the router fails, the error +# message is "Unknown user". + +local_user: + debug_print = "R: local_user for $local_part@$domain" + driver = accept + domains = +local_domains + check_local_user + local_parts = ! root + transport = LOCAL_DELIVERY + cannot_route_message = Unknown user +##################################################### +### end router/900_exim4-config_local_user +##################################################### +##################################################### +### router/mmm_mail4root +##################################################### + +### router/mmm_mail4root +################################# +# deliver mail addressed to root to /var/mail/mail as user mail:mail +# if it was not redirected in /etc/aliases or by other means +# Exim cannot deliver as root since 4.24 (FIXED_NEVER_USERS) + +mail4root: + debug_print = "R: mail4root for $local_part@$domain" + driver = redirect + domains = +local_domains + data = /var/mail/mail + file_transport = address_file + local_parts = root + user = mail + group = mail + +##################################################### +### end router/mmm_mail4root +##################################################### +##################################################### +### transport/00_exim4-config_header +##################################################### + +###################################################################### +# TRANSPORTS CONFIGURATION # +###################################################################### +# ORDER DOES NOT MATTER # +# Only one appropriate transport is called for each delivery. # +###################################################################### + +# A transport is used only when referenced from a router that successfully +# handles an address. + +begin transports + +mlmmj_transport: + driver = pipe + return_path_add + user = mlmmj + group = mlmmj + home_directory = MLMMJ_HOME + current_directory = MLMMJ_HOME + command = /usr/bin/mlmmj-footer-receive MLMMJ_HOME ${lc:$local_part} + +##################################################### +### end transport/00_exim4-config_header +##################################################### +##################################################### +### transport/10_exim4-config_transport-macros +##################################################### + +### transport/10_exim4-config_transport-macros +################################# + +.ifdef HIDE_MAILNAME +REMOTE_SMTP_HEADERS_REWRITE=*@+local_domains $1@DCreadhost frs : *@ETC_MAILNAME $1@DCreadhost frs +REMOTE_SMTP_RETURN_PATH=${if match_domain{$sender_address_domain}{+local_domains}{${sender_address_local_part}@DCreadhost}{${if match_domain{$sender_address_domain}{ETC_MAILNAME}{${sender_address_local_part}@DCreadhost}fail}}} +.endif + +.ifdef REMOTE_SMTP_HELO_FROM_DNS +.ifdef REMOTE_SMTP_HELO_DATA +REMOTE_SMTP_HELO_DATA==${lookup dnsdb {ptr=$sending_ip_address}{$value}{$primary_hostname}} +.else +REMOTE_SMTP_HELO_DATA=${lookup dnsdb {ptr=$sending_ip_address}{$value}{$primary_hostname}} +.endif +.endif +##################################################### +### end transport/10_exim4-config_transport-macros +##################################################### +##################################################### +### transport/30_exim4-config_address_file +##################################################### + +# This transport is used for handling deliveries directly to files that are +# generated by aliasing or forwarding. +# +address_file: + debug_print = "T: address_file for $local_part@$domain" + driver = appendfile + delivery_date_add + envelope_to_add + return_path_add + +##################################################### +### end transport/30_exim4-config_address_file +##################################################### +##################################################### +### transport/30_exim4-config_address_pipe +##################################################### + +# This transport is used for handling pipe deliveries generated by +# .forward files. If the commands fails and produces any output on standard +# output or standard error streams, the output is returned to the sender +# of the message as a delivery error. +address_pipe: + debug_print = "T: address_pipe for $local_part@$domain" + driver = pipe + return_fail_output + +##################################################### +### end transport/30_exim4-config_address_pipe +##################################################### +##################################################### +### transport/30_exim4-config_address_reply +##################################################### + +# This transport is used for handling autoreplies generated by the filtering +# option of the userforward router. +# +address_reply: + debug_print = "T: autoreply for $local_part@$domain" + driver = autoreply + +##################################################### +### end transport/30_exim4-config_address_reply +##################################################### +##################################################### +### transport/30_exim4-config_mail_spool +##################################################### + +### transport/30_exim4-config_mail_spool + +# This transport is used for local delivery to user mailboxes in traditional +# BSD mailbox format. +# +mail_spool: + debug_print = "T: appendfile for $local_part@$domain" + driver = appendfile + file = /var/mail/$local_part + delivery_date_add + envelope_to_add + return_path_add + group = mail + mode = 0660 + mode_fail_narrower = false + +##################################################### +### end transport/30_exim4-config_mail_spool +##################################################### +##################################################### +### transport/30_exim4-config_maildir_home +##################################################### + +### transport/30_exim4-config_maildir_home +################################# + +# Use this instead of mail_spool if you want to to deliver to Maildir in +# home-directory - change the definition of LOCAL_DELIVERY +# +maildir_home: + debug_print = "T: maildir_home for $local_part@$domain" + driver = appendfile + .ifdef MAILDIR_HOME_MAILDIR_LOCATION + directory = MAILDIR_HOME_MAILDIR_LOCATION + .else + directory = $home/Maildir + .endif + .ifdef MAILDIR_HOME_CREATE_DIRECTORY + create_directory + .endif + .ifdef MAILDIR_HOME_CREATE_FILE + create_file = MAILDIR_HOME_CREATE_FILE + .endif + delivery_date_add + envelope_to_add + return_path_add + maildir_format + .ifdef MAILDIR_HOME_DIRECTORY_MODE + directory_mode = MAILDIR_HOME_DIRECTORY_MODE + .else + directory_mode = 0700 + .endif + .ifdef MAILDIR_HOME_MODE + mode = MAILDIR_HOME_MODE + .else + mode = 0600 + .endif + mode_fail_narrower = false + # This transport always chdirs to $home before trying to deliver. If + # $home is not accessible, this chdir fails and prevents delivery. + # If you are in a setup where home directories might not be + # accessible, uncomment the current_directory line below. + # current_directory = / +##################################################### +### end transport/30_exim4-config_maildir_home +##################################################### +##################################################### +### transport/30_exim4-config_maildrop_pipe +##################################################### + +maildrop_pipe: + debug_print = "T: maildrop_pipe for $local_part@$domain" + driver = pipe + path = "/bin:/usr/bin:/usr/local/bin" + command = "/usr/bin/maildrop" + message_prefix = + message_suffix = + return_path_add + delivery_date_add + envelope_to_add + +##################################################### +### end transport/30_exim4-config_maildrop_pipe +##################################################### +##################################################### +### transport/30_exim4-config_procmail_pipe +##################################################### + +procmail_pipe: + debug_print = "T: procmail_pipe for $local_part@$domain" + driver = pipe + path = "/bin:/usr/bin:/usr/local/bin" + command = "/usr/bin/procmail" + return_path_add + delivery_date_add + envelope_to_add + +##################################################### +### end transport/30_exim4-config_procmail_pipe +##################################################### +##################################################### +### transport/30_exim4-config_remote_smtp +##################################################### + +### transport/30_exim4-config_remote_smtp +################################# +# This transport is used for delivering messages over SMTP connections. + +remote_smtp: + debug_print = "T: remote_smtp for $local_part@$domain" + driver = smtp +.ifdef REMOTE_SMTP_HOSTS_AVOID_TLS + hosts_avoid_tls = REMOTE_SMTP_HOSTS_AVOID_TLS +.endif +.ifdef REMOTE_SMTP_HEADERS_REWRITE + headers_rewrite = REMOTE_SMTP_HEADERS_REWRITE +.endif +.ifdef REMOTE_SMTP_RETURN_PATH + return_path = REMOTE_SMTP_RETURN_PATH +.endif +.ifdef REMOTE_SMTP_HELO_DATA + helo_data=REMOTE_SMTP_HELO_DATA +.endif +.ifdef DKIM_DOMAIN +dkim_domain = DKIM_DOMAIN +.endif +.ifdef DKIM_SELECTOR +dkim_selector = DKIM_SELECTOR +.endif +.ifdef DKIM_PRIVATE_KEY +dkim_private_key = DKIM_PRIVATE_KEY +.endif +.ifdef DKIM_CANON +dkim_canon = DKIM_CANON +.endif +.ifdef DKIM_STRICT +dkim_strict = DKIM_STRICT +.endif +.ifdef DKIM_SIGN_HEADERS +dkim_sign_headers = DKIM_SIGN_HEADERS +.endif +.ifdef TLS_DH_MIN_BITS +tls_dh_min_bits = TLS_DH_MIN_BITS +.endif +.ifdef REMOTE_SMTP_TLS_CERTIFICATE +tls_certificate = REMOTE_SMTP_TLS_CERTIFICATE +.endif +.ifdef REMOTE_SMTP_PRIVATEKEY +tls_privatekey = REMOTE_SMTP_PRIVATEKEY +.endif +##################################################### +### end transport/30_exim4-config_remote_smtp +##################################################### +##################################################### +### transport/30_exim4-config_remote_smtp_smarthost +##################################################### + +### transport/30_exim4-config_remote_smtp_smarthost +################################# + +# This transport is used for delivering messages over SMTP connections +# to a smarthost. The local host tries to authenticate. +# This transport is used for smarthost and satellite configurations. + +remote_smtp_smarthost: + debug_print = "T: remote_smtp_smarthost for $local_part@$domain" + driver = smtp + hosts_try_auth = <; ${if exists{CONFDIR/passwd.client} \ + {\ + ${lookup{$host}nwildlsearch{CONFDIR/passwd.client}{$host_address}}\ + }\ + {} \ + } +.ifdef REMOTE_SMTP_SMARTHOST_HOSTS_AVOID_TLS + hosts_avoid_tls = REMOTE_SMTP_SMARTHOST_HOSTS_AVOID_TLS +.endif +.ifdef REMOTE_SMTP_HEADERS_REWRITE + headers_rewrite = REMOTE_SMTP_HEADERS_REWRITE +.endif +.ifdef REMOTE_SMTP_RETURN_PATH + return_path = REMOTE_SMTP_RETURN_PATH +.endif +.ifdef REMOTE_SMTP_HELO_DATA + helo_data=REMOTE_SMTP_HELO_DATA +.endif +.ifdef TLS_DH_MIN_BITS +tls_dh_min_bits = TLS_DH_MIN_BITS +.endif +.ifdef REMOTE_SMTP_SMARTHOST_TLS_CERTIFICATE +tls_certificate = REMOTE_SMTP_SMARTHOST_TLS_CERTIFICATE +.endif +.ifdef REMOTE_SMTP_SMARTHOST_PRIVATEKEY +tls_privatekey = REMOTE_SMTP_SMARTHOST_PRIVATEKEY +.endif +##################################################### +### end transport/30_exim4-config_remote_smtp_smarthost +##################################################### +##################################################### +### transport/35_exim4-config_address_directory +##################################################### +# This transport is used for handling file addresses generated by alias +# or .forward files if the path ends in "/", which causes it to be treated +# as a directory name rather than a file name. + +address_directory: + debug_print = "T: address_directory for $local_part@$domain" + driver = appendfile + delivery_date_add + envelope_to_add + return_path_add + check_string = "" + escape_string = "" + maildir_format + +##################################################### +### end transport/35_exim4-config_address_directory +##################################################### +##################################################### +### retry/00_exim4-config_header +##################################################### + +###################################################################### +# RETRY CONFIGURATION # +###################################################################### + +begin retry + +##################################################### +### end retry/00_exim4-config_header +##################################################### +##################################################### +### retry/30_exim4-config +##################################################### + +### retry/30_exim4-config +################################# + +# This single retry rule applies to all domains and all errors. It specifies +# retries every 15 minutes for 2 hours, then increasing retry intervals, +# starting at 1 hour and increasing each time by a factor of 1.5, up to 16 +# hours, then retries every 6 hours until 4 days have passed since the first +# failed delivery. + +# Please note that these rules only limit the frequency of retries, the +# effective retry-time depends on the frequency of queue-running, too. +# See QUEUEINTERVAL in /etc/default/exim4. + +# Address or Domain Error Retries +# ----------------- ----- ------- + +* * F,2h,15m; G,16h,1h,1.5; F,4d,6h + +##################################################### +### end retry/30_exim4-config +##################################################### +##################################################### +### rewrite/00_exim4-config_header +##################################################### + +###################################################################### +# REWRITE CONFIGURATION # +###################################################################### + +begin rewrite + +##################################################### +### end rewrite/00_exim4-config_header +##################################################### +##################################################### +### rewrite/31_exim4-config_rewriting +##################################################### + +### rewrite/31_exim4-config_rewriting +################################# + +# This rewriting rule is particularily useful for dialup users who +# don't have their own domain, but could be useful for anyone. +# It looks up the real address of all local users in a file +.ifndef NO_EAA_REWRITE_REWRITE +*@+local_domains "${lookup{${local_part}}lsearch{/etc/email-addresses}\ + {$value}fail}" Ffrs +# identical rewriting rule for /etc/mailname +*@ETC_MAILNAME "${lookup{${local_part}}lsearch{/etc/email-addresses}\ + {$value}fail}" Ffrs +.endif + + +##################################################### +### end rewrite/31_exim4-config_rewriting +##################################################### +##################################################### +### auth/00_exim4-config_header +##################################################### + +###################################################################### +# AUTHENTICATION CONFIGURATION # +###################################################################### + +begin authenticators + + +##################################################### +### end auth/00_exim4-config_header +##################################################### +##################################################### +### auth/30_exim4-config_examples +##################################################### + +### auth/30_exim4-config_examples +################################# + +# The examples below are for server side authentication, when the +# local exim is SMTP server and clients authenticate to the local exim. + +# They allow two styles of plain-text authentication against an +# CONFDIR/passwd file whose syntax is described in exim4_passwd(5). + +# Hosts that are allowed to use AUTH are defined by the +# auth_advertise_hosts option in the main configuration. The default is +# "*", which allows authentication to all hosts over all kinds of +# connections if there is at least one authenticator defined here. +# Authenticators which rely on unencrypted clear text passwords don't +# advertise on unencrypted connections by default. Thus, it might be +# wise to set up TLS to allow encrypted connections. If TLS cannot be +# used for some reason, you can set AUTH_SERVER_ALLOW_NOTLS_PASSWORDS to +# advertise unencrypted clear text password based authenticators on all +# connections. As this is severely reducing security, using TLS is +# preferred over allowing clear text password based authenticators on +# unencrypted connections. + +# PLAIN authentication has no server prompts. The client sends its +# credentials in one lump, containing an authorization ID (which we do not +# use), an authentication ID, and a password. The latter two appear as +# $auth2 and $auth3 in the configuration and should be checked against a +# valid username and password. In a real configuration you would typically +# use $auth2 as a lookup key, and compare $auth3 against the result of the +# lookup, perhaps using the crypteq{}{} condition. + +# plain_server: +# driver = plaintext +# public_name = PLAIN +# server_condition = "${if crypteq{$auth3}{${extract{1}{:}{${lookup{$auth2}lsearch{CONFDIR/passwd}{$value}{*:*}}}}}{1}{0}}" +# server_set_id = $auth2 +# server_prompts = : +# .ifndef AUTH_SERVER_ALLOW_NOTLS_PASSWORDS +# server_advertise_condition = ${if eq{$tls_in_cipher}{}{}{*}} +# .endif + +# LOGIN authentication has traditional prompts and responses. There is no +# authorization ID in this mechanism, so unlike PLAIN the username and +# password are $auth1 and $auth2. Apart from that you can use the same +# server_condition setting for both authenticators. + +# login_server: +# driver = plaintext +# public_name = LOGIN +# server_prompts = "Username:: : Password::" +# server_condition = "${if crypteq{$auth2}{${extract{1}{:}{${lookup{$auth1}lsearch{CONFDIR/passwd}{$value}{*:*}}}}}{1}{0}}" +# server_set_id = $auth1 +# .ifndef AUTH_SERVER_ALLOW_NOTLS_PASSWORDS +# server_advertise_condition = ${if eq{$tls_in_cipher}{}{}{*}} +# .endif +# +# cram_md5_server: +# driver = cram_md5 +# public_name = CRAM-MD5 +# server_secret = ${extract{2}{:}{${lookup{$auth1}lsearch{CONFDIR/passwd}{$value}fail}}} +# server_set_id = $auth1 + +# Here is an example of CRAM-MD5 authentication against PostgreSQL: +# +# psqldb_auth_server: +# driver = cram_md5 +# public_name = CRAM-MD5 +# server_secret = ${lookup pgsql{SELECT pw FROM users WHERE username = '${quote_pgsql:$auth1}'}{$value}fail} +# server_set_id = $auth1 + +# Authenticate against local passwords using sasl2-bin +# Requires exim_uid to be a member of sasl group, see README.Debian.gz +# plain_saslauthd_server: +# driver = plaintext +# public_name = PLAIN +# server_condition = ${if saslauthd{{$auth2}{$auth3}}{1}{0}} +# server_set_id = $auth2 +# server_prompts = : +# .ifndef AUTH_SERVER_ALLOW_NOTLS_PASSWORDS +# server_advertise_condition = ${if eq{$tls_in_cipher}{}{}{*}} +# .endif +# +# login_saslauthd_server: +# driver = plaintext +# public_name = LOGIN +# server_prompts = "Username:: : Password::" +# # don't send system passwords over unencrypted connections +# server_condition = ${if saslauthd{{$auth1}{$auth2}}{1}{0}} +# server_set_id = $auth1 +# .ifndef AUTH_SERVER_ALLOW_NOTLS_PASSWORDS +# server_advertise_condition = ${if eq{$tls_in_cipher}{}{}{*}} +# .endif +# +# ntlm_sasl_server: +# driver = cyrus_sasl +# public_name = NTLM +# server_realm = +# server_set_id = $auth1 +# .ifndef AUTH_SERVER_ALLOW_NOTLS_PASSWORDS +# server_advertise_condition = ${if eq{$tls_in_cipher}{}{}{*}} +# .endif +# +# digest_md5_sasl_server: +# driver = cyrus_sasl +# public_name = DIGEST-MD5 +# server_realm = +# server_set_id = $auth1 +# .ifndef AUTH_SERVER_ALLOW_NOTLS_PASSWORDS +# server_advertise_condition = ${if eq{$tls_in_cipher}{}{}{*}} +# .endif + +# Authentcate against cyrus-sasl +# This is mainly untested, please report any problems to +# pkg-exim4-users@lists.alioth.debian.org. +# cram_md5_sasl_server: +# driver = cyrus_sasl +# public_name = CRAM-MD5 +# server_realm = +# server_set_id = $auth1 +# +# plain_sasl_server: +# driver = cyrus_sasl +# public_name = PLAIN +# server_realm = +# server_set_id = $auth1 +# .ifndef AUTH_SERVER_ALLOW_NOTLS_PASSWORDS +# server_advertise_condition = ${if eq{$tls_in_cipher}{}{}{*}} +# .endif +# +# login_sasl_server: +# driver = cyrus_sasl +# public_name = LOGIN +# server_realm = +# server_set_id = $auth1 +# .ifndef AUTH_SERVER_ALLOW_NOTLS_PASSWORDS +# server_advertise_condition = ${if eq{$tls_in_cipher}{}{}{*}} +# .endif + +# Authenticate against courier authdaemon + +# This is now the (working!) example from +# http://www.exim.org/eximwiki/FAQ/Policy_controls/Q0730 +# Possible pitfall: access rights on /var/run/courier/authdaemon/socket. +# plain_courier_authdaemon: +# driver = plaintext +# public_name = PLAIN +# server_condition = \ +# ${extract {ADDRESS} \ +# {${readsocket{/var/run/courier/authdaemon/socket} \ +# {AUTH ${strlen:exim\nlogin\n$auth2\n$auth3\n}\nexim\nlogin\n$auth2\n$auth3\n} }} \ +# {yes} \ +# fail} +# server_set_id = $auth2 +# .ifndef AUTH_SERVER_ALLOW_NOTLS_PASSWORDS +# server_advertise_condition = ${if eq{$tls_in_cipher}{}{}{*}} +# .endif + +# login_courier_authdaemon: +# driver = plaintext +# public_name = LOGIN +# server_prompts = Username:: : Password:: +# server_condition = \ +# ${extract {ADDRESS} \ +# {${readsocket{/var/run/courier/authdaemon/socket} \ +# {AUTH ${strlen:exim\nlogin\n$auth1\n$auth2\n}\nexim\nlogin\n$auth1\n$auth2\n} }} \ +# {yes} \ +# fail} +# server_set_id = $auth1 +# .ifndef AUTH_SERVER_ALLOW_NOTLS_PASSWORDS +# server_advertise_condition = ${if eq{$tls_in_cipher}{}{}{*}} +# .endif + +# This one is a bad hack to support the broken version 4.xx of +# Microsoft Outlook Express which violates the RFCs by demanding +# "250-AUTH=" instead of "250-AUTH ". +# If your list of offered authenticators is other than PLAIN and LOGIN, +# you need to adapt the public_name line manually. +# It has to be the last authenticator to work and has not been tested +# well. Use at your own risk. +# See the thread entry point from +# http://www.exim.org/mail-archives/exim-users/Week-of-Mon-20050214/msg00213.html +# for the related discussion on the exim-users mailing list. +# Thanks to Fred Viles for this great work. + +# support_broken_outlook_express_4_server: +# driver = plaintext +# public_name = "\r\n250-AUTH=PLAIN LOGIN" +# server_prompts = User Name : Password +# server_condition = no +# .ifndef AUTH_SERVER_ALLOW_NOTLS_PASSWORDS +# server_advertise_condition = ${if eq{$tls_in_cipher}{}{}{*}} +# .endif + +############## +# See /usr/share/doc/exim4-base/README.Debian.gz +############## + +# These examples below are the equivalent for client side authentication. +# They get the passwords from CONFDIR/passwd.client, whose format is +# defined in exim4_passwd_client(5) + +# Because AUTH PLAIN and AUTH LOGIN send the password in clear, we +# only allow these mechanisms over encrypted connections by default. +# You can set AUTH_CLIENT_ALLOW_NOTLS_PASSWORDS to allow unencrypted +# clear text password authentication on all connections. + +cram_md5: + driver = cram_md5 + public_name = CRAM-MD5 + client_name = ${extract{1}{:}{${lookup{$host}nwildlsearch{CONFDIR/passwd.client}{$value}fail}}} + client_secret = ${extract{2}{:}{${lookup{$host}nwildlsearch{CONFDIR/passwd.client}{$value}fail}}} + +# this returns the matching line from passwd.client and doubles all ^ +PASSWDLINE=${sg{\ + ${lookup{$host}nwildlsearch{CONFDIR/passwd.client}{$value}fail}\ + }\ + {\\N[\\^]\\N}\ + {^^}\ + } + +plain: + driver = plaintext + public_name = PLAIN +.ifndef AUTH_CLIENT_ALLOW_NOTLS_PASSWORDS + client_send = "<; ${if !eq{$tls_out_cipher}{}\ + {^${extract{1}{:}{PASSWDLINE}}\ + ^${sg{PASSWDLINE}{\\N([^:]+:)(.*)\\N}{\\$2}}\ + }fail}" +.else + client_send = "<; ^${extract{1}{:}{PASSWDLINE}}\ + ^${sg{PASSWDLINE}{\\N([^:]+:)(.*)\\N}{\\$2}}" +.endif + +login: + driver = plaintext + public_name = LOGIN +.ifndef AUTH_CLIENT_ALLOW_NOTLS_PASSWORDS + # Return empty string if not non-TLS AND looking up $host in passwd-file + # yields a non-empty string; fail otherwise. + client_send = "<; ${if and{\ + {!eq{$tls_out_cipher}{}}\ + {!eq{PASSWDLINE}{}}\ + }\ + {}fail}\ + ; ${extract{1}{::}{PASSWDLINE}}\ + ; ${sg{PASSWDLINE}{\\N([^:]+:)(.*)\\N}{\\$2}}" +.else + # Return empty string if looking up $host in passwd-file yields a + # non-empty string; fail otherwise. + client_send = "<; ${if !eq{PASSWDLINE}{}\ + {}fail}\ + ; ${extract{1}{::}{PASSWDLINE}}\ + ; ${sg{PASSWDLINE}{\\N([^:]+:)(.*)\\N}{\\$2}}" +.endif +##################################################### +### end auth/30_exim4-config_examples +##################################################### diff --git a/misc/move/exim4.filter b/misc/move/exim4.filter new file mode 100644 index 0000000..4f87a5b --- /dev/null +++ b/misc/move/exim4.filter @@ -0,0 +1,2 @@ +if $message_body contains "DISCARD_THIS_MAIL" and not error_message +then seen finish endif diff --git a/misc/move/foot_filter/Makefile b/misc/move/foot_filter/Makefile new file mode 100644 index 0000000..eb22bc9 --- /dev/null +++ b/misc/move/foot_filter/Makefile @@ -0,0 +1,14 @@ +all: foot_filter +dev: tags splint foot_filter +.PHONY: splint clean clobber +tags: foot_filter.c + ctags --excmd=number '--regex-c=-/\*[[:blank:]]*tag:[[:blank:]]*([[:alnum:]_]+)-\1-' foot_filter.c +splint: + splint +unixlib -exitarg -initallelements foot_filter.c +foot_filter: foot_filter.c + gcc -Wall -g -o foot_filter foot_filter.c -O3 +clean: + -rm tags +clobber: clean + -rm foot_filter + -rm test diff --git a/misc/move/foot_filter/foot_filter b/misc/move/foot_filter/foot_filter new file mode 100755 index 0000000..cfd9fac Binary files /dev/null and b/misc/move/foot_filter/foot_filter differ diff --git a/misc/move/foot_filter/foot_filter.c b/misc/move/foot_filter/foot_filter.c new file mode 100644 index 0000000..6bbbff7 --- /dev/null +++ b/misc/move/foot_filter/foot_filter.c @@ -0,0 +1,2685 @@ +/* + +foot_filter.c + +(C) 2010 Ben Schmidt + +This Source Code Form is subject to the terms of the Mozilla Public License +Version 2.0. If a copy of the MPL was not distributed with this file, You can +obtain one at http://mozilla.org/MPL/2.0/. + +*/ + +// Check out the -V option; it outputs this and more +#define FOOT_FILTER_VERSION "foot_filter version 1.2, (C) 2010 Ben Schmidt" + +static const char * USAGE="\n\ +usage: foot_filter [-p plain_footer_file] [-h html_footer_file]\n\ + [{-P|-H} mime_footer_file] [-s]\n\ + foot_filter -V\n\ +\n\ +plain_footer_file, if present, will be appended to mails with plain text\n\ +sections only. Similarly, html_footer_file. If mime_footer_file (either\n\ +plain, -P, or HTML, -H) is given, it will be used when a mail with\n\ +alternative formats is encountered, or if the footer for the relevant\n\ +type of mail is not present; a new MIME section will be added.\n\ +\n\ +-s turns on smart mode which endeavours to remove included/quoted copies of\n\ +the (or a similar) footer by surrounding the footer with patterns it later\n\ +recognises. It also endeavours to strip 'padding' surrounding the old\n\ +footers to make things as clean as possible. This includes whitespace\n\ +(including ' ' and '
'), '>' quoting characters, various pairs of\n\ +HTML tags (p, blockquote, div, span, font; it's naive, it doesn't check\n\ +tags in between are balanced at all, so in '

prefix

suffix

' the\n\ +first and last tags are paired), and even horizontal rules when inside\n\ +paired tags (e.g. use '
footer
'). If the smart strings are\n\ +found in the footer, they won't be added by the program, so you have the\n\ +necessary control to do this.\n\ +\n\ +New footers are added prior to trailing whitespace and a few closing html\n\ +tags (body, html) as well. You almost certainly want to begin your footer\n\ +with an empty line because of this.\n\ +\n\ +Since these alterations, by their very nature, break signed mail,\n\ +signatures are removed while processing. To keep some value from signatures,\n\ +have the MTA verify them and add a header (or even supply an alternative\n\ +footer to this program), and resign them to authenticate they came from the\n\ +mailing list directly after the signature verification was done and recorded.\n\ +Or don't use these kinds of transformations at all.\n\ +\n\ +-V shows the version and exits.\n\ +\n\ +Program is running now. Send EOF or interrupt to stop it. To avoid this usage\n\ +message if wanting to run without arguments, use '--' as an argument.\n\ +\n"; + +/* + +This is a fairly simple program not expecting much extension. As such, some +liberties have been taken and some fun has been had by the author. Correctness +has been prioritised in design, but speed and efficiency have been taken into +consideration and prioritised above readability and modularity and other such +generally recommended programming practices. If making changes, great care +should be taken to understand how and where (everywhere) globals are used +before making them. Don't try to modify the program without understanding how +the whole thing works together or you will get burnt. You have been warned. + +Relevant RFCs: +http://www.ietf.org/rfc/rfc2015.txt +http://www.ietf.org/rfc/rfc3851.txt +http://www.ietf.org/rfc/rfc2045.txt +http://www.ietf.org/rfc/rfc2046.txt +http://www.ietf.org/rfc/rfc822.txt +http://www.ietf.org/rfc/rfc2183.txt + +For program configuration, see the 'constants' section below. + +Also see code comments throughout. + +Future possibilities: + +- Saving copies of original mail in 'semi-temp' files for debugging. + +- Stripping attachments and save them (e.g. in a location that can become a + 'files uploaded' section on a website). Replace them with links to the + website, even. + +- Making the prefixes, suffixes, replacements, padding, guts, pairs, + configurable at runtime. + +- Attaching signed mail, or wrapping in a multipart rather than removing + signatures; wouldn't be hard if always using MIME footers. + +- Following a script to allow various other header transformations (addition, + removal, etc.), or other transformations. + +- Prologues as well as or instead of footers. + +*/ + +/* tag: includes */ + +#include +#include +#include +#include +#include +#include +#include +#include + +/* tag: typedefs */ + +// splint has bools, but C doesn't! +#ifndef S_SPLINT_S +typedef int bool; +#define false (0) +#define true (1) +#endif + +// This is mostly to be able to include splint annotations +typedef /*@null@*//*@observer@*/ const char * const_null_string; +typedef /*@null@*/ char * null_string; +typedef /*@null@*//*@owned@*/ char * owned_null_string; +typedef /*@null@*//*@dependent@*/ char * dependent_null_string; + +// 'Callbacks'; they communicate primarily using globals, see below +typedef bool (*callback_t)(); +typedef void (*function_t)(); + +// For fill() +typedef enum { + echo, + encode, + shunt, + discard, + stop, + fail +} when_full_t; + +// Various places +typedef enum { + unencoded, + quoted_printable, + base64 +} encoding_t; + +// For returning multiple characters, and a request to delete backlog +// when decoding +typedef struct { + int r; + int c1; + int c2; + int c3; +} decode_t; + +/* tag: constants */ + +/* tag: header_constants */ + +// How many MIME Content- headers we expect, maximum, in a mail. If we have +// more than that, we won't be able to process MIME so well, but we won't fail +// catastrophically. +#define mime_headers_max 16 + +/* tag: footer_constants */ + +// Stuff for processing the footer's smart removal and (smart or not) +// insertion + +static const char * plain_prefix = "------~----------"; +static const char * plain_suffix = "------~~---------"; +static const char * plain_replacement = "\r\n\r\n"; +static const_null_string plain_tails[] = { + " ","\t","\r","\n", + NULL +}; +static const_null_string plain_padding[] = { + ">"," ","\t","\r","\n", + NULL +}; +static const_null_string plain_guts[] = { + NULL +}; +static const_null_string plain_pairs[] = { + NULL +}; + +static const char * html_prefix = "------~----------"; +static const char * html_suffix = "------~~---------"; +static const char * html_replacement = "\r\n

\r\n"; +static const_null_string html_tails[] = { + "","","","", + " "," ","&NBSP;","\t","\r","\n", + "
","
","
","
","
","
", + NULL +}; +static const_null_string html_padding[] = { + ">",">", + " "," ","&NBSP;","\t","\r","\n", + "
","
","
","
","
","
", + NULL +}; +static const_null_string html_guts[] = { + // These are removed in an attempt to make a pair + "
","
","
","
","
","
", + " "," ","&NBSP;","\t","\r","\n", + "
","
","
","
","
","
", + NULL +}; +static const_null_string html_pairs[] = { + // Closing part (or NULL to mark no more), end of opening part, + // start of opening part, NULL + // The search strategy is fairly naive; if it finds the closing part, + // it checks for the end of the opening part; if it finds that, it + // searches back for the first character of each of the opening part + // variants, and if that character is found and is the beginning of the + // whole variant, it removes the pair. + "

",">","

","

",">","

","

",">","

","
",">","
","
",">","
","
",">","
","
",">","","",">","","",">","","",">","","0,"unexpected commandline argument"); + // Load footers + if (plain_footer_file!=NULL) + load_footer(&plain_footer,&plain_footer_buffer, + plain_footer_file, + smart_footer?plain_prefix:NULL,smart_footer?plain_suffix:NULL); + if (html_footer_file!=NULL) + load_footer(&html_footer,&html_footer_buffer, + html_footer_file, + smart_footer?html_prefix:NULL,smart_footer?html_suffix:NULL); + if (mime_footer_file!=NULL) + load_footer(&mime_footer,&mime_footer_buffer, + mime_footer_file,NULL,NULL); + // Do the job + process_section(true,true,NULL); + // Finish + if (plain_footer_buffer!=NULL) free(plain_footer_buffer); + if (html_footer_buffer!=NULL) free(html_footer_buffer); + if (mime_footer_buffer!=NULL) free(mime_footer_buffer); + exit(EX_OK); +} + +static void load_footer(/*@out@*//*@shared@*/ char ** footer, + /*@reldef@*/ char ** footer_buffer, + char * file, + /*@unique@*/ const_null_string prefix, + /*@unique@*/ const_null_string suffix) { + FILE * f; + int prefixl=0, footerl=0, suffixl=0; + char * ff; + if (prefix!=NULL&&suffix!=NULL) { + prefixl=(int)strlen(prefix); + suffixl=(int)strlen(suffix); + } + f=fopen(file,"r"); + resort_to_errno(f==NULL,"error opening footer file",EX_NOINPUT); + resort_to_errno(fseek(f,0,SEEK_END)!=0, + "error seeking end of footer file",EX_IOERR); + resort_to_errno((footerl=(int)ftell(f))==-1, + "error finding footer length",EX_IOERR); + resort_to_errno(fseek(f,0,SEEK_SET)!=0, + "error seeking in footer file",EX_IOERR); + // prefix, \n, footer, \n, suffix, \0 + *footer_buffer=alloc_or_exit(sizeof(char)*(prefixl+footerl+suffixl+3)); + *footer=*footer_buffer; + *footer+=prefixl+1; + resort_to_errno(fread(*footer,1,(size_t)footerl,f)<(size_t)footerl, + "error reading footer",EX_IOERR); + // We strip off a single trailing newline to keep them from accumulating + // but to allow the user the option of adding them if desired + if ((*footer)[footerl-1]=='\n') --footerl; + (*footer)[footerl]='\0'; + if (prefix==NULL||suffix==NULL) return; + // Put in the prefix and suffix as necessary + ff=strstr(*footer,prefix); + if (ff!=NULL) { + ff=strstr(ff,suffix); + if (ff!=NULL) return; + (*footer)[footerl]='\n'; + ++footerl; + strcpy(*footer+footerl,suffix); + (*footer)[footerl+suffixl]='\0'; + } else { + ff=strstr(*footer,suffix); + if (ff==NULL) { + (*footer)[footerl]='\n'; + ++footerl; + strcpy(*footer+footerl,suffix); + (*footer)[footerl+suffixl]='\0'; + } + *footer-=prefixl+1; + strcpy(*footer,prefix); + (*footer)[prefixl]='\n'; + } +} + +// Should be called with the boundary for the section as lookahead +// in the buffer, but nothing more, and no lookbehind. +static void process_section(bool add_footer, + bool can_reenvelope, /*@null@*/ bool * parent_needs_footer) { + char * external=NULL; + char * internal=NULL; + char * generated=NULL; + bool reenveloping=false; + bool child_needed_footer=false; + bool needs_footer=false; + bool unsigning=false; + if (parent_needs_footer!=NULL) *parent_needs_footer=false; + // The headers must be read, saved and echoed before making any + // recursive calls, as I'm naughty and using globals. + read_boundary(&external); + read_and_save_mime_headers(); + if (mime_bad) { + // If an error, just resort to echoing + echo_buffer(); // Boundary and headers + // End headers with the extra line break + resort_to_errno(putstr("\r\n")==EOF, + "error echoing string",EX_IOERR); + free_saved_mime_headers(); + // Body + echo_to_boundary(external); + free(external); + return; + } + // Headers determining we skip this section + if (is_signature()) { + skip_buffer(); // Boundary and headers + skip_to_boundary(external); + return; + } + // Header processing + if (is_signed()) unsigning=true; + if (unsigning) change_to_mixed(); + if (add_footer&&mime_footer!=NULL&&( + is_alternative()||(is_multipart(NULL)&&!is_mixed())|| + (is_plain()&&plain_footer==NULL)|| + (is_html()&&html_footer==NULL) + )) { + add_footer=false; + if (can_reenvelope) { + reenveloping=true; + remove_mime_headers(); + } else if (parent_needs_footer!=NULL) *parent_needs_footer=true; + } + // Headers + echo_buffer(); // Boundary and possibly modified headers + if (reenveloping) { + generate_boundary(&generated); + output_mime_mixed_headers(generated); + output_prolog(); + output_boundary(generated); + output_saved_mime_headers(); + } + // End the headers with the extra line break + resort_to_errno(putstr("\r\n")==EOF, + "error echoing string",EX_IOERR); + // Body processing + if (is_multipart(&internal)) { + // This branch frees the MIME headers before recursing. + // Don't include the prolog if it used to be signed; + // it usually says something like 'this message is signed' + if (unsigning) { + skip_to_boundary(internal); + resort_to_errno(putstr("\r\n")==EOF, + "error echoing string",EX_IOERR); + } else { + echo_to_boundary(internal); + } + // The recursive call needs these globals + free_saved_mime_headers(); + while (!at_final_boundary(internal)) { + process_section(add_footer,false,&child_needed_footer); + if (child_needed_footer) needs_footer=true; + } + if (needs_footer) output_mime_footer(internal); + free(internal); + echo_to_boundary(external); + } else { + // This branch frees the MIME headers at the end + if (!is_attachment()&&( + (is_plain()&&plain_footer!=NULL)|| + (is_html()&&html_footer!=NULL))) { + // alternatively + // if (!is_attachment()&&( + // (is_plain()&&((add_footer&&plain_footer!=NULL)||smart_footer))|| + // (is_html()&&((add_footer&&html_footer!=NULL)||smart_footer)))) { + if (is_plain()) { + process_text_section(add_footer,plain_footer, + plain_prefix,plain_suffix,plain_replacement, + plain_tails,plain_padding,plain_guts,plain_pairs,external); + } else { + process_text_section(add_footer,html_footer, + html_prefix,html_suffix,html_replacement, + html_tails,html_padding,html_guts,html_pairs,external); + } + } else { + echo_to_boundary(external); + } + free_saved_mime_headers(); + } + // MIME stuff is freed now; take care not to use it. + /*@-branchstate@*/ + if (reenveloping) { + // We ensure generated is not null in another if(reenveloping) + // conditional above + /*@-nullpass@*/ + output_mime_footer(generated); + output_final_boundary(generated); + free(generated); + /*@=nullpass@*/ + } + /*@=branchstate@*/ + free(external); +} + +/* tag: header_functions */ + +static inline void read_and_save_mime_headers() { + /*@-mustfreeonly@*/ + mime_bad=false; + // Mark current end of buffer + buffer_mark=buffer_read; + buffer_marked=true; + for (;;) { + do { + // Extend current header until beginning of next + callback_bool=false; + (void)fill(until_eol,shunt); + if (buffer_filled==buffer_read) { + // We probably hit EOF; just get out, and the whole + // mail will end up echoed out + warning("unexpected end of input"); + break; + } + (void)look(one_char,buffer_read,false); + if (callback_int==(int)' '||callback_int==(int)'\t') { + // Continuation of previous header; read it + read_buffer(); + continue; + } + // Start of new header; don't read it; process the old one + // (from the mark to the end of the lookbehind) + break; + } while (true); + // Process the old header, if there is one + if (buffer_mark0) { + if (*h=='\0') break; + if (*h=='\\') { + ++h; + if (*h=='\0') break; + } + else if (*h=='(') ++levels; + else if (*h==')') --levels; + ++h; + } + if (!delimiting(*h,ext)&&!delimiting(*(hh-1),ext)) { + // Put in some whitespace if something delimiting isn't + // coming and hasn't just been + *hh=' '; + ++hh; + } + continue; + } else if (*h=='"'||*h=='[') { + if (*h=='[') close=']'; + else close='"'; + *hh=*h; + ++h; ++hh; + hhh=hh; + while (*h!='\0'&&*h!=close) { + if (*h=='\\') { + *hh=*h; + ++hh; ++h; + if (*h=='\0') break; + if (*h=='\r'&&*(h+1)=='\n') { + *hh=*h; ++hh; ++h; + *hh=*h; ++hh; ++h; + if (*h=='\0') break; + ++hh; ++h; + continue; + } + } else if (*h==(char)8) { + --hh; ++h; + if (hh'||c=='@'|| + c==','||c==';'||c==':'||c=='\\'||c=='"'|| + c=='.'||c=='['||c==']'|| + (ext&&(c=='/'||c=='='||c=='?'))); +} +static inline void remove_mime_headers() { + int h; + for (h=0;h0, + "internal error: unexpected data in buffer",EX_SOFTWARE); + set_decoding_type(); + encoding=decoding; + decode_and_read_to_boundary_encoding_when_full(boundary); + if (smart_footer&&footer!=NULL) { + // alternatively + // if (smart_footer) { + for (;;) { + prefix_pos=pos_of(prefix,0,buffer_read); + if (prefix_pos==EOF) break; + suffix_pos=pos_of(suffix,prefix_pos,buffer_read); + if (suffix_pos==EOF) break; + for (;;) { + later_prefix_pos= + pos_of(prefix,prefix_pos+prefixl,suffix_pos-prefixl); + if (later_prefix_pos!=EOF) prefix_pos=later_prefix_pos; + else break; + } + suffix_pos+=suffixl; + pad(padding,guts,pairs,&prefix_pos,&suffix_pos); + replacement_starts[replacements_count]=prefix_pos; + replacement_ends[replacements_count]=suffix_pos; + // We may not want the last replacement so replace + // with nothing first + replacement_strings[replacements_count]=NULL; + ++replacements_count; + // We want the last replacement; encode it now before + // doing any more encoding + if (removed_footers) encode_string(replacement); + encode_replacements(); + removed_footers=true; + } + } + if (*boundary!='\0'&&(decoding==quoted_printable||decoding==unencoded)) { + // If we're not using base64 encoding, and we're in multipart, there + // will be a final CRLF that is part of the input but logically part of + // the boundary, not the text. Removing the footer may have already + // removed it, so we need to check if it's here or not. + if (buffer_read>1) { + callback_compare="\r\n"; + (void)look(comparing_head,buffer_read-2,false); + callback_compare=NULL; + if (callback_bool) boundary_newline=true; + } + } + if (add_footer&&footer!=NULL) { + // This will skip past the boundary newline + mark_tail(tails); + if (removed_footers&&buffer_mark==0) { + // The last replacement coincides with where the footer + // is going to go; don't use the replacement text. + removed_footers=false; + } + } + if (removed_footers) encode_string(replacement); + if (add_footer&&footer!=NULL) { + if (buffer_mark0) (void)empty(until_no_buffer); +} +static inline void echo_lookbehind() { + make_replacements(echoing_one_char,echoing_until_start_marked); + if (buffer_read>0) (void)empty(echoing_until_no_lookbehind); +} +static inline void encode_lookbehind() { + make_replacements(encoding_one_char,encoding_until_start_marked); + if (buffer_read>0) (void)empty(encoding_until_no_lookbehind); +} +static inline void encode_replacements() { + make_replacements(encoding_one_char,encoding_until_start_marked); +} +static inline void make_replacements(callback_t one_char, + callback_t start_marked) { + int r, minr=0; + const char * c; + if (buffer_read==0) return; + buffer_marked=false; + while (replacements_count>0) { + for (r=0;r0) (void)empty(start_marked); + c = replacement_strings[minr]; + if (c!=NULL) { + while (*c!='\0') { + buffer_char=(int)(unsigned int)*c; + (void)(*one_char)(); + ++c; + } + } + buffer_marked=true; + buffer_mark=replacement_ends[minr]; + for (r=0;r0) (void)empty(until_start_marked); + for (r=minr;r0) (void)empty(encoding_until_start_marked); +} +static inline void echo_disk_buffer() { + if (disk_buffer_filled>0) (void)empty(echoing_until_no_disk_buffer); +} +static inline void encode_disk_buffer() { + if (disk_buffer_filled>0) (void)empty(encoding_until_no_disk_buffer); +} +static inline void skip_disk_buffer() { + if (disk_buffer_filled>0) (void)empty(until_no_disk_buffer); +} +static inline void read_boundary(/*@out@*/ char ** boundary) { + int l=0; + if (buffer_filled>buffer_read) { + callback_bool=false; + callback_int=0; + resort_to_exit(!look(counting_until_eol,buffer_read,false), + "internal error: missing eol at section boundary",EX_SOFTWARE); + l=callback_int-2; // remove the CRLF, but keep the leading '--' + } + // Leave room to append a trailing '--' for testing final boundary; + // the CRLF will be written in this space by saving_until_eol too. + *boundary = alloc_or_exit(sizeof(char)*(l+3)); + if (buffer_filled>buffer_read) { + callback_bool=false; + callback_save=*boundary; + (void)look(saving_until_eol,buffer_read,false); + callback_save=NULL; + } + (*boundary)[l]='\0'; + if (buffer_filled>buffer_read) { + callback_bool=false; + (void)look(until_eol,buffer_read,true); + } +} +static inline void echo_to_boundary(const char * boundary) { + do { + echo_buffer(); + } while (!process_one_line_checking_boundary( + echoing_n_chars,NULL,until_eol,echo,boundary)); +} +static inline void skip_to_boundary(const char * boundary) { + do { + skip_buffer(); + } while (!process_one_line_checking_boundary( + n_chars,NULL,until_eol,discard,boundary)); +} +static inline void decode_and_read_to_boundary_encoding_when_full( + const char * boundary) { + do { + read_buffer(); + } while (!process_one_line_checking_boundary( + encoding_n_chars,decode_lookahead, + decoding_until_eol,encode,boundary)); + finish_decoding(); // This just sets state, doesn't change data +} +static inline bool process_one_line_checking_boundary(callback_t n_chars, + /*@null@*/ function_t process, callback_t processing, + when_full_t when_full, const char * boundary) { + bool stopped_by_design; + if (feof(stdin)!=0) { + // We're done! Call it a boundary (even if it isn't--we need to + // get out of loops cleanly and tidy up as best we can). + return true; + } + // Empty until enough space for boundary + if (mem_buffer_size-mem_buffer_filled<80) { + callback_int=80-(mem_buffer_size-mem_buffer_filled); + (void)empty(n_chars); + } + callback_bool=false; + stopped_by_design=fill(until_eol,stop); + if (stopped_by_design||feof(stdin)!=0) { + if (buffer_filled-buffer_read==0) { + return *boundary=='\0'; + } + callback_bool=false; + if (*boundary!='\0') { + // Can only be at a boundary without being at EOF if there + // really is a boundary + /*@-temptrans@*/ + callback_compare=boundary; + /*@=temptrans@*/ + (void)look(comparing_head,buffer_read,false); + callback_compare=NULL; + } + if (!callback_bool&&process!=NULL) (*process)(); + return callback_bool; + } else { + // Line is too long to be a boundary, so must be decoded + if (process!=NULL) (*process)(); + callback_bool=false; + (void)fill(processing,when_full); + return false; + } +} + +// Return the position of text whose start may occur in the buffer +// anywhere between from and (just before) to. Use EOF for from to +// go from current location; use EOF for to to read indefinitely; +// EOF is returned if text is not found. +static int pos_of(const char * text,int from,int to) { + int saved_buffer_read; + int pos=EOF; + if (*text=='\0') return from; + saved_buffer_read=buffer_read; + if (from!=EOF) buffer_read=from; + callback_match=(int)(unsigned int)*text; + for (;;) { + if (to!=EOF) { + callback_int=to-buffer_read; + if (!look(n_chars_until_match,buffer_read,true)) break; + } else { + if (!look(until_match,buffer_read,true)) break; + } + if (!callback_bool) break; + /*@-temptrans@*/ + callback_compare=text+1; + /*@=temptrans@*/ + (void)look(comparing_head,buffer_read,false); + callback_compare=NULL; + if (callback_bool) { + // Include the first character + pos=buffer_read-1; + break; + } + } + buffer_read=saved_buffer_read; + return pos; +} + +// Look at characters in the buffer, starting at offset from, +// 'reading' if so indicated (and looking at that location). +// The callback is called after updating the reading pointer +// and placing the character in the buffer. The character is +// also passed by means of the buffer_char global. +// EOF is sent to the callback when we run out of data. +// There is no automatic attempt to fill the buffer. +// The callback should return a boolean indicating whether +// to continue. This function will return true if the callback +// indicated to stop (including if it so indicated on EOF), or +// false if it stopped for EOF. +// We always call the callback at least once, so don't call +// this function at all unless you definitely want to look +// at something. +static bool look(callback_t callback,int from,bool read) { + int pos=from; + int disk_buffer_pos; + char * mem_buffer_pos; + if (pos=mem_buffer_end) mem_buffer_pos-=mem_buffer_size; + while (pos=disk_buffer_filled) { + mem_buffer_pos=mem_buffer_next_empty+(pos-disk_buffer_filled); + if (mem_buffer_pos>=mem_buffer_end) mem_buffer_pos-=mem_buffer_size; + while (pos>=disk_buffer_filled) { + buffer_char=(int)(unsigned int)*mem_buffer_pos; + if (!(*callback)()) return true; + --mem_buffer_pos; + if (mem_buffer_pos==mem_buffer_start-1) + mem_buffer_pos=mem_buffer_end-1; + if (mark&&pos==buffer_mark) --buffer_mark; + --pos; + } + } + if (pos>=0&&disk_buffer_filled>0) { + disk_buffer_pos=disk_buffer_start+pos; + // Reading backwards in the disk buffer is potentially very nasty; + // hopefully it never actually happens + while (pos>=0) { + /*@-nullpass@*/ + resort_to_errno(fseek(disk_buffer,disk_buffer_pos,SEEK_SET)!=0, + "error seeking in temporary file",EX_IOERR); + disk_buffer_sought=disk_buffer_pos; + buffer_char=getc(disk_buffer); + /*@=nullpass@*/ + resort_to_errno(buffer_char==EOF, + "error reading temporary file",EX_IOERR); + ++disk_buffer_sought; + if (!(*callback)()) return true; + --disk_buffer_pos; + if (mark&&pos==buffer_mark) --buffer_mark; + --pos; + } + } + if (mark&&buffer_mark==-1) { + buffer_mark=0; + buffer_marked=false; + } + // We don't call the callback on EOF when going backwards + // buffer_char=EOF; + // (void)(*callback)(); + return false; +} +// Remove characters from the (beginning of the) buffer. The same +// general principles as for look() apply. The callback is called +// after the character is removed and all accounting has been done, so +// perhaps the only place you can reliably find the character is in +// the buffer_char global. Again the callback gets an EOF call if +// there's nothing more to empty, and no automatic filling is done. +// The callback and function return values are as for look() and +// again, the callback is always called at least once; this means at +// least one character is always removed from the buffer, so only call +// the function if something definitely should be removed. +static bool empty(callback_t callback) { + if (disk_buffer_filled>0) { + if (disk_buffer_sought!=disk_buffer_start) { + /*@-nullpass@*/ + resort_to_errno(fseek(disk_buffer,disk_buffer_start,SEEK_SET)!=0, + "error seeking in temporary file",EX_IOERR); + /*@=nullpass@*/ + disk_buffer_sought=disk_buffer_start; + } + while (disk_buffer_filled>0) { + /*@-nullpass@*/ + buffer_char=getc(disk_buffer); + /*@=nullpass@*/ + resort_to_errno(buffer_char==EOF, + "error reading temporary file",EX_IOERR); + ++disk_buffer_sought; + ++disk_buffer_start; + --disk_buffer_filled; + --buffer_filled; + if (buffer_read>0) --buffer_read; + if (buffer_marked) { + if (buffer_mark>0) --buffer_mark; + else buffer_marked=false; + } + if (!(*callback)()) return true; + } + } + while (mem_buffer_filled>0) { + buffer_char=(int)(unsigned int)*mem_buffer_next_empty; + ++mem_buffer_next_empty; + if (mem_buffer_next_empty==mem_buffer_end) mem_buffer_next_empty=mem_buffer_start; + --mem_buffer_filled; + --buffer_filled; + if (buffer_read>0) --buffer_read; + if (buffer_marked) { + if (buffer_mark>0) --buffer_mark; + else buffer_marked=false; + } + if (!(*callback)()) return true; + } + buffer_char=EOF; + if (!(*callback)()) return true; + return false; +} +// Get more characters into the (end of the) buffer. The same +// general principles as for look() apply. The callback is called +// after the character is added and all accounting has been done, +// gets the character via buffer_char, including an EOF when no more +// input is available (EOF on stdin). It should return whether to get +// more characters, and this function will return whether its exit was +// requested by the callback or not (the callback may signal EOF is +// an appropriate place to stop and we still return true). +// When the buffer is full there are a number of automatic options +// echo old the data to stdout or call encodechar for it one character +// at a time; shunt a block off to disk, keeping mem_buffer_keep in +// memory, discard it a character at a time, stop (and return false; +// no EOF call is made), or fail (exit). Here 'full' is defined as +// less than mem_buffer_margin of space after adding the most recent +// character, so there is always a bit of space for callbacks to do +// input transformations. Again, at least one character is always +// added (if possible), and thus consumed from stdin, so only call this +// if you really want to do that. +static bool fill(callback_t callback, when_full_t when_full) { + if (feof(stdin)!=0) { + buffer_char=EOF; + if (!(*callback)()) return true; + return false; + } + for (;;) { + /*@-infloops@*/ + while (mem_buffer_filled>=mem_buffer_size-mem_buffer_margin) { + switch (when_full) { + case echo: + if (disk_buffer_filled>0) echo_disk_buffer(); + (void)empty(echoing_one_char); + break; + case encode: + if (disk_buffer_filled>0) encode_disk_buffer(); + (void)empty(encoding_one_char); + break; + case discard: + if (disk_buffer_filled>0) skip_disk_buffer(); + (void)empty(one_char); + break; + case shunt: + shunt_to_disk(mem_buffer_filled-mem_buffer_keep); + break; + case stop: + return false; + case fail: default: + resort_to_exit(true,"buffer full",EX_SOFTWARE); + } + } + /*@=infloops@*/ + buffer_char=get(); + if (buffer_char==EOF) { + resort_to_errno(ferror(stdin)!=0,"error reading input",EX_IOERR); + if (!(*callback)()) return true; + return false; + } + *mem_buffer_next_fill=(char)buffer_char; + ++mem_buffer_next_fill; + if (mem_buffer_next_fill==mem_buffer_end) mem_buffer_next_fill=mem_buffer_start; + ++mem_buffer_filled; + ++buffer_filled; + if (!(*callback)()) return true; + } +} + +static inline void create_disk_buffer() { + int fildes; + fildes=mkstemp(disk_buffer_template); + resort_to_errno(fildes==-1, + "cannot create temporary file",EX_CANTCREAT); + disk_buffer=fdopen(fildes,"rw"); + resort_to_errno(disk_buffer==NULL, + "cannot create temporary stream",EX_CANTCREAT); +} +static void remove_disk_buffer() { + if (disk_buffer!=NULL) { + resort_to_warning(fclose(disk_buffer)!=0, + "error closing temporary file"); + disk_buffer=NULL; + resort_to_warning(unlink(disk_buffer_template)!=0, + "error removing temporary file"); + } +} +static inline void shunt_to_disk(int n) { + if (disk_buffer==NULL) create_disk_buffer(); + if (disk_buffer_sought!=disk_buffer_start+disk_buffer_filled) { + disk_buffer_sought=disk_buffer_start+disk_buffer_filled; + /*@-nullpass@*/ + resort_to_errno(fseek(disk_buffer, + disk_buffer_start+disk_buffer_filled,SEEK_SET)!=0, + "cannot seek to end of temporary file",EX_IOERR); + /*@=nullpass@*/ + } + while (n>0) { + resort_to_exit(mem_buffer_filled==0, + "internal error: shunting too much to disk",EX_SOFTWARE); + /*@-nullpass@*/ + resort_to_errno(putc(*mem_buffer_next_empty,disk_buffer)==EOF, + "error writing to temporary file",EX_IOERR); + /*@=nullpass@*/ + ++disk_buffer_sought; + ++disk_buffer_filled; + ++mem_buffer_next_empty; + if (mem_buffer_next_empty==mem_buffer_end) mem_buffer_next_empty=mem_buffer_start; + --mem_buffer_filled; + --n; + } +} + +/* tag: callback_functions */ + +static bool one_char() { + callback_int=buffer_char; + return false; +} +static bool echoing_one_char() { + if (buffer_char!=EOF) { + resort_to_errno(put(buffer_char)==EOF,"error echoing",EX_IOERR); + } + callback_int=buffer_char; + return false; +} +static bool encoding_one_char() { + if (buffer_char!=EOF) encodechar(buffer_char); + callback_int=buffer_char; + return false; +} +// Set up callback_int before using this. +static bool n_chars() { + return --callback_int>0; +} +// Set up callback_int before using this. +static bool echoing_n_chars() { + if (buffer_char!=EOF) { + resort_to_errno(put(buffer_char)==EOF,"error echoing",EX_IOERR); + } + return --callback_int>0; +} +// Set up callback_int before using this. +static bool encoding_n_chars() { + if (buffer_char!=EOF) encodechar(buffer_char); + return --callback_int>0; +} +// Set up callback_int and callback_save before using this. +static bool saving_n_chars() { + if (buffer_char!=EOF) *callback_save++=(char)buffer_char; + // We don't actually need this, though it's a good idea, really! + // *callback_save='\0'; + return --callback_int>0; +} +// Set up callback_int and callback_match before using this. +static bool n_chars_until_match() { + callback_bool=buffer_char==callback_match; + return --callback_int>0&&buffer_char!=callback_match; +} +// Do callback_bool=false before using this. +static bool until_eol() { + if (buffer_char==(int)'\n') return !callback_bool; + callback_bool=buffer_char==(int)'\r'; + return true; +} +// Do callback_bool=false before using this. +/*static bool echoing_until_eol() { + if (buffer_char!=EOF) { + resort_to_errno(put(buffer_char)==EOF,"error echoing",EX_IOERR); + } + if (buffer_char==(int)'\n') return !callback_bool; + callback_bool=buffer_char==(int)'\r'; + return true; +}*/ +// Do callback_bool=false, callback_int=0 before using this. +static bool counting_until_eol() { + if (buffer_char!=EOF) ++callback_int; + if (buffer_char==(int)'\n') return !callback_bool; + callback_bool=buffer_char==(int)'\r'; + return true; +} +// Do callback_bool=false and set up callback_save before using this. +static bool saving_until_eol() { + if (buffer_char!=EOF) *callback_save++=(char)buffer_char; + // We don't actually need this, though it's a good idea, really! + // *callback_save='\0'; + if (buffer_char==(int)'\n') return !callback_bool; + callback_bool=buffer_char==(int)'\r'; + return true; +} +// Do callback_bool=false before using this. +static bool decoding_until_eol() { + // We decode as we fill and work directly in the buffer to make + // the transformation. We are guaranteed enough space to do this by + // mem_buffer_margin. + decode_t decoded; + decoded=decodechar(buffer_char); + // We always remove the latest undecoded character from the + // buffer. + ++decoded.r; + if (decoded.r>mem_buffer_filled) { + // This will only happen for quoted-printable decoding + // whitespace stripping, and we can just live with it + // if we can't get rid of it all; with sensible constants + // something really is disobeying MIME and probably SMTP + // about line length anyway if this happens. + warning("unable to strip all whitespace; not enough in memory"); + decoded.r=mem_buffer_filled; + } + if (buffer_filled-decoded.r(int)'Z'||c2!=c1-(int)'A'+(int)'a')&& + (c2<(int)'A'||c2>(int)'Z'||c1!=c2-(int)'A'+(int)'a')) { + callback_bool=false; + return false; + } + /*@-modobserver@*/ + ++callback_compare; + /*@=modobserver@*/ + if (*callback_compare=='\0') { + callback_bool=true; + return false; + } + return true; + /*@=nullderef@*/ +} + +/* tag: encoding_functions */ + +static inline void encode_string(const char * s) { + while (*s!='\0') { + encodechar((int)(unsigned int)*s); + s++; + } +} +static void encodechar(int c) { + if (encoding==unencoded) { + if (c!=EOF) resort_to_errno(put(c)==EOF,"error encoding",EX_IOERR); + return; + } else if (encoding==quoted_printable) { + if (encoding_echoed>=68) { + // We need a soft line break, or are close enough to needing + // one (76 chars max; unclear whether that counts the CRLF; and + // we may output two 3 character sequences which we don't want + // to follow with an unescaped CRLF). This scheme will probably + // make mail look a bit awful, but that's fairly standard anyway, + // and it shouldn't degrade. + resort_to_errno(putstr("=\r\n")==EOF, + "error encoding string",EX_IOERR); + encoding_echoed=0; + } + if (encoding_filled==1) { + // Whatever happens, we'll deal with this now + encoding_filled=0; + if (encoding_buffer[0]=='\r') { + if (c==(int)'\n') { + // Output them as is and we're done for now + resort_to_errno(putstr("\r\n")==EOF, + "error encoding string",EX_IOERR); + encoding_echoed=0; + return; + } else { + // Must encode the bare CR and continue as normal + resort_to_errno(put((int)'=')==EOF,"error encoding",EX_IOERR); + encode_hex_byte((unsigned int)'\r'); + encoding_echoed+=3; + } + } else { + // encoding_buffer[0] must be whitespace + if (c==EOF||c==(int)'\r') { + // Must encode it + resort_to_errno(put((int)'=')==EOF,"error encoding",EX_IOERR); + encode_hex_byte((unsigned int)encoding_buffer[0]); + encoding_echoed+=3; + } else { + // It is fine to output it now as something else is coming + resort_to_errno(put( + (int)(unsigned int)encoding_buffer[0])==EOF, + "error encoding",EX_IOERR); + encoding_echoed+=1; + } + } + } + if ((c>=33&&c<=60)||(c>=62&&c<=126)) { + resort_to_errno(put(c)==EOF,"error encoding",EX_IOERR); + ++encoding_echoed; + } else if (c==(int)' '||c==(int)'\t') { + if (encoding_echoed>=55) { + // My concession to readability; since it's likely to be + // a big mess with a 68 character width, we might as well + // break a bit earlier on a nice word boundary. And it'll + // in fact look better if we break with roughly equal size + // lines, assuming they come in at close to 76 characters + // wide, so we might as well make a nice skinny column. + // rather than a ragged one that uses the same amount of + // space. Compromising between the two, then, as some + // formats, like HTML, don't have many hard line breaks + // anyway, is what we get. + resort_to_errno(put(c)==EOF,"error encoding",EX_IOERR); + resort_to_errno(putstr("=\r\n")==EOF, + "error encoding string",EX_IOERR); + encoding_echoed=0; + } else { + // Store it; we may need to encode it if it's at end of line + encoding_filled=1; + encoding_buffer[0]=(char)c; + } + } else if (c==(int)'\r') { + // Store it; '\n' may be coming up + encoding_filled=1; + encoding_buffer[0]='\r'; + } else if (c==EOF) { + // No buffer, and we're done! Reset for another run. + encoding_echoed=0; + } else { + // Anything else must be encoded as a sequence. + resort_to_errno(put((int)'=')==EOF,"error encoding",EX_IOERR); + encode_hex_byte((unsigned int)c); + encoding_echoed+=3; + } + } else if (encoding==base64) { + if (c==EOF) { + // Reset for next run; we won't need it here + encoding_echoed=0; + if (encoding_filled==0) return; + encoding_buffer[encoding_filled]='\0'; + } else { + encoding_buffer[encoding_filled++]=(char)c; + } + if (encoding_filled==3||c==EOF) { + encode_64((((unsigned int)encoding_buffer[0]>>2)&0x3f)); + encode_64((((unsigned int)encoding_buffer[0]&0x03)<<4)| + (((unsigned int)encoding_buffer[1]>>4)&0x0f)); + if (encoding_filled==1) { + resort_to_errno(put((int)'=')==EOF,"error encoding",EX_IOERR); + resort_to_errno(put((int)'=')==EOF,"error encoding",EX_IOERR); + // Reset for next run + encoding_filled=0; + return; + } + encode_64((((unsigned int)encoding_buffer[1]&0x0f)<<2)| + (((unsigned int)encoding_buffer[2]>>6)&0x03)); + if (encoding_filled==2) { + resort_to_errno(put((int)'=')==EOF,"error encoding",EX_IOERR); + // Reset for next run + encoding_filled=0; + return; + } + encode_64((((unsigned int)encoding_buffer[2]&0x3f))); + encoding_echoed+=4; + if (encoding_echoed>=72) { + resort_to_errno(putstr("\r\n")==EOF, + "error encoding string",EX_IOERR); + encoding_echoed=0; + } + encoding_filled=0; + } + } else { + resort_to_exit(true,"internal error: unknown encoding",EX_SOFTWARE); + } +} +static inline void finish_encoding() { + encodechar(EOF); +} +// The function takes an input character c and returns up to four output +// characters (a character will be EOF to indicate no further characters +// to store; note that this doesn't mean there will be no more ever; only +// if EOF is returned when EOF was input does it meant this), and a number +// of characters to remove before adding the aforementioned characters. +static decode_t decodechar(int c) { + int h; + unsigned int b1, b2, b3, b4; + decode_t o; + o.r=0; o.c1=EOF; o.c2=EOF; o.c3=EOF; + if (decoding==unencoded) { + o.c1=c; + return o; + } else if (decoding==quoted_printable) { + // decoding_buffer may hold '=' and maybe a hex digit or a CR. + if (decoding_filled==2) { + // Whatever happens, it's all settled now. + decoding_filled=0; + if (decoding_buffer[1]=='\r') { + if (c==(int)'\n') { return o; } + // Invalid; leave as is--will be encoded later. + o.c1=(int)'='; o.c2=(int)'\r'; o.c3=c; + return o; + } + h=decode_hex(c); + if (h==EOF) { + // Invalid; leave as is--will be encoded later. + o.c1=(int)'='; o.c2=(int)(unsigned int)decoding_buffer[1]; o.c3=c; + return o; + } + // We have a full sequence representing a single character. + o.c1=decode_hex((int)(unsigned int)decoding_buffer[1])*16+h; + return o; + } else if (decoding_filled==1) { + if (c==(int)'\r'||decode_hex(c)!=EOF) { + // Valid character after = + decoding_filled=2; + decoding_buffer[1]=(char)c; + return o; + } + // Invalid; leave as is--will be encoded later. + decoding_filled=0; + o.c1=(int)'='; o.c2=c; + return o; + } else if (decoding_filled==0) { + if (c==(int)'=') { + // The first character can only ever be '=' so we + // don't actually bother to store it; just say it's there. + decoding_white=0; + decoding_filled=1; + return o; + } + // Keep track of whitespace. + if (c==(int)' '||c==(int)'\t') ++decoding_white; + else decoding_white=0; + // Remove trailing whitespace. + if (c==EOF||c==(int)'\r') { o.r=decoding_white; decoding_white=0; } + // Otherwise we just keep it. If it's EOF, we're done. + o.c1=c; + return o; + } else { + warning("internal error: decoding buffer too full"); + return o; + } + } else if (decoding==base64) { + if (c==EOF) { + // Just in case it was corrupted, make sure we're reset + decoding_filled=0; + return o; + } + if (c==(int)'='||decode_64(c)!=EOF) + decoding_buffer[decoding_filled++]=(char)c; + if (decoding_filled==4) { + // We empty it whatever happens here + decoding_filled=0; + b1=(unsigned int)decode_64((int)decoding_buffer[0]); + b2=(unsigned int)decode_64((int)decoding_buffer[1]); + o.c1=(int)(((b1&0x3f)<<2)|((b2>>4)&0x03)); + if (decoding_buffer[2]=='=') return o; + b3=(unsigned int)decode_64((int)decoding_buffer[2]); + o.c2=(int)(((b2&0x0f)<<4)|((b3>>2)&0x0f)); + if (decoding_buffer[3]=='=') return o; + b4=(unsigned int)decode_64((int)decoding_buffer[3]); + o.c3=(int)(((b3&0x03)<<6)|(b4&0x3f)); + } + return o; + } else { + resort_to_exit(true,"internal error: unknown encoding",EX_SOFTWARE); + // Never reached + return o; + } +} +static void decode_lookahead() { + // Decoding will always shrink, so this is quite easy + char * c; + char * cc; + decode_t decoded; + int pos=buffer_read; + int decpos=buffer_read; + resort_to_exit(buffer_read=mem_buffer_end) c-=mem_buffer_size; + cc=c; + while (pos0) { + resort_to_exit(decpos-decoded.r=(int)'0'&&c<=(int)'9') return c-(int)'0'; + if (c>=(int)'A'&&c<=(int)'F') return c-(int)'A'+10; + return EOF; +} +static inline int decode_64(int c) { + if (c>=(int)'A'&&c<=(int)'Z') return c-(int)'A'; + if (c>=(int)'a'&&c<=(int)'z') return c-(int)'a'+26; + if (c>=(int)'0'&&c<=(int)'9') return c-(int)'0'+52; + if (c==(int)'+') return 62; + if (c==(int)'/') return 63; + // if (c==(int)'=') return EOF; + return EOF; +} +static inline void encode_hex_byte(unsigned int h) { + int h1=(int)((h>>4)&0x0f); + int h2=(int)(h&0x0f); + if (h1<10) resort_to_errno(put((int)'0'+h1)==EOF,"error encoding",EX_IOERR); + else if (h1<16) + resort_to_errno(put((int)'A'+h1-10)==EOF,"error encoding",EX_IOERR); + else resort_to_exit(true,"internal error: byte too large",EX_SOFTWARE); + if (h2<10) resort_to_errno(put((int)'0'+h2)==EOF,"error encoding",EX_IOERR); + else if (h2<16) + resort_to_errno(put((int)'A'+h2-10)==EOF,"error encoding",EX_IOERR); + else resort_to_exit(true,"internal error: byte too large",EX_SOFTWARE); +} +static inline void encode_64(unsigned int b) { + if (b<26) + resort_to_errno(put((int)'A'+b)==EOF,"error encoding",EX_IOERR); + else if (b<52) + resort_to_errno(put((int)'a'+b-26)==EOF,"error encoding",EX_IOERR); + else if (b<62) + resort_to_errno(put((int)'0'+b-52)==EOF,"error encoding",EX_IOERR); + else if (b==62) + resort_to_errno(put((int)'+')==EOF,"error encoding",EX_IOERR); + else if (b==63) + resort_to_errno(put((int)'/')==EOF,"error encoding",EX_IOERR); + else resort_to_exit(true, + "internal error: base64 value too large",EX_SOFTWARE); +} + +/* tag: error_functions */ + +// Syslog constants: +// level: LOG_ERR, LOG_WARNING, LOG_NOTICE, LOG_INFO, LOG_DEBUG +// facility: LOG_MAIL, LOG_DAEMON, LOG_USER, LOG_LOCALn(0-7) + +static inline void * alloc_or_exit(size_t s) /*@allocates result@*/ { + void * m; + m=malloc(s); + if (m==NULL) { +#ifdef USE_STDERR + fprintf(stderr,"foot_filter: %s\n","out of memory"); +#endif +#ifdef USE_SYSLOG + syslog(LOG_ERR|LOG_MAIL,"%s\n","out of memory"); +#endif + exit(EX_OSERR); + } + return m; +} +static inline void /*noreturnwhentrue*/ + resort_to_exit(bool when,const char * message,int status) { + if (when) { +#ifdef USE_STDERR + fprintf(stderr,"foot_filter: %s\n",message); +#endif +#ifdef USE_SYSLOG + syslog(LOG_ERR|LOG_MAIL,"%s\n",message); +#endif + exit(status); + } +} +static inline void /*noreturnwhentrue*/ + resort_to_errno(bool when,const char * message,int status) { + if (when) { +#ifdef USE_STDERR + fprintf(stderr,"foot_filter: %s (%s)\n",message,strerror(errno)); +#endif +#ifdef USE_SYSLOG + syslog(LOG_ERR|LOG_MAIL,"%s (%m)\n",message); +#endif + exit(status); + } +} +static inline void resort_to_warning(bool when,const char * message) { + if (when) warning(message); +} +static inline void warning(const char * message) { +#ifdef USE_STDERR + fprintf(stderr,"foot_filter: %s\n",message); +#endif +#ifdef USE_SYSLOG + syslog(LOG_WARNING|LOG_MAIL,"%s\n",message); +#endif +} + +/* tag: helper_functions */ + +// The program was written following all the specs using CRLF for newlines, +// but we get them from Postfix with LF only, so these wrapper functions +// do the translation in such a way that it can easily be disabled if desired. +static inline int get() { + int c; +#ifdef UNIX_EOL + static bool got_nl=false; + if (got_nl) { + got_nl=false; + return 10; + } +#endif + c=getchar(); +#ifdef UNIX_EOL + if (c==10) { + got_nl=true; + return 13; + } +#endif + return c; +} +static inline int put(int c) { +#ifdef UNIX_EOL + if (c==13) return c; +#endif + return putchar(c); +} +static inline int putstr(const char * s) { + while (*s!='\0') if (put((int)(unsigned int)*s++)==EOF) return EOF; + return 0; +} + +static inline bool case_insensitively_heads(const char * head,const char * buffer) { + const char * s1=head; + const char * s2=buffer; + for (;;) { + if (*s1=='\0') return true; /* for equality return *s2=='\0'; */ + else if (*s2=='\0') return false; + if (*s1!=*s2&& + (*s1<'A'||*s1>'Z'||*s2!=*s1-'A'+'a')&& + (*s2<'A'||*s2>'Z'||*s1!=*s2-'A'+'a')) return false; + ++s1; ++s2; + } +} + diff --git a/misc/move/mlmmj-footer-receive b/misc/move/mlmmj-footer-receive new file mode 100755 index 0000000..66308e3 --- /dev/null +++ b/misc/move/mlmmj-footer-receive @@ -0,0 +1,8 @@ +#!/bin/bash +# +# mlmmj-footer-receive +# +# Adds the footer to incoming message +# + +/usr/bin/foot_filter -P /$1/$2/control/footer-text -H /$1/$2/control/footer-html | /usr/bin/mlmmj-receive -F -L /$1/$2/ diff --git a/misc/smarty/templates_c/085c43aa609e2e11c05d0026471aaaa2a26be865_0.file.error.tpl.php b/misc/smarty/templates_c/085c43aa609e2e11c05d0026471aaaa2a26be865_0.file.error.tpl.php new file mode 100644 index 0000000..1e4fb21 --- /dev/null +++ b/misc/smarty/templates_c/085c43aa609e2e11c05d0026471aaaa2a26be865_0.file.error.tpl.php @@ -0,0 +1,57 @@ +_decodeProperties($_smarty_tpl, array ( + 'version' => '3.1.31', + 'unifunc' => 'content_588b2f056f0767_75452529', + 'has_nocache_code' => false, + 'file_dependency' => + array ( + '085c43aa609e2e11c05d0026471aaaa2a26be865' => + array ( + 0 => '/var/www/html/smarty/templates_ru/error.tpl', + 1 => 1485516367, + 2 => 'file', + ), + ), + 'includes' => + array ( + ), +),false)) { +function content_588b2f056f0767_75452529 (Smarty_Internal_Template $_smarty_tpl) { +?> + + + + + + +
+ tpl_vars['error_code']->value == 1) {?> + Домен может содержать только латинские буквы, точки, дефисы и цифры. + tpl_vars['error_code']->value == 2) {?> + Пароль может содержать только латинские буквы и цифры. + tpl_vars['error_code']->value == 3) {?> + Неверный пароль. + tpl_vars['error_code']->value == 4) {?> + Такой домен не зарегистрирован. + tpl_vars['error_code']->value == 5) {?> + Название рассылки может содержать только латинские буквы, цифры и символы нижнего подчёркивания. + tpl_vars['error_code']->value == 6) {?> + Длина названия рассылки не может превышать 30-ти символов. + tpl_vars['error_code']->value == 7) {?> + Длина префикса не может превышать 128-ти символов. + tpl_vars['error_code']->value == 8) {?> + Длина подписи не может превышать 1024-ти символов. + tpl_vars['error_code']->value == 9) {?> + Среди подписчиков есть некорректный e-mail. + + Неизвестная ошибка. + +
+ + +_decodeProperties($_smarty_tpl, array ( + 'version' => '3.1.31', + 'unifunc' => 'content_5890e7cc706e70_54046020', + 'has_nocache_code' => false, + 'file_dependency' => + array ( + '0b36f150fb6660b8982bed805054bb093a12538d' => + array ( + 0 => '/var/www/html/misc/smarty/templates_en/index.tpl', + 1 => 1485850802, + 2 => 'file', + ), + ), + 'includes' => + array ( + ), +),false)) { +function content_5890e7cc706e70_54046020 (Smarty_Internal_Template $_smarty_tpl) { +?> + + + + +> + function validate_form() + { + var name = document.getElementById('add_list_input').value; + var name = name.toLowerCase(); + + if (name == "") + { + return false; + } + + if (name.length > 30) + { + alert("Название списка рассылки должно содержать не более 30-ти символов."); + return false; + } + + if ( name.match(/[^a-z0-9_]/) ) + { + alert("Название списка рассылки может содержать только латинские буквы, цифры и символы нижнего подчёркивания."); + return false; + } + } + + function confirm_delete() + { + return confirm("Вы действительно хотите удалить список рассылки?"); + } + +> + + + + +
+
+ Все листы рассылок: +   +
+ + + Добавляйте и удаляйте списки рассыки с помощью данной формы. Вы можете редактировать список, кликнув по его названию. + Письмо в рассылку отправляется на адрес example@tpl_vars['domain']->value;?> +, где example – имя рассылки. + +
+
+ + smarty->ext->_foreach->init($_smarty_tpl, $_smarty_tpl->tpl_vars['lists']->value, 'list'); +if ($_from !== null) { +foreach ($_from as $_smarty_tpl->tpl_vars['list']->value) { +?> + + + + + + smarty->ext->_foreach->restore($_smarty_tpl, 1); +?> + +
+ • + + tpl_vars['list']->value;?> + + + +
+
+
+ +   + +
+
+
+ + +_decodeProperties($_smarty_tpl, array ( + 'version' => '3.1.31', + 'unifunc' => 'content_5873c743903c86_86143891', + 'has_nocache_code' => false, + 'file_dependency' => + array ( + '33a0e2a90d50b199feaa83030d7da2c9680cee0a' => + array ( + 0 => '/var/www/html/smarty/templates/edit_list.tpl', + 1 => 1483982647, + 2 => 'file', + ), + ), + 'includes' => + array ( + ), +),false)) { +function content_5873c743903c86_86143891 (Smarty_Internal_Template $_smarty_tpl) { +?> + + + +
+
+ + Список подписчиков: +

+ +

+ + Тип рассылки: + +

+ Подпись: +

+ +

+ Список модераторов: +

+ +

+ Префикс: + +

+ +

+
+ + +_decodeProperties($_smarty_tpl, array ( + 'version' => '3.1.31', + 'unifunc' => 'content_588e3ba3c46a98_78970628', + 'has_nocache_code' => false, + 'file_dependency' => + array ( + '53d7e28d1426936f3a3d534fc6fbcdf5d2e8c239' => + array ( + 0 => '/var/www/html/misc/smarty/templates_ru/login.tpl', + 1 => 1485716381, + 2 => 'file', + ), + ), + 'includes' => + array ( + ), +),false)) { +function content_588e3ba3c46a98_78970628 (Smarty_Internal_Template $_smarty_tpl) { +?> + + + + +> + function validate_form() + { + var domain = document.getElementById('domain_input').value; + var password = document.getElementById('password_input').value; + + if (domain == "") + { + alert("Введите домен."); + return false; + } + + if (password == "") + { + alert("Введите пароль."); + return false; + } + if ( domain.match(/[^A-Za-z0-9\-\.]/) ) + { + alert("Домен может содержать только латинские буквы, цифры, точки и дефисы."); + return false; + } + if ( password.match(/[^A-Za-z0-9]/) ) + { + alert("Пароль может содержать только латинские буквы и цифры."); + return false; + } + } + +> + + + +
+
+
+
+
+ Домен: +
+
+ +
+
+
+
+ Пароль: +
+
+ +
+
+
+ +
+
+
+
+ + +_decodeProperties($_smarty_tpl, array ( + 'version' => '3.1.31', + 'unifunc' => 'content_5869ce142bdbc4_61874071', + 'has_nocache_code' => false, + 'file_dependency' => + array ( + '569f7c9bad1e95dec6a51c7c51b98d4db367f54c' => + array ( + 0 => '/var/www/html/smarty/templates/index.tpl', + 1 => 1483329013, + 2 => 'file', + ), + ), + 'includes' => + array ( + ), +),false)) { +function content_5869ce142bdbc4_61874071 (Smarty_Internal_Template $_smarty_tpl) { +?> + + + +
+

Список рассылок:

+ smarty->ext->_foreach->init($_smarty_tpl, $_smarty_tpl->tpl_vars['lists']->value, 'list'); +if ($_from !== null) { +foreach ($_from as $_smarty_tpl->tpl_vars['list']->value) { +?> + tpl_vars['list']->value;?> + [Удалить]
+ smarty->ext->_foreach->restore($_smarty_tpl, 1); +?> + +
+
+ Имя рассылки: +
+
+ + +_decodeProperties($_smarty_tpl, array ( + 'version' => '3.1.31', + 'unifunc' => 'content_5869d7d16e2888_57689057', + 'has_nocache_code' => false, + 'file_dependency' => + array ( + '617b12a6bfb47e737ab55bf29207ecb92147b506' => + array ( + 0 => '/var/www/html/smarty/templates/login.tpl', + 1 => 1483329039, + 2 => 'file', + ), + ), + 'includes' => + array ( + ), +),false)) { +function content_5869d7d16e2888_57689057 (Smarty_Internal_Template $_smarty_tpl) { +?> + + + +
+
+ Домен: +

+ Пароль: +

+ +

+
+ + +_decodeProperties($_smarty_tpl, array ( + 'version' => '3.1.31', + 'unifunc' => 'content_5888e7322dafc3_21846058', + 'has_nocache_code' => false, + 'file_dependency' => + array ( + '6820e2ed7eda3869d8307c28df0b8fa212af00dd' => + array ( + 0 => '/var/www/html/smarty/templates_ru/index.tpl', + 1 => 1485367020, + 2 => 'file', + ), + ), + 'includes' => + array ( + ), +),false)) { +function content_5888e7322dafc3_21846058 (Smarty_Internal_Template $_smarty_tpl) { +?> + + + + +> + function validate_form() + { + var name = document.getElementById('add_list_input').value; + var name = name.toLowerCase(); + + if (name == "") + { + return false; + } + + if (name.length > 30) + { + alert("Название списка рассылки должно содержать не более 30-ти символов."); + return false; + } + + if ( name.match(/[^a-z0-9_]/) ) + { + alert("Название списка рассылки может содержать только латинские буквы, цифры и символы нижнего подчёркивания."); + return false; + } + } + +> + + + + +
+
+ Все листы рассылок: +   +
+ + + Добавить новый лист рассылки можно введя его имя в поле ввода и нажав кнопку "Добавить". + Название может содержать до 30-ти латинских букв, цифр и символов нижнего подчёркивания. + Удаление листа рассылки производится с помощью пиктограммы в виде мусорной корзины. + Вы можете редактировать лист, кликнув по его названию. + +
+
+ + smarty->ext->_foreach->init($_smarty_tpl, $_smarty_tpl->tpl_vars['lists']->value, 'list'); +if ($_from !== null) { +foreach ($_from as $_smarty_tpl->tpl_vars['list']->value) { +?> + + + + + + smarty->ext->_foreach->restore($_smarty_tpl, 1); +?> + +
+ • + + tpl_vars['list']->value;?> + + + +
+
+
+ +   + +
+
+
+ + +_decodeProperties($_smarty_tpl, array ( + 'version' => '3.1.31', + 'unifunc' => 'content_5890e7c59eb3e0_65385644', + 'has_nocache_code' => false, + 'file_dependency' => + array ( + '6a01fa4a4840b59937570aeacc80d159739f4ab1' => + array ( + 0 => '/var/www/html/misc/smarty/templates_en/edit_list.tpl', + 1 => 1485891494, + 2 => 'file', + ), + ), + 'includes' => + array ( + ), +),false)) { +function content_5890e7c59eb3e0_65385644 (Smarty_Internal_Template $_smarty_tpl) { +?> + + + + +> + // Do not use Smarty here + function switch_moderators_form() + { + // Get a selected value + var select = document.getElementById("list_type"); + var selected_value = select.options[select.selectedIndex].value; + + // If selected conference list type, then disable moderators form + if (selected_value == "2") + { + document.getElementById("moderators").disabled = true; + document.getElementById("moderators_header").style.color = "#777777"; + } + else + { + document.getElementById("moderators").disabled = false; + document.getElementById("moderators_header").style.color = "#222222"; + } + } + + function validate_form() + { + var prefix = document.getElementById('prefix').value; + var footer = document.getElementById('footer').value; + var subscribers = document.getElementById('subscribers').value; + var moderators = document.getElementById('moderators').value; + + // Regex for a valid e-mail + var re_email = /^(([^<>()\[\]\\.,;:\s@"]+(\.[^<>()\[\]\\.,;:\s@"]+)*)|(".+"))@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}])|(([a-zA-Z\-0-9]+\.)+[a-zA-Z]{2,}))$/; + + // Transform subscribers and moderators into array + subscribers = subscribers.split("\n"); + moderators = moderators.split("\n"); + + if (prefix.length > 128) + { + alert("A prefix length can not be longer than 128 characters."); + return false; + } + + if (footer.length > 1024) + { + alert("A footer length can not be longer than 1024 characters."); + return false; + } + + for(var i in subscribers) + { + if ( subscribers[i] != "" && !re_email.test(subscribers[i]) ) + { + alert('Subscriber "' + subscribers[i] + '" (line #' + (parseFloat(i)+1) + ') have incorrect email.'); + return false; + } + } + + for(var i in moderators) + { + if ( moderators[i] != "" && !re_email.test(moderators[i]) ) + { + alert('Moderator "' + moderators[i] + '" (line #' + (parseFloat(i)+1) + ') have incorrect email.'); + return false; + } + } + } + // + +> + + + + +
+
+ +
+
+ Subscribers:  +
+ + + Please, provide one email per line. Do not forget add moderators if you + want them able to post into mailing list. + +
+
+
+ +
+
+
+
+
+ + + + + + + + + + + + + + + + +
+
+
+ + + Moderated list: you assign subscribers and moderators. Messages will be + moderated before publishing.

+ News list: everybody can subscribe without moderator confirmation by sending + an empty email to tpl_vars['list_name']->value;?> ++subscribe@tpl_vars['domain']->value;?> +. Messages into mailing list can + post only moderators.

+ Conference: IRC channel analogue. You assign subscribers, every subscriber + can send messages without moderation. + +
+  List type: +
+ 		+ +
+
+
+ + + Prefix added to the subject field of each message. + +
+  Prefix: +
+ 		+ +" id="prefix"> +
+ + + +
+
+
+
+ + + Sender of a post will be excluded from the distribution list for + that post so people don't receive copies of their own posts. + +
+ tpl_vars['notmetoo_checked']->value;?> +> + Do not send mails to yourself. +
+
+
+
+
+ +
+
+
+
+
+ Moderators:  +
+ + + In case of moderated list messages before publishing will be send to these + emails. In case of news list only these emails can post to mailing list. + In case of conference there are no moderators. + +
+
+
+ +
+
+
+
+ + +_decodeProperties($_smarty_tpl, array ( + 'version' => '3.1.31', + 'unifunc' => 'content_5890eda331cf62_87676770', + 'has_nocache_code' => false, + 'file_dependency' => + array ( + '74de2eb1870f65e47bdebde8c12ed050e90ded57' => + array ( + 0 => '/var/www/html/misc/smarty/templates_ru/index.tpl', + 1 => 1485892241, + 2 => 'file', + ), + ), + 'includes' => + array ( + ), +),false)) { +function content_5890eda331cf62_87676770 (Smarty_Internal_Template $_smarty_tpl) { +?> + + + + +> + function validate_form() + { + var name = document.getElementById('add_list_input').value; + var name = name.toLowerCase(); + + if (name == "") + { + return false; + } + + if (name.length > 30) + { + alert("Название списка рассылки должно содержать не более 30-ти символов."); + return false; + } + + if ( name.match(/[^a-z0-9_]/) ) + { + alert("Название списка рассылки может содержать только латинские буквы, цифры и символы нижнего подчёркивания."); + return false; + } + } + + function confirm_delete() + { + return confirm("Вы действительно хотите удалить список рассылки?"); + } + +> + + + + +
+
+ Все листы рассылок: +   +
+ + + Добавляйте и удаляйте списки рассылки с помощью данной формы. Вы можете редактировать список, кликнув по его названию. + Письмо в рассылку отправляется на адрес example@tpl_vars['domain']->value;?> +, где example – имя рассылки. + +
+
+ + smarty->ext->_foreach->init($_smarty_tpl, $_smarty_tpl->tpl_vars['lists']->value, 'list'); +if ($_from !== null) { +foreach ($_from as $_smarty_tpl->tpl_vars['list']->value) { +?> + + + + + + smarty->ext->_foreach->restore($_smarty_tpl, 1); +?> + +
+ • + + tpl_vars['list']->value;?> + + + +
+
+
+ +   + +
+
+
+ + +_decodeProperties($_smarty_tpl, array ( + 'version' => '3.1.31', + 'unifunc' => 'content_589041dd3259d1_17665347', + 'has_nocache_code' => false, + 'file_dependency' => + array ( + '9f1de615a6b90a928a6f77b08d01bdc17781ec0b' => + array ( + 0 => '/var/www/html/misc/smarty/templates_ru/edit_list.tpl', + 1 => 1485849048, + 2 => 'file', + ), + ), + 'includes' => + array ( + ), +),false)) { +function content_589041dd3259d1_17665347 (Smarty_Internal_Template $_smarty_tpl) { +?> + + + + +> + // Do not use Smarty here + function switch_moderators_form() + { + // Get a selected value + var select = document.getElementById("list_type"); + var selected_value = select.options[select.selectedIndex].value; + + // If selected conference list type, then disable moderators form + if (selected_value == "2") + { + document.getElementById("moderators").disabled = true; + document.getElementById("moderators_header").style.color = "#777777"; + } + else + { + document.getElementById("moderators").disabled = false; + document.getElementById("moderators_header").style.color = "#222222"; + } + } + + function validate_form() + { + var prefix = document.getElementById('prefix').value; + var footer = document.getElementById('footer').value; + var subscribers = document.getElementById('subscribers').value; + var moderators = document.getElementById('moderators').value; + + // Regex for a valid e-mail + var re_email = /^(([^<>()\[\]\\.,;:\s@"]+(\.[^<>()\[\]\\.,;:\s@"]+)*)|(".+"))@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}])|(([a-zA-Z\-0-9]+\.)+[a-zA-Z]{2,}))$/; + + // Transform subscribers and moderators into array + subscribers = subscribers.split("\n"); + moderators = moderators.split("\n"); + + if (prefix.length > 128) + { + alert("Длина префикса не должна превышать 128-ми символов."); + return false; + } + + if (footer.length > 1024) + { + alert("Длина подписи не должна превышать 1024-ёх символов."); + return false; + } + + for(var i in subscribers) + { + if ( subscribers[i] != "" && !re_email.test(subscribers[i]) ) + { + alert('Подписчик "' + subscribers[i] + '" (строка №' + (parseFloat(i)+1) + ') является невалидным адресом электронной почты.'); + return false; + } + } + + for(var i in moderators) + { + if ( moderators[i] != "" && !re_email.test(moderators[i]) ) + { + alert('Модератор "' + moderators[i] + '" (строка №' + (parseFloat(i)+1) + ') является невалидным адресом электронной почты.'); + return false; + } + } + } + // + +> + + + + +
+
+ +
+
+ Список подписчиков:  +
+ + + Добавляйте по одному почтовому адресу в каждой строке. Не забудьте добавить + модераторов, если хотите, чтобы они также могли писать в рассылку. + +
+
+
+ +
+
+
+
+
+ + + + + + + + + + + + + + + + +
+
+
+ + + Модерируемая рассылка: подписчиков устанавливаете Вы, сообщения + от обычных участников проходят модерацию.

+ Новостная рассылка: подписаться может кто угодно, отправив пустое письмо + на tpl_vars['list_name']->value;?> ++subscribe@tpl_vars['domain']->value;?> +, при этом подтверждение модератора не требуется. + Письма в рассылку могут отправлять только модераторы.

+ Конференция: аналог канала в IRC. Подписчиков устанавливаете Вы, + сообщения может отправлять любой подписчик без модерации. + +
+  Тип рассылки: +
+ 		+ +
+
+
+ + + Текст, добавляемый в начало заголовка каждого сообщения рассылки. + +
+  Префикс: +
+ 		+ +" id="prefix"> +
+ + + +
+
+
+
+ + + Отправитель будет исключён из списка рассылки для своего сообщения. + Это означает, что ему не будут приходить копии своих сообщений. + +
+ tpl_vars['notmetoo_checked']->value;?> +> + Не отправлять копию своих сообщений. +
+
+
+
+
+ +
+
+
+
+
+ Список модераторов:  +
+ + + Для модерируемой рассылки на эти email будут отправляться письма перед их + опубликованием в рассылку. Для новостной рассылки только эти адреса могут + могут писать в рассылку. Для конференции модераторы не предумотрены. + +
+
+
+ +
+
+
+
+ + +_decodeProperties($_smarty_tpl, array ( + 'version' => '3.1.31', + 'unifunc' => 'content_588dcdb0c8d950_81798250', + 'has_nocache_code' => false, + 'file_dependency' => + array ( + 'aa00a58a15f019bd5c0612378cd3ff5f5b6adcae' => + array ( + 0 => '/var/www/html/misc/smarty/templates_ru/error.tpl', + 1 => 1485688232, + 2 => 'file', + ), + ), + 'includes' => + array ( + ), +),false)) { +function content_588dcdb0c8d950_81798250 (Smarty_Internal_Template $_smarty_tpl) { +?> + + + + + + +
+ tpl_vars['error_code']->value == 1) {?> + Домен может содержать только латинские буквы, точки, дефисы и цифры. + tpl_vars['error_code']->value == 2) {?> + Пароль может содержать только латинские буквы и цифры. + tpl_vars['error_code']->value == 3) {?> + Неверный пароль. + tpl_vars['error_code']->value == 4) {?> + Такой домен не зарегистрирован. + tpl_vars['error_code']->value == 5) {?> + Название рассылки может содержать только латинские буквы, цифры и символы нижнего подчёркивания. + tpl_vars['error_code']->value == 6) {?> + Длина названия рассылки не может превышать 30-ти символов. + tpl_vars['error_code']->value == 7) {?> + Длина префикса не может превышать 128-ти символов. + tpl_vars['error_code']->value == 8) {?> + Длина подписи не может превышать 1024-ти символов. + tpl_vars['error_code']->value == 9) {?> + Среди подписчиков есть некорректный e-mail. + tpl_vars['error_code']->value == 10) {?> + Среди модераторов есть некорректный e-mail. + + Неизвестная ошибка. + +
+ + +_decodeProperties($_smarty_tpl, array ( + 'version' => '3.1.31', + 'unifunc' => 'content_58878934506f48_92126530', + 'has_nocache_code' => false, + 'file_dependency' => + array ( + 'ccdf76791105fd7c77f366b69d3a18e59c5c2b67' => + array ( + 0 => '/var/www/html/smarty/templates_ru/login.tpl', + 1 => 1485277488, + 2 => 'file', + ), + ), + 'includes' => + array ( + ), +),false)) { +function content_58878934506f48_92126530 (Smarty_Internal_Template $_smarty_tpl) { +?> + + + + +> + function validate_form() + { + var domain = document.getElementById('domain_input').value; + var password = document.getElementById('password_input').value; + + if (domain == "") + { + alert("Введите домен."); + return false; + } + + if (password == "") + { + alert("Введите пароль."); + return false; + } + } + +> + + + +
+
+
+
+
+ Домен: +
+
+ +
+
+
+
+ Пароль: +
+
+ +
+
+
+ +
+
+
+
+ + +_decodeProperties($_smarty_tpl, array ( + 'version' => '3.1.31', + 'unifunc' => 'content_588b8aa37593d1_30807545', + 'has_nocache_code' => false, + 'file_dependency' => + array ( + 'fb61d69ef038dcd720aa2782f00f9ee0f411ff19' => + array ( + 0 => '/var/www/html/smarty/templates_ru/edit_list.tpl', + 1 => 1485537120, + 2 => 'file', + ), + ), + 'includes' => + array ( + ), +),false)) { +function content_588b8aa37593d1_30807545 (Smarty_Internal_Template $_smarty_tpl) { +?> + + + + +> + // Do not use Smarty here + function switch_moderators_form() + { + // Get a selected value + var select = document.getElementById("list_type"); + var selected_value = select.options[select.selectedIndex].value; + + // If selected conference list type, then disable moderators form + if (selected_value == "2") + { + document.getElementById("moderators").disabled = true; + document.getElementById("moderators_header").style.color = "#777777"; + } + else + { + document.getElementById("moderators").disabled = false; + document.getElementById("moderators_header").style.color = "#222222"; + } + } + + function validate_form() + { + var prefix = document.getElementById('prefix').value; + var footer = document.getElementById('footer').value; + var subscribers = document.getElementById('subscribers').value; + var moderators = document.getElementById('moderators').value; + + // Regex for a valid e-mail + var re_email = /^(([^<>()\[\]\\.,;:\s@"]+(\.[^<>()\[\]\\.,;:\s@"]+)*)|(".+"))@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}])|(([a-zA-Z\-0-9]+\.)+[a-zA-Z]{2,}))$/; + + // Transform subscribers and moderators into array + subscribers = subscribers.split("\n"); + moderators = moderators.split("\n"); + + if (prefix.length > 128) + { + alert("Длина префикса не должна превышать 128-ми символов."); + return false; + } + + if (footer.length > 1024) + { + alert("Длина подписи не должна превышать 1024-ёх символов."); + return false; + } + + for(var i in subscribers) + { + if ( subscribers[i] != "" && !re_email.test(subscribers[i]) ) + { + alert('Подписчик "' + subscribers[i] + '" (строка №' + (parseFloat(i)+1) + ') является невалидным адресом электронной почты.'); + return false; + } + } + + for(var i in moderators) + { + if ( moderators[i] != "" && !re_email.test(moderators[i]) ) + { + alert('Модератор "' + moderators[i] + '" (строка №' + (parseFloat(i)+1) + ') является невалидным адресом электронной почты.'); + return false; + } + } + } + // + +> + + + + +
+
+ +
+
+ Список подписчиков:  +
+ + + Добавляйте по одному почтовому адресу в каждой строке. Не забудьте добавить + модераторов, если хотите, чтобы они также могли писать в рассылку. + +
+
+
+ +
+
+
+
+
+ + + + + + + + + + + + + +
+
+
+ + + Модерируемая рассылка: подписчиков устанавливаете Вы, сообщения + от обычных участников проходят модерацию.

+ Новостная рассылка: подписаться может кто угодно, отправив пустое письмо + на tpl_vars['list_name']->value;?> ++subscribe@tpl_vars['domain']->value;?> +, при этом подтверждение модератора не требуется. + Письма в рассылку могут отправлять только модераторы.

+ Конференция: аналог канала в IRC. Подписчиков устанавливаете Вы, + сообщения может отправлять любой подписчик без модерации. + +
+  Тип рассылки: +
+ 		+ +
+
+
+ + + Текст, добавляемый в начало заголовка каждого сообщения рассылки. + +
+  Префикс: +
+ 		+ +" id="prefix"> +
+ + + +
+
+
+ +
+
+
+
+
+ Список модераторов:  +
+ + + Для модерируемой рассылки на эти email будут отправляться письма перед их + опубликованием в рассылку. Для новостной рассылки только эти адреса могут + могут писать в рассылку. Для конференции модераторы не предумотрены. + +
+
+
+ +
+
+
+
+ + + + + + + + + + +
+
+ +
+
+ Subscribers:  +
+ + + Please, provide one email per line. Do not forget add moderators if you + want them able to post into mailing list. + +
+
+
+ +
+
+
+
+
+ + + + + + + + + + + + + + + + +
+
+
+ + + Moderated list: you assign subscribers and moderators. Messages will be + moderated before publishing.

+ News list: everybody can subscribe without moderator confirmation by sending + an empty email to {$list_name}+subscribe@{$domain}. Messages into mailing list can + post only moderators.

+ Conference: IRC channel analogue. You assign subscribers, every subscriber + can send messages without moderation. + +
+  List type: +
+ 		+ +
+
+
+ + + Prefix added to the subject field of each message. + +
+  Prefix: +
+ 		+ +
+ + + +
+
+
+
+ + + Sender of a post will be excluded from the distribution list for + that post so people don't receive copies of their own posts. + +
+ + Do not send mails to yourself. +
+
+
+
+
+ +
+
+
+
+
+ Moderators:  +
+ + + In case of moderated list messages before publishing will be send to these + emails. In case of news list only these emails can post to mailing list. + In case of conference there are no moderators. + +
+
+
+ +
+
+
+
+ + diff --git a/misc/smarty/templates_en/error.tpl b/misc/smarty/templates_en/error.tpl new file mode 100644 index 0000000..bb7020a --- /dev/null +++ b/misc/smarty/templates_en/error.tpl @@ -0,0 +1,33 @@ + + + + + + +
+ {if $error_code == 1} + Domain can contain only english letters, dots, hyphens and digits. + {elseif $error_code == 2} + Password can contain only english letters and digits. + {elseif $error_code == 3} + Incorrect password. + {elseif $error_code == 4} + There is no such domain. + {elseif $error_code == 5} + Mailing list name can contain only english letters, digits and undercores. + {elseif $error_code == 6} + The length of a list name can not exceed 30 characters. + {elseif $error_code == 7} + The length of a prefix can not exceed 128 characters. + {elseif $error_code == 8} + The length of a footer can not exceed 1024 characters. + {elseif $error_code == 9} + There is an incorrect email in the subscribers list. + {elseif $error_code == 10} + There is an incorrect email in the moderators list. + {else} + Unknown error. + {/if} +
+ + diff --git a/misc/smarty/templates_en/index.tpl b/misc/smarty/templates_en/index.tpl new file mode 100644 index 0000000..9c6d841 --- /dev/null +++ b/misc/smarty/templates_en/index.tpl @@ -0,0 +1,80 @@ + + + + + + + + +
+
+ Mailing lists: +   +
+ + + You can add and delete mailing lists on this page. To edit list click on its name. + To post message into mailing list send mail to example@{$domain}, where "example" is the list name. + +
+
+ + {foreach $lists as $list} + + + + + + {/foreach} +
+ • + + {$list} + + +
+
+
+ +   + +
+
+
+ + diff --git a/misc/smarty/templates_en/login.tpl b/misc/smarty/templates_en/login.tpl new file mode 100644 index 0000000..f8acf70 --- /dev/null +++ b/misc/smarty/templates_en/login.tpl @@ -0,0 +1,62 @@ + + + + + + + +
+
+
+
+
+ Domain: +
+
+ +
+
+
+
+ Password: +
+
+ +
+
+
+ +
+
+
+
+ + diff --git a/misc/smarty/templates_ru/edit_list.tpl b/misc/smarty/templates_ru/edit_list.tpl new file mode 100644 index 0000000..9cd9ea7 --- /dev/null +++ b/misc/smarty/templates_ru/edit_list.tpl @@ -0,0 +1,213 @@ + + + + + + + + +
+
+ +
+
+ Список подписчиков:  +
+ + + Добавляйте по одному почтовому адресу в каждой строке. Не забудьте добавить + модераторов, если хотите, чтобы они также могли писать в рассылку. + +
+
+
+ +
+
+
+
+
+ + + + + + + + + + + + + + + + +
+
+
+ + + Модерируемая рассылка: подписчиков устанавливаете Вы, сообщения + от обычных участников проходят модерацию.

+ Новостная рассылка: подписаться может кто угодно, отправив пустое письмо + на {$list_name}+subscribe@{$domain}, при этом подтверждение модератора не требуется. + Письма в рассылку могут отправлять только модераторы.

+ Конференция: аналог канала в IRC. Подписчиков устанавливаете Вы, + сообщения может отправлять любой подписчик без модерации. + +
+  Тип рассылки: +
+ 		+ +
+
+
+ + + Текст, добавляемый в начало заголовка каждого сообщения рассылки. + +
+  Префикс: +
+ 		+ +
+ + + +
+
+
+
+ + + Отправитель будет исключён из списка рассылки для своего сообщения. + Это означает, что ему не будут приходить копии своих сообщений. + +
+ + Не отправлять копию своих сообщений. +
+
+
+
+
+ +
+
+
+
+
+ Список модераторов:  +
+ + + Для модерируемой рассылки на эти email будут отправляться письма перед их + опубликованием в рассылку. Для новостной рассылки только эти адреса могут + могут писать в рассылку. Для конференции модераторы не предумотрены. + +
+
+
+ +
+
+
+
+ + diff --git a/misc/smarty/templates_ru/error.tpl b/misc/smarty/templates_ru/error.tpl new file mode 100644 index 0000000..a9b3bb2 --- /dev/null +++ b/misc/smarty/templates_ru/error.tpl @@ -0,0 +1,33 @@ + + + + + + +
+ {if $error_code == 1} + Домен может содержать только латинские буквы, точки, дефисы и цифры. + {elseif $error_code == 2} + Пароль может содержать только латинские буквы и цифры. + {elseif $error_code == 3} + Неверный пароль. + {elseif $error_code == 4} + Такой домен не зарегистрирован. + {elseif $error_code == 5} + Название рассылки может содержать только латинские буквы, цифры и символы нижнего подчёркивания. + {elseif $error_code == 6} + Длина названия рассылки не может превышать 30-ти символов. + {elseif $error_code == 7} + Длина префикса не может превышать 128-ти символов. + {elseif $error_code == 8} + Длина подписи не может превышать 1024-ти символов. + {elseif $error_code == 9} + Среди подписчиков есть некорректный e-mail. + {elseif $error_code == 10} + Среди модераторов есть некорректный e-mail. + {else} + Неизвестная ошибка. + {/if} +
+ + diff --git a/misc/smarty/templates_ru/index.tpl b/misc/smarty/templates_ru/index.tpl new file mode 100644 index 0000000..ce4cd01 --- /dev/null +++ b/misc/smarty/templates_ru/index.tpl @@ -0,0 +1,80 @@ + + + + + + + + +
+
+ Все листы рассылок: +   +
+ + + Добавляйте и удаляйте списки рассылки с помощью данной формы. Вы можете редактировать список, кликнув по его названию. + Письмо в рассылку отправляется на адрес example@{$domain}, где example – имя рассылки. + +
+
+ + {foreach $lists as $list} + + + + + + {/foreach} +
+ • + + {$list} + + +
+
+
+ +   + +
+
+
+ + diff --git a/misc/smarty/templates_ru/login.tpl b/misc/smarty/templates_ru/login.tpl new file mode 100644 index 0000000..b2c9613 --- /dev/null +++ b/misc/smarty/templates_ru/login.tpl @@ -0,0 +1,62 @@ + + + + + + + +
+
+
+
+
+ Домен: +
+
+ +
+
+
+
+ Пароль: +
+
+ +
+
+
+ +
+
+
+
+ + diff --git a/misc/smarty_libs/Autoloader.php b/misc/smarty_libs/Autoloader.php new file mode 100644 index 0000000..d3b039c --- /dev/null +++ b/misc/smarty_libs/Autoloader.php @@ -0,0 +1,110 @@ + 'Smarty.class.php', 'smartybc' => 'SmartyBC.class.php',); + + /** + * Registers Smarty_Autoloader backward compatible to older installations. + * + * @param bool $prepend Whether to prepend the autoloader or not. + */ + public static function registerBC($prepend = false) + { + /** + * register the class autoloader + */ + if (!defined('SMARTY_SPL_AUTOLOAD')) { + define('SMARTY_SPL_AUTOLOAD', 0); + } + if (SMARTY_SPL_AUTOLOAD && + set_include_path(get_include_path() . PATH_SEPARATOR . SMARTY_SYSPLUGINS_DIR) !== false + ) { + $registeredAutoLoadFunctions = spl_autoload_functions(); + if (!isset($registeredAutoLoadFunctions[ 'spl_autoload' ])) { + spl_autoload_register(); + } + } else { + self::register($prepend); + } + } + + /** + * Registers Smarty_Autoloader as an SPL autoloader. + * + * @param bool $prepend Whether to prepend the autoloader or not. + */ + public static function register($prepend = false) + { + self::$SMARTY_DIR = defined('SMARTY_DIR') ? SMARTY_DIR : dirname(__FILE__) . DIRECTORY_SEPARATOR; + self::$SMARTY_SYSPLUGINS_DIR = defined('SMARTY_SYSPLUGINS_DIR') ? SMARTY_SYSPLUGINS_DIR : + self::$SMARTY_DIR . 'sysplugins' . DIRECTORY_SEPARATOR; + if (version_compare(phpversion(), '5.3.0', '>=')) { + spl_autoload_register(array(__CLASS__, 'autoload'), true, $prepend); + } else { + spl_autoload_register(array(__CLASS__, 'autoload')); + } + } + + /** + * Handles auto loading of classes. + * + * @param string $class A class name. + */ + public static function autoload($class) + { + if ($class[ 0 ] !== 'S' && strpos($class, 'Smarty') !== 0) { + return; + } + $_class = strtolower($class); + if (isset(self::$rootClasses[ $_class ])) { + $file = self::$SMARTY_DIR . self::$rootClasses[ $_class ]; + if (is_file($file)) { + include $file; + } + } else { + $file = self::$SMARTY_SYSPLUGINS_DIR . $_class . '.php'; + if (is_file($file)) { + include $file; + } + } + return; + } +} diff --git a/misc/smarty_libs/Smarty.class.php b/misc/smarty_libs/Smarty.class.php new file mode 100644 index 0000000..57eedfb --- /dev/null +++ b/misc/smarty_libs/Smarty.class.php @@ -0,0 +1,1549 @@ + + * @author Uwe Tews + * @author Rodney Rehm + * @package Smarty + * @version 3.1.31 + */ + +/** + * set SMARTY_DIR to absolute path to Smarty library files. + * Sets SMARTY_DIR only if user application has not already defined it. + */ +if (!defined('SMARTY_DIR')) { + define('SMARTY_DIR', dirname(__FILE__) . DIRECTORY_SEPARATOR); +} + +/** + * set SMARTY_SYSPLUGINS_DIR to absolute path to Smarty internal plugins. + * Sets SMARTY_SYSPLUGINS_DIR only if user application has not already defined it. + */ +if (!defined('SMARTY_SYSPLUGINS_DIR')) { + define('SMARTY_SYSPLUGINS_DIR', SMARTY_DIR . 'sysplugins' . DIRECTORY_SEPARATOR); +} +if (!defined('SMARTY_PLUGINS_DIR')) { + define('SMARTY_PLUGINS_DIR', SMARTY_DIR . 'plugins' . DIRECTORY_SEPARATOR); +} +if (!defined('SMARTY_MBSTRING')) { + define('SMARTY_MBSTRING', function_exists('mb_get_info')); +} +if (!defined('SMARTY_RESOURCE_CHAR_SET')) { + // UTF-8 can only be done properly when mbstring is available! + /** + * @deprecated in favor of Smarty::$_CHARSET + */ + define('SMARTY_RESOURCE_CHAR_SET', SMARTY_MBSTRING ? 'UTF-8' : 'ISO-8859-1'); +} +if (!defined('SMARTY_RESOURCE_DATE_FORMAT')) { + /** + * @deprecated in favor of Smarty::$_DATE_FORMAT + */ + define('SMARTY_RESOURCE_DATE_FORMAT', '%b %e, %Y'); +} + +/** + * Load Smarty_Autoloader + */ +if (!class_exists('Smarty_Autoloader')) { + include __DIR__ . '/bootstrap.php'; +} + +/** + * Load always needed external class files + */ +require_once SMARTY_SYSPLUGINS_DIR . 'smarty_internal_data.php'; +require_once SMARTY_SYSPLUGINS_DIR . 'smarty_internal_extension_handler.php'; +require_once SMARTY_SYSPLUGINS_DIR . 'smarty_internal_templatebase.php'; +require_once SMARTY_SYSPLUGINS_DIR . 'smarty_internal_template.php'; +require_once SMARTY_SYSPLUGINS_DIR . 'smarty_resource.php'; +require_once SMARTY_SYSPLUGINS_DIR . 'smarty_variable.php'; +require_once SMARTY_SYSPLUGINS_DIR . 'smarty_template_source.php'; +require_once SMARTY_SYSPLUGINS_DIR . 'smarty_template_resource_base.php'; +require_once SMARTY_SYSPLUGINS_DIR . 'smarty_internal_resource_file.php'; + +/** + * This is the main Smarty class + * + * @package Smarty + * + * The following methods will be dynamically loaded by the extension handler when they are called. + * They are located in a corresponding Smarty_Internal_Method_xxxx class + * + * @method int clearAllCache(int $exp_time = null, string $type = null) + * @method int clearCache(string $template_name, string $cache_id = null, string $compile_id = null, int $exp_time = null, string $type = null) + * @method int compileAllTemplates(string $extension = '.tpl', bool $force_compile = false, int $time_limit = 0, int $max_errors = null) + * @method int compileAllConfig(string $extension = '.conf', bool $force_compile = false, int $time_limit = 0, int $max_errors = null) + * @method int clearCompiledTemplate($resource_name = null, $compile_id = null, $exp_time = null) + */ +class Smarty extends Smarty_Internal_TemplateBase +{ + /**#@+ + * constant definitions + */ + + /** + * smarty version + */ + const SMARTY_VERSION = '3.1.31'; + + /** + * define variable scopes + */ + const SCOPE_LOCAL = 1; + + const SCOPE_PARENT = 2; + + const SCOPE_TPL_ROOT = 4; + + const SCOPE_ROOT = 8; + + const SCOPE_SMARTY = 16; + + const SCOPE_GLOBAL = 32; + + /** + * define caching modes + */ + const CACHING_OFF = 0; + + const CACHING_LIFETIME_CURRENT = 1; + + const CACHING_LIFETIME_SAVED = 2; + + /** + * define constant for clearing cache files be saved expiration dates + */ + const CLEAR_EXPIRED = - 1; + + /** + * define compile check modes + */ + const COMPILECHECK_OFF = 0; + + const COMPILECHECK_ON = 1; + + const COMPILECHECK_CACHEMISS = 2; + + /** + * define debug modes + */ + const DEBUG_OFF = 0; + + const DEBUG_ON = 1; + + const DEBUG_INDIVIDUAL = 2; + + /** + * modes for handling of "" tags in templates. + */ + const PHP_PASSTHRU = 0; //-> print tags as plain text + + const PHP_QUOTE = 1; //-> escape tags as entities + + const PHP_REMOVE = 2; //-> escape tags as entities + + const PHP_ALLOW = 3; //-> escape tags as entities + + /** + * filter types + */ + const FILTER_POST = 'post'; + + const FILTER_PRE = 'pre'; + + const FILTER_OUTPUT = 'output'; + + const FILTER_VARIABLE = 'variable'; + + /** + * plugin types + */ + const PLUGIN_FUNCTION = 'function'; + + const PLUGIN_BLOCK = 'block'; + + const PLUGIN_COMPILER = 'compiler'; + + const PLUGIN_MODIFIER = 'modifier'; + + const PLUGIN_MODIFIERCOMPILER = 'modifiercompiler'; + + /** + * Resource caching modes + * (not used since 3.1.30) + */ + const RESOURCE_CACHE_OFF = 0; + + const RESOURCE_CACHE_AUTOMATIC = 1; // cache template objects by rules + + const RESOURCE_CACHE_TEMPLATE = 2; // cache all template objects + + const RESOURCE_CACHE_ON = 4; // cache source and compiled resources + + /**#@-*/ + + /** + * assigned global tpl vars + */ + public static $global_tpl_vars = array(); + + /** + * error handler returned by set_error_handler() in Smarty::muteExpectedErrors() + */ + public static $_previous_error_handler = null; + + /** + * contains directories outside of SMARTY_DIR that are to be muted by muteExpectedErrors() + */ + public static $_muted_directories = array(); + + /** + * Flag denoting if Multibyte String functions are available + */ + public static $_MBSTRING = SMARTY_MBSTRING; + + /** + * The character set to adhere to (e.g. "UTF-8") + */ + public static $_CHARSET = SMARTY_RESOURCE_CHAR_SET; + + /** + * The date format to be used internally + * (accepts date() and strftime()) + */ + public static $_DATE_FORMAT = SMARTY_RESOURCE_DATE_FORMAT; + + /** + * Flag denoting if PCRE should run in UTF-8 mode + */ + public static $_UTF8_MODIFIER = 'u'; + + /** + * Flag denoting if operating system is windows + */ + public static $_IS_WINDOWS = false; + + /**#@+ + * variables + */ + + /** + * auto literal on delimiters with whitespace + * + * @var boolean + */ + public $auto_literal = true; + + /** + * display error on not assigned variables + * + * @var boolean + */ + public $error_unassigned = false; + + /** + * look up relative file path in include_path + * + * @var boolean + */ + public $use_include_path = false; + + /** + * template directory + * + * @var array + */ + protected $template_dir = array('./templates/'); + + /** + * flags for normalized template directory entries + * + * @var array + */ + protected $_processedTemplateDir = array(); + + /** + * flag if template_dir is normalized + * + * @var bool + */ + public $_templateDirNormalized = false; + + /** + * joined template directory string used in cache keys + * + * @var string + */ + public $_joined_template_dir = null; + + /** + * config directory + * + * @var array + */ + protected $config_dir = array('./configs/'); + + /** + * flags for normalized template directory entries + * + * @var array + */ + protected $_processedConfigDir = array(); + + /** + * flag if config_dir is normalized + * + * @var bool + */ + public $_configDirNormalized = false; + + /** + * joined config directory string used in cache keys + * + * @var string + */ + public $_joined_config_dir = null; + + /** + * default template handler + * + * @var callable + */ + public $default_template_handler_func = null; + + /** + * default config handler + * + * @var callable + */ + public $default_config_handler_func = null; + + /** + * default plugin handler + * + * @var callable + */ + public $default_plugin_handler_func = null; + + /** + * compile directory + * + * @var string + */ + protected $compile_dir = './templates_c/'; + + /** + * flag if template_dir is normalized + * + * @var bool + */ + public $_compileDirNormalized = false; + + /** + * plugins directory + * + * @var array + */ + protected $plugins_dir = array(); + + /** + * flag if plugins_dir is normalized + * + * @var bool + */ + public $_pluginsDirNormalized = false; + + /** + * cache directory + * + * @var string + */ + protected $cache_dir = './cache/'; + + /** + * flag if template_dir is normalized + * + * @var bool + */ + public $_cacheDirNormalized = false; + + /** + * force template compiling? + * + * @var boolean + */ + public $force_compile = false; + + /** + * check template for modifications? + * + * @var boolean + */ + public $compile_check = true; + + /** + * use sub dirs for compiled/cached files? + * + * @var boolean + */ + public $use_sub_dirs = false; + + /** + * allow ambiguous resources (that are made unique by the resource handler) + * + * @var boolean + */ + public $allow_ambiguous_resources = false; + + /** + * merge compiled includes + * + * @var boolean + */ + public $merge_compiled_includes = false; + + /* + * flag for behaviour when extends: resource and {extends} tag are used simultaneous + * if false disable execution of {extends} in templates called by extends resource. + * (behaviour as versions < 3.1.28) + * + * @var boolean + */ + public $extends_recursion = true; + + /** + * force cache file creation + * + * @var boolean + */ + public $force_cache = false; + + /** + * template left-delimiter + * + * @var string + */ + public $left_delimiter = "{"; + + /** + * template right-delimiter + * + * @var string + */ + public $right_delimiter = "}"; + + /**#@+ + * security + */ + /** + * class name + * This should be instance of Smarty_Security. + * + * @var string + * @see Smarty_Security + */ + public $security_class = 'Smarty_Security'; + + /** + * implementation of security class + * + * @var Smarty_Security + */ + public $security_policy = null; + + /** + * controls handling of PHP-blocks + * + * @var integer + */ + public $php_handling = self::PHP_PASSTHRU; + + /** + * controls if the php template file resource is allowed + * + * @var bool + */ + public $allow_php_templates = false; + + /**#@-*/ + /** + * debug mode + * Setting this to true enables the debug-console. + * + * @var boolean + */ + public $debugging = false; + + /** + * This determines if debugging is enable-able from the browser. + *
    + *
  • NONE => no debugging control allowed
    • + *
  • URL => enable debugging when SMARTY_DEBUG is found in the URL.
    • + *
+ * + * @var string + */ + public $debugging_ctrl = 'NONE'; + + /** + * Name of debugging URL-param. + * Only used when $debugging_ctrl is set to 'URL'. + * The name of the URL-parameter that activates debugging. + * + * @var string + */ + public $smarty_debug_id = 'SMARTY_DEBUG'; + + /** + * Path of debug template. + * + * @var string + */ + public $debug_tpl = null; + + /** + * When set, smarty uses this value as error_reporting-level. + * + * @var int + */ + public $error_reporting = null; + + /**#@+ + * config var settings + */ + + /** + * Controls whether variables with the same name overwrite each other. + * + * @var boolean + */ + public $config_overwrite = true; + + /** + * Controls whether config values of on/true/yes and off/false/no get converted to boolean. + * + * @var boolean + */ + public $config_booleanize = true; + + /** + * Controls whether hidden config sections/vars are read from the file. + * + * @var boolean + */ + public $config_read_hidden = false; + + /**#@-*/ + + /**#@+ + * resource locking + */ + + /** + * locking concurrent compiles + * + * @var boolean + */ + public $compile_locking = true; + + /** + * Controls whether cache resources should use locking mechanism + * + * @var boolean + */ + public $cache_locking = false; + + /** + * seconds to wait for acquiring a lock before ignoring the write lock + * + * @var float + */ + public $locking_timeout = 10; + + /**#@-*/ + + /** + * resource type used if none given + * Must be an valid key of $registered_resources. + * + * @var string + */ + public $default_resource_type = 'file'; + + /** + * caching type + * Must be an element of $cache_resource_types. + * + * @var string + */ + public $caching_type = 'file'; + + /** + * config type + * + * @var string + */ + public $default_config_type = 'file'; + + /** + * check If-Modified-Since headers + * + * @var boolean + */ + public $cache_modified_check = false; + + /** + * registered plugins + * + * @var array + */ + public $registered_plugins = array(); + + /** + * registered objects + * + * @var array + */ + public $registered_objects = array(); + + /** + * registered classes + * + * @var array + */ + public $registered_classes = array(); + + /** + * registered filters + * + * @var array + */ + public $registered_filters = array(); + + /** + * registered resources + * + * @var array + */ + public $registered_resources = array(); + + /** + * registered cache resources + * + * @var array + */ + public $registered_cache_resources = array(); + + /** + * autoload filter + * + * @var array + */ + public $autoload_filters = array(); + + /** + * default modifier + * + * @var array + */ + public $default_modifiers = array(); + + /** + * autoescape variable output + * + * @var boolean + */ + public $escape_html = false; + + /** + * start time for execution time calculation + * + * @var int + */ + public $start_time = 0; + + /** + * required by the compiler for BC + * + * @var string + */ + public $_current_file = null; + + /** + * internal flag to enable parser debugging + * + * @var bool + */ + public $_parserdebug = false; + + /** + * This object type (Smarty = 1, template = 2, data = 4) + * + * @var int + */ + public $_objType = 1; + + /** + * Debug object + * + * @var Smarty_Internal_Debug + */ + public $_debug = null; + + /** + * Directory separator + * + * @var string + */ + public $ds = DIRECTORY_SEPARATOR; + + /** + * removed properties + * + * @var string[] + */ + private $obsoleteProperties = array('resource_caching', 'template_resource_caching', 'direct_access_security', + '_dir_perms', '_file_perms', 'plugin_search_order', + 'inheritance_merge_compiled_includes', 'resource_cache_mode',); + + /** + * List of private properties which will call getter/setter on a direct access + * + * @var string[] + */ + private $accessMap = array('template_dir' => 'TemplateDir', 'config_dir' => 'ConfigDir', + 'plugins_dir' => 'PluginsDir', 'compile_dir' => 'CompileDir', + 'cache_dir' => 'CacheDir',); + + /**#@-*/ + + /** + * Initialize new Smarty object + */ + public function __construct() + { + $this->_clearTemplateCache(); + parent::__construct(); + if (is_callable('mb_internal_encoding')) { + mb_internal_encoding(Smarty::$_CHARSET); + } + $this->start_time = microtime(true); + + if (isset($_SERVER[ 'SCRIPT_NAME' ])) { + Smarty::$global_tpl_vars[ 'SCRIPT_NAME' ] = new Smarty_Variable($_SERVER[ 'SCRIPT_NAME' ]); + } + + // Check if we're running on windows + Smarty::$_IS_WINDOWS = strtoupper(substr(PHP_OS, 0, 3)) === 'WIN'; + // let PCRE (preg_*) treat strings as ISO-8859-1 if we're not dealing with UTF-8 + if (Smarty::$_CHARSET !== 'UTF-8') { + Smarty::$_UTF8_MODIFIER = ''; + } + } + + /** + * Check if a template resource exists + * + * @param string $resource_name template name + * + * @return boolean status + */ + public function templateExists($resource_name) + { + // create source object + $source = Smarty_Template_Source::load(null, $this, $resource_name); + return $source->exists; + } + + /** + * Loads security class and enables security + * + * @param string|Smarty_Security $security_class if a string is used, it must be class-name + * + * @return Smarty current Smarty instance for chaining + * @throws SmartyException when an invalid class name is provided + */ + public function enableSecurity($security_class = null) + { + Smarty_Security::enableSecurity($this, $security_class); + return $this; + } + + /** + * Disable security + * + * @return Smarty current Smarty instance for chaining + */ + public function disableSecurity() + { + $this->security_policy = null; + + return $this; + } + + /** + * Set template directory + * + * @param string|array $template_dir directory(s) of template sources + * @param bool $isConfig true for config_dir + * + * @return \Smarty current Smarty instance for chaining + */ + public function setTemplateDir($template_dir, $isConfig = false) + { + if ($isConfig) { + $this->config_dir = array(); + $this->_processedConfigDir = array(); + } else { + $this->template_dir = array(); + $this->_processedTemplateDir = array(); + } + $this->addTemplateDir($template_dir, null, $isConfig); + return $this; + } + + /** + * Add template directory(s) + * + * @param string|array $template_dir directory(s) of template sources + * @param string $key of the array element to assign the template dir to + * @param bool $isConfig true for config_dir + * + * @return Smarty current Smarty instance for chaining + */ + public function addTemplateDir($template_dir, $key = null, $isConfig = false) + { + if ($isConfig) { + $processed = &$this->_processedConfigDir; + $dir = &$this->config_dir; + $this->_configDirNormalized = false; + } else { + $processed = &$this->_processedTemplateDir; + $dir = &$this->template_dir; + $this->_templateDirNormalized = false; + } + if (is_array($template_dir)) { + foreach ($template_dir as $k => $v) { + if (is_int($k)) { + // indexes are not merged but appended + $dir[] = $v; + } else { + // string indexes are overridden + $dir[ $k ] = $v; + unset($processed[ $key ]); + } + } + } else { + if ($key !== null) { + // override directory at specified index + $dir[ $key ] = $template_dir; + unset($processed[ $key ]); + } else { + // append new directory + $dir[] = $template_dir; + } + } + return $this; + } + + /** + * Get template directories + * + * @param mixed $index index of directory to get, null to get all + * @param bool $isConfig true for config_dir + * + * @return array list of template directories, or directory of $index + */ + public function getTemplateDir($index = null, $isConfig = false) + { + if ($isConfig) { + $dir = &$this->config_dir; + } else { + $dir = &$this->template_dir; + } + if ($isConfig ? !$this->_configDirNormalized : !$this->_templateDirNormalized) { + $this->_nomalizeTemplateConfig($isConfig); + } + if ($index !== null) { + return isset($dir[ $index ]) ? $dir[ $index ] : null; + } + return $dir; + } + + /** + * Set config directory + * + * @param $config_dir + * + * @return Smarty current Smarty instance for chaining + */ + public function setConfigDir($config_dir) + { + return $this->setTemplateDir($config_dir, true); + } + + /** + * Add config directory(s) + * + * @param string|array $config_dir directory(s) of config sources + * @param mixed $key key of the array element to assign the config dir to + * + * @return Smarty current Smarty instance for chaining + */ + public function addConfigDir($config_dir, $key = null) + { + return $this->addTemplateDir($config_dir, $key, true); + } + + /** + * Get config directory + * + * @param mixed $index index of directory to get, null to get all + * + * @return array configuration directory + */ + public function getConfigDir($index = null) + { + return $this->getTemplateDir($index, true); + } + + /** + * Set plugins directory + * + * @param string|array $plugins_dir directory(s) of plugins + * + * @return Smarty current Smarty instance for chaining + */ + public function setPluginsDir($plugins_dir) + { + $this->plugins_dir = (array) $plugins_dir; + $this->_pluginsDirNormalized = false; + return $this; + } + + /** + * Adds directory of plugin files + * + * @param null|array $plugins_dir + * + * @return Smarty current Smarty instance for chaining + */ + public function addPluginsDir($plugins_dir) + { + if (empty($this->plugins_dir)) { + $this->plugins_dir[] = SMARTY_PLUGINS_DIR; + } + $this->plugins_dir = array_merge($this->plugins_dir, (array) $plugins_dir); + $this->_pluginsDirNormalized = false; + return $this; + } + + /** + * Get plugin directories + * + * @return array list of plugin directories + */ + public function getPluginsDir() + { + if (empty($this->plugins_dir)) { + $this->plugins_dir[] = SMARTY_PLUGINS_DIR; + $this->_pluginsDirNormalized = false; + } + if (!$this->_pluginsDirNormalized) { + if (!is_array($this->plugins_dir)) { + $this->plugins_dir = (array) $this->plugins_dir; + } + foreach ($this->plugins_dir as $k => $v) { + $this->plugins_dir[ $k ] = $this->_realpath(rtrim($v, "/\\") . $this->ds, true); + } + $this->_cache[ 'plugin_files' ] = array(); + $this->_pluginsDirNormalized = true; + } + return $this->plugins_dir; + } + + /** + * + * @param string $compile_dir directory to store compiled templates in + * + * @return Smarty current Smarty instance for chaining + */ + public function setCompileDir($compile_dir) + { + $this->_normalizeDir('compile_dir', $compile_dir); + $this->_compileDirNormalized = true; + return $this; + } + + /** + * Get compiled directory + * + * @return string path to compiled templates + */ + public function getCompileDir() + { + if (!$this->_compileDirNormalized) { + $this->_normalizeDir('compile_dir', $this->compile_dir); + $this->_compileDirNormalized = true; + } + return $this->compile_dir; + } + + /** + * Set cache directory + * + * @param string $cache_dir directory to store cached templates in + * + * @return Smarty current Smarty instance for chaining + */ + public function setCacheDir($cache_dir) + { + $this->_normalizeDir('cache_dir', $cache_dir); + $this->_cacheDirNormalized = true; + return $this; + } + + /** + * Get cache directory + * + * @return string path of cache directory + */ + public function getCacheDir() + { + if (!$this->_cacheDirNormalized) { + $this->_normalizeDir('cache_dir', $this->cache_dir); + $this->_cacheDirNormalized = true; + } + return $this->cache_dir; + } + + /** + * Normalize and set directory string + * + * @param string $dirName cache_dir or compile_dir + * @param string $dir filepath of folder + */ + private function _normalizeDir($dirName, $dir) + { + $this->{$dirName} = $this->_realpath(rtrim($dir, "/\\") . $this->ds, true); + if (!isset(Smarty::$_muted_directories[ $this->{$dirName} ])) { + Smarty::$_muted_directories[ $this->{$dirName} ] = null; + } + } + + /** + * Normalize template_dir or config_dir + * + * @param bool $isConfig true for config_dir + * + */ + private function _nomalizeTemplateConfig($isConfig) + { + if ($isConfig) { + $processed = &$this->_processedConfigDir; + $dir = &$this->config_dir; + } else { + $processed = &$this->_processedTemplateDir; + $dir = &$this->template_dir; + } + if (!is_array($dir)) { + $dir = (array) $dir; + } + foreach ($dir as $k => $v) { + if (!isset($processed[ $k ])) { + $dir[ $k ] = $v = $this->_realpath(rtrim($v, "/\\") . $this->ds, true); + $processed[ $k ] = true; + } + } + $isConfig ? $this->_configDirNormalized = true : $this->_templateDirNormalized = true; + $isConfig ? $this->_joined_config_dir = join('#', $this->config_dir) : + $this->_joined_template_dir = join('#', $this->template_dir); + } + + /** + * creates a template object + * + * @param string $template the resource handle of the template file + * @param mixed $cache_id cache id to be used with this template + * @param mixed $compile_id compile id to be used with this template + * @param object $parent next higher level of Smarty variables + * @param boolean $do_clone flag is Smarty object shall be cloned + * + * @return object template object + */ + public function createTemplate($template, $cache_id = null, $compile_id = null, $parent = null, $do_clone = true) + { + if ($cache_id !== null && (is_object($cache_id) || is_array($cache_id))) { + $parent = $cache_id; + $cache_id = null; + } + if ($parent !== null && is_array($parent)) { + $data = $parent; + $parent = null; + } else { + $data = null; + } + if (!$this->_templateDirNormalized) { + $this->_nomalizeTemplateConfig(false); + } + $_templateId = $this->_getTemplateId($template, $cache_id, $compile_id); + $tpl = null; + if ($this->caching && isset(Smarty_Internal_Template::$isCacheTplObj[ $_templateId ])) { + $tpl = $do_clone ? clone Smarty_Internal_Template::$isCacheTplObj[ $_templateId ] : + Smarty_Internal_Template::$isCacheTplObj[ $_templateId ]; + $tpl->inheritance = null; + $tpl->tpl_vars = $tpl->config_vars = array(); + } else if (!$do_clone && isset(Smarty_Internal_Template::$tplObjCache[ $_templateId ])) { + $tpl = clone Smarty_Internal_Template::$tplObjCache[ $_templateId ]; + $tpl->inheritance = null; + $tpl->tpl_vars = $tpl->config_vars = array(); + } else { + /* @var Smarty_Internal_Template $tpl */ + $tpl = new $this->template_class($template, $this, null, $cache_id, $compile_id, null, null); + $tpl->templateId = $_templateId; + } + if ($do_clone) { + $tpl->smarty = clone $tpl->smarty; + } + $tpl->parent = $parent ? $parent : $this; + // fill data if present + if (!empty($data) && is_array($data)) { + // set up variable values + foreach ($data as $_key => $_val) { + $tpl->tpl_vars[ $_key ] = new Smarty_Variable($_val); + } + } + if ($this->debugging || $this->debugging_ctrl == 'URL') { + $tpl->smarty->_debug = new Smarty_Internal_Debug(); + // check URL debugging control + if (!$this->debugging && $this->debugging_ctrl == 'URL') { + $tpl->smarty->_debug->debugUrl($tpl->smarty); + } + } + return $tpl; + } + + /** + * Takes unknown classes and loads plugin files for them + * class name format: Smarty_PluginType_PluginName + * plugin filename format: plugintype.pluginname.php + * + * @param string $plugin_name class plugin name to load + * @param bool $check check if already loaded + * + * @throws SmartyException + * @return string |boolean filepath of loaded file or false + */ + public function loadPlugin($plugin_name, $check = true) + { + return $this->ext->loadPlugin->loadPlugin($this, $plugin_name, $check); + } + + /** + * Get unique template id + * + * @param string $template_name + * @param null|mixed $cache_id + * @param null|mixed $compile_id + * @param null $caching + * @param \Smarty_Internal_Template $template + * + * @return string + */ + public function _getTemplateId($template_name, $cache_id = null, $compile_id = null, $caching = null, + Smarty_Internal_Template $template = null) + { + $template_name = (strpos($template_name, ':') === false) ? "{$this->default_resource_type}:{$template_name}" : + $template_name; + $cache_id = $cache_id === null ? $this->cache_id : $cache_id; + $compile_id = $compile_id === null ? $this->compile_id : $compile_id; + $caching = (int) ($caching === null ? $this->caching : $caching); + + if ((isset($template) && strpos($template_name, ':.') !== false) || $this->allow_ambiguous_resources) { + $_templateId = + Smarty_Resource::getUniqueTemplateName((isset($template) ? $template : $this), $template_name) . + "#{$cache_id}#{$compile_id}#{$caching}"; + } else { + $_templateId = $this->_joined_template_dir . "#{$template_name}#{$cache_id}#{$compile_id}#{$caching}"; + } + if (isset($_templateId[ 150 ])) { + $_templateId = sha1($_templateId); + } + return $_templateId; + } + + /** + * Normalize path + * - remove /./ and /../ + * - make it absolute if required + * + * @param string $path file path + * @param bool $realpath if true - convert to absolute + * false - convert to relative + * null - keep as it is but remove /./ /../ + * + * @return string + */ + public function _realpath($path, $realpath = null) + { + $nds = $this->ds == '/' ? '\\' : '/'; + // normalize $this->ds + $path = str_replace($nds, $this->ds, $path); + preg_match('%^(?(?:[[:alpha:]]:[\\\\]|/|[\\\\]{2}[[:alpha:]]+|[[:print:]]{2,}:[/]{2}|[\\\\])?)(?(?:[[:print:]]*))$%', + $path, $parts); + $path = $parts[ 'path' ]; + if ($parts[ 'root' ] == '\\') { + $parts[ 'root' ] = substr(getcwd(), 0, 2) . $parts[ 'root' ]; + } else { + if ($realpath !== null && !$parts[ 'root' ]) { + $path = getcwd() . $this->ds . $path; + } + } + // remove noop 'DIRECTORY_SEPARATOR DIRECTORY_SEPARATOR' and 'DIRECTORY_SEPARATOR.DIRECTORY_SEPARATOR' patterns + $path = preg_replace('#([\\\\/]([.]?[\\\\/])+)#', $this->ds, $path); + // resolve '..DIRECTORY_SEPARATOR' pattern, smallest first + if (strpos($path, '..' . $this->ds) != false && + preg_match_all('#(([.]?[\\\\/])*([.][.])[\\\\/]([.]?[\\\\/])*)+#', $path, $match) + ) { + $counts = array(); + foreach ($match[ 0 ] as $m) { + $counts[] = (int) ((strlen($m) - 1) / 3); + } + sort($counts); + foreach ($counts as $count) { + $path = preg_replace('#(([\\\\/]([.]?[\\\\/])*[^\\\\/.]+){' . $count . + '}[\\\\/]([.]?[\\\\/])*([.][.][\\\\/]([.]?[\\\\/])*){' . $count . '})(?=[^.])#', + $this->ds, $path); + } + } + + return $parts[ 'root' ] . $path; + } + + /** + * Empty template objects cache + */ + public function _clearTemplateCache() + { + Smarty_Internal_Template::$isCacheTplObj = array(); + Smarty_Internal_Template::$tplObjCache = array(); + } + + /** + * Get Smarty object + * + * @return Smarty + */ + public function _getSmartyObj() + { + return $this; + } + + /** + * @param boolean $compile_check + */ + public function setCompileCheck($compile_check) + { + $this->compile_check = $compile_check; + } + + /** + * @param boolean $use_sub_dirs + */ + public function setUseSubDirs($use_sub_dirs) + { + $this->use_sub_dirs = $use_sub_dirs; + } + + /** + * @param int $error_reporting + */ + public function setErrorReporting($error_reporting) + { + $this->error_reporting = $error_reporting; + } + + /** + * @param boolean $escape_html + */ + public function setEscapeHtml($escape_html) + { + $this->escape_html = $escape_html; + } + + /** + * @param boolean $auto_literal + */ + public function setAutoLiteral($auto_literal) + { + $this->auto_literal = $auto_literal; + } + + /** + * @param boolean $force_compile + */ + public function setForceCompile($force_compile) + { + $this->force_compile = $force_compile; + } + + /** + * @param boolean $merge_compiled_includes + */ + public function setMergeCompiledIncludes($merge_compiled_includes) + { + $this->merge_compiled_includes = $merge_compiled_includes; + } + + /** + * @param string $left_delimiter + */ + public function setLeftDelimiter($left_delimiter) + { + $this->left_delimiter = $left_delimiter; + } + + /** + * @param string $right_delimiter + */ + public function setRightDelimiter($right_delimiter) + { + $this->right_delimiter = $right_delimiter; + } + + /** + * @param boolean $debugging + */ + public function setDebugging($debugging) + { + $this->debugging = $debugging; + } + + /** + * @param boolean $config_overwrite + */ + public function setConfigOverwrite($config_overwrite) + { + $this->config_overwrite = $config_overwrite; + } + + /** + * @param boolean $config_booleanize + */ + public function setConfigBooleanize($config_booleanize) + { + $this->config_booleanize = $config_booleanize; + } + + /** + * @param boolean $config_read_hidden + */ + public function setConfigReadHidden($config_read_hidden) + { + $this->config_read_hidden = $config_read_hidden; + } + + /** + * @param boolean $compile_locking + */ + public function setCompileLocking($compile_locking) + { + $this->compile_locking = $compile_locking; + } + + /** + * @param string $default_resource_type + */ + public function setDefaultResourceType($default_resource_type) + { + $this->default_resource_type = $default_resource_type; + } + + /** + * @param string $caching_type + */ + public function setCachingType($caching_type) + { + $this->caching_type = $caching_type; + } + + /** + * Test install + * + * @param null $errors + */ + public function testInstall(&$errors = null) + { + Smarty_Internal_TestInstall::testInstall($this, $errors); + } + + /** + * <> Generic getter. + * Calls the appropriate getter function. + * Issues an E_USER_NOTICE if no valid getter is found. + * + * @param string $name property name + * + * @return mixed + */ + public function __get($name) + { + if (isset($this->accessMap[ $name ])) { + $method = 'get' . $this->accessMap[ $name ]; + return $this->{$method}(); + } elseif (isset($this->_cache[ $name ])) { + return $this->_cache[ $name ]; + } elseif (in_array($name, $this->obsoleteProperties)) { + return null; + } else { + trigger_error('Undefined property: ' . get_class($this) . '::$' . $name, E_USER_NOTICE); + } + return null; + } + + /** + * <> Generic setter. + * Calls the appropriate setter function. + * Issues an E_USER_NOTICE if no valid setter is found. + * + * @param string $name property name + * @param mixed $value parameter passed to setter + */ + public function __set($name, $value) + { + if (isset($this->accessMap[ $name ])) { + $method = 'set' . $this->accessMap[ $name ]; + $this->{$method}($value); + } elseif (in_array($name, $this->obsoleteProperties)) { + return; + } else { + if (is_object($value) && method_exists($value, $name)) { + $this->$name = $value; + } else { + trigger_error('Undefined property: ' . get_class($this) . '::$' . $name, E_USER_NOTICE); + } + } + } + + /** + * Error Handler to mute expected messages + * + * @link http://php.net/set_error_handler + * + * @param integer $errno Error level + * @param $errstr + * @param $errfile + * @param $errline + * @param $errcontext + * + * @return bool|void + */ + public static function mutingErrorHandler($errno, $errstr, $errfile, $errline, $errcontext) + { + $_is_muted_directory = false; + + // add the SMARTY_DIR to the list of muted directories + if (!isset(Smarty::$_muted_directories[ SMARTY_DIR ])) { + $smarty_dir = realpath(SMARTY_DIR); + if ($smarty_dir !== false) { + Smarty::$_muted_directories[ SMARTY_DIR ] = + array('file' => $smarty_dir, 'length' => strlen($smarty_dir),); + } + } + + // walk the muted directories and test against $errfile + foreach (Smarty::$_muted_directories as $key => &$dir) { + if (!$dir) { + // resolve directory and length for speedy comparisons + $file = realpath($key); + if ($file === false) { + // this directory does not exist, remove and skip it + unset(Smarty::$_muted_directories[ $key ]); + continue; + } + $dir = array('file' => $file, 'length' => strlen($file),); + } + if (!strncmp($errfile, $dir[ 'file' ], $dir[ 'length' ])) { + $_is_muted_directory = true; + break; + } + } + // pass to next error handler if this error did not occur inside SMARTY_DIR + // or the error was within smarty but masked to be ignored + if (!$_is_muted_directory || ($errno && $errno & error_reporting())) { + if (Smarty::$_previous_error_handler) { + return call_user_func(Smarty::$_previous_error_handler, $errno, $errstr, $errfile, $errline, + $errcontext); + } else { + return false; + } + } + return; + } + + /** + * Enable error handler to mute expected messages + * + * @return void + */ + public static function muteExpectedErrors() + { + /* + error muting is done because some people implemented custom error_handlers using + http://php.net/set_error_handler and for some reason did not understand the following paragraph: + + It is important to remember that the standard PHP error handler is completely bypassed for the + error types specified by error_types unless the callback function returns FALSE. + error_reporting() settings will have no effect and your error handler will be called regardless - + however you are still able to read the current value of error_reporting and act appropriately. + Of particular note is that this value will be 0 if the statement that caused the error was + prepended by the @ error-control operator. + + Smarty deliberately uses @filemtime() over file_exists() and filemtime() in some places. Reasons include + - @filemtime() is almost twice as fast as using an additional file_exists() + - between file_exists() and filemtime() a possible race condition is opened, + which does not exist using the simple @filemtime() approach. + */ + $error_handler = array('Smarty', 'mutingErrorHandler'); + $previous = set_error_handler($error_handler); + + // avoid dead loops + if ($previous !== $error_handler) { + Smarty::$_previous_error_handler = $previous; + } + } + + /** + * Disable error handler muting expected messages + * + * @return void + */ + public static function unmuteExpectedErrors() + { + restore_error_handler(); + } +} diff --git a/misc/smarty_libs/SmartyBC.class.php b/misc/smarty_libs/SmartyBC.class.php new file mode 100644 index 0000000..3955e4f --- /dev/null +++ b/misc/smarty_libs/SmartyBC.class.php @@ -0,0 +1,455 @@ + + * @author Uwe Tews + * @author Rodney Rehm + * @package Smarty + */ +/** + * @ignore + */ +require_once(dirname(__FILE__) . '/Smarty.class.php'); + +/** + * Smarty Backward Compatibility Wrapper Class + * + * @package Smarty + */ +class SmartyBC extends Smarty +{ + /** + * Smarty 2 BC + * + * @var string + */ + public $_version = self::SMARTY_VERSION; + + /** + * This is an array of directories where trusted php scripts reside. + * + * @var array + */ + public $trusted_dir = array(); + + /** + * Initialize new SmartyBC object + * + */ + public function __construct() + { + parent::__construct(); + } + + /** + * wrapper for assign_by_ref + * + * @param string $tpl_var the template variable name + * @param mixed &$value the referenced value to assign + */ + public function assign_by_ref($tpl_var, &$value) + { + $this->assignByRef($tpl_var, $value); + } + + /** + * wrapper for append_by_ref + * + * @param string $tpl_var the template variable name + * @param mixed &$value the referenced value to append + * @param boolean $merge flag if array elements shall be merged + */ + public function append_by_ref($tpl_var, &$value, $merge = false) + { + $this->appendByRef($tpl_var, $value, $merge); + } + + /** + * clear the given assigned template variable. + * + * @param string $tpl_var the template variable to clear + */ + public function clear_assign($tpl_var) + { + $this->clearAssign($tpl_var); + } + + /** + * Registers custom function to be used in templates + * + * @param string $function the name of the template function + * @param string $function_impl the name of the PHP function to register + * @param bool $cacheable + * @param mixed $cache_attrs + */ + public function register_function($function, $function_impl, $cacheable = true, $cache_attrs = null) + { + $this->registerPlugin('function', $function, $function_impl, $cacheable, $cache_attrs); + } + + /** + * Unregister custom function + * + * @param string $function name of template function + */ + public function unregister_function($function) + { + $this->unregisterPlugin('function', $function); + } + + /** + * Registers object to be used in templates + * + * @param string $object name of template object + * @param object $object_impl the referenced PHP object to register + * @param array $allowed list of allowed methods (empty = all) + * @param boolean $smarty_args smarty argument format, else traditional + * @param array $block_methods list of methods that are block format + * + * @throws SmartyException + * @internal param array $block_functs list of methods that are block format + */ + public function register_object($object, $object_impl, $allowed = array(), $smarty_args = true, + $block_methods = array()) + { + settype($allowed, 'array'); + settype($smarty_args, 'boolean'); + $this->registerObject($object, $object_impl, $allowed, $smarty_args, $block_methods); + } + + /** + * Unregister object + * + * @param string $object name of template object + */ + public function unregister_object($object) + { + $this->unregisterObject($object); + } + + /** + * Registers block function to be used in templates + * + * @param string $block name of template block + * @param string $block_impl PHP function to register + * @param bool $cacheable + * @param mixed $cache_attrs + */ + public function register_block($block, $block_impl, $cacheable = true, $cache_attrs = null) + { + $this->registerPlugin('block', $block, $block_impl, $cacheable, $cache_attrs); + } + + /** + * Unregister block function + * + * @param string $block name of template function + */ + public function unregister_block($block) + { + $this->unregisterPlugin('block', $block); + } + + /** + * Registers compiler function + * + * @param string $function name of template function + * @param string $function_impl name of PHP function to register + * @param bool $cacheable + */ + public function register_compiler_function($function, $function_impl, $cacheable = true) + { + $this->registerPlugin('compiler', $function, $function_impl, $cacheable); + } + + /** + * Unregister compiler function + * + * @param string $function name of template function + */ + public function unregister_compiler_function($function) + { + $this->unregisterPlugin('compiler', $function); + } + + /** + * Registers modifier to be used in templates + * + * @param string $modifier name of template modifier + * @param string $modifier_impl name of PHP function to register + */ + public function register_modifier($modifier, $modifier_impl) + { + $this->registerPlugin('modifier', $modifier, $modifier_impl); + } + + /** + * Unregister modifier + * + * @param string $modifier name of template modifier + */ + public function unregister_modifier($modifier) + { + $this->unregisterPlugin('modifier', $modifier); + } + + /** + * Registers a resource to fetch a template + * + * @param string $type name of resource + * @param array $functions array of functions to handle resource + */ + public function register_resource($type, $functions) + { + $this->registerResource($type, $functions); + } + + /** + * Unregister a resource + * + * @param string $type name of resource + */ + public function unregister_resource($type) + { + $this->unregisterResource($type); + } + + /** + * Registers a prefilter function to apply + * to a template before compiling + * + * @param callable $function + */ + public function register_prefilter($function) + { + $this->registerFilter('pre', $function); + } + + /** + * Unregister a prefilter function + * + * @param callable $function + */ + public function unregister_prefilter($function) + { + $this->unregisterFilter('pre', $function); + } + + /** + * Registers a postfilter function to apply + * to a compiled template after compilation + * + * @param callable $function + */ + public function register_postfilter($function) + { + $this->registerFilter('post', $function); + } + + /** + * Unregister a postfilter function + * + * @param callable $function + */ + public function unregister_postfilter($function) + { + $this->unregisterFilter('post', $function); + } + + /** + * Registers an output filter function to apply + * to a template output + * + * @param callable $function + */ + public function register_outputfilter($function) + { + $this->registerFilter('output', $function); + } + + /** + * Unregister an outputfilter function + * + * @param callable $function + */ + public function unregister_outputfilter($function) + { + $this->unregisterFilter('output', $function); + } + + /** + * load a filter of specified type and name + * + * @param string $type filter type + * @param string $name filter name + */ + public function load_filter($type, $name) + { + $this->loadFilter($type, $name); + } + + /** + * clear cached content for the given template and cache id + * + * @param string $tpl_file name of template file + * @param string $cache_id name of cache_id + * @param string $compile_id name of compile_id + * @param string $exp_time expiration time + * + * @return boolean + */ + public function clear_cache($tpl_file = null, $cache_id = null, $compile_id = null, $exp_time = null) + { + return $this->clearCache($tpl_file, $cache_id, $compile_id, $exp_time); + } + + /** + * clear the entire contents of cache (all templates) + * + * @param string $exp_time expire time + * + * @return boolean + */ + public function clear_all_cache($exp_time = null) + { + return $this->clearCache(null, null, null, $exp_time); + } + + /** + * test to see if valid cache exists for this template + * + * @param string $tpl_file name of template file + * @param string $cache_id + * @param string $compile_id + * + * @return boolean + */ + public function is_cached($tpl_file, $cache_id = null, $compile_id = null) + { + return $this->isCached($tpl_file, $cache_id, $compile_id); + } + + /** + * clear all the assigned template variables. + */ + public function clear_all_assign() + { + $this->clearAllAssign(); + } + + /** + * clears compiled version of specified template resource, + * or all compiled template files if one is not specified. + * This function is for advanced use only, not normally needed. + * + * @param string $tpl_file + * @param string $compile_id + * @param string $exp_time + * + * @return boolean results of {@link smarty_core_rm_auto()} + */ + public function clear_compiled_tpl($tpl_file = null, $compile_id = null, $exp_time = null) + { + return $this->clearCompiledTemplate($tpl_file, $compile_id, $exp_time); + } + + /** + * Checks whether requested template exists. + * + * @param string $tpl_file + * + * @return boolean + */ + public function template_exists($tpl_file) + { + return $this->templateExists($tpl_file); + } + + /** + * Returns an array containing template variables + * + * @param string $name + * + * @return array + */ + public function get_template_vars($name = null) + { + return $this->getTemplateVars($name); + } + + /** + * Returns an array containing config variables + * + * @param string $name + * + * @return array + */ + public function get_config_vars($name = null) + { + return $this->getConfigVars($name); + } + + /** + * load configuration values + * + * @param string $file + * @param string $section + * @param string $scope + */ + public function config_load($file, $section = null, $scope = 'global') + { + $this->ConfigLoad($file, $section, $scope); + } + + /** + * return a reference to a registered object + * + * @param string $name + * + * @return object + */ + public function get_registered_object($name) + { + return $this->getRegisteredObject($name); + } + + /** + * clear configuration values + * + * @param string $var + */ + public function clear_config($var = null) + { + $this->clearConfig($var); + } + + /** + * trigger Smarty error + * + * @param string $error_msg + * @param integer $error_type + */ + public function trigger_error($error_msg, $error_type = E_USER_WARNING) + { + trigger_error("Smarty error: $error_msg", $error_type); + } +} diff --git a/misc/smarty_libs/bootstrap.php b/misc/smarty_libs/bootstrap.php new file mode 100644 index 0000000..3209608 --- /dev/null +++ b/misc/smarty_libs/bootstrap.php @@ -0,0 +1,17 @@ + + * + * For the full copyright and license information, please view the LICENSE + * file that was distributed with this source code. + */ + +/* + * Load and register Smarty Autoloader + */ +if (!class_exists('Smarty_Autoloader')) { + require __DIR__ . '/Autoloader.php'; +} +Smarty_Autoloader::register(); diff --git a/misc/smarty_libs/debug.tpl b/misc/smarty_libs/debug.tpl new file mode 100644 index 0000000..5526cbc --- /dev/null +++ b/misc/smarty_libs/debug.tpl @@ -0,0 +1,160 @@ +{capture name='_smarty_debug' assign=debug_output} + + + + Smarty Debug Console + + + + +

Smarty {Smarty::SMARTY_VERSION} Debug Console + - {if isset($template_name)}{$template_name|debug_print_var nofilter} {/if}{if !empty($template_data)}Total Time {$execution_time|string_format:"%.5f"}{/if}

+ + {if !empty($template_data)} +

included templates & config files (load time in seconds)

+
+ {foreach $template_data as $template} + {$template.name} +
   + (compile {$template['compile_time']|string_format:"%.5f"}) (render {$template['render_time']|string_format:"%.5f"}) (cache {$template['cache_time']|string_format:"%.5f"}) + +
+ {/foreach} +
+ {/if} + +

assigned template variables

+ + + {foreach $assigned_vars as $vars} + + + + + {/foreach} +

${$vars@key}

+ {if isset($vars['nocache'])}Nocache
{/if} + {if isset($vars['scope'])}Origin: {$vars['scope']|debug_print_var nofilter}{/if} +

Value

{$vars['value']|debug_print_var:10:80 nofilter}		{if isset($vars['attributes'])}

Attributes

{$vars['attributes']|debug_print_var nofilter} {/if}
+ +

assigned config file variables

+ + + {foreach $config_vars as $vars} + + + + + {/foreach} + +

#{$vars@key}#

+ {if isset($vars['scope'])}Origin: {$vars['scope']|debug_print_var nofilter}{/if} + 		{$vars['value']|debug_print_var:10:80 nofilter}
+ + +{/capture} + diff --git a/misc/smarty_libs/plugins/block.textformat.php b/misc/smarty_libs/plugins/block.textformat.php new file mode 100644 index 0000000..e2c5e3d --- /dev/null +++ b/misc/smarty_libs/plugins/block.textformat.php @@ -0,0 +1,114 @@ + + * Name: textformat
+ * Purpose: format text a certain way with preset styles + * or custom wrap/indent settings
+ * Params: + * 
+ * - style         - string (email)
+ * - indent        - integer (0)
+ * - wrap          - integer (80)
+ * - wrap_char     - string ("\n")
+ * - indent_char   - string (" ")
+ * - wrap_boundary - boolean (true)
+ *
+ * + * @link http://www.smarty.net/manual/en/language.function.textformat.php {textformat} + * (Smarty online manual) + * + * @param array $params parameters + * @param string $content contents of the block + * @param Smarty_Internal_Template $template template object + * @param boolean &$repeat repeat flag + * + * @return string content re-formatted + * @author Monte Ohrt + */ +function smarty_block_textformat($params, $content, $template, &$repeat) +{ + if (is_null($content)) { + return; + } + if (Smarty::$_MBSTRING && !is_callable('smarty_mb_wordwrap')) { + require_once(SMARTY_PLUGINS_DIR . 'shared.mb_wordwrap.php'); + } + + $style = null; + $indent = 0; + $indent_first = 0; + $indent_char = ' '; + $wrap = 80; + $wrap_char = "\n"; + $wrap_cut = false; + $assign = null; + + foreach ($params as $_key => $_val) { + switch ($_key) { + case 'style': + case 'indent_char': + case 'wrap_char': + case 'assign': + $$_key = (string) $_val; + break; + + case 'indent': + case 'indent_first': + case 'wrap': + $$_key = (int) $_val; + break; + + case 'wrap_cut': + $$_key = (bool) $_val; + break; + + default: + trigger_error("textformat: unknown attribute '$_key'"); + } + } + + if ($style == 'email') { + $wrap = 72; + } + // split into paragraphs + $_paragraphs = preg_split('![\r\n]{2}!', $content); + + foreach ($_paragraphs as &$_paragraph) { + if (!$_paragraph) { + continue; + } + // convert mult. spaces & special chars to single space + $_paragraph = + preg_replace(array('!\s+!' . Smarty::$_UTF8_MODIFIER, '!(^\s+)|(\s+$)!' . Smarty::$_UTF8_MODIFIER), + array(' ', ''), $_paragraph); + // indent first line + if ($indent_first > 0) { + $_paragraph = str_repeat($indent_char, $indent_first) . $_paragraph; + } + // wordwrap sentences + if (Smarty::$_MBSTRING) { + $_paragraph = smarty_mb_wordwrap($_paragraph, $wrap - $indent, $wrap_char, $wrap_cut); + } else { + $_paragraph = wordwrap($_paragraph, $wrap - $indent, $wrap_char, $wrap_cut); + } + // indent lines + if ($indent > 0) { + $_paragraph = preg_replace('!^!m', str_repeat($indent_char, $indent), $_paragraph); + } + } + $_output = implode($wrap_char . $wrap_char, $_paragraphs); + + if ($assign) { + $template->assign($assign, $_output); + } else { + return $_output; + } +} diff --git a/misc/smarty_libs/plugins/function.counter.php b/misc/smarty_libs/plugins/function.counter.php new file mode 100644 index 0000000..bcc8f49 --- /dev/null +++ b/misc/smarty_libs/plugins/function.counter.php @@ -0,0 +1,73 @@ + + * Name: counter
+ * Purpose: print out a counter value + * + * @author Monte Ohrt + * @link http://www.smarty.net/manual/en/language.function.counter.php {counter} + * (Smarty online manual) + * + * @param array $params parameters + * @param Smarty_Internal_Template $template template object + * + * @return string|null + */ +function smarty_function_counter($params, $template) +{ + static $counters = array(); + + $name = (isset($params[ 'name' ])) ? $params[ 'name' ] : 'default'; + if (!isset($counters[ $name ])) { + $counters[ $name ] = array('start' => 1, 'skip' => 1, 'direction' => 'up', 'count' => 1); + } + $counter =& $counters[ $name ]; + + if (isset($params[ 'start' ])) { + $counter[ 'start' ] = $counter[ 'count' ] = (int) $params[ 'start' ]; + } + + if (!empty($params[ 'assign' ])) { + $counter[ 'assign' ] = $params[ 'assign' ]; + } + + if (isset($counter[ 'assign' ])) { + $template->assign($counter[ 'assign' ], $counter[ 'count' ]); + } + + if (isset($params[ 'print' ])) { + $print = (bool) $params[ 'print' ]; + } else { + $print = empty($counter[ 'assign' ]); + } + + if ($print) { + $retval = $counter[ 'count' ]; + } else { + $retval = null; + } + + if (isset($params[ 'skip' ])) { + $counter[ 'skip' ] = $params[ 'skip' ]; + } + + if (isset($params[ 'direction' ])) { + $counter[ 'direction' ] = $params[ 'direction' ]; + } + + if ($counter[ 'direction' ] == "down") { + $counter[ 'count' ] -= $counter[ 'skip' ]; + } else { + $counter[ 'count' ] += $counter[ 'skip' ]; + } + + return $retval; +} diff --git a/misc/smarty_libs/plugins/function.cycle.php b/misc/smarty_libs/plugins/function.cycle.php new file mode 100644 index 0000000..a76d49a --- /dev/null +++ b/misc/smarty_libs/plugins/function.cycle.php @@ -0,0 +1,105 @@ + + * Name: cycle
+ * Date: May 3, 2002
+ * Purpose: cycle through given values
+ * Params: + * 
+ * - name      - name of cycle (optional)
+ * - values    - comma separated list of values to cycle, or an array of values to cycle
+ *               (this can be left out for subsequent calls)
+ * - reset     - boolean - resets given var to true
+ * - print     - boolean - print var or not. default is true
+ * - advance   - boolean - whether or not to advance the cycle
+ * - delimiter - the value delimiter, default is ","
+ * - assign    - boolean, assigns to template var instead of printed.
+ *
+ * Examples:
+ * 
+ * {cycle values="#eeeeee,#d0d0d0d"}
+ * {cycle name=row values="one,two,three" reset=true}
+ * {cycle name=row}
+ *
+ * + * @link http://www.smarty.net/manual/en/language.function.cycle.php {cycle} + * (Smarty online manual) + * @author Monte Ohrt + * @author credit to Mark Priatel + * @author credit to Gerard + * @author credit to Jason Sweat + * @version 1.3 + * + * @param array $params parameters + * @param Smarty_Internal_Template $template template object + * + * @return string|null + */ + +function smarty_function_cycle($params, $template) +{ + static $cycle_vars; + + $name = (empty($params[ 'name' ])) ? 'default' : $params[ 'name' ]; + $print = (isset($params[ 'print' ])) ? (bool) $params[ 'print' ] : true; + $advance = (isset($params[ 'advance' ])) ? (bool) $params[ 'advance' ] : true; + $reset = (isset($params[ 'reset' ])) ? (bool) $params[ 'reset' ] : false; + + if (!isset($params[ 'values' ])) { + if (!isset($cycle_vars[ $name ][ 'values' ])) { + trigger_error("cycle: missing 'values' parameter"); + + return; + } + } else { + if (isset($cycle_vars[ $name ][ 'values' ]) && $cycle_vars[ $name ][ 'values' ] != $params[ 'values' ]) { + $cycle_vars[ $name ][ 'index' ] = 0; + } + $cycle_vars[ $name ][ 'values' ] = $params[ 'values' ]; + } + + if (isset($params[ 'delimiter' ])) { + $cycle_vars[ $name ][ 'delimiter' ] = $params[ 'delimiter' ]; + } elseif (!isset($cycle_vars[ $name ][ 'delimiter' ])) { + $cycle_vars[ $name ][ 'delimiter' ] = ','; + } + + if (is_array($cycle_vars[ $name ][ 'values' ])) { + $cycle_array = $cycle_vars[ $name ][ 'values' ]; + } else { + $cycle_array = explode($cycle_vars[ $name ][ 'delimiter' ], $cycle_vars[ $name ][ 'values' ]); + } + + if (!isset($cycle_vars[ $name ][ 'index' ]) || $reset) { + $cycle_vars[ $name ][ 'index' ] = 0; + } + + if (isset($params[ 'assign' ])) { + $print = false; + $template->assign($params[ 'assign' ], $cycle_array[ $cycle_vars[ $name ][ 'index' ] ]); + } + + if ($print) { + $retval = $cycle_array[ $cycle_vars[ $name ][ 'index' ] ]; + } else { + $retval = null; + } + + if ($advance) { + if ($cycle_vars[ $name ][ 'index' ] >= count($cycle_array) - 1) { + $cycle_vars[ $name ][ 'index' ] = 0; + } else { + $cycle_vars[ $name ][ 'index' ] ++; + } + } + + return $retval; +} diff --git a/misc/smarty_libs/plugins/function.fetch.php b/misc/smarty_libs/plugins/function.fetch.php new file mode 100644 index 0000000..cb60dd9 --- /dev/null +++ b/misc/smarty_libs/plugins/function.fetch.php @@ -0,0 +1,221 @@ + + * Name: fetch
+ * Purpose: fetch file, web or ftp data and display results + * + * @link http://www.smarty.net/manual/en/language.function.fetch.php {fetch} + * (Smarty online manual) + * @author Monte Ohrt + * + * @param array $params parameters + * @param Smarty_Internal_Template $template template object + * + * @throws SmartyException + * @return string|null if the assign parameter is passed, Smarty assigns the result to a template variable + */ +function smarty_function_fetch($params, $template) +{ + if (empty($params[ 'file' ])) { + trigger_error("[plugin] fetch parameter 'file' cannot be empty", E_USER_NOTICE); + + return; + } + + // strip file protocol + if (stripos($params[ 'file' ], 'file://') === 0) { + $params[ 'file' ] = substr($params[ 'file' ], 7); + } + + $protocol = strpos($params[ 'file' ], '://'); + if ($protocol !== false) { + $protocol = strtolower(substr($params[ 'file' ], 0, $protocol)); + } + + if (isset($template->smarty->security_policy)) { + if ($protocol) { + // remote resource (or php stream, …) + if (!$template->smarty->security_policy->isTrustedUri($params[ 'file' ])) { + return; + } + } else { + // local file + if (!$template->smarty->security_policy->isTrustedResourceDir($params[ 'file' ])) { + return; + } + } + } + + $content = ''; + if ($protocol == 'http') { + // http fetch + if ($uri_parts = parse_url($params[ 'file' ])) { + // set defaults + $host = $server_name = $uri_parts[ 'host' ]; + $timeout = 30; + $accept = "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*"; + $agent = "Smarty Template Engine " . Smarty::SMARTY_VERSION; + $referer = ""; + $uri = !empty($uri_parts[ 'path' ]) ? $uri_parts[ 'path' ] : '/'; + $uri .= !empty($uri_parts[ 'query' ]) ? '?' . $uri_parts[ 'query' ] : ''; + $_is_proxy = false; + if (empty($uri_parts[ 'port' ])) { + $port = 80; + } else { + $port = $uri_parts[ 'port' ]; + } + if (!empty($uri_parts[ 'user' ])) { + $user = $uri_parts[ 'user' ]; + } + if (!empty($uri_parts[ 'pass' ])) { + $pass = $uri_parts[ 'pass' ]; + } + // loop through parameters, setup headers + foreach ($params as $param_key => $param_value) { + switch ($param_key) { + case "file": + case "assign": + case "assign_headers": + break; + case "user": + if (!empty($param_value)) { + $user = $param_value; + } + break; + case "pass": + if (!empty($param_value)) { + $pass = $param_value; + } + break; + case "accept": + if (!empty($param_value)) { + $accept = $param_value; + } + break; + case "header": + if (!empty($param_value)) { + if (!preg_match('![\w\d-]+: .+!', $param_value)) { + trigger_error("[plugin] invalid header format '" . $param_value . "'", E_USER_NOTICE); + + return; + } else { + $extra_headers[] = $param_value; + } + } + break; + case "proxy_host": + if (!empty($param_value)) { + $proxy_host = $param_value; + } + break; + case "proxy_port": + if (!preg_match('!\D!', $param_value)) { + $proxy_port = (int) $param_value; + } else { + trigger_error("[plugin] invalid value for attribute '" . $param_key . "'", E_USER_NOTICE); + + return; + } + break; + case "agent": + if (!empty($param_value)) { + $agent = $param_value; + } + break; + case "referer": + if (!empty($param_value)) { + $referer = $param_value; + } + break; + case "timeout": + if (!preg_match('!\D!', $param_value)) { + $timeout = (int) $param_value; + } else { + trigger_error("[plugin] invalid value for attribute '" . $param_key . "'", E_USER_NOTICE); + + return; + } + break; + default: + trigger_error("[plugin] unrecognized attribute '" . $param_key . "'", E_USER_NOTICE); + + return; + } + } + if (!empty($proxy_host) && !empty($proxy_port)) { + $_is_proxy = true; + $fp = fsockopen($proxy_host, $proxy_port, $errno, $errstr, $timeout); + } else { + $fp = fsockopen($server_name, $port, $errno, $errstr, $timeout); + } + + if (!$fp) { + trigger_error("[plugin] unable to fetch: $errstr ($errno)", E_USER_NOTICE); + + return; + } else { + if ($_is_proxy) { + fputs($fp, 'GET ' . $params[ 'file' ] . " HTTP/1.0\r\n"); + } else { + fputs($fp, "GET $uri HTTP/1.0\r\n"); + } + if (!empty($host)) { + fputs($fp, "Host: $host\r\n"); + } + if (!empty($accept)) { + fputs($fp, "Accept: $accept\r\n"); + } + if (!empty($agent)) { + fputs($fp, "User-Agent: $agent\r\n"); + } + if (!empty($referer)) { + fputs($fp, "Referer: $referer\r\n"); + } + if (isset($extra_headers) && is_array($extra_headers)) { + foreach ($extra_headers as $curr_header) { + fputs($fp, $curr_header . "\r\n"); + } + } + if (!empty($user) && !empty($pass)) { + fputs($fp, "Authorization: BASIC " . base64_encode("$user:$pass") . "\r\n"); + } + + fputs($fp, "\r\n"); + while (!feof($fp)) { + $content .= fgets($fp, 4096); + } + fclose($fp); + $csplit = preg_split("!\r\n\r\n!", $content, 2); + + $content = $csplit[ 1 ]; + + if (!empty($params[ 'assign_headers' ])) { + $template->assign($params[ 'assign_headers' ], preg_split("!\r\n!", $csplit[ 0 ])); + } + } + } else { + trigger_error("[plugin fetch] unable to parse URL, check syntax", E_USER_NOTICE); + + return; + } + } else { + $content = @file_get_contents($params[ 'file' ]); + if ($content === false) { + throw new SmartyException("{fetch} cannot read resource '" . $params[ 'file' ] . "'"); + } + } + + if (!empty($params[ 'assign' ])) { + $template->assign($params[ 'assign' ], $content); + } else { + return $content; + } +} diff --git a/misc/smarty_libs/plugins/function.html_checkboxes.php b/misc/smarty_libs/plugins/function.html_checkboxes.php new file mode 100644 index 0000000..04ce457 --- /dev/null +++ b/misc/smarty_libs/plugins/function.html_checkboxes.php @@ -0,0 +1,251 @@ + + * Type: function
+ * Name: html_checkboxes
+ * Date: 24.Feb.2003
+ * Purpose: Prints out a list of checkbox input types
+ * Examples: + * 
+ * {html_checkboxes values=$ids output=$names}
+ * {html_checkboxes values=$ids name='box' separator='
' output=$names}
+ * {html_checkboxes values=$ids checked=$checked separator='
' output=$names}
+ *
+ * Params: + * 
+ * - name       (optional) - string default "checkbox"
+ * - values     (required) - array
+ * - options    (optional) - associative array
+ * - checked    (optional) - array default not set
+ * - separator  (optional) - ie 
 or  
+ * - output     (optional) - the output next to each checkbox
+ * - assign     (optional) - assign the output as an array to this variable
+ * - escape     (optional) - escape the content (not value), defaults to true
+ *
+ * + * @link http://www.smarty.net/manual/en/language.function.html.checkboxes.php {html_checkboxes} + * (Smarty online manual) + * @author Christopher Kvarme + * @author credits to Monte Ohrt + * @version 1.0 + * + * @param array $params parameters + * @param object $template template object + * + * @return string + * @uses smarty_function_escape_special_chars() + */ +function smarty_function_html_checkboxes($params, $template) +{ + if (!is_callable('smarty_function_escape_special_chars')) { + require_once(SMARTY_PLUGINS_DIR . 'shared.escape_special_chars.php'); + } + + $name = 'checkbox'; + $values = null; + $options = null; + $selected = array(); + $separator = ''; + $escape = true; + $labels = true; + $label_ids = false; + $output = null; + + $extra = ''; + + foreach ($params as $_key => $_val) { + switch ($_key) { + case 'name': + case 'separator': + $$_key = (string) $_val; + break; + + case 'escape': + case 'labels': + case 'label_ids': + $$_key = (bool) $_val; + break; + + case 'options': + $$_key = (array) $_val; + break; + + case 'values': + case 'output': + $$_key = array_values((array) $_val); + break; + + case 'checked': + case 'selected': + if (is_array($_val)) { + $selected = array(); + foreach ($_val as $_sel) { + if (is_object($_sel)) { + if (method_exists($_sel, "__toString")) { + $_sel = smarty_function_escape_special_chars((string) $_sel->__toString()); + } else { + trigger_error("html_checkboxes: selected attribute contains an object of class '" . + get_class($_sel) . "' without __toString() method", E_USER_NOTICE); + continue; + } + } else { + $_sel = smarty_function_escape_special_chars((string) $_sel); + } + $selected[ $_sel ] = true; + } + } elseif (is_object($_val)) { + if (method_exists($_val, "__toString")) { + $selected = smarty_function_escape_special_chars((string) $_val->__toString()); + } else { + trigger_error("html_checkboxes: selected attribute is an object of class '" . get_class($_val) . + "' without __toString() method", E_USER_NOTICE); + } + } else { + $selected = smarty_function_escape_special_chars((string) $_val); + } + break; + + case 'checkboxes': + trigger_error('html_checkboxes: the use of the "checkboxes" attribute is deprecated, use "options" instead', + E_USER_WARNING); + $options = (array) $_val; + break; + + case 'assign': + break; + + case 'strict': + break; + + case 'disabled': + case 'readonly': + if (!empty($params[ 'strict' ])) { + if (!is_scalar($_val)) { + trigger_error("html_options: $_key attribute must be a scalar, only boolean true or string '$_key' will actually add the attribute", + E_USER_NOTICE); + } + + if ($_val === true || $_val === $_key) { + $extra .= ' ' . $_key . '="' . smarty_function_escape_special_chars($_key) . '"'; + } + + break; + } + // omit break; to fall through! + + default: + if (!is_array($_val)) { + $extra .= ' ' . $_key . '="' . smarty_function_escape_special_chars($_val) . '"'; + } else { + trigger_error("html_checkboxes: extra attribute '$_key' cannot be an array", E_USER_NOTICE); + } + break; + } + } + + if (!isset($options) && !isset($values)) { + return ''; + } /* raise error here? */ + + $_html_result = array(); + + if (isset($options)) { + foreach ($options as $_key => $_val) { + $_html_result[] = + smarty_function_html_checkboxes_output($name, $_key, $_val, $selected, $extra, $separator, $labels, + $label_ids, $escape); + } + } else { + foreach ($values as $_i => $_key) { + $_val = isset($output[ $_i ]) ? $output[ $_i ] : ''; + $_html_result[] = + smarty_function_html_checkboxes_output($name, $_key, $_val, $selected, $extra, $separator, $labels, + $label_ids, $escape); + } + } + + if (!empty($params[ 'assign' ])) { + $template->assign($params[ 'assign' ], $_html_result); + } else { + return implode("\n", $_html_result); + } +} + +function smarty_function_html_checkboxes_output($name, $value, $output, $selected, $extra, $separator, $labels, + $label_ids, $escape = true) +{ + $_output = ''; + + if (is_object($value)) { + if (method_exists($value, "__toString")) { + $value = (string) $value->__toString(); + } else { + trigger_error("html_options: value is an object of class '" . get_class($value) . + "' without __toString() method", E_USER_NOTICE); + + return ''; + } + } else { + $value = (string) $value; + } + + if (is_object($output)) { + if (method_exists($output, "__toString")) { + $output = (string) $output->__toString(); + } else { + trigger_error("html_options: output is an object of class '" . get_class($output) . + "' without __toString() method", E_USER_NOTICE); + + return ''; + } + } else { + $output = (string) $output; + } + + if ($labels) { + if ($label_ids) { + $_id = smarty_function_escape_special_chars(preg_replace('![^\w\-\.]!' . Smarty::$_UTF8_MODIFIER, '_', + $name . '_' . $value)); + $_output .= '