From: Baptiste Daroussin Date: Fri, 2 Dec 2022 16:08:41 +0000 (+0100) Subject: web: remove perl and php frontend X-Git-Tag: RELEASE_1_4_0_a2~99 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=15152c0f3087e6fbfeac616d44915a6edd033c9d;p=thirdparty%2Fmlmmj.git web: remove perl and php frontend I have no intention to maintain them --- diff --git a/contrib/Makefile.am b/contrib/Makefile.am index 2608844f..37535181 100644 --- a/contrib/Makefile.am +++ b/contrib/Makefile.am @@ -1,4 +1,4 @@ ## Process this file with automake to produce Makefile.in -EXTRA_DIST = web amime-receive foot_filter pymime +EXTRA_DIST = amime-receive foot_filter pymime SUBDIRS = receivestrip diff --git a/contrib/web/perl-admin/README b/contrib/web/perl-admin/README deleted file mode 100644 index b2d5eaa2..00000000 --- a/contrib/web/perl-admin/README +++ /dev/null @@ -1,62 +0,0 @@ -mlmmj-1.0.0 August 20th 2004 - -To use this web-interface you have to: - -0) Make sure you have the CGI::FastTemplate perl module installed. If not, then - install it. It has no dependencies to other perl modules. - -1) Copy the files from the perl-admin directory of the mlmmj distribution to a - suitable location and point your webroot to the htdocs directory. If you - don't want the webinterface in the root of your website it is recommended to - make an alias in your web server configuration in order to keep the conf - directory at the same level as the htdocs directory and still outside - webscope. - -2) You need to enable cgi in your apache configuration like this - - Options ExecCGI - DirectoryIndex index.cgi - AddHandler cgi-script .cgi - -3) Change the permissions of the listdir/control directories of any list you - want to control using the web-interface, so the web server can write in it: - - # chown -R wwwrun /var/spool/mlmmj/mlmmj-test/control/ - -4) If the web server does not run as the same user the mailserver writes as - you need to create a group (eg. mlmmj) and add both users to it. The - subscribers.d directory then needs to be writable by that group: - - # chgrp -R mlmmj /var/spool/mlmmj/mlmmj-test/subscribers.d - # chmod -R g+w /var/spool/mlmmj/mlmmj-test/subscribers.d - # chgrp -R mlmmj /var/spool/mlmmj/mlmmj-test/digesters.d - # chmod -R g+w /var/spool/mlmmj/mlmmj-test/digesters.d - # chgrp -R mlmmj /var/spool/mlmmj/mlmmj-test/nomailsubs.d - # chmod -R g+w /var/spool/mlmmj/mlmmj-test/nomailsubs.d - # chgrp -R mlmmj /var/spool/mlmmj/mlmmj-test/text - # chmod -R g+w /var/spool/mlmmj/mlmmj-test/text - -To enable access control on Apache you have to: - -5) Rename dot.htaccess to .htaccess and edit the path inside the file to point - to a htpasswd file somewhere outside the webscope. - - If you don't have one already, you can create one like this - - htpasswd -c /home/mlmmj/htpasswd USER - - It will then ask you for a password for the given username. - -6) That is it, you are ready to use the interface. - -Further customization: - -You can set two environment variables in your apache config to control the -configuration of the mlmmj webinterface. Remember to have mod_env loaded if -you do this. - - SetEnv CONFIG_PATH /home/mlmmj/conf/config.pl - SetEnv TUNABLES_PATH /home/mlmmj/conf/tunables.pl - -This allows you to run several instances of the webinterface with e.g. different -topdirs, translated to another language or with another layout. diff --git a/contrib/web/perl-admin/conf/config.pl b/contrib/web/perl-admin/conf/config.pl deleted file mode 100755 index beb73ebc..00000000 --- a/contrib/web/perl-admin/conf/config.pl +++ /dev/null @@ -1,2 +0,0 @@ -$topdir = "/var/spool/mlmmj"; -$templatedir = "/home/mlmmj/templates"; diff --git a/contrib/web/perl-admin/conf/tunables.pl b/contrib/web/perl-admin/conf/tunables.pl deleted file mode 100644 index c57297d7..00000000 --- a/contrib/web/perl-admin/conf/tunables.pl +++ /dev/null @@ -1,243 +0,0 @@ -mlmmj_list("listaddress", - "List address", - "This option contains all addresses which mlmmj sees as listaddresses (see ". - "tocc below). The first one is the one used as the primary one, when mlmmj ". - "sends out mail."); - -mlmmj_boolean("closedlist", - "Closed list", - "If the list is open or closed. If it's closed subscription ". - "and unsubscription via mail is disabled."); - -mlmmj_boolean("closedlistsub", - "Closed for subscription", - "Closed for subscription. Unsubscription is possible."); - -mlmmj_boolean("nosubconfirm", - "No subscribe confirmation", - "If this option is set, the user is not required to confirm when subscribing or unsubscribing."); - -mlmmj_boolean("moderated", - "Moderated", - "If this option is set, the emailaddresses in the file listdir/control/moderators will act as moderators for the list."); - -mlmmj_list("moderators", - "Moderators", - "If the list is moderated, this is the list of moderators."); - -mlmmj_list("submod", - "Subscription moderators", - "This is the list of moderators that will approve subscriptions."); - -mlmmj_boolean("tocc", - "To: Cc:", - "If this option is set, the list address does not have to be in the To: or Cc: header of the email to the list."); - -mlmmj_boolean("addtohdr", - "Add To: header", - "If this option is set, a To: header including the recipients emailaddress will be added to outgoing mail. ". - "Recommended usage is to remove existing To: headers with delheaders (see below) first."); - -mlmmj_boolean("subonlypost", - "Subscribers only post", - "If this option is set, only people who are subscribed to the list, are allowed to post to it. ". - "The check is made against the \"From:\" header."); - -mlmmj_boolean("modonlypost", - "Moderators only post", - "When this file is present, only people listed in listdir/control/moderators ". - "are allowed to post to it. The check is made against the "From:" header."); - -mlmmj_boolean("modnonsubposts", - "Moderate non-allowed posts", - "If this option is set, postings from people who are not allowed to post ". - "to the list will be moderated instead of denied."); - -mlmmj_string("modreqlife", - "Moderation request lifetime", - "This specifies how long in seconds a mail awaits moderation before it's ". - "discarded. Defaults to 604800 seconds, which is 7 days."); - -mlmmj_string("prefix", - "Prefix", - "The prefix for the Subject: line of mails to the list. This will alter the Subject: line, ". - "and add a prefix if it's not present elsewhere."); - -mlmmj_list("owner", - "Owner", - "The emailaddresses in this list will get mails to ".encode_entities($list)."+owner"); - -mlmmj_list("customheaders", - "Custom headers", - "These headers are added to every mail coming through. This is ". - "the place you want to add Reply-To: header in case you want ". - "such. ". - "If a header should not occur twice in the mail it should be listed in the 'Delete headers' box too."); - -mlmmj_list("delheaders", - "Delete headers", - "In this file is specified *ONE* headertoken to match pr. line. ". - "If the file consists of: Received: Message-ID: Then all occurences of these headers in incoming list mail will be deleted. ". - "\"From \" and \"Return-Path:\" are deleted no matter what."); - -mlmmj_list("access", - "Access", - "If this option is set, all headers of a post to the list is matched against the rules. The first rule to match wins. ". - "See README.access for syntax and examples. NOTE: If this field is empty access control is *disabled*, ". - "unlike having an empty control/access file."); - -mlmmj_string("memorymailsize", - "Memory mail size", - "Here is specified in bytes how big a mail can be and still be prepared for sending in memory. ". - "It's greatly reducing the amount of write system calls to prepare it in memory before sending it, ". - "but can also lead to denial of service attacks. Default is 16k (16384 bytes)."); - -mlmmj_string("relayhost", - "Relay host", - "The host specified (IP address or domainname, both works) in this file will be used for relaying the mail sent to the list. ". - "Defaults to 127.0.0.1."); - -mlmmj_string("smtpport", - "SMTP port", - "In this file a port other than port 25 for connecting to the relayhost can be specified."); - -mlmmj_string("delimiter", - "Delimiter", - "This specifies what to use as recipient delimiter for the list.". - "Default is \"+\"."); - -mlmmj_boolean("notifysub", - "Notify subscribers", - "If this option is set, the owner(s) will get a mail with the address of someone sub/unsubscribing to a mailinglist."); - -mlmmj_boolean("notifymod", - "Notify moderation", - "If this option is set, the poster (based on the envelope from) will ". - "get a mail when their post is being moderation."); - -mlmmj_string("digestinterval", - "Digest interval", - "This option specifies how many seconds will pass before the ". - "next digest is sent. Defaults to 604800 seconds, which is 7 ". - "days."); - -mlmmj_string("digestmaxmails", - "Max. digest mails", - "This option specifies how many mails can accumulate before ". - "digest sending is triggered. Defaults to 50 mails, meaning ". - "that if 50 mails arrive to the list before digestinterval have ". - "passed, the digest is delivered."); - -mlmmj_string("bouncelife", - "Bouncing lifetime", - "This specifies how long in seconds an address can bounce before it's ". - "unsubscribed. Defaults to 432000 seconds, which is 5 days."); - -mlmmj_boolean("noarchive", - "No archive", - "If this option is set, the mails won't be saved in the ". - "archive but simply deleted"); - -mlmmj_boolean("noget", - "No get", - "If this option is set, listname+get-INDEX is turned off."); - -mlmmj_boolean("subonlyget", - "Subscribers only get", - "If this option is set, retrieving old posts with +get-N is only possible for subscribers."); - -mlmmj_string("verp", - "VERP", - "Enable VERP support. Anything added in this variable will be appended the ". - "MAIL FROM: line. If \"postfix\" is put in the file, it'll make postfix use ". - "VERP by adding XVERP=-= to the MAIL FROM: line."); - -mlmmj_string("maxverprecips", - "Maximum VERP recipients", - "How many recipients pr. mail delivered to the smtp server. Defaults to 100."); - -mlmmj_boolean("notoccdenymails", - "No To: Cc: deny mails", - "This switch turns off whether mlmmj sends out notification about postings ". - "being denied due to the listaddress not being in To: or Cc: (see 'tocc')."); - -mlmmj_boolean("noaccessdenymails", - "No access deny mails", - "This switch turns off whether mlmmj sends out notification about postings ". - "being rejected due to an access rule (see 'access')."); - -mlmmj_boolean("nosubonlydenymails", - "No subscribers only deny mails", - "This switch turns off whether mlmmj sends out notification about postings ". - "being rejected due to a subscribers only posting list (see 'subonlypost')."); - -mlmmj_boolean("nomodonlydenymails", - "No moderators only deny mails", - "This switch turns off whether mlmmj sends out notification about postings ". - "being rejected due to a moderators only posting list (see 'modonlypost')."); - -mlmmj_boolean("nosubmodmails", - "No subscription moderated mails", - "This switch turns off whether mlmmj sends out notification about ". - "subscription being moderated to the person requesting subscription". - "(see 'submod')."); - -mlmmj_boolean("nodigesttext", - "No digest text summary", - "This switch turns off whether digest mails will have a text part with a thread ". - "summary."); - -mlmmj_boolean("nodigestsub", - "No digest subscribers", - "If this option is set, subscription to the digest version of the mailinglist ". - "will be denied. (Useful if you don't want to allow digests and notify users ". - "about it)."); - -mlmmj_boolean("nonomailsub", - "No nomail subscribers", - "If this option is set, subscription to the nomail version of the mailinglist ". - "will be denied. (Useful if you don't want to allow nomail and notify users ". - "about it)."); - -mlmmj_string("maxmailsize", - "Max. mail size", - "With this option the maximal allowed size of incoming mails can be specified."); - -mlmmj_boolean("nomaxmailsizedenymails", - "No max. mail size deny mails", - "If this is set, no reject notifications caused by violation of maxmailsize ". - "will be sent."); - -mlmmj_boolean("nolistsubsemail", - "No list subscribers email", - "If this is set, the LISTNAME+list\@ functionality for requesting an ". - "email with the subscribers for owner is disabled."); - -mlmmj_string("staticbounceaddr", - "Static bounce address", - "If this is set to something\@example.org, the bounce address (Return-Path:) ". - "will be fixed to something+listname-bounces-and-so-on\@example.org ". - "in case you need to disable automatic bounce handling."); - -mlmmj_boolean("ifmodsendonlymodmoderate", - "If moderator send only moderator moderate", - "If this is set, then mlmmj in case of moderation checks the ". - "envelope from, to see if the sender is a moderator, and in that case ". - "only send the moderation mails to that address. In practice this means that ". - "a moderator sending mail to the list won't bother all the other moderators ". - "with his mail."); - -mlmmj_list("footer", - "Footer", - "The content of this option is appended to mail sent to the list."); - -mlmmj_boolean("notmetoo", - "Not me too", - "If this is set, mlmmj attempts to exclude the sender of a post ". - "from the distribution list for that post so people don't receive copies ". - "of their own posts."); - -mlmmj_string("smtphelo", - "SMTP Helo Name", - "When this file is present, it contains the hostname to send in the SMTP ". - "EHLO or HELO command. Otherwise the machine hostname is used."); diff --git a/contrib/web/perl-admin/htdocs/dot.htaccess b/contrib/web/perl-admin/htdocs/dot.htaccess deleted file mode 100644 index 6e40ec87..00000000 --- a/contrib/web/perl-admin/htdocs/dot.htaccess +++ /dev/null @@ -1,4 +0,0 @@ -Require valid-user -AuthType Basic -AuthName "mlmmj web-interface" -AuthUserFile /home/mlmmj/htpasswd diff --git a/contrib/web/perl-admin/htdocs/edit.cgi b/contrib/web/perl-admin/htdocs/edit.cgi deleted file mode 100755 index 389a3b8b..00000000 --- a/contrib/web/perl-admin/htdocs/edit.cgi +++ /dev/null @@ -1,122 +0,0 @@ -#!/usr/bin/perl -w - -# Copyright (C) 2004 Morten K. Poulsen -# Copyright (C) 2004 Christian Laursen -# -# $Id$ -# -# Permission is hereby granted, free of charge, to any person obtaining a copy -# of this software and associated documentation files (the "Software"), to -# deal in the Software without restriction, including without limitation the -# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or -# sell copies of the Software, and to permit persons to whom the Software is -# furnished to do so, subject to the following conditions: -# -# The above copyright notice and this permission notice shall be included in -# all copies or substantial portions of the Software. -# -# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -# IN THE SOFTWARE. - -use strict; -use CGI; -use CGI::FastTemplate; -use HTML::Entities; - -use vars qw($topdir $templatedir $list); - -if (exists $ENV{CONFIG_PATH}) { - require $ENV{CONFIG_PATH}; -} else { - require "../conf/config.pl"; -} - -my $tpl = new CGI::FastTemplate($templatedir); - -my $q = new CGI; -$list = $q->param("list"); - -die "no list specified" unless $list; -die "non-existent list" unless -d("$topdir/$list"); - -$tpl->define(main => "edit.html", - boolean => "edit_boolean.html", - string => "edit_string.html", - list => "edit_list.html"); - -$tpl->assign(LIST => encode_entities($list)); - -my $tunables_file = "../conf/tunables.pl"; -if (exists $ENV{TUNABLES_PATH}) { - $tunables_file = $ENV{TUNABLES_PATH}; -} - -do $tunables_file; - -print "Content-type: text/html\n\n"; -$tpl->parse(CONTENT => "main"); -$tpl->print; - -sub mlmmj_boolean { - my ($name, $nicename, $text) = @_; - my $checked = -f "$topdir/$list/control/$name"; - - $tpl->assign(NAME => encode_entities($name)); - $tpl->assign(NICENAME => encode_entities($nicename)); - $tpl->assign(TEXT => encode_entities($text)); - $tpl->assign(CHECKED => $checked ? ' checked' : ''); - - $tpl->parse(ROWS => ".boolean"); -} - -sub mlmmj_string { - my ($name, $nicename, $text) = @_; - my $file = "$topdir/$list/control/$name"; - my $value; - - if (! -f $file) { - $value = ""; - } else { - open(F, $file) or die("can't open $file"); - $value = ; - close(F); - chomp($value); - } - - $tpl->assign(NAME => encode_entities($name)); - $tpl->assign(NICENAME => encode_entities($nicename)); - $tpl->assign(TEXT => encode_entities($text)); - $tpl->assign(VALUE => encode_entities($value)); - - $tpl->parse(ROWS => ".string"); -} - -sub mlmmj_list { - my ($name, $nicename, $text) = @_; - my $file = "$topdir/$list/control/$name"; - my $value; - - if (! -f $file) { - $value = ""; - } else { - open(F, $file) or die("can't open $file"); - while () { - $value .= $_; - } - close(F); - chomp($value); - } - - $tpl->assign(NAME => encode_entities($name)); - $tpl->assign(NICENAME => encode_entities($nicename)); - $tpl->assign(TEXT => encode_entities($text)); - $tpl->assign(VALUE => encode_entities($value)); - - $tpl->parse(ROWS => ".list"); -} - diff --git a/contrib/web/perl-admin/htdocs/edit_text.cgi b/contrib/web/perl-admin/htdocs/edit_text.cgi deleted file mode 100755 index c51eb17e..00000000 --- a/contrib/web/perl-admin/htdocs/edit_text.cgi +++ /dev/null @@ -1,85 +0,0 @@ -#!/usr/bin/perl -w - -# Copyright (C) 2007 Franky Van Liedekerke -# -# $Id$ -# -# Permission is hereby granted, free of charge, to any person obtaining a copy -# of this software and associated documentation files (the "Software"), to -# deal in the Software without restriction, including without limitation the -# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or -# sell copies of the Software, and to permit persons to whom the Software is -# furnished to do so, subject to the following conditions: -# -# The above copyright notice and this permission notice shall be included in -# all copies or substantial portions of the Software. -# -# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -# IN THE SOFTWARE. - -use strict; -use CGI; -use CGI::FastTemplate; -use HTML::Entities; - -use vars qw($topdir $templatedir $list); - -if (exists $ENV{CONFIG_PATH}) { - require $ENV{CONFIG_PATH}; -} else { - require "../conf/config.pl"; -} - -my $tpl = new CGI::FastTemplate($templatedir); - -my $q = new CGI; -$list = $q->param("list"); - -die "no list specified" unless $list; -die "non-existent list" unless -d("$topdir/$list"); - -$tpl->define(main => "edit_text.html", - list => "edit_textstring.html"); - -$tpl->assign(LIST => encode_entities($list)); - -my $textdir = "$topdir/$list/text"; -my @files; -opendir(DIR, $textdir ) || die "can't opendir $textdir: $!"; -@files = grep { !/^\./ && -f "$textdir/$_" } readdir(DIR); -closedir DIR; - -for my $textfile (sort @files) { - mlmmj_text($textfile); -} - -print "Content-type: text/html\n\n"; -$tpl->parse(CONTENT => "main"); -$tpl->print; - -sub mlmmj_text { - my ($name) = @_; - my $file = "$textdir/$name"; - my $value; - - if (! -f $file) { - $value = ""; - } else { - open(F, $file) or die("can't open $file"); - while () { - $value .= $_; - } - close(F); - chomp($value); - } - - $tpl->assign(NAME => encode_entities($name)); - $tpl->assign(VALUE => encode_entities($value)); - - $tpl->parse(ROWS => ".list"); -} diff --git a/contrib/web/perl-admin/htdocs/index.cgi b/contrib/web/perl-admin/htdocs/index.cgi deleted file mode 100755 index 95e648d6..00000000 --- a/contrib/web/perl-admin/htdocs/index.cgi +++ /dev/null @@ -1,57 +0,0 @@ -#!/usr/bin/perl -w - -# Copyright (C) 2004 Morten K. Poulsen -# Copyright (C) 2004 Christian Laursen -# -# $Id$ -# -# Permission is hereby granted, free of charge, to any person obtaining a copy -# of this software and associated documentation files (the "Software"), to -# deal in the Software without restriction, including without limitation the -# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or -# sell copies of the Software, and to permit persons to whom the Software is -# furnished to do so, subject to the following conditions: -# -# The above copyright notice and this permission notice shall be included in -# all copies or substantial portions of the Software. -# -# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -# IN THE SOFTWARE. - -use strict; -use URI::Escape; -use HTML::Entities; -use CGI::FastTemplate; - -use vars qw($topdir $templatedir); - -if (exists $ENV{CONFIG_PATH}) { - require $ENV{CONFIG_PATH}; -} else { - require "../conf/config.pl"; -} - -my $tpl = new CGI::FastTemplate($templatedir); - -$tpl->define(main => "index.html", - row => "index_row.html"); - -my $lists = ""; -opendir(DIR, $topdir) or die "Couldn't open $topdir for reading: $!"; -while (my $list = readdir(DIR)) { - next if $list =~ /^\./; - $tpl->assign(LIST => encode_entities($list)); - $tpl->assign(ULIST => uri_escape($list)); - $tpl->parse(LISTS => '.row'); -} -closedir(DIR); - -print "Content-type: text/html\n\n"; - -$tpl->parse(CONTENT => "main"); -$tpl->print; diff --git a/contrib/web/perl-admin/htdocs/save.cgi b/contrib/web/perl-admin/htdocs/save.cgi deleted file mode 100755 index d0e0d003..00000000 --- a/contrib/web/perl-admin/htdocs/save.cgi +++ /dev/null @@ -1,99 +0,0 @@ -#!/usr/bin/perl -w - -# Copyright (C) 2004 Morten K. Poulsen -# Copyright (C) 2004, 2005 Christian Laursen -# -# $Id$ -# -# Permission is hereby granted, free of charge, to any person obtaining a copy -# of this software and associated documentation files (the "Software"), to -# deal in the Software without restriction, including without limitation the -# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or -# sell copies of the Software, and to permit persons to whom the Software is -# furnished to do so, subject to the following conditions: -# -# The above copyright notice and this permission notice shall be included in -# all copies or substantial portions of the Software. -# -# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -# IN THE SOFTWARE. - -# We might want some kind of validation of the values we are about to save, -# but that would require save.cgi to know about all kind of options that mlmmj -# accepts. I am not sure we want that. -- mortenp 20040709 - -use strict; -use CGI; -use CGI::FastTemplate; -use HTML::Entities; - -use vars qw($topdir $templatedir $list); - -if (exists $ENV{CONFIG_PATH}) { - require $ENV{CONFIG_PATH}; -} else { - require "../conf/config.pl"; -} - -my $tpl = new CGI::FastTemplate($templatedir); - -my $q = new CGI; -$list = $q->param("list"); - -die "no list specified" unless $list; -die "non-existent list" unless -d("$topdir/$list"); - -$tpl->define(main => "save.html"); -$tpl->assign(LIST => encode_entities($list)); - -my $tunables_file = "../conf/tunables.pl"; -if (exists $ENV{TUNABLES_PATH}) { - $tunables_file = $ENV{TUNABLES_PATH}; -} - -do $tunables_file; - -print "Content-type: text/html\n\n"; -$tpl->parse(CONTENT => "main"); -$tpl->print; - -sub mlmmj_boolean { - my ($name, $nicename, $text) = @_; - - my $file = "$topdir/$list/control/$name"; - - my $value = $q->param($name); - if ($value) { - open (FILE, ">$file") or die "Couldn't open $file for writing: $!"; - close FILE; - } else { - unlink $file; - } -} - -sub mlmmj_string { - mlmmj_list(@_); -} - -sub mlmmj_list { - my ($name, $nicename, $text) = @_; - - my $file = "$topdir/$list/control/$name"; - - my $value = $q->param($name); - - if (defined $value && $value !~ /^\s*$/) { - $value .= "\n" if $value !~ /\n$/; - $value =~ s/\s*\r?\n/\n/g; - open (FILE, ">$file") or die "Couldn't open $file for writing: $!"; - print FILE $value; - close FILE; - } else { - unlink $file; - } -} diff --git a/contrib/web/perl-admin/htdocs/save_text.cgi b/contrib/web/perl-admin/htdocs/save_text.cgi deleted file mode 100755 index 2bdd1d07..00000000 --- a/contrib/web/perl-admin/htdocs/save_text.cgi +++ /dev/null @@ -1,77 +0,0 @@ -#!/usr/bin/perl -w - -# Copyright (C) 2007 Franky Van Liedekerke -# -# $Id$ -# -# Permission is hereby granted, free of charge, to any person obtaining a copy -# of this software and associated documentation files (the "Software"), to -# deal in the Software without restriction, including without limitation the -# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or -# sell copies of the Software, and to permit persons to whom the Software is -# furnished to do so, subject to the following conditions: -# -# The above copyright notice and this permission notice shall be included in -# all copies or substantial portions of the Software. -# -# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -# IN THE SOFTWARE. - -# We might want some kind of validation of the values we are about to save, -# but that would require save.cgi to know about all kind of options that mlmmj -# accepts. I am not sure we want that. -- mortenp 20040709 - -use strict; -use CGI; -use CGI::FastTemplate; -use HTML::Entities; - -use vars qw($topdir $templatedir $list); - -if (exists $ENV{CONFIG_PATH}) { - require $ENV{CONFIG_PATH}; -} else { - require "../conf/config.pl"; -} - -my $tpl = new CGI::FastTemplate($templatedir); - -my $q = new CGI; -$list = $q->param("list"); - -die "no list specified" unless $list; -die "non-existent list" unless -d("$topdir/$list"); - -$tpl->define(main => "save_text.html"); -$tpl->assign(LIST => encode_entities($list)); - -my $textdir = "$topdir/$list/text"; -my @files; -opendir(DIR, $textdir ) || die "can't opendir $textdir: $!"; -@files = grep { !/^\./ && -f "$textdir/$_" } readdir(DIR); -closedir DIR; - -for my $textfile (sort @files) { - mlmmj_text($textfile); -} - -print "Content-type: text/html\n\n"; -$tpl->parse(CONTENT => "main"); -$tpl->print; - -sub mlmmj_text { - my ($name, $nicename, $text) = @_; - - my $file = "$textdir/$name"; - - my $value = $q->param($name); - - open (FILE, ">$file") or die "Couldn't open $file for writing: $!"; - print FILE $value; - close FILE; -} diff --git a/contrib/web/perl-admin/htdocs/subscribers.cgi b/contrib/web/perl-admin/htdocs/subscribers.cgi deleted file mode 100755 index 84a60042..00000000 --- a/contrib/web/perl-admin/htdocs/subscribers.cgi +++ /dev/null @@ -1,265 +0,0 @@ -#!/usr/bin/perl -w - -# Copyright (C) 2004, 2005, 2006, 2007 Christian Laursen -# Copyright (C) 2007 Franky Van Liedekerke -# -# $Id$ -# -# Permission is hereby granted, free of charge, to any person obtaining a copy -# of this software and associated documentation files (the "Software"), to -# deal in the Software without restriction, including without limitation the -# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or -# sell copies of the Software, and to permit persons to whom the Software is -# furnished to do so, subject to the following conditions: -# -# The above copyright notice and this permission notice shall be included in -# all copies or substantial portions of the Software. -# -# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -# IN THE SOFTWARE. - -use strict; -use URI::Escape; -use HTML::Entities; -use CGI; -use CGI::FastTemplate; -use Digest::MD5; - -use vars qw($topdir $templatedir $list); - -if (exists $ENV{CONFIG_PATH}) { - require $ENV{CONFIG_PATH}; -} else { - require "../conf/config.pl"; -} - -my $mlmmjsub = "/usr/local/bin/mlmmj-sub"; -my $mlmmjunsub = "/usr/local/bin/mlmmj-unsub"; - -my $tpl = new CGI::FastTemplate($templatedir); - -my $q = new CGI; -$list = $q->param("list"); -my $update = $q->param("update"); -my $search = $q->param("search"); -my $email = $q->param("email"); -my $file = $q->param("file"); -my $removeall = $q->param("removeall"); - -# Everything is submitted from the same form so a little hackery is needed -# to pick the right action to perform. When doing subscribe and search we -# don't depend on the submit buttons since hitting enter in either of the -# text fields will pick the "Subscribe" button. -# -# If an email has been entered for subscription, clear the search field. - -if (defined $email && $email !~ /^$/) { - $search = undef; -} else { - $email = undef; -} - -die "no list specified" unless $list; -die "non-existent list" unless -d("$topdir/$list"); - -$tpl->define(main => "subscribers.html", - row => "subscribers_row.html"); - -my $action = ''; - -my $subscribers; -my $subcount; - -if (defined $removeall) { - my $removeall_check = $q->param("removeall_check"); - if ($removeall_check) { - unlink <$topdir/$list/subscribers.d/*>; - unlink <$topdir/$list/nomailsubs.d/*>; - unlink <$topdir/$list/digesters.d/*>; - $action = "All subscribers have been removed."; - } else { - $action = "Safety check not clicked, nothing done."; - } -} elsif (defined $file) { - my $subscriber = $q->param("subscriber"); - my $digester = $q->param("digester"); - my $nomailsub = $q->param("nomailsub"); - my $upload_handle = $q->upload("file"); - binmode $upload_handle; - while (<$upload_handle>) { - s/\r?\n$//; - my $email=$_; - if ($email =~ /^[a-z0-9\.\-_\@]+$/i) { - if ($subscriber) { - system "$mlmmjsub -L $topdir/$list -a $email -U -s"; - } - if ($digester) { - system "$mlmmjsub -L $topdir/$list -a $email -Ud -s"; - } - if ($nomailsub) { - system "$mlmmjsub -L $topdir/$list -a $email -Un -s"; - } - if ($? == 0) { - $action .= "$email has been subscribed.
\n"; - } else { - $action .= "error subscribing $email (code $?)
\n"; - } - } else { - $action .= '"'.encode_entities($email).'" is not a valid email address.
'; - } - } -} elsif (defined $email) { - my $subscriber = $q->param("subscriber"); - my $digester = $q->param("digester"); - my $nomailsub = $q->param("nomailsub"); - if ($email =~ /^[a-z0-9\.\-_\@]+$/i) { - if ($subscriber) { - system "$mlmmjsub -L $topdir/$list -a $email -U -s"; - } - if ($digester) { - system "$mlmmjsub -L $topdir/$list -a $email -Ud -s"; - } - if ($nomailsub) { - system "$mlmmjsub -L $topdir/$list -a $email -Un -s"; - } - if ($? == 0) { - $action = "$email has been added"; - } else { - $action = "error adding $email (code $?)"; - } - } else { - $action = '"'.encode_entities($email).'" is not a valid email address.'; - } -} elsif (defined $update) { - my $maxid = $q->param("maxid"); - $subscribers = get_subscribers(); - for (my $i = 0; $i < $maxid; ++$i) { - my $email = $q->param("email$i"); - if (defined $email) { - if ($email =~ /^[a-z0-9\.\-_\@]+$/i) { - my $updated = 0; - - my @actions = (); - - push @actions, {oldstatus => exists $subscribers->{$email}->{subscriber}, - newstatus => defined $q->param("subscriber$i"), - action => ''}; - push @actions, {oldstatus => exists $subscribers->{$email}->{digester}, - newstatus => defined $q->param("digester$i"), - action => '-d'}; - push @actions, {oldstatus => exists $subscribers->{$email}->{nomailsub}, - newstatus => defined $q->param("nomailsub$i"), - action => '-n'}; - - for my $action (@actions) { - if ($action->{oldstatus} && !$action->{newstatus}) { - system "$mlmmjunsub -L $topdir/$list -a $email $action->{action}"; - $updated = 1; - } elsif (!$action->{oldstatus} && $action->{newstatus}) { - system "$mlmmjsub -L $topdir/$list -a $email $action->{action}"; - $updated = 1; - } - } - - if ($updated) { - $action .= "Subscription for $email has been updated.
\n"; - } - } else { - $action .= '"'.encode_entities($email).'" is not a valid email address.'."
\n"; - } - } - } -} - -$tpl->assign(ACTION => $action); - -$subscribers = get_subscribers(); - -my $paginator = ''; -my $page = $q->param('page'); -$page = 0 unless defined $page && $page =~ /^\d+$/; -if (keys %$subscribers > 50) { - $paginator = 'Pages: '; - my $pages = (keys %$subscribers) / 50; - $page = 0 unless ($page >= 0 && $page < $pages); - my $searchstr = (defined $search && $search ne '') ? '&search='.uri_escape($search) : ''; - - for (my $i = 0; $ i < $pages; ++$i) { - if ($page == $i) { - $paginator .= ($i + 1)." "; - } else { - $paginator .= "".($i + 1)." "; - } - } -} - -my $i = 0; -my @addresses = sort {lc $a cmp lc $b} keys %$subscribers; -if ($paginator ne '') { - @addresses = @addresses[$page * 50 .. ($page + 1) * 50 - 1]; - pop @addresses until defined $addresses[@addresses - 1]; -} - -for my $address (@addresses) { - $tpl->assign(EMAIL => $address, - ID => $i++, - SCHECKED => $subscribers->{$address}->{subscriber} ? 'checked' : '', - DCHECKED => $subscribers->{$address}->{digester} ? 'checked' : '', - NCHECKED => $subscribers->{$address}->{nomailsub} ? 'checked' : ''); - $tpl->parse(ROWS => '.row'); -} -if (keys %$subscribers == 0) { - $tpl->assign(ROWS => ''); -} - -$tpl->assign(LIST => encode_entities($list), - MAXID => scalar(@addresses), - SEARCH => defined $search ? $search : '', - PAGINATOR => $paginator, - PAGE => $page, - SUBCOUNT => $subcount); - -print "Content-type: text/html\n\n"; - -$tpl->parse(CONTENT => "main"); -$tpl->print; - -sub get_subscribers { - my %subscribers = (); - - my @subscribers = `/usr/local/bin/mlmmj-list -L $topdir/$list`; - my @digesters = `/usr/local/bin/mlmmj-list -L $topdir/$list -d`; - my @nomailsubs = `/usr/local/bin/mlmmj-list -L $topdir/$list -n`; - - chomp @subscribers; - chomp @digesters; - chomp @nomailsubs; - - if (defined $search) { - $search = lc $search; - @subscribers = grep {index(lc $_, $search) != -1} @subscribers; - @digesters = grep {index(lc $_, $search) != -1} @digesters; - @nomailsubs = grep {index(lc $_, $search) != -1} @nomailsubs; - } - - for my $address (@subscribers) { - $subscribers{$address}->{subscriber} = 1; - } - - for my $address (@digesters) { - $subscribers{$address}->{digester} = 1; - } - - for my $address (@nomailsubs) { - $subscribers{$address}->{nomailsub} = 1; - } - - $subcount = scalar(keys %subscribers); - - return \%subscribers; -} diff --git a/contrib/web/perl-admin/templates/edit.html b/contrib/web/perl-admin/templates/edit.html deleted file mode 100644 index 59880527..00000000 --- a/contrib/web/perl-admin/templates/edit.html +++ /dev/null @@ -1,16 +0,0 @@ -mlmmj config -

