webinterface.git

@@ -1,161 +0,0 @@

-<?php

-/*

-This file belongs to the Webinterface of schokokeks.org Hosting

-

-Written by schokokeks.org Hosting, namely

-  Bernd Wurst <bernd@schokokeks.org>

-  Hanno Böck <hanno@schokokeks.org>

-

-This code is published under a 0BSD license.

-

-Nevertheless, in case you use a significant part of this code, we ask (but not require, see the license) that you keep the authors' names in place and return your changes to the public. We would be especially happy if you tell us what you're going to do with this code.

-*/

-

-require_once('inc/base.php');

-require_once('inc/debug.php');

-require_once('inc/security.php');

-

-

-function get_lists($filter)

-{

-    if (! isset($_SESSION['userinfo'])) {

-        return [];

-    }

-    $uid = (int) $_SESSION['userinfo']['uid'];

-    $result = null;

-    if ($filter) {

-        $filter = '%'.$filter.'%';

-        $result = db_query("SELECT id, created, status, listname, fqdn, urlhost, admin, archivesize, subscribers, lastactivity, backend FROM mail.v_mailman_lists WHERE status!='deleted' AND owner=:uid AND (listname LIKE :filter OR fqdn LIKE :filter OR admin LIKE :filter) ORDER BY listname", ['uid' => $uid, 'filter' => $filter]);

-    } else {

-        $result = db_query("SELECT id, created, status, listname, fqdn, urlhost, admin, archivesize, subscribers, lastactivity, backend FROM mail.v_mailman_lists WHERE status!='deleted' AND owner=:uid ORDER BY listname", ['uid' => $uid]);

-    }

-    $ret = [];

-    while ($list = $result->fetch()) {

-        $ret[] = $list;

-    }

-    DEBUG($ret);

-    return $ret;

-}

-

-

-function get_list($id)

-{

-    $args = [":id" => $id,

-                ":uid" => $_SESSION['userinfo']['uid'], ];

-    $result = db_query("SELECT id, created, status, listname, fqdn, urlhost, admin, archivesize, subscribers, lastactivity, backend FROM mail.v_mailman_lists WHERE owner=:uid AND id=:id", $args);

-    if ($result->rowCount() < 1) {

-        system_failure('Die gewünschte Mailingliste konnte nicht gefunden werden');

-    }

-    $list = $result->fetch();

-    DEBUG($list);

-

-    return $list;

-}

-

-

-function delete_list($id)

-{

-    $args = [":id" => $id,

-                ":uid" => $_SESSION['userinfo']['uid'], ];

-    db_query("UPDATE mail.mailman_lists SET status='delete' WHERE owner=:uid AND id=:id", $args);

-}

-

-function request_new_password($id)

-{

-    $args = [":id" => $id,

-                ":uid" => $_SESSION['userinfo']['uid'], ];

-    db_query("UPDATE mail.mailman_lists SET status='newpw' WHERE owner=:uid AND id=:id", $args);

-}

-

-function create_list($listname, $maildomain, $admin)

-{

-    $listname = strtolower($listname);

-    verify_input_username($listname);

-    if (in_array($listname, ["admin", "administrator", "webmaster", "hostmaster", "postmaster"])) {

-        system_failure('Der Mailinglistenname '.$listname.' ist unzulässig.');

-    }

-    if (! check_emailaddr($admin)) {

-        system_failure('Der Verwalter muss eine gültige E-Mail-Adresse sein ('.$admin.').');

-    }

-    # FIXME: Zukünftig soll diese Beschränkung weg fallen!

-    $result = db_query("SELECT id FROM mail.mailman_lists WHERE listname LIKE ?", [$listname]);

-    if ($result->rowCount() > 0) {

-        system_failure('Eine Liste mit diesem Namen existiert bereits auf unserem Mailinglisten-Server (unter einer Ihrer Domains oder unter einer Domain eines anderen Kunden). Jeder Listenname kann auf dem gesamten Server nur einmal verwendet werden.');

-    }

-

-    $args = [":listname" => $listname,

-                ":maildomain" => $maildomain,

-                ":owner" => $_SESSION['userinfo']['uid'],

-                ":admin" => $admin, ];

-

-    db_query("INSERT INTO mail.mailman_lists (status, listname, maildomain, owner, admin) VALUES ('pending', :listname, :maildomain, :owner, :admin)", $args);

-    DEBUG('Neue ID: '.db_insert_id());

-}