mlmmj config

-

-Index | Subscribers | Edit texts -

-

-List: $LIST -

-
- - -$ROWS -
- -
- diff --git a/contrib/web/perl-admin/templates/edit_boolean.html b/contrib/web/perl-admin/templates/edit_boolean.html deleted file mode 100644 index 06a9da7d..00000000 --- a/contrib/web/perl-admin/templates/edit_boolean.html +++ /dev/null @@ -1 +0,0 @@ -$NICENAME$TEXT diff --git a/contrib/web/perl-admin/templates/edit_list.html b/contrib/web/perl-admin/templates/edit_list.html deleted file mode 100644 index d6ed9597..00000000 --- a/contrib/web/perl-admin/templates/edit_list.html +++ /dev/null @@ -1 +0,0 @@ -$NICENAME$TEXT diff --git a/contrib/web/perl-admin/templates/edit_string.html b/contrib/web/perl-admin/templates/edit_string.html deleted file mode 100644 index c2d838d7..00000000 --- a/contrib/web/perl-admin/templates/edit_string.html +++ /dev/null @@ -1 +0,0 @@ -$NICENAME$TEXT diff --git a/contrib/web/perl-admin/templates/edit_text.html b/contrib/web/perl-admin/templates/edit_text.html deleted file mode 100644 index 28b40d03..00000000 --- a/contrib/web/perl-admin/templates/edit_text.html +++ /dev/null @@ -1,16 +0,0 @@ -mlmmj config -

mlmmj config

-

-Index | Configuration | Subscribers -

-

-List: $LIST -

-
- - -$ROWS -
- -
- diff --git a/contrib/web/perl-admin/templates/edit_textstring.html b/contrib/web/perl-admin/templates/edit_textstring.html deleted file mode 100644 index e16cd86c..00000000 --- a/contrib/web/perl-admin/templates/edit_textstring.html +++ /dev/null @@ -1 +0,0 @@ -$NAME diff --git a/contrib/web/perl-admin/templates/index.html b/contrib/web/perl-admin/templates/index.html deleted file mode 100644 index f5a58742..00000000 --- a/contrib/web/perl-admin/templates/index.html +++ /dev/null @@ -1,6 +0,0 @@ -mlmmj config -

mlmmj config

- -$LISTS -
- diff --git a/contrib/web/perl-admin/templates/index_row.html b/contrib/web/perl-admin/templates/index_row.html deleted file mode 100644 index 684e0811..00000000 --- a/contrib/web/perl-admin/templates/index_row.html +++ /dev/null @@ -1 +0,0 @@ -$LISTConfigureSubscribersEdit texts diff --git a/contrib/web/perl-admin/templates/save.html b/contrib/web/perl-admin/templates/save.html deleted file mode 100644 index 31db23f1..00000000 --- a/contrib/web/perl-admin/templates/save.html +++ /dev/null @@ -1,9 +0,0 @@ -mlmmj config -

mlmmj config

-

-$LIST control values saved! -

-

-Index | Configuration | Edit texts -

- diff --git a/contrib/web/perl-admin/templates/save_text.html b/contrib/web/perl-admin/templates/save_text.html deleted file mode 100644 index a8dacd8f..00000000 --- a/contrib/web/perl-admin/templates/save_text.html +++ /dev/null @@ -1,9 +0,0 @@ -mlmmj config -

mlmmj config

-

-$LIST text values saved! -

-

-Index | Configuration | Edit texts -

- diff --git a/contrib/web/perl-admin/templates/subscribers.html b/contrib/web/perl-admin/templates/subscribers.html deleted file mode 100644 index a82433cf..00000000 --- a/contrib/web/perl-admin/templates/subscribers.html +++ /dev/null @@ -1,62 +0,0 @@ -mlmmj subscribers -

mlmmj subscribers

-

-Index | Reload subscriber list | Configuration | Edit texts -

-

-$ACTION -

-
-
- - - - - - -
Remove all subscribers:  
Click this as extra safety check:
-
-
-
- - - - - - - - - -
Bulk add subscribers:  File:
Normal subscribers:
Digest subscribers:
No-mail subscribers:
-
- -
- - - - - - - - - - - - - -
Add subscriber:  Email address:
Normal subscriber:
Digest subscriber:
No-mail subscriber:
Search for subscriber:Email address:
-
-

-List: $LIST
-Subscribers: $SUBCOUNT -

-
-$PAGINATOR - - -$ROWS -
Email addressNormal subscriberDigest subscriberNo-mail subscriber
-$PAGINATOR -

-
- diff --git a/contrib/web/perl-admin/templates/subscribers_row.html b/contrib/web/perl-admin/templates/subscribers_row.html deleted file mode 100644 index 8582c645..00000000 --- a/contrib/web/perl-admin/templates/subscribers_row.html +++ /dev/null @@ -1,6 +0,0 @@ - - $EMAIL - - - - diff --git a/contrib/web/perl-user/config.pl b/contrib/web/perl-user/config.pl deleted file mode 100755 index 7064a427..00000000 --- a/contrib/web/perl-user/config.pl +++ /dev/null @@ -1,3 +0,0 @@ -$topdir = "/var/spool/mlmmj"; -$sendmail = "/usr/lib/sendmail"; -$delimiter = "+"; diff --git a/contrib/web/perl-user/example.html b/contrib/web/perl-user/example.html deleted file mode 100644 index 062d6c94..00000000 --- a/contrib/web/perl-user/example.html +++ /dev/null @@ -1,34 +0,0 @@ - - - -mlmmj-webinterface - - - -

-

subscribe

-
- - - - - -
- -
-

- -

-

unsubscribe

-
- - - - -
- -
-