-

-function get_possible_mailmandomains()

-{

-    DEBUG('get_possible_mailmandomains()');

-    $uid = (int) $_SESSION['userinfo']['uid'];

-    $result = db_query("SELECT d.id, CONCAT_WS('.',d.domainname,d.tld) AS fqdn, m.backend AS backend FROM kundendaten.domains AS d LEFT JOIN mail.mailman_domains AS m ON (m.domain=d.id) WHERE d.useraccount=:uid AND m.id IS NULL ORDER BY CONCAT_WS('.',d.domainname,d.tld)", [":uid" => $uid]);

-    $ret = [];

-    while ($dom = $result->fetch()) {

-        $ret[] = $dom;

-    }

-    DEBUG($ret);

-    return $ret;

-}

-

-

-function insert_mailman_domain($subdomain, $domainid, $backend = 'mailman')

-{

-    DEBUG("insert_mailman_domain($subdomain, $domainid, $backend)");

-    $possible = get_possible_mailmandomains();

-    $found = false;

-    foreach ($possible as $dom) {

-        if ($domainid == $dom['id']) {

-            $found = true;

-        }

-    }

-    if (! $found) {

-        system_failue('invalid domain id');

-    }

-    db_query("INSERT INTO mail.mailman_domains (hostname, domain, backend) VALUES (:hostname, :domain, :backend)", [":hostname" => $subdomain, ":domain" => $domainid, ":backend" => $backend]);

-    return db_insert_id();

-}

-

-

-function lists_on_domain($domainid)

-{

-    DEBUG("lists_on_domain()");

-    $result = db_query("SELECT id, listname FROM mail.mailman_lists WHERE status != 'delete' AND status != 'deleted' AND maildomain=(SELECT id FROM mail.mailman_domains WHERE domain=?)", [$domainid]);

-    $ret = [];

-    while ($l = $result->fetch()) {

-        $ret[] = $l;

-    }

-    return $ret;

-}

-

-

-function delete_mailman_domain($domainid)

-{

-    DEBUG("delete_mailman_domain()");

-    $lists = lists_on_domain($domainid);

-    if (count($lists) > 0) {

-        system_failure("Es gibt noch Mailinglisten unter diesem Domainnamen, er kann daher nicht gelöscht werden");

-    } else {

-        db_query("DELETE FROM mail.mailman_domains WHERE domain=? AND (SELECT COUNT(*) FROM mail.mailman_lists WHERE maildomain=mail.mailman_domains.id)=0;", [$domainid]);

-    }

-}

-

-function get_mailman_domains()

-{

-    DEBUG('get_mailman_domains()');

-    $uid = (int) $_SESSION['userinfo']['uid'];

-    $result = db_query("SELECT md.id, md.fqdn, md.is_webhost, md.backend FROM mail.v_mailman_domains AS md left join mail.v_domains AS d on (d.id=md.domain) where d.user=?", [$uid]);

-    $ret = [];

-    while ($dom = $result->fetch()) {

-        $ret[] = $dom;

-    }

-    DEBUG($ret);

-    return $ret;

-}

@@ -1,7 +0,0 @@

-

-$(function() {

-    $('#clear').click( function() { 

-        $('#filter').val('');

-        $('#mailman_filter').submit();

-    });

-});

@@ -1,114 +0,0 @@

-<?php