- - - diff --git a/contrib/web/perl-user/mlmmj.cgi b/contrib/web/perl-user/mlmmj.cgi deleted file mode 100755 index b05169b3..00000000 --- a/contrib/web/perl-user/mlmmj.cgi +++ /dev/null @@ -1,119 +0,0 @@ -#!/usr/bin/perl - -# Copyright (C) 2004 Morten K. Poulsen -# -# $Id$ -# -# Permission is hereby granted, free of charge, to any person obtaining a copy -# of this software and associated documentation files (the "Software"), to -# deal in the Software without restriction, including without limitation the -# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or -# sell copies of the Software, and to permit persons to whom the Software is -# furnished to do so, subject to the following conditions: -# -# The above copyright notice and this permission notice shall be included in -# all copies or substantial portions of the Software. -# -# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -# IN THE SOFTWARE. - -use CGI qw(:standard); - -require "config.pl"; - - -# You might want to customize this function if you are not running the web -# server on the same host as the mail server running the lists, or if your -# lists are not in $topdir/list-name. -sub mlmmj_check_list { - my $list = shift; - - if ($list !~ /^([a-z0-9-.]+)\@/) { - return false; - } - - if (!-f "$topdir/$1/control/listaddress") { - return false; - } - - open(FILE, "$topdir/$1/control/listaddress") or die('unable to open control/listaddress'); - $listaddr = readline(FILE); - chomp($listaddr); - if ($list ne $listaddr) { - return false; - } - - return true; -} - - -sub mlmmj_mail { - my $from = shift; - my $to = shift; - my $subject = shift; - my $body = shift; - my $date = `/bin/date -R`; - - $mail = "Received: from " . $query->remote_addr() - . " by " . $query->server_name() . " with HTTP;\n" - . "\t$date" - . "X-Originating-IP: " . $query->remote_addr() . "\n" - . "X-Mailer: mlmmj-webinterface powered by Perl\n" - . "Date: $date" - . "From: $from\n" - . "To: $to\n" - . "Subject: $subject\n" - . "\n" - . "$body\n"; - open(P, "|$sendmail -i -t") or die('unable to send mail'); - print(P $mail); - close(P); -} - - -sub mlmmj_gen_to { - my $list = shift; - my $job = shift; - - if (($job ne 'subscribe') && ($job ne 'unsubscribe')) { - return false; - } - ($user, $domain) = split(/@/, $list); - - return sprintf("%s%s%s@%s", $user, $delimiter, $job, $domain); -} - -sub check_email { - my $addr = shift; - - if ($addr !~ /^[-!#$%&\'*+\.\/0-9=?A-Z^_a-z{|}~]+@[-0-9A-Za-z]+\.[-\.0-9A-Za-z]+$/) { - return false; - } else { - return true; - } -} - -$query = new CGI; - -$list = $query->param('mailinglist'); -$job = $query->param('job'); -$redirect_failure = $query->param('redirect_failure'); -$redirect_success = $query->param('redirect_success'); -$email = $query->param('email'); - -if (mlmmj_check_list($list) ne false && check_email($email) ne false)) { - $to = mlmmj_gen_to($list, $job); - if ($to ne false) { - mlmmj_mail($email, $to, "$job to $list", $job); - - print $query->redirect($redirect_success); - exit(0); - } -} - -print $query->redirect($redirect_failure); diff --git a/contrib/web/php-admin/README b/contrib/web/php-admin/README deleted file mode 100644 index 36f57b73..00000000 --- a/contrib/web/php-admin/README +++ /dev/null @@ -1,49 +0,0 @@ -mlmmj-1.0.0 August 31th 2004 - -To use this web-interface you have to: - -1) Copy the files from the php-admin directory of the mlmmj distribution to a - suitable location and point your webroot to the htdocs directory. If you - don't want the webinterface in the root of your website it is recommended to - make an alias in your web server configuration in order to keep the conf - directory at the same level as the htdocs directory and still outside - webscope. If you want to keep it somewhere else, you will need to modify - the first line of code in index.php, edit.php and save.php. - -2) If your lists are stored somewhere other than /var/spool/mlmmj, edit - conf/config.php to reflect this. - -3) Change the permissions of the listdir/control directories of any list you - want to control using the web-interface, so the web server can write in it: - - # chown -R wwwrun /var/spool/mlmmj/mlmmj-test/control/ - -4) If the web server does not run as the same user the mailserver writes as - you need to create a group (eg. mlmmj) and add both users to it. The - subscribers.d directory then needs to be writable by that group: - - # addgroup mlmmj - # adduser wwwrun mlmmj - # adduser mailuser mlmmj - # chgrp -R mlmmj /var/spool/mlmmj/mlmmj-test/subscribers.d/ - # chmod -R g+w /var/spool/mlmmj/mlmmj-test/subscribers.d/ - # chmod g+s /var/spool/mlmmj/mlmmj-test/subscribers.d/ - - setgid flag is needed when the webserver calls mlmmj-sub and creates a file - under subscribers.d, to keep the mlmmj group. - - If using the Exim mailserver, you should add initgroups = true in your - mlmmj_transport, otherwise it won't be able to write files having write - permission to mlmmj group. - -5) To enable access control on Apache you have to rename dot.htaccess to - .htaccess and edit the path inside the file to point to a htpasswd file - somewhere outside the webscope. - - If you don't have one already, you can create one like this - - htpasswd -c /home/mlmmj/htpasswd USER - - It will then ask you for a password for the given username. - -6) That is it, you are ready to use the interface. diff --git a/contrib/web/php-admin/conf/config.php b/contrib/web/php-admin/conf/config.php deleted file mode 100644 index 10ca6525..00000000 --- a/contrib/web/php-admin/conf/config.php +++ /dev/null @@ -1,7 +0,0 @@ - diff --git a/contrib/web/php-admin/conf/tunables.pl b/contrib/web/php-admin/conf/tunables.pl deleted file mode 100644 index 4374b8f5..00000000 --- a/contrib/web/php-admin/conf/tunables.pl +++ /dev/null @@ -1,243 +0,0 @@ -mlmmj_list("listaddress", - "List address", - "This option contains all addresses which mlmmj sees as listaddresses (see ". - "tocc below). The first one is the one used as the primary one, when mlmmj ". - "sends out mail."); - -mlmmj_boolean("closedlist", - "Closed list", - "If the list is open or closed. If it's closed subscription ". - "and unsubscription via mail is disabled."); - -mlmmj_boolean("closedlistsub", - "Closed for subscription", - "Closed for subscription. Unsubscription is possible."); - -mlmmj_boolean("nosubconfirm", - "No subscribe confirmation", - "If this option is set, the user is not required to confirm when subscribing or unsubscribing."); - -mlmmj_boolean("moderated", - "Moderated", - "If this option is set, the emailaddresses in the file listdir/control/moderators will act as moderators for the list."); - -mlmmj_list("moderators", - "Moderators", - "If the list is moderated, this is the list of moderators."); - -mlmmj_list("submod", - "Subscription moderators", - "This is the list of moderators that will approve subscriptions."); - -mlmmj_boolean("tocc", - "To: Cc:", - "If this option is set, the list address does not have to be in the To: or Cc: header of the email to the list."); - -mlmmj_boolean("addtohdr", - "Add To: header", - "If this option is set, a To: header including the recipients emailaddress will be added to outgoing mail. ". - "Recommended usage is to remove existing To: headers with delheaders (see below) first."); - -mlmmj_boolean("subonlypost", - "Subscribers only post", - "If this option is set, only people who are subscribed to the list, are allowed to post to it. ". - "The check is made against the \"From:\" header."); - -mlmmj_boolean("modonlypost", - "Moderators only post", - "When this file is present, only people listed in listdir/control/moderators ". - "are allowed to post to it. The check is made against the "From:" header."); - -mlmmj_boolean("modnonsubposts", - "Moderate non-allowed posts", - "If this option is set, postings from people who are not allowed to post ". - "to the list will be moderated instead of denied."); - -mlmmj_string("modreqlife", - "Moderation request lifetime", - "This specifies how long in seconds a mail awaits moderation before it's ". - "discarded. Defaults to 604800 seconds, which is 7 days."); - -mlmmj_string("prefix", - "Prefix", - "The prefix for the Subject: line of mails to the list. This will alter the Subject: line, ". - "and add a prefix if it's not present elsewhere."); - -mlmmj_list("owner", - "Owner", - "The emailaddresses in this list will get mails to ".encode_entities($list)."+owner"); - -mlmmj_list("customheaders", - "Custom headers", - "These headers are added to every mail coming through. This is ". - "the place you want to add Reply-To: header in case you want ". - "such. ". - "If a header should not occur twice in the mail it should be listed in the 'Delete headers' box too."); - -mlmmj_list("delheaders", - "Delete headers", - "In this file is specified *ONE* headertoken to match pr. line. ". - "If the file consists of: Received: Message-ID: Then all occurences of these headers in incoming list mail will be deleted. ". - "\"From \" and \"Return-Path:\" are deleted no matter what."); - -mlmmj_list("access", - "Access", - "If this option is set, all headers of a post to the list is matched against the rules. The first rule to match wins. ". - "See README.access for syntax and examples. NOTE: If this field is empty access control is *disabled*, ". - "unlike having an empty control/access file."); - -mlmmj_string("memorymailsize", - "Memory mail size", - "Here is specified in bytes how big a mail can be and still be prepared for sending in memory. ". - "It's greatly reducing the amount of write system calls to prepare it in memory before sending it, ". - "but can also lead to denial of service attacks. Default is 16k (16384 bytes)."); - -mlmmj_string("relayhost", - "Relay host", - "The host specified (IP address or domainname, both works) in this file will be used for relaying the mail sent to the list. ". - "Defaults to 127.0.0.1."); - -mlmmj_string("smtpport", - "SMTP port", - "In this file a port other than port 25 for connecting to the relayhost can be specified."); - -mlmmj_string("delimiter", - "Delimiter", - "This specifies what to use as recipient delimiter for the list.". - "Default is '+'."); - -mlmmj_boolean("notifysub", - "Notify subscribers", - "If this option is set, the owner(s) will get a mail with the address of someone sub/unsubscribing to a mailinglist."); - -mlmmj_boolean("notifymod", - "Notify moderation", - "If this option is set, the poster (based on the envelope from) will ". - "get a mail when their post is being moderation."); - -mlmmj_string("digestinterval", - "Digest interval", - "This option specifies how many seconds will pass before the ". - "next digest is sent. Defaults to 604800 seconds, which is 7 ". - "days."); - -mlmmj_string("digestmaxmails", - "Max. digest mails", - "This option specifies how many mails can accumulate before ". - "digest sending is triggered. Defaults to 50 mails, meaning ". - "that if 50 mails arrive to the list before digestinterval have ". - "passed, the digest is delivered."); - -mlmmj_string("bouncelife", - "Bouncing lifetime", - "This specifies how long in seconds an address can bounce before it's ". - "unsubscribed. Defaults to 432000 seconds, which is 5 days."); - -mlmmj_boolean("noarchive", - "No archive", - "If this option is set, the mails won't be saved in the ". - "archive but simply deleted"); - -mlmmj_boolean("noget", - "No get", - "If this option is set, listname+get-INDEX is turned off."); - -mlmmj_boolean("subonlyget", - "Subscribers only get", - "If this option is set, retrieving old posts with +get-N is only possible for subscribers."); - -mlmmj_string("verp", - "VERP", - "Enable VERP support. Anything added in this variable will be appended the ". - "MAIL FROM: line. If 'postfix' is put in the file, it'll make postfix use ". - "VERP by adding XVERP=-= to the MAIL FROM: line."); - -mlmmj_string("maxverprecips", - "Maximum VERP recipients", - "How many recipients pr. mail delivered to the smtp server. Defaults to 100."); - -mlmmj_boolean("notoccdenymails", - "No To: Cc: deny mails", - "This switch turns off whether mlmmj sends out notification about postings ". - "being denied due to the listaddress not being in To: or Cc: (see 'tocc')."); - -mlmmj_boolean("noaccessdenymails", - "No access deny mails", - "This switch turns off whether mlmmj sends out notification about postings ". - "being rejected due to an access rule (see 'access')."); - -mlmmj_boolean("nosubonlydenymails", - "No subscribers only deny mails", - "This switch turns off whether mlmmj sends out notification about postings ". - "being rejected due to a subscribers only posting list (see 'subonlypost')."); - -mlmmj_boolean("nomodonlydenymails", - "No moderators only deny mails", - "This switch turns off whether mlmmj sends out notification about postings ". - "being rejected due to a moderators only posting list (see 'modonlypost')."); - -mlmmj_boolean("nosubmodmails", - "No subscription moderated mails", - "This switch turns off whether mlmmj sends out notification about ". - "subscription being moderated to the person requesting subscription". - "(see 'submod')."); - -mlmmj_boolean("nodigesttext", - "No digest text summary", - "This switch turns off whether digest mails will have a text part with a thread ". - "summary."); - -mlmmj_boolean("nodigestsub", - "No digest subscribers", - "If this option is set, subscription to the digest version of the mailinglist ". - "will be denied. (Useful if you don't want to allow digests and notify users ". - "about it)."); - -mlmmj_boolean("nonomailsub", - "No nomail subscribers", - "If this option is set, subscription to the nomail version of the mailinglist ". - "will be denied. (Useful if you don't want to allow nomail and notify users ". - "about it)."); - -mlmmj_string("maxmailsize", - "Max. mail size", - "With this option the maximal allowed size of incoming mails can be specified."); - -mlmmj_boolean("nomaxmailsizedenymails", - "No max. mail size deny mails", - "If this is set, no reject notifications caused by violation of maxmailsize ". - "will be sent."); - -mlmmj_boolean("nolistsubsemail", - "No list subscribers email", - "If this is set, the LISTNAME+list\@ functionality for requesting an ". - "email with the subscribers for owner is disabled."); - -mlmmj_string("staticbounceaddr", - "Static bounce address", - "If this is set to something\@example.org, the bounce address (Return-Path:) ". - "will be fixed to something+listname-bounces-and-so-on\@example.org ". - "in case you need to disable automatic bounce handling."); - -mlmmj_boolean("ifmodsendonlymodmoderate", - "If moderator send only moderator moderate", - "If this is set, then mlmmj in case of moderation checks the ". - "envelope from, to see if the sender is a moderator, and in that case ". - "only send the moderation mails to that address. In practice this means that ". - "a moderator sending mail to the list won't bother all the other moderators ". - "with his mail."); - -mlmmj_list("footer", - "Footer", - "The content of this option is appended to mail sent to the list."); - -mlmmj_boolean("notmetoo", - "Not me too", - "If this is set, mlmmj attempts to exclude the sender of a post ". - "from the distribution list for that post so people don't receive copies ". - "of their own posts."); - -mlmmj_string("smtphelo", - "SMTP Helo Name", - "When this file is present, it contains the hostname to send in the SMTP ". - "EHLO or HELO command. Otherwise the machine hostname is used."); diff --git a/contrib/web/php-admin/htdocs/class.rFastTemplate.php b/contrib/web/php-admin/htdocs/class.rFastTemplate.php deleted file mode 100644 index f5979562..00000000 --- a/contrib/web/php-admin/htdocs/class.rFastTemplate.php +++ /dev/null @@ -1,1087 +0,0 @@ - -// 2001 Alister Bulman Re-Port multi template-roots + more -// PHP3 Port: Copyright © 1999 CDI , All Rights Reserved. -// Perl Version: Copyright © 1998 Jason Moore , All Rights Reserved. -// -// RCS Revision -// @(#) $Id$ -// $Source$ -// -// Copyright Notice -// -// This program is free software; you can redistribute it and/or modify -// it under the terms of the GNU General Public License as published by -// the Free Software Foundation; either version 2, or (at your option) -// any later version. -// -// class.rFastTemplate.php is distributed in the hope that it will be -// useful, but WITHOUT ANY WARRANTY; without even the implied warranty of -// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -// General Public License for more details. -// -// Comments -// -// I would like to thank CDI for pointing out the -// copyright notice attached to his PHP3 port which I had blindly missed -// in my first release of this code. -// -// This work is derived from class.FastTemplate.php3 version 1.1.0 as -// available from http://www.thewebmasters.net/. That work makes -// reference to the "GNU General Artistic License". In correspondence -// with the author, the intent was to use the GNU General Public License; -// this work does the same. -// -// Authors -// -// Roland Roberts -// Alister Bulman (multi template-roots) -// Michal Rybarik (define_raw()) -// CDI , PHP3 port -// Jason Moore , original Perl version -// -// Synopsis -// -// require ("PATH-TO-TEMPLATE-CODE/class.Template.php"); -// $t = new Template("PATH-TO-TEMPLATE-DIRECTORY"); -// $t->define (array(MAIN => "diary.html")); -// $t->setkey (VAR1, "some text"); -// $t->subst (INNER, "inner") -// $t->setkey (VAR1, "some more text"); -// $t->subst (INNER, ".inner") -// $t->setkey (VAR2, "var2 text"); -// $t->subst (CONTENT, "main"); -// $t->print (CONTENT); -// -// Description -// -// This is a class.FastTemplate.php3 replacement that provides most of the -// same interface but has the ability to do nested dynamic templates. The -// default is to do dynamic template expansion and no special action is -// required for this to happen. -// -// class.FastTemplate.php3 Methods Not Implemented -// -// clear_parse -// Same as clear. In fact, it was the same as clear in FastTemplate. -// clear_all -// If you really think you need this, try -// unset $t; -// $t = new Template ($path); -// which gives the same effect. -// clear_tpl -// Use unload instead. This has the side effect of unloading all parent -// and sibling templates which may be more drastic than you expect and -// is different from class.FastTemplate.php3. This difference is -// necessary since the only way we can force the reload of an embedded -// template is to force the reload of the parent and sibling templates. -// -// class.FastTemplate.php3 Methods by Another Name -// -// The existence of these functions is a historical artifact. I -// originally had in mind to write a functional equivalent from scratch. -// Then I came my senses and just grabbed class.FastTemplate.php3 and -// started hacking it. So, you can use the names on the right, but the -// ones on the left are equivalent and are the names used in the original -// class.FastTemplate.php3. -// -// parse --> subst -// get_assiged --> getkey -// assign --> setkey -// clear_href --> unsetkey -// clear_assign --> unsetkey -// FastPrint --> xprint -// - -class rFastTemplate { - - // File name to be used for debugging output. Needs to be set prior to - // calling anything other than option setting commands (debug, debugall, - // strict, dynamic) because once the file has been opened, this is ignored. - var $DEBUGFILE = '/tmp/class.rFastTemplate.php.dbg'; - - // File descriptor for debugging output. - var $DEBUGFD = -1; - - // Array for individual member functions. You can turn on debugging for a - // particular member function by calling $this->debug(FUNCTION_NAME) - var $DEBUG = array (); - - // Turn this on to turn on debugging in all member functions via - // $this->debugall(). Turn if off via $this->debugall(false); - var $DEBUGALL = false; - - // Names of actual templates. Each element will be an array with template - // information including is originating file, file load status, parent - // template, variable list, and actual template contents. - var $TEMPLATE = array(); - - // Holds paths-to-templates (See: set_root and FindTemplate) - var $ROOT = array(); - - // Holds the HANDLE to the last template parsed by parse() - var $LAST = ''; - - - // Strict template checking. Unresolved variables in templates will generate a - // warning. - var $STRICT = true; - - // If true, this suppresses the warning generated by $STRICT=true. - var $QUIET = false; - - // If true, throw an error if the template file is empty. This was previously the default - // behavior. I'm not sure how this compares to the original FastTemplate(). - var $NOEMPTY = false; - - // If true, a non-existent directory in the template path will not - // generate an error. This was added to allow a directory to be - // prepended to the template path array based on where in the directory - // tree we are. If the template path is non-existent, it is skipped. - var $MISSING_DIR_OKAY = false; - - // Holds handles assigned by a call to parse(). - var $HANDLE = array(); - - // Holds all assigned variable names and values. - var $VAR = array(); - - // Set to true is this is a WIN32 server. This was part of the - // class.FastTemplate.php3 implementation and the only real place it kicks - // in is in setting the terminating character on the value of $ROOT, the - // path where all the templates live. - var $WIN32 = false; - - // Automatically scan template for dynamic templates and assign new values - // to TEMPLATE based on whatever names the HTML comments use. This can be - // changed up until the time the first parse() is called. Well, you can - // change it anytime, but it will have no effect on already loaded - // templates. Also, if you have dynamic templates, the first call to parse - // will load ALL of your templates, so changing it after that point will - // have no effect on any defined templates. - var $DYNAMIC = true; - - // Grrr. Don't try to break these extra long regular expressions into - // multiple lines for readability. PHP 4.03pl1 chokes on them if you do. - // I'm guessing the reason is something obscure with the parenthesis - // matching, the same sort of thing Tcl might have, but I'm not sure. - - // Regular expression which matches the beginning of a dynamic/inferior - // template. The critical bit is that we need two parts: (1) the entire - // match, and (2) the name of the dynamic template. The first part is - // required because will do a strstr() to split the buffer into two - // pieces: everything before the dynamic template declaration and - // everything after. The second is needed because after finding a BEGIN - // we will search for an END and they both have to have the same name of - // we consider the template malformed and throw and error. - - // Both of these are written with PCRE (Perl-Compatible Regular - // Expressions) because we need the non-greedy operators to insure that - // we don't read past the end of the HTML comment marker in the case that - // the BEGIN/END block have trailing comments after the tag name. - var $REGEX_DYNBEG = '/()/s'; - - // Regular expression which matches the end of a dynamic/inferior - // template; see the comment about on the BEGIN match. - var $REGEX_DYNEND = '/()/s'; - // Regular expression which matches a variable in the template. - - var $REGEX_VAR = '/\{[A-Za-z][-_A-Za-z0-9]*\}/'; - // - // Description - // Constructor. - // - function rFastTemplate ($pathToTemplates = '') { - - // $pathToTemplates can also be an array of template roots, handled in set_root - global $php_errormsg; - if (!empty($pathToTemplates)) { - $this->set_root ($pathToTemplates); - } - $this->DEBUG = array ('subst' => false, - 'parse_internal' => false, - 'parse_internal_1' => false, - 'parsed' => false, - 'clear' => false, - 'clear_dynamic' => false, - 'load' => false); - - return $this; - } - - // - // Description - // Set the name to be used for debugging output. If another file has - // already been opened, close it so the next call to logwrite will - // reopen under this name. - // - function debugfile ($name) { - $this->DEBUGFILE = $name; - } - - // - // Description - // Turn on/off debugging output of an individual member function. - // - function debug ($what, $on = true) { - $this->DEBUG[$what] = $on; - } - - // - // Description - // Turn on/off debugging output of all member functions. - // - function debugall ($on = true) { - $this->DEBUGALL = $on; - } - - // - // Description - // Turn on/off automatic dynamic template expansion. Note that a - // template with an inferior dynamic template embedded will still - // parse but only as if it were part of the main template. When this - // is turned on, it will be parsed out as as if it were a full-blown - // template and can thus be both parsed and appended to as a separate - // entity. - // - function dynamic ($on = true) { - $this->DYNAMIC = $on; - } - - // - // Description - // Turn on/off strict template checking. When on, all template tags - // must be assigned or we throw an error (but stilll parse the - // template). - // - function strict ($on = true) { - $this->STRICT = $on; - } - - function quiet ($on = true) { - $this->QUIET = $on; - } - - // - // Description - // For compatibility with class.FastTemplate.php3. - // - function no_strict () { - $this->STRICT = false; - } - - // - // Description - // Turn off errors for missing template directories. This allows you - // to specify a template path that may not yet exist. - // - function missing_dir_okay ($on = true) { - $this->MISSING_DIR_OKAY = $on; - } - - // - // Description - // Utility function for debugging. - // - function logwrite ($msg) { - if ($this->DEBUGFD < 0) { - $this->DEBUGFD = fopen ($this->DEBUGFILE, 'a'); - } - fputs ($this->DEBUGFD, - strftime ('%Y/%m/%d %H:%M:%S ') . $msg . "\n"); - } - - // - // Description - // This was lifted as-is from class.FastTemplate.php3. Based on what - // platform is in use, it makes sure the path specification ends with - // the proper path separator; i.e., a slash on unix systems and a - // back-slash on WIN32 systems. When we can run on Mac or VMS I guess - // we'll worry about other characters.... - // - // $root can now be an array of template roots which will be searched to - // find the first matching name. - function set_root ($root) { - - if (!is_array($root)) { - $trailer = substr ($root, -1); - if ($trailer != ($this->WIN32 ? '\\' : '/')) - $root .= ($this->WIN32 ? '\\' : '/'); - - if (!is_dir($root)) { - if (!$this->MISSING_DIR_OKAY) - $this->error ("Specified ROOT dir [$root] is not a directory", true); - return false; - } - $this->ROOT[] = $root; - } else { - reset($root); - while(list($k, $v) = each($root)) { - if (is_dir($v)) { - $trailer = substr ($v,-1); - if ($trailer != ($this->WIN32 ? '\\' : '/')) - $v .= ($this->WIN32 ? '\\' : '/'); - $this->ROOT[] = $v; - } else if (!$this->MISSING_DIR_OKAY) { - $this->error ("Specified ROOT dir [$v] is not a directory", true); - } - } - } - // FIXME: should add something here to make sure there is at least one - // entry in ROOT[]. - } - - // - // Description - // Associate files with a template names. - // - // Sigh. At least with the CVS version of PHP, $dynamic = false sets it - // to true. - // - function define ($fileList, $dynamic = 0) { - reset ($fileList); - while (list ($tpl, $file) = each ($fileList)) { - $this->TEMPLATE[$tpl] = array ('file' => $file, 'dynamic' => $dynamic); - } - return true; - } - - function define_dynamic ($tplList, $parent='') { - if (is_array($tplList)) { - reset ($tplList); - while (list ($tpl, $parent) = each ($tplList)) { - $this->TEMPLATE[$tpl]['parent'] = $parent; - $this->TEMPLATE[$tpl]['dynamic'] = true; - } - } else { - // $tplList is not an array, but a single child/parent pair. - $this->TEMPLATE[$tplList]['parent'] = $parent; - $this->TEMPLATE[$tplList]['dynamic'] = true; - } - } - - // - // Description - // Defines a template from a string (not a file). This function has - // not been ported from original PERL module to CDI's - // class.FastTemplate.php3, and it comebacks in rFastTemplate - // class. You can find it useful if you want to use templates, stored - // in database or shared memory. - // - function define_raw ($stringList, $dynamic = 0) { - reset ($stringList); - while (list ($tpl, $string) = each ($stringList)) { - $this->TEMPLATE[$tpl] = array ('string' => $string, 'dynamic' => $dynamic, 'loaded' => 1); - } - return true; - } - - // - // Description - // Try each directory in our list of possible roots in turn until we - // find a matching template - // - function FindTemplate ($file) { - // first try for a template in the current directory short path for - // absolute filenames - if (substr($file, 0, 1) == '/') { - if (file_exists($file)) { - return $file; - } - } - - // search path for a matching file - reset($this->ROOT); - while(list($k, $v) = each($this->ROOT)) { - $f = $v . $file; - if (file_exists($f)) { - return $f; - } - } - - $this->error ("FindTemplate: file $file does not exist anywhere in " . implode(' ', $this->ROOT), true); - return false; - } - - - // - // Description - // Load a template into memory from the underlying file. - // - function &load ($file) { - $debug = $this->DEBUGALL || $this->DEBUG['load']; - if (! count($this->ROOT)) { - if ($debug) - $this->logwrite ("load: cannot open template $file, template base directory not set"); - $this->error ("cannot open template $file, template base directory not set", true); - return false; - } else { - $contents = ''; - unset ($contents); - - $filename = $this->FindTemplate ($file); - - if ($filename) - @ $contents = implode ('', (@file($filename))); - // This is inconsistent and depends on the setting of track_errors. First, with no - // @-directive above, the error will be reported immediately. Second, if the template - // is empty, it may be that no error occurred and we still end up here. To get around - // this, we explicitly unset $contents and then check to see if it isset(). If so, - // the template was empty and we treat that as a non-error. - if (isset($contents) && ($this->NOEMPTY && empty($contents)) ) { - if ($debug) - $this->logwrite ("load($file): empty template file"); - $this->error ("load($file): empty template file", true); - } else if (!isset($contents)) { - if ($debug) - $this->logwrite ("load($file) failure: $php_errormsg"); - $this->error ("load($file): failure: $php_errormsg", true); - } else { - if ($debug) - $this->logwrite ("load: found $filename"); - return $contents; - } - } - } - - // - // Description - // Recursive internal parse routine. This will recursively parse a - // template containing dynamic inferior templates. Each of these - // inferior templates gets their own entry in the TEMPLATE array. - // - function &parse_internal_1 ($tag, $rest = '') { - $debug = $this->DEBUGALL || $this->DEBUG['parse_internal_1']; - if (empty($tag)) { - $this->error ("parse_internal_1: empty tag invalid", true); - } - if ($debug) - $this->logwrite ("parse_internal_1 (tag=$tag, rest=$rest)"); - while (!empty($rest)) { - if ($debug) - $this->logwrite ('parse_internal_1: REGEX_DYNBEG search: rest => ' . $rest); - if (preg_match ($this->REGEX_DYNBEG, $rest, $dynbeg)) { - // Found match, now split into two pieces and search the second - // half for the matching END. The string which goes into the - // next element includes the HTML comment which forms the BEGIN - // block. - if ($debug) - $this->logwrite ('parse_internal_1: match beg => ' . $dynbeg[1]); - $pos = strpos ($rest, $dynbeg[1]); - - // See if the text on either side of the BEGIN comment is only - // whitespace. If so, we delete the entire line. - $okay = false; - for ($offbeg = $pos - 1; $offbeg >= 0; $offbeg--) { - $c = $rest{$offbeg}; - if ($c == "\n") { - $okay = true; - $offbeg++; - break; - } - if (($c != ' ') && ($c != "\t")) { - $offbeg = $pos; - break; - } - } - if (! $okay) { - $offend = $pos + strlen($dynbeg[1]); - } else { - $l = strlen ($rest); - for ($offend = $pos + strlen($dynbeg[1]); $offend < $l; $offend++) { - $c = $rest{$offend}; - if ($c == "\n") { - $offend++; - break; - } - if (($c != ' ') && ($c != "\t")) { - $offend = $pos + strlen($dynbeg[1]); - break; - } - } - } - - // This includes the contents of the REGEX_DYNBEG in the output - // $part[] = substr ($rest, 0, $pos); - // This preserves whitespace on the END block line(s). - // $part[] = substr ($rest, 0, $pos+strlen($dynbeg[1])); - // $rest = substr ($rest, $pos+strlen($dynbeg[1])); - // Catch case where BEGIN block is at position 0. - if ($offbeg > 0) - $part[] = substr ($rest, 0, $offbeg); - $rest = substr ($rest, $offend); - $sub = ''; - if ($debug) - $this->logwrite ("parse_internal_1: found at pos = $pos"); - // Okay, here we are actually NOT interested in just the next - // END block. We are only interested in the next END block that - // matches this BEGIN block. This is not the most efficient - // because we really could do this in one pass through the - // string just marking BEGIN and END blocks. But the recursion - // makes for a simple algorithm (if there was a reverse - // preg...). - $found = false; - while (preg_match ($this->REGEX_DYNEND, $rest, $dynend)) { - if ($debug) - $this->logwrite ('parse_internal_1: REGEX_DYNEND search: rest => ' . $rest); - if ($debug) - $this->logwrite ('parse_internal_1: match beg => ' . $dynend[1]); - $pos = strpos ($rest, $dynend[1]); - if ($dynbeg[2] == $dynend[2]) { - $found = true; - // See if the text on either side of the END comment is - // only whitespace. If so, we delete the entire line. - $okay = false; - for ($offbeg = $pos - 1; $offbeg >= 0; $offbeg--) { - $c = $rest{$offbeg}; - if ($c == "\n") { - $offbeg++; - $okay = true; - break; - } - if (($c != ' ') && ($c != "\t")) { - $offbeg = $pos; - break; - } - } - if (! $okay) { - $offend = $pos + strlen($dynend[1]); - } else { - $l = strlen ($rest); - for ($offend = $pos + strlen($dynend[1]); $offend < $l; $offend++) { - $c = $rest{$offend}; - if ($c == "\n") { - $offend++; - break; - } - if (($c != ' ') && ($c != "\t")) { - $offend = $pos + strlen($dynend[1]); - break; - } - } - } - // if ($debug) - // $this->logwrite ("parse_internal_1: DYNAMIC BEGIN: (pos,len,beg,end) => ($pos, " . strlen($dynbeg[1]) . ", $offbeg, $offend) - // This includes the contents of the REGEX_DYNEND in the output - // $rest = substr ($rest, $pos); - // This preserves whitespace on the END block line(s). - // $rest = substr ($rest, $pos+strlen($dynend[1])); - // $sub .= substr ($rest, 0, $pos); - $sub .= substr ($rest, 0, $offbeg); - $rest = substr ($rest, $offend); - // Already loaded templates will not be reloaded. The - // 'clear' test was actually hiding a bug in the clear() - // logic.... - if (false && isset($this->TEMPLATE[$dynend[2]]['clear']) - && $this->TEMPLATE[$dynend[2]]['clear']) { - $this->TEMPLATE[$dynend[2]]['string'] = ''; - $this->TEMPLATE[$dynend[2]]['result'] = ''; - $this->TEMPLATE[$dynend[2]]['part'] = - $this->parse_internal_1 ($dynend[2], ' '); - } else if (!isset($this->TEMPLATE[$dynend[2]]['loaded']) - || !$this->TEMPLATE[$dynend[2]]['loaded']) { - // Omit pathological case of empty dynamic template. - if (strlen($sub) > 0) { - $this->TEMPLATE[$dynend[2]]['string'] = $sub; - $this->TEMPLATE[$dynend[2]]['part'] = - $this->parse_internal_1 ($dynend[2], $sub); - $this->TEMPLATE[$dynend[2]]['part']['parent'] = $tag; - } - } - $this->TEMPLATE[$dynend[2]]['loaded'] = true; - $part[] = &$this->TEMPLATE[$dynend[2]]; - $this->TEMPLATE[$dynend[2]]['tag'] = $dynend[2]; - break; - } else { - $sub .= substr ($rest, 0, $pos+strlen($dynend[1])); - $rest = substr ($rest, $pos+strlen($dynend[1])); - if ($debug) - $this->logwrite ("parse_internal_1: $dynbeg[2] != $dynend[2]"); - } - } - if (!$found) { - $this->error ("malformed dynamic template, missing END
\n" . - "$dynbeg[1]
\n", true); - } - } else { - // Although it would appear to make sense to check that we don't - // have a dangling END block, we will, in fact, ALWAYS appear to - // have a dangling END block. We stuff the BEGIN string in the - // part before the inferior template and the END string in the - // part after the inferior template. So for this test to work, - // we would need to look just past the final match. - if (preg_match ($this->REGEX_DYNEND, $rest, $dynend)) { - // $this->error ("malformed dynamic template, dangling END
\n" . - // "$dynend[1]
\n", 1); - } - $part[] = $rest; - $rest = ''; - } - } - return $part; - } - - // - // Description - // Parse the template. If $tag is actually an array, we iterate over - // the array elements. If it is a simple string tag, we may still - // recursively parse the template if it contains dynamic templates and - // we are configured to automatically load those as well. - // - function parse_internal ($tag) { - $debug = $this->DEBUGALL || $this->DEBUG['parse_internal']; - $append = false; - if ($debug) - $this->logwrite ("parse_internal (tag=$tag)"); - - // If we are handed an array of tags, iterate over all of them. This - // is really a holdover from the way class.FastTemplate.php3 worked; - // I think subst() already pulls that array apart for us, so this - // should not be necessary unless someone calls the internal member - // function directly. - if (gettype($tag) == 'array') { - reset ($tag); - foreach ($tag as $t) { - $this->parse_internal ($t); - } - } else { - // Load the file if it hasn't already been loaded. It might be - // nice to put in some logic that reloads the file if it has - // changed since we last loaded it, but that probably gets way too - // complicated and only makes sense if we start keeping it floating - // around between page loads as a persistent variable. - if (!isset($this->TEMPLATE[$tag]['loaded'])) { - if ($this->TEMPLATE[$tag]['dynamic']) { - // Template was declared via define_dynamic(). - if ($this->TEMPLATE[$tag]['parent']) - $tag = $this->TEMPLATE[$tag]['parent']; - else { - // Try to find a non-dynamic template with the same file. - // This would have been defined via define(array(), true) - reset ($this->TEMPLATE); - foreach (array_keys($this->TEMPLATE) as $ptag) { - if ($debug) - $this->logwrite ("parse_internal: looking for non-dynamic parent, $ptag"); - if (!$this->TEMPLATE[$ptag]['dynamic'] - && ($this->TEMPLATE[$ptag]['file'] == $this->TEMPLATE[$tag]['file'])) { - $tag = $ptag; - break; - } - } - } - } - $this->TEMPLATE[$tag]['string'] = &$this->load($this->TEMPLATE[$tag]['file']); - $this->TEMPLATE[$tag]['loaded'] = 1; - } - - // If we are supposed to automatically detect dynamic templates and the dynamic - // flag is not set, scan the template for dynamic sections. Dynamic sections - // markers have a very rigid syntax as HTML comments.... - if ($this->DYNAMIC) { - $this->TEMPLATE[$tag]['tag'] = $tag; - if (!isset($this->TEMPLATE[$tag]['parsed']) - || !$this->TEMPLATE[$tag]['parsed']) { - $this->TEMPLATE[$tag]['part'] = $this->parse_internal_1 ($tag, $this->TEMPLATE[$tag]['string']); - $this->TEMPLATE[$tag]['parsed'] = true; - } - } - } - } - - // - // Description - // class.FastTemplate.php3 compatible interface. - // - // Notes - // I prefer the name `subst' to `parse' since during this phase we are - // really doing variable substitution into the template. However, at - // some point we have to load and parse the template and `subst' will - // do that as well... - // - function parse ($handle, $tag, $autoload = true) { - return $this->subst ($handle, $tag, $autoload); - } - - // - // Description - // Perform substitution on the template. We do not really recurse - // downward in the sense that we do not do subsitutions on inferior - // templates. For each inferior template which is a part of this - // template, we insert the current value of their results. - // - // Notes - // Do I want to make this return a reference? - function subst ($handle, $tag, $autoload = true) { - $append = false; - $debug = $this->DEBUGALL || $this->DEBUG['subst']; - $this->LAST = $handle; - - if ($debug) - $this->logwrite ("subst (handle=$handle, tag=$tag, autoload=$autoload)"); - - // For compatibility with FastTemplate, the results need to overwrite - // for an array. This really only seems to be useful in the case of - // something like - // $t->parse ('MAIN', array ('array', 'main')); - // Where the 'main' template has a variable named MAIN which will be - // set on the first pass (i.e., when parasing 'array') and used on the - // second pass (i.e., when parsing 'main'). - if (gettype($tag) == 'array') { - foreach (array_values($tag) as $t) { - if ($debug) - $this->logwrite ("subst: calling subst($handle,$t,$autoload)"); - $this->subst ($handle, $t, $autoload); - } - return $this->HANDLE[$handle]; - } - - // Period prefix means append result to pre-existing value. - if (substr($tag,0,1) == '.') { - $append = true; - $tag = substr ($tag, 1); - if ($debug) - $this->logwrite ("subst (handle=$handle, tag=$tag, autoload=$autoload) in append mode"); - } - // $this->TEMPLATE[$tag] will only be set if it was explicitly - // declared via define(); i.e., inferior templates will not have an - // entry. - if (isset($this->TEMPLATE[$tag])) { - if (!isset($this->TEMPLATE[$tag]['parsed']) - || !$this->TEMPLATE[$tag]['parsed']) - $this->parse_internal ($tag); - } else { - if (!$this->DYNAMIC) { - $this->error ("subst (handle=$handle, tag=$tag, autoload=$autoload): " . - 'no such tag and dynamic templates are turned off', true); - } - if ($autoload) { - if ($debug) - $this->logwrite ("subst: TEMPLATE[tag=$tag] not found, trying autoload"); - foreach (array_keys($this->TEMPLATE) as $t) { - if ($debug) - $this->logwrite ("subst: calling parse_internal (tag=$t)"); - if (!isset($this->TEMPLATE[$tag]['parsed']) - || !$this->TEMPLATE[$tag]['parsed']) - $this->parse_internal ($t); - } - if ($debug) - $this->logwrite ('subst: retrying with autoload = false'); - $this->subst ($handle, $tag, false); - if ($debug) - $this->logwrite ('subst: completed with autoload = false'); - return; - } else { - $this->error ("subst (handle=$handle, tag=$tag, autoload=$autoload): no such tag", true); - } - } - if (!$append) { - $this->TEMPLATE[$tag]['result'] = ''; - if ($debug) - $this->logwrite ("subst (handle=$handle, tag=$tag, autoload=$autoload) in overwrite mode"); - } - if ($debug) - $this->logwrite ('subst: type(this->TEMPLATE[$tag][\'part\']) => ' . - gettype($this->TEMPLATE[$tag]['part'])); - // Hmmm, clear() called before subst() seems to result in this not - // being defined which leaves me a bit confused.... - $result = ''; - if (isset($this->TEMPLATE[$tag]['part'])) { - reset ($this->TEMPLATE[$tag]['part']); - foreach (array_keys($this->TEMPLATE[$tag]['part']) as $p) { - if ($debug) - $this->logwrite ("subst: looking at TEMPLATE[$tag]['part'][$p]"); - $tmp = $this->TEMPLATE[$tag]['part'][$p]; - // Don't try if ($p == 'parent').... - if (strcmp ($p, 'parent') == 0) { - if ($debug) - $this->logwrite ("subst: skipping part $p"); - $tmp = ''; - } else if (gettype($this->TEMPLATE[$tag]['part'][$p]) == 'string') { - if ($debug) - $this->logwrite ("subst: using part $p"); - reset ($this->VAR); - // Because we treat VAR and HANDLE separately (unlike - // class.FastTemplate.php3), we have to iterate over both or we - // miss some substitutions and are not 100% compatible. - while (list($key,$val) = each ($this->VAR)) { - if ($debug) - $this->logwrite ("subst: substituting VAR $key = $val in $tag"); - $key = '{'.$key.'}'; - $tmp = str_replace ($key, $val, $tmp); - } - reset ($this->HANDLE); - while (list($key,$val) = each ($this->HANDLE)) { - if ($debug) - $this->logwrite ("subst: substituting HANDLE $key = $val in $tag"); - $key = '{'.$key.'}'; - $tmp = str_replace ($key, $val, $tmp); - } - $result .= $tmp; - } else { - $xtag = $this->TEMPLATE[$tag]['part'][$p]['tag']; - if ($debug) { - $this->logwrite ("subst: substituting other tag $xtag result in $tag"); - } - // The assignment is a no-op if the result is not set, but when - // E_ALL is in effect, a warning is generated without the - // isset() test. - if (isset ($this->TEMPLATE[$xtag]['result'])) - $result .= $this->TEMPLATE[$xtag]['result']; - } - } - } - if ($this->STRICT) { - // If quiet-mode is turned on, skip the check since we're not going - // to do anything anyway. - if (!$this->QUIET) { - if (preg_match ($this->REGEX_VAR, $result)) { - $this->error ("unmatched tags still present in $tag
"); - } - } - } else { - $result = preg_replace ($this->REGEX_VAR, '', $result); - } - if ($append) { - if ($debug) { - $this->logwrite ("subst: appending TEMPLATE[$tag]['result'] = $result"); - $this->logwrite ("subst: old HANDLE[$handle] = {$this->HANDLE[$handle]}"); - $this->logwrite ("subst: old TEMPLATE[$tag]['result'] = {$this->TEMPLATE[$tag]['result']}"); - } - // The isset() tests are to suppresss warning when E_ALL is in effect - // and the variables have not actually been set yet (even though the - // user specified append-mode). - if (isset ($this->HANDLE[$handle])) - $this->HANDLE[$handle] .= $result; - else - $this->HANDLE[$handle] = $result; - if (isset ($this->TEMPLATE[$tag]['result'])) - $this->TEMPLATE[$tag]['result'] .= $result; - else - $this->TEMPLATE[$tag]['result'] = $result; - if ($debug) { - $this->logwrite ("subst: new HANDLE[$handle] = {$this->HANDLE[$handle]}"); - $this->logwrite ("subst: new TEMPLATE[$tag]['result'] = {$this->TEMPLATE[$tag]['result']}"); - } - - } else { - if ($debug) - $this->logwrite ("subst: setting TEMPLATE[$tag]['result'] = $result"); - $this->HANDLE[$handle] = $result; - $this->TEMPLATE[$tag]['result'] = $result; - } - return $this->HANDLE[$handle]; - } - - // - // Description - // Clear a block from a template. The intent is to remove an inferior - // template from a parent. This works even if the template has already - // been parsed since we go straight to the specified template and clear - // the results element. If the given template has not yet been - // loaded, the load is forced by calling parse_internal(). - // - function clear_dynamic ($tag = NULL) { - $debug = $this->DEBUGALL || $this->DEBUG['clear_dynamic']; - if (is_null ($tag)) { - // Clear all result elements. Uhm, needs to be tested. - if ($debug) - $this->logwrite ("clear_dynamic (NULL)"); - foreach (array_values ($this->TEMPLATE) as $t) { - $this->clear_dynamic ($t); - } - return; - } else if (gettype($tag) == 'array') { - if ($debug) - $this->logwrite ("clear_dynamic ($tag)"); - foreach (array_values($tag) as $t) { - $this->clear_dynamic ($t); - } - return; - } - else if (!isset($this->TEMPLATE[$tag])) { - if ($debug) - $this->logwrite ("clear_dynamic ($tag) --> $tag not set, calling parse_internal"); - $this->parse_internal ($tag); - // $this->TEMPLATE[$tag] = array (); - } - if ($debug) - $this->logwrite ("clear_dynamic ($tag)"); - // $this->TEMPLATE[$tag]['loaded'] = true; - // $this->TEMPLATE[$tag]['string'] = ''; - $this->TEMPLATE[$tag]['result'] = ''; - // $this->TEMPLATE[$tag]['clear'] = true; - } - - // - // Description - // Clear the results of a handle set by parse(). The input handle can - // be a single value, an array, or the PHP constant NULL. For the - // last case, all handles cleared. - // - function clear ($handle = NULL) { - $debug = $this->DEBUGALL || $this->DEBUG['clear']; - if (is_null ($handle)) { - // Don't bother unsetting them, just set the whole thing to a new, - // empty array. - if ($debug) - $this->logwrite ("clear (NULL)"); - $this->HANDLE = array (); - } else if (gettype ($handle) == 'array') { - if ($debug) - $this->logwrite ("clear ($handle)"); - foreach (array_values ($handle) as $h) { - $this->clear ($h); - } - } else if (isset ($this->HANDLE[$handle])) { - if ($debug) - $this->logwrite ("clear ($handle)"); - unset ($this->HANDLE[$handle]); - } - } - - // - // Description - // Clears all information associated with the specified tag as well as - // any information associated with embedded templates. This will force - // the templates to be reloaded on the next call to subst(). - // Additionally, any results of previous calls to subst() will also be - // cleared. - // - // Notes - // This leaves dangling references in $this->HANDLE. Or does PHP do - // reference counting so they are still valid? - // - function unload ($tag) { - if (!isset($this->TEMPLATE[$tag])) - return; - if (isset ($this->TEMPLATE[$tag]['parent'])) { - $ptag = $this->TEMPLATE[$tag]['parent']; - foreach (array_keys($this->TEMPLATE) as $t) { - if ($this->TEMPLATE[$t]['parent'] == $ptag) { - unset ($this->TEMPLATE[$t]); - } - } - } - unset ($this->TEMPLATE[$tag]); - return; - } - - // - // Description - // class.FastTemplate.php3 compatible interface. - // - function assign ($tplkey, $rest = '') { - $this->setkey ($tplkey, $rest); - } - - // - // Description - // Set a (key,value) in our internal variable array. These will be - // used during the substitution phase to replace template variables. - // - function setkey ($tplkey, $rest = '') { - if (gettype ($tplkey) == 'array') { - reset ($tplkey); - while (list($key,$val) = each ($tplkey)) { - if (!empty($key)) { - $this->VAR[$key] = $val; - } - } - } else { - if (!empty($tplkey)) { - $this->VAR[$tplkey] = $rest; - } - } - } - - function append ($tplkey, $rest = '') { - if (gettype ($tplkey) == 'array') { - reset ($tplkey); - while (list($key,$val) = each ($tplkey)) { - if (!empty($key)) { - $this->VAR[$key] .= $val; - } - } - } else { - if (!empty($tplkey)) { - $this->VAR[$tplkey] .= $rest; - } - } - } - - // - // Description - // class.FastTemplate.php3 compatible interface - // - function get_assigned ($key = '') { - return $this->getkey ($key); - } - - // - // Description - // Retrieve a value from our internal variable array given the key name. - // - function getkey ($key = '') { - if (empty($key)) { - return false; - } else if (isset ($this->VAR[$key])) { - return $this->VAR[$key]; - } else { - return false; - } - } - - function fetch ($handle = '') { - if (empty($handle)) { - $handle = $this->LAST; - } - return $this->HANDLE[$handle]; - } - - function xprint ($handle = '') { - if (empty($handle)) { - $handle = $this->LAST; - } - print ($this->HANDLE[$handle]); - } - - function FastPrint ($handle = '') { - $this->xprint ($handle); - } - - function clear_href ($key = '') { - $this->unsetkey ($key); - } - - function unsetkey ($key = '') { - if (empty($key)) { - unset ($this->VAR); - $this->VAR = array (); - } else if (gettype($key) == 'array') { - reset ($key); - foreach (array_values($key) as $k) { - unset ($this->VAR[$k]); - } - } else { - unset ($this->VAR[$key]); - } - } - - function define_nofile ($stringList, $dynamic = 0) { - $this->define_raw ($stringList, $dynamic); - } - // - // Description - // Member function to control explicit error messages. We don't do - // real PHP error handling. - // - function error ($errorMsg, $die = 0) { - $this->ERROR = $errorMsg; - echo "ERROR: {$this->ERROR}
\n"; - if ($die) { - exit; - } - return; - } -} diff --git a/contrib/web/php-admin/htdocs/dot.htaccess b/contrib/web/php-admin/htdocs/dot.htaccess deleted file mode 100644 index 6e40ec87..00000000 --- a/contrib/web/php-admin/htdocs/dot.htaccess +++ /dev/null @@ -1,4 +0,0 @@ -Require valid-user -AuthType Basic -AuthName "mlmmj web-interface" -AuthUserFile /home/mlmmj/htpasswd diff --git a/contrib/web/php-admin/htdocs/edit.php b/contrib/web/php-admin/htdocs/edit.php deleted file mode 100644 index 21791828..00000000 --- a/contrib/web/php-admin/htdocs/edit.php +++ /dev/null @@ -1,124 +0,0 @@ - - * - * mlmmj/php-perl: - * Copyright (C) 2004 Morten K. Poulsen - * Copyright (C) 2004 Christian Laursen - * - * Permission is hereby granted, free of charge, to any person obtaining a copy - * of this software and associated documentation files (the "Software"), to - * deal in the Software without restriction, including without limitation the - * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or - * sell copies of the Software, and to permit persons to whom the Software is - * furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included in - * all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR - * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE - * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER - * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING - * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS - * IN THE SOFTWARE. - */ - -require(dirname(dirname(__FILE__))."/conf/config.php"); -require(dirname(__FILE__)."/class.rFastTemplate.php"); - -function mlmmj_boolean($name, $nicename, $text) -{ - global $tpl, $topdir, $list; - - if(is_file($topdir."/".$list."/control/".$name)) - $checked = TRUE; - else - $checked = FALSE; - - $tpl->assign(array("NAME" => htmlentities($name), - "NICENAME" => htmlentities($nicename), - "TEXT" => htmlentities($text))); - $tpl->assign(array("CHECKED" => $checked ? " checked" : "")); - - $tpl->parse("ROWS",".boolean"); -} - -function mlmmj_string($name, $nicename, $text) -{ - global $tpl, $topdir, $list; - - $file = $topdir."/".$list."/control/".$name; - $value = ""; - - if(is_file($file)) { - $lines = file($file); - $value = $lines[0]; - } - - // remove trailing \n if any, just to be sure - $value = preg_replace('/\n$/',"",$value); - - $tpl->assign(array("NAME" => htmlentities($name), - "NICENAME" => htmlentities($nicename), - "TEXT" => htmlentities($text), - "VALUE" => htmlentities($value))); - - $tpl->parse("ROWS",".string"); -} - -function mlmmj_list($name, $nicename, $text) -{ - global $tpl, $topdir, $list; - - $file = "$topdir/$list/control/$name"; - $value = ""; - - if(is_file($file)) - $value = file_get_contents($file); - - // the last \n would result in an extra empty line in the list box, - // so we remove it - $value = preg_replace('/\n$/',"",$value); - - $tpl->assign(array("NAME" => htmlentities($name), - "NICENAME" => htmlentities($nicename), - "TEXT" => htmlentities($text), - "VALUE" => htmlentities($value))); - - $tpl->parse("ROWS",".list"); -} - -// Perl's encode_entities (to be able to use tunables.pl) -function encode_entities($str) { return htmlentities($str); } - - -$tpl = new rFastTemplate($templatedir); - -$list = $_GET["list"]; - -if(!isset($list)) -die("no list specified"); - -if (dirname(realpath($topdir."/".$list)) != realpath($topdir)) -die("list outside topdir"); - -if(!is_dir($topdir."/".$list)) -die("non-existent list"); - -$tpl->define(array("main" => "edit.html", - "boolean" => "edit_boolean.html", - "string" => "edit_string.html", - "list" => "edit_list.html")); - -$tpl->assign(array("LIST" =>htmlentities($list))); - -$tunables = file_get_contents($confdir.'/tunables.pl'); -eval($tunables); - -$tpl->parse("MAIN","main"); -$tpl->FastPrint("MAIN"); - -?> diff --git a/contrib/web/php-admin/htdocs/index.php b/contrib/web/php-admin/htdocs/index.php deleted file mode 100644 index 2aa91fff..00000000 --- a/contrib/web/php-admin/htdocs/index.php +++ /dev/null @@ -1,54 +0,0 @@ - - * - * mlmmj/php-perl: - * Copyright (C) 2004 Morten K. Poulsen - * Copyright (C) 2004 Christian Laursen - * - * Permission is hereby granted, free of charge, to any person obtaining a copy - * of this software and associated documentation files (the "Software"), to - * deal in the Software without restriction, including without limitation the - * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or - * sell copies of the Software, and to permit persons to whom the Software is - * furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included in - * all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR - * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE - * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER - * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING - * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS - * IN THE SOFTWARE. - */ - -require(dirname(dirname(__FILE__))."/conf/config.php"); -require(dirname(__FILE__)."/class.rFastTemplate.php"); - -$tpl = new rFastTemplate($templatedir); - -$tpl->define(array("main" => "index.html")); - -$lists = ""; - -# use scandir to have alphabetical order -foreach (scandir($topdir) as $file) { - if (!ereg("^\.",$file)) - { - $lists .= "