-/*

-This file belongs to the Webinterface of schokokeks.org Hosting

-

-Written by schokokeks.org Hosting, namely

-  Bernd Wurst <bernd@schokokeks.org>

-  Hanno Böck <hanno@schokokeks.org>

-

-This code is published under a 0BSD license.

-

-Nevertheless, in case you use a significant part of this code, we ask (but not require, see the license) that you keep the authors' names in place and return your changes to the public. We would be especially happy if you tell us what you're going to do with this code.

-*/

-

-require_once('inc/jquery.php');

-require_once('inc/icons.php');

-require_once('mailman.php');

-

-require_role(ROLE_SYSTEMUSER);

-

-title('Mailinglisten');

-

-output('<div class="warning">

-    <p><strong>Bitte beachten Sie: Der Mailinglisten-Dienst wird zum Jahresende 2022 eingestellt. Das Anlegen neuer Listen ist nicht mehr möglich.<br>

-    Wenden Sie sich bitte frühzeitig an den Support, wenn Sie Unterstützung beim Umzug zu einem anderen Dienstleister benötigen.</strong></p>

-    </div>');

-

-output('<p>Mit <a href="https://www.gnu.org/software/mailman/index.html">Mailman</a> bieten wir Ihnen eine umfangreiche Lösung für E-Mail-Verteilerlisten an.</p>

-<p>Auf dieser Seite können Sie Ihre Mailinglisten verwalten.</p>

-');

-

-$filter = "";

-if (isset($_REQUEST['filter']) && $_REQUEST['filter'] != '') {

-    $filter = $_REQUEST['filter'];

-}

-$lists = get_lists($filter);

-

-

-// Filter-Funktion

-if (count($lists) > 10 || $filter) {

-    javascript();

-    $form = '<p><label for="filter">Filter für die Anzeige:</label> <input type="text" name="filter" id="filter" value="'.filter_output_html($filter).'"><button type="button" id="clear" title="Filter leeren">&times;</button><input type="submit" value="Filtern!"></p>';

-    output(html_form('mailman_filter', 'lists', '', $form));

-}

-

-

-if (! empty($lists)) {

-    #addnew('newlist', 'Neue Mailingliste anlegen');

-    output('<div id="mailman_lists_container">');

-    foreach ($lists as $list) {

-        $size = $list['archivesize'];

-        $sizestr = $size.' Bytes';

-        if (! $size) {

-            $sizestr = '<em>Kein Archiv</em>';

-        } else {

-            $sizestr = sprintf('%.2f', $size/(1024*1024)).' MB';

-        }

-

-

-        $class = 'regular';

-        $status = 'In Betrieb (erstellt am '.strftime('%d.%m.%Y', strtotime($list['created'])).')';

-        if ($list['status'] == 'delete') {

-            $class = 'deleted';

-            $status = 'Wird gelöscht';

-        } elseif ($list['status'] == 'deleted') {

-            # liste ist schon gelöscht

-            continue;

-        } elseif ($list['status'] == 'pending') {

-            $class = 'new';

-            $status = 'Wird angelegt';

-        } elseif ($list['status'] == 'newpw') {

-            $class = 'edited';

-            $status = 'Neues Passwort angefordert';

-        } elseif ($list['status'] == 'failure') {

-            $class = 'error';

-            $status = 'Fehler bei der Erstellung';

-        }

-

-        $admin = str_replace(',', ', ', $list['admin']);

-

-        $lastactivity = $list['lastactivity'];

-        if (! $lastactivity || $lastactivity < '2000') {

-            $lastactivity = '<em>nie</em>';

-        }

-

-        output("<div class=\"mailman_list $class\"><p class=\"listname\"><span class=\"listname\">{$list['listname']}</span>@{$list['fqdn']}</p>

-        <p class=\"listadmin\">Verwalter: {$admin}</p><p class=\"status\">Status: {$status}<br/>Anzahl Mitglieder: {$list['subscribers']}<br/>Letzte Nutzung: {$lastactivity}</p><p class=\"archivesize\">Archivgröße: {$sizestr}</p>");

-        if ($list['status'] == 'running') {

-            if ($list['backend'] == 'mailman' || $list['backend'] === null) {

-                output("<p class=\"operations\">".

-                    internal_link('save', other_icon("lock.png", "Neues Passwort anfordern").' Neues Passwort anfordern', "action=newpw&id={$list['id']}")."<br>".

-                    internal_link('save', icon_delete("Mailingliste löschen").' Liste löschen', "action=delete&id={$list['id']}")."<br>".

-                    "<a href=\"https://".config('mailman_host')."/mailman/admin.cgi/{$list['listname']}\">".other_icon("database_go.png", "Listen-Verwaltung aufrufen")." Verwaltung aufrufen</a>".

-                    "</p>\n");

-            } elseif ($list['backend'] == 'mailman3') {

-                output("<p class=\"operations\">".

-                    internal_link('save', icon_delete("Mailingliste löschen").' Liste löschen', "action=delete&id={$list['id']}")."<br>".

-                    "<a href=\"https://".$list['urlhost']."/postorius/lists/{$list['listname']}.{$list['fqdn']}\">".other_icon("database_go.png", "Listen-Verwaltung aufrufen")." Verwaltung aufrufen</a>".

-                    "</p>\n");

-            }

-        }

-        output("</div>\n");

-    }

-    output("</div>");

-} else {

-    // keine Listen

-    output('<p><em>Sie betreiben bisher keine Mailinglisten.</em></p>');

-}

-

-# 2021-11-13, Ab sofort keine neuen Mailinglisten mehr

-#addnew('newlist', 'Neue Mailingliste anlegen');

-output("

-<p><strong>Hinweise:</strong><br />

-<sup>1</sup>) Sie können später im Webinterface von Mailman einen abweichenden oder auch mehrere Verwalter eintragen. Die Information auf dieser Seite wird zyklisch synchronisiert.<br />

-<sup>2</sup>) Die Größe der Archive wird in regelmäßigen Abständen eingelesen. Der hier angezeigte Wert ist möglicherweise nicht mehr aktuell.</p>\n");

@@ -1,21 +0,0 @@

-<?php

-/*

-This file belongs to the Webinterface of schokokeks.org Hosting

-

-Written by schokokeks.org Hosting, namely

-  Bernd Wurst <bernd@schokokeks.org>

-  Hanno Böck <hanno@schokokeks.org>

-

-This code is published under a 0BSD license.

-

-Nevertheless, in case you use a significant part of this code, we ask (but not require, see the license) that you keep the authors' names in place and return your changes to the public. We would be especially happy if you tell us what you're going to do with this code.

-*/

-

-require_once('include/mailman.php');

-$role = $_SESSION['role'];

-

-$lists = get_lists('');

-

-if ($role & ROLE_SYSTEMUSER && count($lists) > 0) {

-    $menu['mailman_lists'] = ["label" => "Mailinglisten", "file" => "lists", "weight" => 5, 'submenu' => 'email_vmail'];

-}

@@ -1,3 +0,0 @@

-name = mailman

-description = Mailman-Verwaltung

-permission = Mailinglisten erstellen

@@ -1,49 +0,0 @@

-<?php

-/*

-This file belongs to the Webinterface of schokokeks.org Hosting

-

-Written by schokokeks.org Hosting, namely

-  Bernd Wurst <bernd@schokokeks.org>

-  Hanno Böck <hanno@schokokeks.org>

-

-This code is published under a 0BSD license.

-

-Nevertheless, in case you use a significant part of this code, we ask (but not require, see the license) that you keep the authors' names in place and return your changes to the public. We would be especially happy if you tell us what you're going to do with this code.

-*/

-

-require_once('mailman.php');

-require_role(ROLE_SYSTEMUSER);

-

-title("Neue Mailingliste erstellen");

-$section = 'mailman_lists';

-$domains = get_mailman_domains();

-

-$maildomains = ['0' => config('mailman_host')];

-foreach ($domains as $domain) {

-    $maildomains[$domain['id']] = $domain['fqdn'];

-}

-

-$newdomains = get_possible_mailmandomains();

-if ($newdomains) {

-    $maildomains[null] = '--------------------------';

-    foreach ($newdomains as $domain) {

-        $maildomains['d'.$domain['id']] = 'lists.'.$domain['fqdn'];

-    }

-}

-output(

-    '<p>Erstellen Sie hier eine neue Mailingliste auf unserem zentralen Mailinglisten-Manager (Mailman). Die Liste wird <strong>mit etwas Zeitverzögerung</strong> angelegt, Sie erhalten dann eine E-Mail an die unten angegebene Adresse des Listen-Verwalters.</p>

-    <p><strong>Hinweis zum Listen-Verwalter:</strong> Der Listen-Verwalter bzw. Moderator erhält später im Betrieb auch die Nachrichten, die Mailman nicht zur Liste sendet mit der Bitte um Moderation/Freigabe. Bitte geben Sie hier eine E-Mail-Adresse an, die über keinen besonders aggressiven Spamfilter verfügt und auf der keine Autoresponder aktiviert werden.</p>

-

-'.html_form('mailman_newlist', 'save', 'action=new', '

-<table>

-<tr><td>Listenname:</td><td><input type="text" name="listname" value="" />&#160;@&#160;'.html_select('maildomain', $maildomains, '0').'</td></tr>

-<tr><td>E-Mail-Adresse des Listen-Verwalters:</td><td><input type="text" name="admin" value="'.$_SESSION['userinfo']['username'].'@'.config('masterdomain').'" /></td></tr>

-</table>

-<br />

-<input type="submit" name="submit" value="Anlegen" />

-').'

-

-<h4>Hinweis zu Domains:</h4>

-<p>Die Angabe der Listen-Domain ist bei Mailman eher kosmetischer Natur. Auch wenn Sie eine eigene Domain benutzen, muss der Listennamen dennoch eindeutig auf dem gesamten Server sein.</p>

-<p>Aufgrund der Architektur von Mailman ist es zudem notwendig, für einen Hostname jeweils die Mail-Zustellung fest auf Mailman zu konfigurieren. Unter diesen Subdomains kann keine anderweitige E-Mail-Adresse benutzt werden. Sofern Sie erstmalig eine Ihrer eigenen Domains für eine Mailingliste wählen (im Auswahlfeld unter der Linie) wird eine entsprechende Konfiguration erstellt. Die Liste ist in dem Fall erst nach einigen Minuten (bis zu maximal einer Stunde) für eingehende E-Mails erreichbar.</p>'

-);

@@ -1,81 +0,0 @@

-<?php

-/*

-This file belongs to the Webinterface of schokokeks.org Hosting

-

-Written by schokokeks.org Hosting, namely

-  Bernd Wurst <bernd@schokokeks.org>

-  Hanno Böck <hanno@schokokeks.org>

-

-This code is published under a 0BSD license.

-

-Nevertheless, in case you use a significant part of this code, we ask (but not require, see the license) that you keep the authors' names in place and return your changes to the public. We would be especially happy if you tell us what you're going to do with this code.

-*/

-

-require_once('mailman.php');

-require_role(ROLE_SYSTEMUSER);

-

-$title = "Neue Mailingliste erstellen";

-$domains = get_mailman_domains();

-

-$maildomains = ['0' => config('mailman_host')];

-foreach ($domains as $domain) {

-    $maildomains[$domain['id']] = $domain['fqdn'];

-}

-DEBUG("maildomains");

-DEBUG($maildomains);

-

-if ($_GET['action'] == 'new') {

-    $maildomain = $_POST['maildomain'];

-    DEBUG("maildomain: ".$maildomain);

-    if ($maildomain == null) {

-        system_failure('Ihre Domain-Auswahl scheint ungültig zu sein');

-    } elseif ('0' === (string) $maildomain) {

-        DEBUG("maildomain == 0");

-        $maildomain = null;

-    } elseif (isset($maildomains[$maildomain])) {

-        // regular, OK

-        DEBUG("maildomain in \$maildomains");

-    } else {

-        DEBUG("possible new maildomain");

-        $possible = get_possible_mailmandomains();

-        $found = false;

-        foreach ($possible as $domain) {

-            if ($maildomain == 'd'.$domain['id']) {

-                // lege Mailman-Domain neu an

-                $found = true;

-                $maildomain = insert_mailman_domain('lists', $domain['id']);

-                warning('Die Domain '.$domain['fqdn'].' wurde erstmals für eine Mailingliste benutzt. Aufgrund der dafür nötigen Änderungen kann es bis zu 1 Stunde dauern, bis Mails an diese Adresse korrekt zugestellt werden.');

-            }

-        }

-        if (! $found) {

-            system_failure('Ihre Domain-Auswahl scheint ungültig zu sein');

-        }

-    }

-

-    create_list($_POST['listname'], $maildomain, $_POST['admin']);

-    redirect('lists');

-} elseif ($_GET['action'] == 'newpw') {

-    $list = get_list($_GET['id']);

-    $sure = user_is_sure();

-    if ($sure === null) {

-        are_you_sure('action=newpw&id='.$list['id'], 'Möchten Sie für die Mailingliste »<strong>'.$list['listname'].'</strong>@'.$list['fqdn'].'« ein neues Passwort anfordern? (Das neue Passwort wird dem Listenverwalter zugeschickt.)');

-    } elseif ($sure === true) {

-        request_new_password($list['id']);

-        redirect('lists');

-    } elseif ($sure === false) {

-        redirect('lists');

-    }

-} elseif ($_GET['action'] == 'delete') {

-    $list = get_list($_GET['id']);

-    $sure = user_is_sure();

-    if ($sure === null) {

-        are_you_sure('action=delete&id='.$list['id'], 'Möchten Sie die Mailingliste »<strong>'.$list['listname'].'</strong>@'.$list['fqdn'].'« wirklich löschen?');

-    } elseif ($sure === true) {

-        delete_list($list['id']);

-        redirect('lists');

-    } elseif ($sure === false) {

-        redirect('lists');

-    }

-} else {

-    system_failure('Function not implemented');

-}

@@ -1,67 +0,0 @@

-#mailman_lists_container {

-    display: flex;

-    flex-direction: row;

-    flex-wrap: wrap;

-}