".htmlentities($file)."
\n"; - $lists .= "Config - Subscribers\n"; - $lists .= "

\n"; - } -} - -$tpl->assign(array("LISTS" => $lists)); - - -$tpl->parse("MAIN","main"); -$tpl->FastPrint("MAIN"); - -?> diff --git a/contrib/web/php-admin/htdocs/save.php b/contrib/web/php-admin/htdocs/save.php deleted file mode 100644 index 73f249f6..00000000 --- a/contrib/web/php-admin/htdocs/save.php +++ /dev/null @@ -1,120 +0,0 @@ - - * - * mlmmj/php-perl: - * Copyright (C) 2004 Morten K. Poulsen - * Copyright (C) 2004 Christian Laursen - * - * Permission is hereby granted, free of charge, to any person obtaining a copy - * of this software and associated documentation files (the "Software"), to - * deal in the Software without restriction, including without limitation the - * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or - * sell copies of the Software, and to permit persons to whom the Software is - * furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included in - * all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR - * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE - * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER - * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING - * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS - * IN THE SOFTWARE. - */ - -require(dirname(dirname(__FILE__))."/conf/config.php"); -require(dirname(__FILE__)."/class.rFastTemplate.php"); - -function mlmmj_boolean($name, $nicename, $text) -{ - global $tpl, $topdir, $list; - - $file = $topdir."/".$list."/control/".$name; - - if(isset($_POST[$name]) && !empty($_POST[$name])) - { - if(!touch($file)) - die("Couldn't open ".$file." for writing"); - if (!chmod($file, 0644)) - die("Couldn't chmod ".$file); - } - else { - if (file_exists($file)) { - if (!unlink($file)) - die("Couldn't unlink ".$file); - } - } -} - -function mlmmj_string ($name, $nicename, $text) -{ - mlmmj_list($name, $nicename, $text); -} - -function mlmmj_list($name, $nicename, $text) -{ - global $tpl, $topdir, $list; - - $file = $topdir."/".$list."/control/".$name; - - if(isset($_POST[$name]) && !empty($_POST[$name]) && !preg_match('/^\s*$/',$_POST[$name])) - { - // remove all \r - $_POST[$name]=preg_replace('/\r/',"",$_POST[$name]); - - // no trailing \n?, then we add one - if (!preg_match('/\n$/',$_POST[$name])) - $_POST[$name].="\n"; - - // we don't like whitespace before a \n - $_POST[$name]=preg_replace('/\s*\n/',"\n",$_POST[$name]); - - if (!$fp = fopen($file, "w")) - die("Couldn't open ".$file." for writing"); - - // write the result in a file - fwrite($fp, $_POST[$name]); - fclose($fp); - - if (!chmod($file, 0644)) - die("Couldn't chmod ".$file); - } - else { - if (file_exists($file)) { - if (!unlink($file)) - die("Couldn't unlink ".$file); - } - } -} - -// Perl's encode_entities (to be able to use tunables.pl) -function encode_entities($str) { return htmlentities($str); } - - -$tpl = new rFastTemplate($templatedir); - -$list = $_POST["list"]; - -if(!isset($list)) -die("no list specified"); - -if (dirname(realpath($topdir."/".$list)) != realpath($topdir)) -die("list outside topdir"); - -if(!is_dir($topdir."/".$list)) -die("non-existent list"); - -$tpl->define(array("main" => "save.html")); -$tpl->assign(array("LIST" => htmlentities($list))); - -$tunables = file_get_contents($confdir.'/tunables.pl'); -eval($tunables); - -$tpl->parse("MAIN","main"); -$tpl->FastPrint("MAIN"); - -?> diff --git a/contrib/web/php-admin/htdocs/subscribers.php b/contrib/web/php-admin/htdocs/subscribers.php deleted file mode 100644 index 4c5444ac..00000000 --- a/contrib/web/php-admin/htdocs/subscribers.php +++ /dev/null @@ -1,114 +0,0 @@ - - * - * Permission is hereby granted, free of charge, to any person obtaining a copy - * of this software and associated documentation files (the "Software"), to - * deal in the Software without restriction, including without limitation the - * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or - * sell copies of the Software, and to permit persons to whom the Software is - * furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included in - * all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR - * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE - * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER - * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING - * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS - * IN THE SOFTWARE. - */ - -require(dirname(dirname(__FILE__))."/conf/config.php"); -require(dirname(__FILE__)."/class.rFastTemplate.php"); - -$tpl = new rFastTemplate($templatedir); - -# get the list parameter and check that list exists -$list = $_GET["list"]; - -if(!isset($list)) -die("no list specified"); - -if (dirname(realpath($topdir."/".$list)) != realpath($topdir)) -die("list outside topdir"); - -if(!is_dir($topdir."/".$list)) -die("non-existent list"); - -# this will be displayed on the top of the page -$message = ""; - -# subscribe some people if tosubscribe is set -if (isset($_POST["tosubscribe"])) { - - foreach (preg_split('/\r\n|\n|\r/', $_POST["tosubscribe"]) as $line) { - $email = trim($line); - if ($email != "") { - if (filter_var($email, FILTER_VALIDATE_EMAIL)) { - $cmd = "/usr/bin/mlmmj-sub -L ".escapeshellarg("$topdir/$list")." -a ".escapeshellarg($email)." 2>&1"; - unset($out); - exec($cmd, $out, $ret); - if ($ret !== 0) { - $message.= "* Subscribe error for $email\ncommand: $cmd\nreturn code: $ret\noutput: ".implode("\n", $out)."\n"; - } - } else { - $message.= "* Email address not valid: $email\n"; - } - } - - } - -# delete some people if delete is set -} else if (isset($_POST["delete"])) { - - $email = $_POST["email"]; - if (! filter_var($email, FILTER_VALIDATE_EMAIL)) die("Email address not valid"); - - $cmd = "/usr/bin/mlmmj-unsub -L ".escapeshellarg("$topdir/$list")." -a ".escapeshellarg($email)." 2>&1"; - unset($out); - exec($cmd, $out, $ret); - if ($ret !== 0) { - $message.= "* Unsubscribe error.\ncommand: $cmd\nreturn code: $ret\noutput: ".implode("\n", $out)."\n"; - } -} - -$subscribers=""; - -# get subscribers from mlmmj -$cmd = "/usr/bin/mlmmj-list -L ".escapeshellarg("$topdir/$list")." 2>&1"; -unset($out); -exec($cmd, $out, $ret); -if ($ret !== 0) { - $message.= "* Error: Could not get subscribers list.\n"; -} else { - - foreach ($out as $email) { - $email = trim($email); - - $form = "
"; - $form.= ""; - $form.= ""; - $form.= "
"; - - $subscribers.= "".htmlspecialchars($email)."$form\n"; - } - - if ($subscribers === "") { - $subscribers = "This list is empty.\n"; - } -} - -# set template vars -$tpl->define(array("main" => "subscribers.html")); - -$tpl->assign(array("LIST" => htmlspecialchars($list))); -$tpl->assign(array("MESSAGE" => "
".htmlspecialchars($message)."
")); -$tpl->assign(array("SUBS" => $subscribers)); - -$tpl->parse("MAIN","main"); -$tpl->FastPrint("MAIN"); - -?> diff --git a/contrib/web/php-admin/templates/edit.html b/contrib/web/php-admin/templates/edit.html deleted file mode 100644 index 67c9eec2..00000000 --- a/contrib/web/php-admin/templates/edit.html +++ /dev/null @@ -1,13 +0,0 @@ -mlmmj config -