-

-.mailman_list {

-    width: 350px;

-    border: none;

-    border-left: 5px solid black;

-    background-color: #f5f5f5;

-    margin: 10px;

-    padding: 4px;

-}

-

-.mailman_list.regular {

-    border-color: #0a0;

-    background-color: #dfd;

-}

-.mailman_list.deleted {

-    border-color: red;

-    background-color: #fdd;

-}

-.mailman_list.new {

-    border-color: #ff0;

-    background-color: #ffd;

-}

-.mailman_list.edited {

-    border-color: #00a;

-    background-color: #ddf;

-}

-.mailman_list.error {

-    /* nutzt den default */

-}

-

-p.listname {

-    margin: 0;

-    padding: 0;

-    font-size: 100%;

-    font-weight: normal;

-    word-wrap: break-word;

-}

-p.listname span.listname {

-    font-weight: bold;

-    font-size: 130%;

-}

-

-p.listadmin {

-    font-size: 90%;

-    margin-bottom: 0;

-}

-p.status, p.archivesize {

-    margin-top: 0;

-    margin-bottom: 0;

-    font-size: 90%;

-}

-input#filter {

-    padding-right: 25px;

-}

-button#clear {

-    width: 20px;

-    margin-left: -22px;

-    margin-right: 1em;

-    padding: 0 5px;

-    background-color: #fff;

-    border: 0;

-}