mlmmj config

-
- - -{ROWS} -
- -
-

-Index -

- diff --git a/contrib/web/php-admin/templates/edit_boolean.html b/contrib/web/php-admin/templates/edit_boolean.html deleted file mode 100644 index 9006798d..00000000 --- a/contrib/web/php-admin/templates/edit_boolean.html +++ /dev/null @@ -1 +0,0 @@ -{NICENAME}{TEXT} diff --git a/contrib/web/php-admin/templates/edit_list.html b/contrib/web/php-admin/templates/edit_list.html deleted file mode 100644 index cbbeafd4..00000000 --- a/contrib/web/php-admin/templates/edit_list.html +++ /dev/null @@ -1 +0,0 @@ -{NICENAME}{TEXT} diff --git a/contrib/web/php-admin/templates/edit_string.html b/contrib/web/php-admin/templates/edit_string.html deleted file mode 100644 index 986476a9..00000000 --- a/contrib/web/php-admin/templates/edit_string.html +++ /dev/null @@ -1 +0,0 @@ -{NICENAME}{TEXT} diff --git a/contrib/web/php-admin/templates/index.html b/contrib/web/php-admin/templates/index.html deleted file mode 100644 index d4328312..00000000 --- a/contrib/web/php-admin/templates/index.html +++ /dev/null @@ -1,4 +0,0 @@ -mlmmj config -

mlmmj config

-{LISTS} - diff --git a/contrib/web/php-admin/templates/save.html b/contrib/web/php-admin/templates/save.html deleted file mode 100644 index d2b7872b..00000000 --- a/contrib/web/php-admin/templates/save.html +++ /dev/null @@ -1,9 +0,0 @@ -mlmmj config -

mlmmj config

-

-{LIST} control values saved! -

-

-Index | {LIST} -

- diff --git a/contrib/web/php-admin/templates/subscribers.html b/contrib/web/php-admin/templates/subscribers.html deleted file mode 100644 index 1333999c..00000000 --- a/contrib/web/php-admin/templates/subscribers.html +++ /dev/null @@ -1,38 +0,0 @@ - - -mlmmj - {LIST} subscribers - - - -

{LIST} subscribers

- -{MESSAGE} - - -{SUBS} -
- -
-Add subscribers:
-
- -
- -

-Index -

- - diff --git a/contrib/web/php-moderation/README b/contrib/web/php-moderation/README deleted file mode 100644 index acc63664..00000000 --- a/contrib/web/php-moderation/README +++ /dev/null @@ -1,52 +0,0 @@ -MLMMJ PHP Moderation Web Interface by Thomas Goirand - - -* dependencies * - -This app needs: -- php with gettext() support (for translations). Nearly all (if not all) -Unix distributions have php with gettext support. -- The Mail_mime PEAR package (php-mail-mime in Debian) - - -* setup * - -- Run "./build-translations.sh" to generate the gettext binaries out of the -sources -- Edit the 5 variables on top of mlmmj-moderation.php to set the -moderation folder, list name, domain, delimiter and the address used to -send the moderation validation messages. You will need gettext installed -on your system... -- Eventually rename mlmmj-moderation.php and edit mlmmj.css to your taste -- Edit and rename the dot.htaccess files to .htaccess to protect the -moderation folder from others -- make it so this app have read/write access to the moderation folder. -Write access is needed because the app does some unlink() calls to -delete the messages. -- If using debian, you might need to dpkg-reconfigure locales and add -fr_FR.UTF-8, if you want to see my French translation (there might be -some other distributions needing the same kind of thing, I don't know...). - - -* known issues * - -- Because this web app is sending an email to validate messages to be -moderated, once you have hit "validate", validated messages will still -(most of the times) show in the interface, as the folder is (most of the -times) read before MLMMJ has time to send the moderated messages and -remove them from the moderation folder. - -A workaround would be to NOT display messages that are moderated on the -URL bar, but it's not a good way to go, as if the server is very busy, -the next refresh of the page (the one after the validation) can still -show some messages already validated. We see here that the method to -send emails doesn't seem to be very good... Would it be possible for me -to rename the moderated messages??? - -- Because it's the first version, I have not yet used POST, but some GET -in order to see things on the URL bar. So, of course, we are here -hitting the limitation of the URL size (if there are really a lot of -messages to moderate). This can be changed later simply by adding -method="POST" in the form, as I use $_REQUEST (and not the stupid $_POST -/ $_GET that everybody uses...). I might do this on the next version, -but for now, it's more easy for debug purposes to keep it this way. diff --git a/contrib/web/php-moderation/build-translations.sh b/contrib/web/php-moderation/build-translations.sh deleted file mode 100755 index 8a4c11a7..00000000 --- a/contrib/web/php-moderation/build-translations.sh +++ /dev/null @@ -1,37 +0,0 @@ -#!/bin/bash -# -# Build script for generating the MLMMJ moderation web interface locales -# - -set -e - -LOCALE_TRANS=fr_FR -WEB_SCRIPT_FILES=mlmmj-moderation.php - -if [ ! -d translations ]; then - echo "Wrong working directory." >&2 - exit 1 -fi - -echo "===> Managing internationalizations and localizations" - -echo "=> Extracting strings from sources" -xgettext $WEB_SCRIPT_FILES -o translations/templates.pot - -echo "=> Merging in every language .po file:" -for i in $LOCALE_TRANS; do - echo -n "$i " - msgmerge -s -U "translations/$i.po" translations/templates.pot -done - -echo "=> Creating l10n folders" -for i in $LOCALE_TRANS; do - mkdir -p "translations/locale/$i/LC_MESSAGES" -done - -echo "=> Creating binary formats of language files:" -for i in $LOCALE_TRANS; do - echo -n $i" " - msgfmt -c -v -o "translations/locale/$i/LC_MESSAGES/messages.mo" \ - "translations/$i.po" -done diff --git a/contrib/web/php-moderation/dot.htaccess b/contrib/web/php-moderation/dot.htaccess deleted file mode 100644 index 6e40ec87..00000000 --- a/contrib/web/php-moderation/dot.htaccess +++ /dev/null @@ -1,4 +0,0 @@ -Require valid-user -AuthType Basic -AuthName "mlmmj web-interface" -AuthUserFile /home/mlmmj/htpasswd diff --git a/contrib/web/php-moderation/mlmmj-moderation.php b/contrib/web/php-moderation/mlmmj-moderation.php deleted file mode 100644 index 95b7ae21..00000000 --- a/contrib/web/php-moderation/mlmmj-moderation.php +++ /dev/null @@ -1,291 +0,0 @@ - - -Permission is hereby granted, free of charge, to any person obtaining a copy of -this software and associated documentation files (the "Software"), to deal in -the Software without restriction, including without limitation the rights to -use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies -of the Software, and to permit persons to whom the Software is furnished to do -so, subject to the following conditions: - -The above copyright notice and this permission notice shall be included in all -copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL -THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR -OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, -ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR -OTHER DEALINGS IN THE SOFTWARE. -*/ - -// These are the configuration variables for your list -$mod_dir = "/some/path/to/your/listname/moderation"; -$list_name = "listname"; -$list_domain = "example.com"; -$delimiter = "+"; -$from_addr = "user@example.com"; - -// Manage accepted language and cookies -$txt_default_lang = "en"; -session_register("lang"); -if(isset($_SESSION["lang"]) && !is_string($_SESSION["lang"])){ - unset($lang); -} -if(isset($_SESSION["lang"])){ - $lang = $_SESSION["lang"]; -} - -// TODO: Add some web stuffs to change the language manually on the web interface... -// ...HERE... -// - -// $lang = "fr_FR"; - -// The following code keeps the lang in sessions, so it can be changed manually above with lang=XX -// and if there's nothing in session yet, then it will parse the language set in the browser -if(isset($lang)){ - $_SESSION["lang"] = $lang; -} -if (!isset($lang)){ - if (isset($_SERVER["HTTP_ACCEPT_LANGUAGE"]) && $_SERVER["HTTP_ACCEPT_LANGUAGE"]) { - $all_languages = strtok($_SERVER["HTTP_ACCEPT_LANGUAGE"],";"); - $langaccept = explode(",", $all_languages); - for ($i = 0; $i < sizeof($langaccept); $i++) { - $tmplang = trim($langaccept[$i]); - $tmplang2 = substr($tmplang,0,2); - if (!isset($lang) && isset($txt_langname[$tmplang]) && $txt_langname[$tmplang]) { - $lang = $tmplang; - }elseif (!isset($lang) && isset($txt_langname[$tmplang2])) { - $lang = $tmplang2; - } - } - } - if (!isset($lang)) { - $lang = $txt_default_lang; - } - $_SESSION["lang"] = $lang; -} -header("Content-type: text/html; charset=UTF-8"); -switch($lang){ -case "fr_FR": -case "fr": - $gettext_lang = "fr_FR.UTF-8"; - break; -default: - $gettext_lang = "en_US.UTF-8"; - break; -} -if(FALSE === putenv("LC_ALL=$gettext_lang")){ - echo "Failed to putenv LC_ALL=$gettext_lang
"; -} -if(FALSE === putenv("LANG=$gettext_lang")){ - echo "Failed to putenv LANG=$gettext_lang
"; -} -if(FALSE === setlocale(LC_ALL, $gettext_lang)){ - echo "Failed to setlocale(LC_ALL,$gettext_lang)
"; -} -$pathname = bindtextdomain("messages", dirname(__FILE__) ."/translations/locale"); -$message_domain = textdomain("messages"); - -// This comes from the Mail_Mime PEAR package, under Debian, you need -// the php-mail-mime package to have this script work. -require_once 'Mail/mimeDecode.php'; - -// Email header parsing -function decodeEmail($input){ - $params['include_bodies'] = true; - $params['decode_bodies'] = true; - $params['decode_headers'] = true; - - $decoder = new Mail_mimeDecode($input); - $structure = $decoder->decode($params); - return $structure; -} - -// Reading of all the messages from the moderation folder -function getMessageList(){ - global $mod_dir; - $all_msg = array(); - // Read all files from the directory. - if (is_dir($mod_dir)) { - if ($dh = opendir($mod_dir)) { - while (($file = readdir($dh)) !== false) { - if( !ereg("^([0-9a-f]+)\$",$file) ) continue; - $full_path = $mod_dir . "/" . $file; - if(filetype($full_path) == "file"){ - if(FALSE === ($input = file_get_contents($full_path))){ - echo ""._("Warning: could not read")." $full_path
"; - }else{ - $struct = decodeEmail($input); - $my_msg = array(); - $my_msg["headers"] = $struct->headers; - $my_msg["body"] = $struct->body; - $my_msg["filename"] = $file; - $all_msg[] = $my_msg; - } - } - } - closedir($dh); - } - } - return $all_msg; -} - -// Printing of the list of messages to be displayed (the big table) -function printAllMessages($all_msg){ - $n = sizeof($all_msg); - $out = "\n"; - $th = " class=\"tableTitle\" "; - $out .= ""._("Date").""._("Subject").""._("From")."\n"; - $out .= ""; - for($i=0;$i<$n;$i++){ - if($i % 2){ - $cls = " class=\"alternatecolorline\" "; - }else{ - $cls = " class=\"alternatecolorline2\" "; - } - $out .= ""; - $out .= ""; - if( isset($all_msg[$i]["headers"]["date"]) ){ - $mydate = htmlspecialchars($all_msg[$i]["headers"]["date"]); - }else{ - $mydate = _("No date"); - } - $out .= ""; - if( !isset($all_msg[$i]["headers"]["subject"]) || strlen($all_msg[$i]["headers"]["subject"]) == 0){ - $subject = _("No subject"); - }else{ - $subject = $all_msg[$i]["headers"]["subject"]; - } - $out .= ""; - if( isset($all_msg[$i]["headers"]["from"]) ){ - $myfrom = htmlspecialchars($all_msg[$i]["headers"]["from"]); - }else{ - $myfrom = _("No from in headers"); - } - $out .= ""; - $out .= "\n"; - } - $out .= "
" . "" . "" . $mydate . "" . htmlspecialchars($subject) . "" . $myfrom . "
\n"; - $out .= _("For the selection:")." "; - $out .= ""; - $out .= ""; - return $out; -} - -// Deletion and validation of messages -if( isset($_REQUEST["validate"]) || isset($_REQUEST["delete"])){ - if( !isset($_REQUEST["msg_id"]) ){ - echo ""._("No message selected!")."
"; - }else{ - $n = sizeof($_REQUEST["msg_id"]); - for($i=0;$i<$n;$i++){ - if( !ereg("^([0-9a-f]+)\$",$_REQUEST["msg_id"][$i]) ){ - echo "".("Moderation ID format is wrong: will ignore this one!").""; - continue; - } - $fullpath = $mod_dir . "/" . $_REQUEST["msg_id"][$i]; - if(!file_exists($fullpath)){ - echo ""._("Moderation ID not found in the moderation folder!").""; - continue; - } - // TODO: Check if message is there! - if( isset($_REQUEST["validate"]) ){ -// echo "Validating message ".$_REQUEST["msg_id"][$i]."
"; - $to_addr = $list_name . $delimiter . "moderate-" . $_REQUEST["msg_id"][$i] . "@" . $list_domain; - $headers = "From: ".$from_addr; - mail($to_addr,"MLMMJ Web interface moderation","MLMMJ Web interface moderation",$headers); - }else{ -// echo "Deleting message ".$_REQUEST["msg_id"][$i]."
"; - unlink($mod_dir . "/" . $_REQUEST["msg_id"][$i]); - if( file_exists($mod_dir . "/" . $_REQUEST["msg_id"][$i] . ".orig") ){ - unlink($mod_dir . "/" . $_REQUEST["msg_id"][$i] . ".orig"); - } - } - } - } -} - -// A bit of javascript to do the checkboxes inversion. -echo " - - - - - -

MLMMJ "._("moderation web interface")."

-"._("Refresh page").""; - -if( isset($_REQUEST["action"]) && $_REQUEST["action"] == "show_message"){ - if( !ereg("^([0-9a-f]+)\$",$_REQUEST["msgid"]) ){ - echo ""._("Message ID format is wrong: can't display!").""; - }else{ - $full_path = $mod_dir . "/" . $_REQUEST["msgid"]; - if( !file_exists($full_path) ){ - echo "".("Message does not exists!").""; - }else{ - if(FALSE === ($input = file_get_contents($full_path))){ - echo ""._("Error: could not read")." $full_path
"; - }else{ - $struct = decodeEmail($input); - echo ""._("Back to messages list")."

"; - echo ""._("From:")." " . htmlspecialchars($struct->headers["from"])."
"; - echo ""._("Date:")." " . htmlspecialchars($struct->headers["date"])."
"; - echo ""._("To:")." " . htmlspecialchars($struct->headers["to"])."
"; - echo ""._("Subject:")." " . htmlspecialchars($struct->headers["subject"])."
"; - echo ""._("Message body:")."

" . nl2br(htmlspecialchars($struct->body)); - } - } - } -}else{ - $all_msg = getMessageList(); - echo printAllMessages($all_msg); -} - -echo ' -
-MLMMJ: Mailing List Manager Make it Joyfull
- -MLMMJ PHP moderator code done by: -Thomas GOIRAND, released under the therms of the -MIT license. Please visit GPLHost\'s leading -VPS hosting service, and -DTC GPL control panel home -if you want hosting with MLMMJ support. - -
-'; - -?> diff --git a/contrib/web/php-moderation/mlmmj.css b/contrib/web/php-moderation/mlmmj.css deleted file mode 100644 index 478b88c2..00000000 --- a/contrib/web/php-moderation/mlmmj.css +++ /dev/null @@ -1,46 +0,0 @@ -.alternatecolorline2 { - background-color: #E3f9ff; - font-size: 10px; - } - -.alternatecolorline { - background-color: #bcd0d6; - font-size: 10px; - } - -.tableTitle { - text-align: center; - color: #547074; - font-size: 12px; - background-color: #dbe9ed; -} - -.errorMessages { - color: #FF0000; - font-size: 14px; - font-weight: bold; -} - -a:link{color:#105278;text-decoration: none;} -a:visited{color:#105278;text-decoration: none;} -a:hover{color:#000000;text-decoration: underline;} -a:active{color:#000000;text-decoration: none;} - -html{height:100%; margin:4;} -body{height:100%;margin:4; font: 12px Arial, Helvetica, sans-serif; color: #000000;} - -/* Forms fields definitions */ -input,select,textarea { - font-family: arial; - font-size: 12px; - color: #000000; - background-color: #F6F6F2; - border-color: #ECEEE5 #F6F6F2 #F6F6F2 #ECEEE5; -} - -h3 { - text-align: center; - font-size: 20px; -} - -.footer{width:98%; text-align:center; position:absolute; bottom:0; padding:1%; } diff --git a/contrib/web/php-moderation/translations/dot.htaccess b/contrib/web/php-moderation/translations/dot.htaccess deleted file mode 100644 index c3c2d19d..00000000 --- a/contrib/web/php-moderation/translations/dot.htaccess +++ /dev/null @@ -1,2 +0,0 @@ -Order Deny,Allow -Deny from all diff --git a/contrib/web/php-moderation/translations/fr_FR.po b/contrib/web/php-moderation/translations/fr_FR.po deleted file mode 100644 index ac545845..00000000 --- a/contrib/web/php-moderation/translations/fr_FR.po +++ /dev/null @@ -1,109 +0,0 @@ -# MLMMJ moderation web interface templates. -# Copyright (C) 2009 Thomas GOIRAND -# This file is distributed under the same license as MLMMJ package. -# Thomas Goirand , 2009. -# -msgid "" -msgstr "" -"Project-Id-Version: 0.1\n" -"Report-Msgid-Bugs-To: \n" -"POT-Creation-Date: 2009-03-05 07:25+0800\n" -"PO-Revision-Date: 2009-03-05 07:29+0800\n" -"Last-Translator: Thomas Goirand \n" -"Language-Team: Thomas Goirand \n" -"MIME-Version: 1.0\n" -"Content-Type: text/plain; charset=UTF-8\n" -"Content-Transfer-Encoding: 8bit\n" - -#: mlmmj-moderation.php:259 -msgid "Back to messages list" -msgstr "Retour a la liste des messages" - -#: mlmmj-moderation.php:144 -msgid "Date" -msgstr "Date" - -#: mlmmj-moderation.php:261 -msgid "Date:" -msgstr "Date :" - -#: mlmmj-moderation.php:177 -msgid "Delete" -msgstr "Effacer" - -#: mlmmj-moderation.php:256 -msgid "Error: could not read" -msgstr "Erreur: impossible de lire" - -#: mlmmj-moderation.php:175 -msgid "For the selection:" -msgstr "Pour la sélection :" - -#: mlmmj-moderation.php:144 -msgid "From" -msgstr "De" - -#: mlmmj-moderation.php:260 -msgid "From:" -msgstr "De:" - -#: mlmmj-moderation.php:144 -msgid "Inverse selection" -msgstr "Inverser la selection" - -#: mlmmj-moderation.php:249 -msgid "Message ID format is wrong: can't display!" -msgstr "Le format de l'ID du message est faux: affichage impossible !" - -#: mlmmj-moderation.php:264 -msgid "Message body:" -msgstr "Corp du message :" - -#: mlmmj-moderation.php:194 -msgid "Moderation ID not found in the moderation folder!" -msgstr "ID de modération non trouve dans le dossier de modération!" - -#: mlmmj-moderation.php:157 -msgid "No date" -msgstr "Pas de date" - -#: mlmmj-moderation.php:169 -msgid "No from in headers" -msgstr "Pas de from dans les entêtes" - -#: mlmmj-moderation.php:184 -msgid "No message selected!" -msgstr "Pas de message sélectionné !" - -#: mlmmj-moderation.php:161 -msgid "No subject" -msgstr "Pas de sujet" - -#: mlmmj-moderation.php:245 -msgid "Refresh page" -msgstr "Rafraichir la page" - -#: mlmmj-moderation.php:144 -msgid "Subject" -msgstr "Sujet" - -#: mlmmj-moderation.php:263 -msgid "Subject:" -msgstr "Sujet :" - -#: mlmmj-moderation.php:262 -msgid "To:" -msgstr "Pour :" - -#: mlmmj-moderation.php:176 -msgid "Validate" -msgstr "Valider" - -#: mlmmj-moderation.php:122 -msgid "Warning: could not read" -msgstr "Alerte : impossible de lire" - -#: mlmmj-moderation.php:244 -msgid "moderation web interface" -msgstr "interface web de moderation" - diff --git a/contrib/web/php-user/README b/contrib/web/php-user/README deleted file mode 100644 index afa2aa94..00000000 --- a/contrib/web/php-user/README +++ /dev/null @@ -1,34 +0,0 @@ -README webinterface Jun 27th 2004 - -Ehh, what's that? - The mlmmj-webinterface was created to give people the opportunity to -{sub,unsub}scribe to a mailinglists via a webinterface (without having to -write an initial {sub,unsub}scribe-mail). - - -What are the requirements? - You only need a webserver with PHP >= 3.0.8 support. - - -How can I install/use the webinterface? - - Upload mlmmj.php to your webserver. - - Have a look at example.html and copy one or both forms - into your website. - - Adjust the options to satisfy your needs: - - The mailinglist your want to {sub,unsub}scribe to: - - - Do you want to subscribe or unsubscribe? - - - Where do you want to redirect your user after a failure? - - - What should be the success redirect? - - - -That's it - have a lot of fun! - - Christoph Thiel diff --git a/contrib/web/php-user/example.html b/contrib/web/php-user/example.html deleted file mode 100644 index f969d571..00000000 --- a/contrib/web/php-user/example.html +++ /dev/null @@ -1,33 +0,0 @@ - - - -mlmmj-webinterface - - - -

-

subscribe

- - - - - -
- - -

- -

-

unsubscribe

-
- - - - -
- -
-

- - - diff --git a/contrib/web/php-user/mlmmj.php b/contrib/web/php-user/mlmmj.php deleted file mode 100644 index 0e625b38..00000000 --- a/contrib/web/php-user/mlmmj.php +++ /dev/null @@ -1,138 +0,0 @@ - - * - * Permission is hereby granted, free of charge, to any person obtaining a copy - * of this software and associated documentation files (the "Software"), to - * deal in the Software without restriction, including without limitation the - * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or - * sell copies of the Software, and to permit persons to whom the Software is - * furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included in - * all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR - * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE - * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER - * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING - * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS - * IN THE SOFTWARE. - */ - - -// error_reporting(E_ALL); - -class mlmmj -{ - var $email; - var $mailinglist; - var $job; - var $redirect_success; - var $redirect_failure; - - var $delimiter; - var $errors; - - function is_email($string="") - { - if (eregi("^[a-z0-9\._-]+".chr(64)."+[a-z0-9\._-]+\.+[a-z]{2,4}$", $string)) - { - return TRUE; - } - else - { - return FALSE; - } - } - - function error($string="") - { - $this->errors = TRUE; -// die($string); - } - - function mlmmj() - { - // set mandatory vars... - $this->errors = FALSE; - $this->delimiter = "+"; - - if (!isset($_POST["email"]) && - !isset($_POST["mailinglist"]) && - !isset($_POST["job"]) && - !isset($_POST["redirect_success"]) && - !isset($_POST["redirect_failure"])) - { - $this->errors = TRUE; - if(isset($_POST["redirect_failure"])) - { - header("Location: ".$_POST["redirect_failure"]); - exit; - } - else - die("An error occurred. Please check contrib/web/php-user/README for details."); - } - else - { - if($this->is_email($_POST["email"])) - $this->email = $_POST["email"]; - else - $this->error("ERROR: email is not a valid email address."); - - if($this->is_email($_POST["mailinglist"])) - $this->mailinglist = $_POST["mailinglist"]; - else - $this->error("ERROR: mailinglist is not a valid email address."); - - $this->job = $_POST["job"]; - - if(!(($this->job == "subscribe") OR ($this->job == "unsubscribe"))) - { - $this->error("ERROR: job unknown."); - } - - $this->redirect_failure = $_POST["redirect_failure"]; - $this->redirect_success = $_POST["redirect_success"]; - - } - - // now we should try to go ahead and {sub,unsub}scribe... ;) - - if(!$this->errors) - { - // @ ^= char(64) - - $to = str_replace(chr(64),$this->delimiter.$this->job.chr(64),$this->mailinglist); - $subject = $this->job." to ".$this->mailinglist; - $body = $this->job; - $addheader = ""; - $addheader .= "Received: from ". $_SERVER["REMOTE_ADDR"] - ." by ". $_SERVER["SERVER_NAME"]. " with HTTP;\r\n\t".date("r")."\n"; - $addheader .= "X-Originating-IP: ".$_SERVER["REMOTE_ADDR"]."\n"; - $addheader .= "X-Mailer: mlmmj-webinterface powered by PHP/". phpversion() ."\n"; - $addheader .= "From: ".$this->email."\n"; - $addheader .= "Cc: ".$this->email."\n"; - - if(!mail($to, $subject, $body, $addheader)) - $this->error($this->job." failed."); - } - - if($this->errors) - { - header("Location: ".$this->redirect_failure); - exit; - } - else - { - header("Location: ".$this->redirect_success); - exit; - } - } -} - - -$mailinglist = new mlmmj; - -?>