diff --git a/ezmlm-web-3.0.1/lang/de.hdf b/ezmlm-web-3.0.1/lang/de.hdf index 326f572..2b4b714 100644 --- a/ezmlm-web-3.0.1/lang/de.hdf +++ b/ezmlm-web-3.0.1/lang/de.hdf @@ -123,7 +123,7 @@ Lang { r = Erlaube die Fern-Administration der Liste (für ModeratorInnen) s = Die Einschreibung in die Liste und für die Zusammenfassungen wird moderiert t = Hänge eine Signatur an jede versandte Nachricht - u = Nur Einsendungen von AbonnentInnen werden akzeptiert (für moderierte Listen: akzeptiere alle Einsendungen von AbonnentInnen) + u = Einsendungen von AbonnentInnen werden immer akzeptiert (dies gilt auch für moderierte Listen) w = Entferne den Aufruf von ezmlm-warn aus den Verarbeitungsregeln (für sehr spezielle Konfigurationen) x = Prüfe die MIME-Typen der Anhänge eingehender Nachrichten y = Fordere eine Bestätigung für jede eingesandte Nachricht an diff --git a/ezmlm-web-3.0.1/lang/en.hdf b/ezmlm-web-3.0.1/lang/en.hdf index af1adc2..42926e1 100644 --- a/ezmlm-web-3.0.1/lang/en.hdf +++ b/ezmlm-web-3.0.1/lang/en.hdf @@ -123,7 +123,7 @@ Lang { r = Enable remote administration of the list (for moderators) s = Subscriptions to the main list and the digest list will be moderated t = Add a trailing text to every message - u = Only subscribed users may post messages (for a moderated list: always accept subscribers' postings) + u = Subscribed users may always post messages (even ignoring moderation) w = Remove the ezmlm-warn invocations from the list setup (rarely useful) x = Remove or reject specific mime types in messages y = Request a confirmation mail for every posted message diff --git a/ezmlm-web-3.0.2/INSTALL b/ezmlm-web-3.0.2/INSTALL new file mode 100644 index 0000000..2efc335 --- /dev/null +++ b/ezmlm-web-3.0.2/INSTALL @@ -0,0 +1,149 @@ +The following notes will guide you through the installation of ezmlm-web: + +OVERVIEW: + 0 - important notes + 1 - get it + 2 - install executable + 3 - configuration file + 4 - compile cgi wrapper + 5 - install cgi wrapper + 6 - (optional) configure access control (http authentication) + 7 - css stylesheet file + 8 - final test + + +------------------------------------------------------------------------------ + + +0. IMPORTANT: you need the perl module Mail::Ezmlm and others to use + ezmlm-web! The file README contains the complete list of necessary + modules. + + Additionally (since v3.0) you have to install clearsilver (a templating + engine). See INSTALL.clearsilver for details. + +1. Get ezmlm-web and extract the archive: + tar xzf ezmlm-web-3.x.tar.gz + + +2. Copy ezmlm-web.cgi to some publically readable directory. It does not + have to be in a path accessible to your web server, but any user with a + mailing list must be able to run it (Check the read and execute rights + on both the file and directory). We put our copy in "/usr/local/bin". + + At the top of ezmlm-web.cgi you can will probably have to change the + $ENV{'PATH'} variable. Be careful about what you set as the path. Too + much is a security risk and too little will cause the script to + malfunction. Version 2.0 requires that the following programs be + accessible in your path: mv, rm + + +3. Edit the ezmlmwebrc file and alter the variables to suit your + particular system. + + Be careful about the $LIST_DIR variable. This script assumes that all + users store their mailing lists in the same sub directory of the home + directory (eg ~/lists). You can override this for an individual user + by recompiling the C wrapper to call ezmlm-web.cgi with a -d option. + + Other configurable options are documented in the ezmlmwebrc file + itself. I have tried to keep the amount of information that you need to + supply to a minimum and also make reasonable guesses about default + values. + + The directory containing ezmlm-web's language files should be something + like '/usr/local/share/ezmlm-web/lang': + mkdir -p /usr/local/share/ezmlm-web + cp -r lang /usr/local/share/ezmlm-web + You can change this default location in the ezmlmwebrc file. + Do the same with the template directory (e.g copy it + to /usr/local/share/ezmlm-web/template). Then you also have to + set the appropriate location in the ezmlmwebrc file. + + Finally, copy the ezmlmwebrc file to one of + the following places: + 1) the home directory of the user that runs ezmlm-web.cgi + 2) the directory, that contains your ezmlm-web.cgi file + 3) /etc/ezmlm + (ezmlm-web will look for it in these places in the given order) + + +4. Edit the index.c file and change the path to the path of your copy + of ezmlm-web.cgi. Then compile this file. You can do this by issuing + this command: + gcc -o index.cgi index.c + + +5. For every user/virtual host that needs to manage mailing lists, you + need to create a SUID (user not root!!) copy of index.cgi (see + chmod(1) for details). These need to reside somewhere accessible by + the web server. I suggest that you put them in a sub directory (see + about security) of each user/virtual host's home directory (eg + /home/luser/public_html/ezmlm for Apache on Redhat). + + The copies don't actually have to be called index.cgi, but it is nice + for web servers that can resolve a cgi script as an index page (see the + srm.conf file in Apache). It is important to make sure that whichever + directory you choose to put them can i: Execute CGI Scripts and ii: Be + access controlled (here I mean both web and user access) by some method + (eg .htaccess, access.conf for Apache). + + +6. Install some method of securing access to the page. The following + information is applicable to Apache web servers ... Detailed + information on user authentication can be obtained from the Apache + documentation (http://www.apache.org) and ApacheWeek + (http://www.apacheweek.com/features/userauth) + +6.1 Ensure that your Apache setup will allow .htaccess file to control + access in the directory that contains. This is controlled by the + AllowOverride tag in access.conf. (Also ensure you have the + necessary Apache modules installed) + +6.2 Create a htpasswd file. This is done using the htpasswd command that + comes with Apache. Its command line syntax is; + htpasswd [-c] passwordfile username + + You need to put the passwordfile somewhere that is not accessible by + people through the web, and create an entry for each user you want + to have access ... See the ApacheWeek article for more details. + +6.3 Create a .htaccess file in the directory that contains index.cgi. + Note that using Apache's built in access control, you can only control + access to directories, not individual files, hence the need for a + sub-directory in step 5. + + The format of the .htaccess file should be along the lines of this; + + AuthName EZ Mailing List Manager + AuthType Basic + AuthUserFile /path/to/passwordfile + require valid-user # or require user username + + Again, see the ApacheWeek article for details. + + +7. You should copy the stylesheet file (css/default.css) to a location + of your choice. It has to be accessible by an URL - maybe a place like + "/var/www/ezmlm-web.css" could be appropriate. + Now you may have to change the "HTML_CSS_FILE" setting in your + ezmlmwebrc file. This value is a URL - not the local filename. + + +8. Test the installation with your favourite web browser. You should be + asked for a username and password (supplied in 6.2) and then be presented + with a screen entitled "EZ Mailing List Manger". You can then try to + create and edit mailing lists ... Have Fun :) + + If you do not see a colorful screen, then you did not set the HTML_CSS_FILE + option correctly in ezmlmwebrc. Check it again. + + If anything failes - take a look at the web server's error log + (e.g /var/log/apache/error.log). + + +If you have any problems, then you can: +- take a look at https://systemausfall.org/toolforge/ezmlm-web +- send me an email: ezmlm-web@sumpfralle.de +- subscribe to the mailinglist: ezmlm-web-subscribe@lists.systemausfall.org +- report a bug at https://systemausfall.org/trac/ezmlm-web diff --git a/ezmlm-web-3.0.2/INSTALL.clearsilver b/ezmlm-web-3.0.2/INSTALL.clearsilver new file mode 100644 index 0000000..484bfe0 --- /dev/null +++ b/ezmlm-web-3.0.2/INSTALL.clearsilver @@ -0,0 +1,34 @@ +Short notes on how to install clearsilver for perl: +(you should read it, as step 4 is quite unusual) + +1) download & untar + http://clearsilver.net + + +2) configure + +The following configure options should be sufficient: + ./configure --enable-perl \ + --disable-python \ + --disable-ruby \ + --disable-java \ + --disable-csharp \ + --disable-apache \ + --disable-gettext \ + --disable-remote-debugger + +3) make + + +4) the tricky part :) + +As the installation directory of clearsilver-perl is configured incorrectly, +you should replace the existing SITEPREFIX line in perl/Makefile with the following: + SITEPREFIX = $(PREFIX) +(without the leading white space) + + +5) make install + + +6) done diff --git a/ezmlm-web-3.0.2/README b/ezmlm-web-3.0.2/README new file mode 100644 index 0000000..13b24b4 --- /dev/null +++ b/ezmlm-web-3.0.2/README @@ -0,0 +1,303 @@ +=================== +| ezmlm-web-3.0.1 | +=================== + +If you only want to know how to install ezmlm-web, then you should +read INSTALL. + +Contents +======== + I. Copyright Stuff + II. Some Background + III. Requirements + IV. Files + V. Notes + VI. Multi-level list access + VII. Language Portability +VIII. Bugs && Bug Reports + XI. Acknowledgements + X. Availability + + +I. Copyright Stuff - essentially the FreeBSD licence ... +================== +ezmlm-web - version 3.0.1 - 01/06/02006 + +Copyright (C) 1998, Guy Antony Halse, All Rights Reserved. + +Please send bug reports and comments to ezmlm-web@sumpfralle.de + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + +Redistributions of source code must retain the above copyright notice, this +list of conditions and the following disclaimer. + +Redistributions in binary form must reproduce the above copyright notice, +this list of conditions and the following disclaimer in the documentation +and/or other materials provided with the distribution. + +Neither name Guy Antony Halse nor the names of any contributors may be used +to endorse or promote products derived from this software without specific +prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS +IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +POSSIBILITY OF SUCH DAMAGE. + + +II. Some Background +=================== +[this text was written by Guy Antony Halse - the original author of ezmlm-web] +The need for ezmlm-web arose from the fact that we host many student +societies on our system. These societies usually have a virtual host for web +and email, which is administered by a computer rep from the society. These +computer reps often have little or no knowledge of Unix and so we needed a +user friendly system that would let the create and maintain mailing lists +(such as members@foo.soc.ru.ac.za, committee@foo.soc.ru.ac.za, etc). + +Since I am never keen to re-invent the wheel, I had a look at Steve Peterson's +script (http://virtation.com/qmail/ml-sub), which allows people to subscribe +and unsubscribe from mailing lists using a form->email gateway. This is fine +for putting on a web page saying "here come and join our mailing list", but +doesn't really allow you to administrate a list. + +Security of mailing lists was a concern, as we really didn't want +unauthorised people to be able to alter some users list. Ezmlm-web itself +implements no security checks (apart from un-tainting input) and so relies +on the web server to do this (re-inventing the wheel again :). We use an +Apache webserver, so one can control access to a directory using a .htaccess +file or in the access.conf file. ApacheWeek have a good article on doing +this at http://www.apacheweek.com/features/userauth. I also give examples +later in this document. + +This version of ezmlm-web is based to a large extent on previous +versions that I have developed. It has however been totally re-written to +make use of the Mail::Ezmlm perl module I wrote. At the same time it was +updated and extended to include the new features of ezmlm-idx. It includes +many new features that have been suggested to me over the last few months, +and hopefully is now useful to a much larger group of people. + +Since 02005 ezmlm-web is maintained by Lars Kruse (ezmlm-web@sumpfralle.de). +Only minor improvements had to be implemented to keep the already fully +functional ezmlm-web up to date. + + +III. Requirements +================= +This version of ezmlm-web requires the following; + +* qmail v1.03 +* ezmlm v0.53 (or ezmlm-idx v0.40) +* clearsilver v0.10.2 (only perl support is necessary) +* Perl v5.004 and the following modules; + + Mail::Ezmlm v0.03 + + Mail::Address v1.15 + + CGI v2.6 + + CGI::Carp v1.06 + + DB_File v1.65 + + Getopt::Std v4.1 + + File::Find v? + + File::Copy v2.02 + +The version number indicates the version of the module that ezmlm-web was +developed with. Earlier versions may work, but then they haven't been +tested. Have a look on http://www.CPAN.org/, http://www.qmail.org/, and +http://www.ezmlm.org/ for anything you are missing. Of course, newer +versions are expected to work as well. + +To install perl modules you may use the cpan command line interface. +Just run "cpan" and type something like "install Mail::Ezmlm". + +You can download clearsilver (a templating engine - it is required since +ezmlm-web v3.0) from http://clearsilver.net. + + +IV. Files +========= +In this distribution you should find the following files; + +README (optional) This file. Provides some background information. + +INSTALL (optional) Notes on installation. + +INSTALL.clearsilver (optional) Notes on the installation of clearsilver. + +CHANGES (optional) The change history. + +UPGRADING (optional) Notes on upgrading ezmlm-web from a previous version. + +TODO (optional) This file is a list of things I intend doing in future + versions of ezmlm-web. + +ezmlm-web.cgi (required) The ezmlm-web cgi script in perl. You will need it :) + +index.c (recommended) A C wrapper to allow ezmlm-web.cgi to run + suid. Not strictly necessary if your setup allows perl scripts + to run suid, but I prefer using wrappers anyway. It needs to + be edited and compiled to suit your system. Not needed to + run ezmlm-web. + +ezmlmwebrc (required) This is the configuration file for ezmlm-web. + All options are explained in this example file. You will need + this file to run ezmlm-web. + +htaccess.sample (recommended) A sample Apache .htaccess file for controlling access to + the mailing lists. If you use another web server, you will + have to work this bit out for yourself. + +webusers.sample (recommended) A sample webusers file for multi-level access control. + +lang (directory, required) It contains the language files. You will need + at least the one, that you have choosen in "ezmlmwebrc" by + the option "HTML_LANGUAGE". + +css (directory, recommended) Here you find available css stylesheet files. + Pick the one you like (for now, there is only one choice :)) and + set it up by pointing the "HTML_CSS_FILE" setting in your + "ezmlmwebrc" to an appropriate URL. + +template (directory, required) The clearsilver template files in this + directory defined the layout of the web interface. You should be able + to adapt them to your needs, if you like. + +spec (directory, optional) Some development specific information. + + +V. Notes +========= +* There is a function to delete mailing lists, but I really don't like the + idea. The only reason I put it in is that bvi@rucus asked for it. + If you set $UNSAFE_RD = 0 (the default) in the config section, the + ezmlm-web won't actually delete the list. In this case it moves the + to . and all the associated .qmail files to a sub-directory called + deleted.qmail/ (In the users home directory. This is by far a safer way + (since you can restore lists) and therefore I recommend it. + +* The HTML interface has been tested using Nutscrape, Internet Exploder, and + Lynx. If anyone uses anything else and has problems, please let me know. + +* I suggest that you make use of custom ezmlmwebrc files rather than using + the -d command line switches - it makes fault diagnosis easier ... + +* Please see the section on languages below. + + +VI. Multi-Level Access +======================= +Ezmlm-web has a multi-level access system. This depends on a file called +webusers being present in $LIST_DIR. If the file is not present, then ANY +valid user has access to all lists. If, however, this file exists a number +of constraints come into place. + +- The webusers file is scanned for either the list name (case insensitive) or + an ALL (case sensitive) entry. +- The list entry (or ALL) is scanned for the current user (as set in + $REMOTE_USER) or an ALL (user) entry. +- If any valid match is made, then the user is allowed to edit the list. + Otherwise the user is politely told to go away ;-) + +If list creation is allowed and the webusers file exists, then the person who +creates the list is the default owner. There is no way to create users +through the web interface, as this depends on your authentication system. + +The format of a webusers file is as follows; + +list1: user1 user2 user3 +ALL: user1 user2 +list2: ALL + +Once this file exists, the ezmlm-web script will allow the list users to +configure their access lists along with any other options. + +You can permit some users to create lists by adding a line similar to the +following to your webusers file: + +ALLOW_CREATE: user2 user3 + +If there is no line starting with "ALLOW_CREATE:" in the webusers file, then +no one will be allowed to create lists. This behaviour is new for ezmlm-web +since version 2.2. To stay compatible to old installations, the commandline +option "-c" for ezmlm-web.cgi will still allow everyone to create lists. The +use of this option is deprecated, since the line "ALLOW_CREATE: ALL" provides +the same effect in a cleaner way. + + +VII. Language Portablity +========================= +One of the great new features of version 2.0 is that it is essentially +language independant. All of the fixed strings, help, etc is defined in the +files of lang directory. Of course you can change them or create a new +translation. + +The language can be selected in ezmlmwebrc with the "HTML_LANGUAGE" option. + +If anyone gets round to writing full templates for languages I would +appreciate it if you would do two things; + +Firstly, make them public and announce them on the ezmlm@lists.cr.yp.to +mailing list so that others may benefit. + +Secondly, please mail me a copy (ezmlm-web@sumpfralle.de) so that I may use +them in any future releases of ezmlm-web. + + +VIII. Bugs && Bug Reports +======================= +I don't know of any bugs, but then this is a rewrite and a first release. It +has been tested reasonably well, but not exhaustively. I know it works on +FreeBSD 4.0-STABLE, FreeBSD 3.4-RELEASE, RedHat 5.1, Redhat 6.0 and Debian +3.0 all using an Apache web server, but I would be interested to know whether +it works on other OSs and with other web servers. + +Please mail bug reports and comments to ezmlm-web@sumpfralle.de. +Or (even better) submit a bug report at https://systemausfall.org/trac/ezmlm-web. +Or subscribe to the ezmlm-web mailinglist: ezmlm-web-subscribe@lists.systemausfall.org. + + +IX. Acknowledgements +=================== +* Guy Antony Halse (guy-ezmlm@rucus.ru.ac.za) - he created ezmlm-web + and maintained it till 02005 +* Keith Burdis (keith@rucus.ru.ac.za) - For constantly bugging me (Guy) and + ensuring that I actually got round to writing some code :) +* Bryan Kilian (bryan@rucus.ru.ac.za) and the administrators of the + Litestep mailing list - For helping beta test and putting up with me (Guy) + pestering them. +* Several societies at Rhodes. For switching to my web interface and so + unknowingly helping to beta test it. +* Barry Irwin (bvi@moria.org) - For trusting me (Guy) and moving the Grahamstown + Foundation over to qmail and ezmlm - yet another beta tester :-) +* David Summers (david@summersoft.fay.ar.us) - For some ideas. And for + offering to make up an RPM version. I hope the offer still exists for + version 2.0 :-) +* Glen Stewart (glen_stewart@associate.com) - For a multitude of ideas. +* Fred Lindberg (lindberg@id.wustl.edu) for his useful posts to the + mailing list, suggestions, help, etc +* Galen Johnson (gjohnson@totalsports.net) - For some ideas on bugfixes. +* Reinin Ooyama (lenin@hasiru.net) - a japanese translation and bugixes for v2.3 +* Henning Rieger (age@systemausfall.org) - he designed most of the new + interface for v3.0 + + +X. Availability +================= +More information on ezmlm-web and developments to ezmlm-web can be found at: +https://systemausfall.org/toolforge/ezmlm-web + +The public subversion repository is at: +https://svn.systemausfall.org/svn/ezmlm-web + +The website of Guy Antony Halse (the author of ezmlm-web) is still at: +http://rucus.ru.ac.za/~guy/ezmlm/ + +The old ftp-archive of ezmlm-web is still available on: +ftp://rucus.ru.ac.za/pub/mail/ezmlm/ diff --git a/ezmlm-web-3.0.2/TODO b/ezmlm-web-3.0.2/TODO new file mode 100644 index 0000000..ed45e42 --- /dev/null +++ b/ezmlm-web-3.0.2/TODO @@ -0,0 +1,12 @@ +"cancel" button during text editing + +restore user input after failed list_create (especially options) + +support for: + * charset + * show log + +allow dynamic addition of user-made config templates (seperate directory, ...) + +language switch support +choose basic/expert to disable questions diff --git a/ezmlm-web-3.0.2/UPGRADING b/ezmlm-web-3.0.2/UPGRADING new file mode 100644 index 0000000..899a05a --- /dev/null +++ b/ezmlm-web-3.0.2/UPGRADING @@ -0,0 +1,71 @@ +This file contains some useful hints for upgrading from a previous version of ezmlm-web. + +############################################################################## + +UPGRADING ezmlm-web 3.0 to ezmlm-web 3.0.1 + +patch /usr/local/bin/ezmlm-web.cgi SYSTEM -> CGI_DIR +to HOME -> CGI_DIR -> SYSTEM + +------------------------------------------------------------------------------ + +UPGRADING ezmlm-web 2.2 to ezmlm-web 2.3 + +1) set the location (URL) of the css file in ezmlmwebrc + +------------------------------------------------------------------------------ + +UPGRADING ezmlm-web 2.1 to ezmlm-web 2.2 + +1) Creating of new lists is now controlled by a line in the webusers file instead +of a commandline switch for ezmlm-web.cgi. + +necessary changes: + - optional: remove switch "-c" when calling ezmlm-web.cgi (take a look at index.c) + - optional: add a line like "ALLOW_CREATE: john, myra" to the webusers file + +2) The location of the webusers file is now defined in ezmlmwebrc. (default: $LIST_DIR/webusers) + +necessary changes: + - optional: add a line like "$WEBUSERS_FILE = /home/ml/webusers" to ezmlmwebrc + +3) A german translation is available. + + - optional: include "lang/de.pm" in ezmlmwebrc (there you can also remove the english definitions) + or copy the new ezmlmwebrc :) + +------------------------------------------------------------------------------ + +UPGRADING ezmlm-web 2.0 to ezmlm-web 2.1 + +There are no major changes that need to be made in order to upgrade. All +that is necessary is to add two new lines to your ezmlmwebrc ... In the top +section of the file add + +$FILE_UPLOAD = 1; + +and in the %HELPER section, you need to add + +addaddressfile => 'or you may enter the filename of a plain text file containing multiple RFC822 email addresses, one per line', + +(or just copy the new ezmlmwebrc :) + +Have a look for these two lines in the new ezmlmwebrc included in this +distribution if you are unsure of how/where to put these. diff --git a/ezmlm-web-3.0.2/changelog b/ezmlm-web-3.0.2/changelog new file mode 100644 index 0000000..b67718b --- /dev/null +++ b/ezmlm-web-3.0.2/changelog @@ -0,0 +1,109 @@ +Version 3.0.2 - 01/08/02006 + * small language fix + +Version 3.0.1 - 01/06/02006 + * allow several special characters in local part of mail address (RFC2822) + +Version 3.0 - 12/25/02005 + * complete interface rewritten for enhanced usability + * suppurt for msgsize, mimereject, trailer + * fixed insecure writing of webusers data + * define a default MAIL_DOMAIN + * changed directory for safely removed mailinglists + * requires the clearsilver template engine + +Version 2.3 - 10/06/02005 + * css styles are used instead of tables + * permission check for upload of files fixed + * removed some taint errors + * file upload typo fixed + * update of webusers file fixed + * moderator unsubscribe fixed + +Version 2.2 - 26/01/02005 (not officially released) + * German translation of the web interface - more translations can be added easily + * changed "ALT"-tags to "TITLE" - most browsers will display the tooltip texts now + * fixed security problems (permissions were not thoroughly checked) + * user-based permission for creating lists (can be set in webusersrc) + * the location of the webusers file is now an option in ezmlmwebrc + +Version 2.1 - 25/09/00 + * Fixed the multiple delete thing - finally! + * Fixed the '-' in username problem - The '-' in hostnames problem is fixed + in the new version of Mail::Ezmlm + * Fixed the '_' in list names problem + * Added support for file uploads of email addresses (multiple subscribe) + * Made error handling more friendly + +Version 2.0 - 01/01/00 + * Rewrote most of the code to take advantage of Mail::Ezmlm + * Made the webuser file more functional (users can alter it) + * Now handles all current, and future command line options + * Changed the colours :) + * Added support for ezmlm-cgi web archives + * Made it -w and use strict clean + * Moved all user config to a separate file + * Fixed the way we worked out list config - now complete + * Allowed a user specific config over-ride ``ezmlmwebrc'' + * Allowed the printing of `nice' usernames (for Rhodes CS Dept) + * Took account of non-standard paths for moderators + * Removed all system() and `` calls from ezmlm-web.cgi + * Made `look and feel' virtually all user configurable + * Added a lot more context sensitive help + * Made ezmlm-web 99% language configurable - but no other templates yet :( + * Added support for creating databases + +Version 1.0.3 - 03/10/98 + * Fixed the alias-alias-alias-list bug in inlocal (bryan@rucus) + * Added a bit of online help + * Fixed the & in list owner (bryan@rucus) + * Added multi-level access to lists (based on idea by Glen Stewart) + +Version 1.0.2 - 28/08/98 + * Fixed the bug introduced in v1.0.1 :( (keith@rucus) + * Fixed the way we recreate config files (noticed by Glen Stewart) + * Made the script check return values of system calls properly + * Fixed some of the taint checking stuff ... reports less in the logs now. + +Version 1.0.1 - 10/08/98 + * Fixed a bug in the way 1.0 re-configured virtual hosts (bryan@rucus) + * Made the script read the /var/qmail/control files instead of explicitly + setting variables (for david@summersoft) + +Version 1.0 - 01/08/98 + * Complete re-write to convert to perl5 and CGI.pm + * Removed a lot of dependancy on the OS. Use builtin functions instead :) + * Added support for ezmlm-idx + * Added a lot more command line option support (-adfgiklmnpqsrstux5) + * Added support for digests and digest subscribers + * Added support for blacklists + * Allowed users to edit the config of existing lists + * Allowed the user to edit headeradd and headerremove as well as mimeremove + * Allowed user to edit any of the files in DIR/text + * Revised interface to make it more user-friendly and ergonomic. + * Changed the background colour for Kether (clb@rucus) *gryn* + * Removed a big bug in the delete_list function that had gone unnoticed. + +Version 0.5 - 12/05/98 (Not Released) + * More bug fixes. Mainly for mathew@graham. + +Version 0.4 - 28/04/98 + * Fixed up virtual domain (inlocal) stuff as spotted by bryan@rucus + * Allowed the list directory to be automatically created if necessary. + +Version 0.3 - 15/04/98 + * Allow list deletion (for balin@moria.org) + * Made changes to allow it to run on RedHat 4.2 as well as FreeBSD 3.0 + * Fixed some minor bugs (cosmetic irritaions really) that people noticed + * Sorted subscribers list into alphabetical order. + * Added command line switch to change list directory (for nxsy@moria.org) + * Wrote some documentation ... + +Version 0.2 - 13/04/98 (Not Released) + * Allow list creation + * Allowed users to edit moderators + +Version 0.1 - 10/04/98 (Not Released) + * University Vac - I was bored and started to play. The first version just + let people play with the subscribers list. No moderators, no nothing. + diff --git a/ezmlm-web-3.0.2/copyright b/ezmlm-web-3.0.2/copyright new file mode 100644 index 0000000..b0af734 --- /dev/null +++ b/ezmlm-web-3.0.2/copyright @@ -0,0 +1,30 @@ +Copyright (C) 1999/2000, Guy Antony Halse, All Rights Reserved. +Please send bug reports and comments to guy-ezmlm@rucus.ru.ac.za + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are +met: + +Redistributions of source code must retain the above copyright notice, +this list of conditions and the following disclaimer. + +Redistributions in binary form must reproduce the above copyright notice, +this list of conditions and the following disclaimer in the documentation +and/or other materials provided with the distribution. + +Neither name Guy Antony Halse nor the names of any contributors +may be used to endorse or promote products derived from this software +without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS +IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +POSSIBILITY OF SUCH DAMAGE. + diff --git a/ezmlm-web-3.0.2/css/default.css b/ezmlm-web-3.0.2/css/default.css new file mode 100644 index 0000000..ca149dd --- /dev/null +++ b/ezmlm-web-3.0.2/css/default.css @@ -0,0 +1,325 @@ +body { + margin: 0; + padding: 0; + font: normal 100% sans-serif; + color: #606760; + } + +font.ez { + font-style: italic; + color: #505050; + } + +font.hint { + font-size: 85%; + } + +font.feature { + font-weight: bold; + } + +#nav_bar { + float: left; + width: 20%; + margin-left: 1%; + margin-right: 1%; + margin-bottom: 1%; + margin-top: 5px; + padding-left: 0.5%; + padding-right: 0.5%; + padding-top: 1.5%; + padding-bottom: 1.5%; + background-color: #c0c0b0; + } + +.nav_group { + margin-top: 1%; + padding-bottom: 1%; + } + +#nav_bar ul { + color: #af8060; + margin: 0; + padding-left: 15px; + list-style: none; + } + +#nav_bar ul li { + margin-top: 0; + /* small space between highest level entries */ + margin-bottom: 5px; + } + +#nav_bar ul li ul li { + /* no space between lower level entries */ + margin-bottom: 0; + } + +#nav_bar li a.nav_active { + color: #fff; + } + +#nav_bar font.no_link { + color: #2f4860; + font-style: italic; + } + +#nav_bar a { + color: #2f4860; + text-decoration: none; + } + +#nav_bar a:hover { + background-color: #d8d8d8; + color: #2f4860; + } + +#main_content { + margin-left: 22%; + padding-left: 3%; + padding-right: 1%; + min-height: 440px; + } + +#main_content li { + list-style: none; + } + +#main_content button { + margin-top: 12px; + } + +#main_content ul { + line-height: 1.8em; + list-style: none; + } + +#main_content ul li ul { + font-size: 85%; + } + +#main_content fieldset { + margin-top: 0.5%; + margin-bottom: 1%; + padding-top: 1%; + padding-bottom: 1.5%; + } + +#main_content fieldset.form form ul { + padding-left: 1%; + } + +#main_content fieldset.form form ul li ul { + padding-left: 3%; + } + +#main_content table.list_select { + table-layout: fixed; + width: 100%; + text-align: left; + line-height: 1.2em; + border-width: 0px; + padding-left: 2%; + padding-right: 0px; + } + +div.formfield { + font-style: normal; + } + +#news { + background: #e8947c; + color: #000000; + margin: 1%; + padding: 5px; + width: 30%; + float: right; + font-size: 80%; + } + +#news font.title { + font-style: italic; + font-size: 110%; + } + +#news ul.changes { + font-size: 90%; + margin-top: 0px; + } + +a:visited { + color: #005040; + } + +#oben { + background-color: #2f4860; + } + +h1.oben { + text-align: left; + border-bottom: solid 2px #ffffff; + padding: 5px; + font-weight: bold; + letter-spacing: -1px; + color: #ffffff; + margin: 0; + } + +#perm_nav { + float: right; + padding-right: 5px; + font-size: 100%; + color: #ffd7f0; + background-color: inherit; + } + +#perm_nav a { + font-weight: bold; + color: #ffffff; + padding-left: 2px; + padding-right: 2px; + text-decoration: none; + } + +#perm_nav a:hover { + color: #ffcc00; + } + +table.subscribers { + border-width: 0; + margin: 0; + padding: 1%; + width: 100%; + } + +tr, td { + margin: 0; + padding: 0; + } + +button { + color: #5e5e5e; + background-color: #d8d8d8; + border: 1px dotted #5e5e5e; + font-size: 90%; + cursor: pointer; + } + +button:hover { + color: #505050; + background-color: #d0d0d0; + border: 1px dotted #ACE149; + font-size: 90%; + cursor: pointer; + } + +.lid { + margin: 0; + padding: 3px; + border-bottom: solid 1px #606070; + background-color: #c0c0b0; + font: bold 100% sans-serif; + letter-spacing: -1px; + color: #ffffff; + } + +#content { + position: absolute; + right: 0px; + width: 85%; + font: normal 82% sans-serif; + background-color: #ffffff; + padding: 2px; + } + +#content h2 { + margin-left: 5px; + margin-right: 5px; + margin-top: 10px; + font-weight: normal; + letter-spacing: -1px; + color: #2f4860; + } + +.push { + margin: 5px; + padding: 0; + } + +.push p { + text-align: justify; + } + +#info_title { + text-align: center; + background-color: #c0c0b0; + margin-top: 5px; + margin-left: 0%; + margin-right: 1%; + margin-bottom: 0.2%; + color: #ffffff; + font-size: 125%; + font-style: italic; + } + +#header { + text-align: right; + background-color: #2f4860; + font-size: 90%; + color: #ffffff; + margin: 0; + top: 0; + width: 100%; + } + +#footer { + text-align: center; + background-color: #2f4860; + font-size: 90%; + color: #ffffff; + margin: 0px; + padding: 3px; + } + +#footer a { + color: #a0d0b0; + } + +#footer a:visited { + color: #a0d0b0; + } + +#main_content div.introduction { + font-size: 80%; + } + +#main_content div.warning, div.error, div.success { + margin-left: 10%; + margin-right: 10%; + margin-top: 2%; + margin-bottom: 3%; + padding: 2%; + text-align: center; + font-style: italic; + font-size: 90%; + } + +#main_content div.success { + background-color: #40d070; + color: #202020; + } + +#main_content div.warning { + background-color: #e0a0a0; + color: #202020; + } + +#main_content div.error { + background-color: #d05050; + color: #202020; + } + +.mail { + font-style: italic; + color: #2f4860; + } diff --git a/ezmlm-web-3.0.2/debian-related/DEBIAN/conffiles b/ezmlm-web-3.0.2/debian-related/DEBIAN/conffiles new file mode 100644 index 0000000..effb258 --- /dev/null +++ b/ezmlm-web-3.0.2/debian-related/DEBIAN/conffiles @@ -0,0 +1 @@ +/etc/ezmlm-web/ezmlmwebrc diff --git a/ezmlm-web-3.0.2/debian-related/DEBIAN/control b/ezmlm-web-3.0.2/debian-related/DEBIAN/control new file mode 100644 index 0000000..23b5225 --- /dev/null +++ b/ezmlm-web-3.0.2/debian-related/DEBIAN/control @@ -0,0 +1,20 @@ +Package: ezmlm-web +Version: 3.0-2 +Section: admin +Priority: extra +Architecture: all +Depends: perl, httpd-cgi +Suggests: qmail-src, bash (>=2.0), gcc +Maintainer: Lars Kruse +Description: Web interface for ezmlm-idx mailing list administration + This web interface allows you to configure every part of an ezmlm-idx + mailing list. + Access control makes it possible, to share the administrative work in a + controlled way. + This package depends on the following programs, that are not part of the main + debian distribution: + * qmail - http://cr.yp.to/qmail.html + * ezmlm-idx - http://ezmlm.org/ + * clearsilver for perl (>= 0.10.2) - http://www.clearsilver.net/downloads/ + * some perl modules (see README) + diff --git a/ezmlm-web-3.0.2/debian-related/DEBIAN/postinst b/ezmlm-web-3.0.2/debian-related/DEBIAN/postinst new file mode 100755 index 0000000..296ef78 --- /dev/null +++ b/ezmlm-web-3.0.2/debian-related/DEBIAN/postinst @@ -0,0 +1,3 @@ +#!/bin/sh + +true diff --git a/ezmlm-web-3.0.2/debian-related/DEBIAN/postrm b/ezmlm-web-3.0.2/debian-related/DEBIAN/postrm new file mode 100755 index 0000000..296ef78 --- /dev/null +++ b/ezmlm-web-3.0.2/debian-related/DEBIAN/postrm @@ -0,0 +1,3 @@ +#!/bin/sh + +true diff --git a/ezmlm-web-3.0.2/debian-related/DEBIAN/prerm b/ezmlm-web-3.0.2/debian-related/DEBIAN/prerm new file mode 100755 index 0000000..296ef78 --- /dev/null +++ b/ezmlm-web-3.0.2/debian-related/DEBIAN/prerm @@ -0,0 +1,3 @@ +#!/bin/sh + +true diff --git a/ezmlm-web-3.0.2/debian-related/README.Debian b/ezmlm-web-3.0.2/debian-related/README.Debian new file mode 100644 index 0000000..4352f6a --- /dev/null +++ b/ezmlm-web-3.0.2/debian-related/README.Debian @@ -0,0 +1,54 @@ +How to use ezmlm-web with debian + +Table of content +1 - install the package +2 - install required additional software +3 - create user-sprecific suid binaries +4 - create a user-specific configuration +5 - access control +6 - testing + +################################################################# + +1) install the package +you surely did this already :) + + +2) install required additional software +Take a look at /usr/share/doc/ezmlm-web/README - section III (Requirements). +If you are able to run /usr/lib/ezmlm-web/ezmlm-web.pl without problems, then +you are ready for the next step. + + +3) create user-specific suid binaries +As perl-suid is considered deprecated, you have to compile a C-wrapper +for every user of your debian system, who wants to manage his mailing +lists with ezmlm-we. +Usually you do this only for your virtual mailing list user. + +to create a wrapper, type the following: + ezmlm-web-make-suid USERNAME DESTINATION_FILE + +e.g: ezmlm-web-make-suid john ~john/public_html/cgi-bin/ezmlm-web + + +4) create a user-specific configuration file (optional) +Copy /usr/share/doc/ezmlm-web/examples/ezmlmwebrc to ~john/.ezmlmwebrc +and change its content according to your setup. + + +5) access control (optional) +configure access control for the fresh cgi binary. Maybe you can +use the htaccess.sample file in /usr/share/doc/ezmlm-web/examples as +a template. + +Now you should create a webusers file to define the permissions of all +possible web users. An example webusers file can be found at +/usr/share/doc/ezmlm-web/examples/webusers.sample. + +See /usr/share/doc/ezmlm-web/README for details about access control. + + +6) testing +Now you can access the ezmlm-web interface by using your web browser. +e.g. point it to http://localhost/~john/cgi-bin/ezmlm-web diff --git a/ezmlm-web-3.0.2/debian-related/changelog.Debian b/ezmlm-web-3.0.2/debian-related/changelog.Debian new file mode 100644 index 0000000..cbe2c1f --- /dev/null +++ b/ezmlm-web-3.0.2/debian-related/changelog.Debian @@ -0,0 +1,7 @@ +ezmlm-web (0.3.0-2) unstable; urgency=low + * small language fix + -- Lars Kruse Sun, 08 Jan 2006 07:18:14 +0100 + +ezmlm-web (0.3.0-1) unstable; urgency=low + * Initial release + -- Lars Kruse Sat, 07 Jan 2006 03:15:42 +0100 diff --git a/ezmlm-web-3.0.2/debian-related/ezmlm-web-make-suid b/ezmlm-web-3.0.2/debian-related/ezmlm-web-make-suid new file mode 100755 index 0000000..8cf5f9c --- /dev/null +++ b/ezmlm-web-3.0.2/debian-related/ezmlm-web-make-suid @@ -0,0 +1,33 @@ +#!/bin/sh +# +# create user-specific suid binaries to call ezmlm-web.cgi +# +# parameters: [USERNAME] DESTINATION_FILE +# e.g.: john ~john/public_html/cgi-bin/ezmlm-web +# only root may choose a USERNAME +# + +set -eu + +C_SOURCE=/usr/share/ezmlm-web/index.c + +which cc >/dev/null || { echo "no compiler (cc) installed - sorry" >&2; exit 1; } + +[ $(id -u) -ne 0 ] && [ $# -ne 1 ] && echo "Syntax (for non-root): $(basename $0) DESTINATION_FILE" >&2 && exit 1 +[ $(id -u) -eq 0 ] && [ $# -gt 2 -o $# -lt 1 ] && echo "Syntax (for root): $(basename $0) [USERNAME] DESTINATION_FILE" >&2 && exit 1 + +if [ $# -eq 1 ] + then EZ_USER=$(id -un) + EZ_FILE=$1 + else EZ_USER=$1 + EZ_FILE=$2 + fi + +cc -o "$EZ_FILE" "$C_SOURCE" +if [ $(id -u) -eq 0 ] + then chown "$EZ_USER". "$EZ_FILE" || { echo "the user '$EZ_USER' does not exist" >&2; rm "$EZ_FILE"; exit 1; } + fi +chmod u+s "$EZ_FILE" + +echo "Successfully created '$EZ_FILE' for user '$EZ_USER'." + diff --git a/ezmlm-web-3.0.2/debian-related/index.c b/ezmlm-web-3.0.2/debian-related/index.c new file mode 100644 index 0000000..0453aaa --- /dev/null +++ b/ezmlm-web-3.0.2/debian-related/index.c @@ -0,0 +1,10 @@ +#include + +/* C wrapper to allow ezmlm-web.cgi to run suid */ +/* Copyright (C) 1999/2000, Guy Antony Halse, All Rights Reserved */ +/* See the README file in this distribution for copyright information */ + +int main(void) { + /* Change this path to wherever you decided to put ezmlm-web.cgi */ + execv("/usr/lib/ezmlm-web/ezmlm-web.pl"); +} diff --git a/ezmlm-web-3.0.2/debian-related/man/ezmlm-web-make-suid.1 b/ezmlm-web-3.0.2/debian-related/man/ezmlm-web-make-suid.1 new file mode 100644 index 0000000..f79cb4e --- /dev/null +++ b/ezmlm-web-3.0.2/debian-related/man/ezmlm-web-make-suid.1 @@ -0,0 +1,25 @@ +.TH ezmlm-web-make-suid 1 "January 02006" "ezmlm-web" "helper script" +.SH NAME +ezmlm-web-make-suid \- create user-specific suid wrappers for ezmlm-web +.SH SYNOPSIS +.B ezmlm-web-make-suid +[\fIUSERNAME\fR] \fIDESTINATION_FILE\fR +.SH DESCRIPTION +.PP +Create a user-specific suid wrapper for ezmlm-web. This is necessary, as +the mailing lists are usually not owned by the webserver, that executes +the cgi. +.PP +The destination file determines where to put the resulting binary. +.PP +Only root is allowed to choose a username. +.SH EXAMPLES +.PP +ezmlm-web-make-suid john ~john/public_html/ezmlm-web +.SH AUTHOR +Written by Lars Kruse +.SH "REPORTING BUGS" +Report bugs to +.SH COPYRIGHT +Copyright \(co 02006 Lars Kruse + diff --git a/ezmlm-web-3.0.2/ezmlm-web-3.0.1.patch b/ezmlm-web-3.0.2/ezmlm-web-3.0.1.patch new file mode 100644 index 0000000..8db4c09 --- /dev/null +++ b/ezmlm-web-3.0.2/ezmlm-web-3.0.1.patch @@ -0,0 +1,30 @@ +--- ezmlm-web.cgi.orig 2006-01-06 02:46:56.000000000 +0000 ++++ ezmlm-web.cgi 2006-01-06 03:41:11.000000000 +0000 +@@ -720,7 +720,7 @@ + my($fh) = $q->param('mailaddressfile'); + while (<$fh>) { + next if (/^\s*$/ or /^#/); # blank, comments +- if ( /(\w[\-\w_\.]*)@(\w[\-\w_\.]+)/ ) { ++ if ( /(\w[\w\.\!\#\$\%\&\'\`\*\+\-\/\=\?\^\{\|\}\~]*)@(\w[\-\w_\.]+)/) { + chomp(); + push @addresses, "$_"; + } else { +@@ -736,7 +736,7 @@ + $address .= $DEFAULT_HOST if ($q->param('mailaddress_add') =~ /\@$/); + + # untaint +- if ($address =~ m/(\w[\-\w_\.]*)@(\w[\-\w_\.]+)/) { ++ if ($address =~ m/(\w[\w\.\!\#\$\%\&\'\`\*\+\-\/\=\?\^\{\|\}\~]*)@(\w[\-\w_\.]+)/) { + push @addresses, "$address"; + } else { + warn "invalid address to add: $address to $part"; +@@ -752,7 +752,8 @@ + foreach $address (@addresses) { + + ($add) = Mail::Address->parse($address); +- if (($add->address() =~ /^\w[\w_-]*\@/) && !($list->issub($add->address(), $part))) { ++ if (($add->address() =~ m/^(\w[\w\.\!\#\$\%\&\'\`\*\+\-\/\=\?\^\{\|\}\~]*)@(\w[\-\w_\.]+)$/) ++ && !($list->issub($add->address(), $part))) { + # it seems, that we cannot trust the return value of "$list->sub" + $list->sub($add->address(), $part); + if(defined($add->name()) && $PRETTY_NAMES) { diff --git a/ezmlm-web-3.0.2/ezmlm-web.cgi b/ezmlm-web-3.0.2/ezmlm-web.cgi new file mode 100755 index 0000000..030addc --- /dev/null +++ b/ezmlm-web-3.0.2/ezmlm-web.cgi @@ -0,0 +1,1270 @@ +#!/usr/bin/perl +#=========================================================================== +# ezmlm-web.cgi - version 3.0 +# ========================================================================== +# All user configuration happens in the config file ``ezmlmwebrc'' +# POD documentation is at the end of this file +# ========================================================================== + +package ezmlm_web; + +# Modules to include +use strict; +use Getopt::Std; +use ClearSilver; +use Mail::Ezmlm; +use Mail::Address; +use File::Copy; +use DB_File; +use CGI; +use IO::File; +use POSIX qw(tmpnam); +use Encode qw/ from_to /; # add by ooyama for char convert + +# These two are actually included later and are put here so we remember them. +#use File::Find if ($UNSAFE_RM == 1); +#use File::Copy if ($UNSAFE_RM == 0); + + +my $q = new CGI; +$q->import_names('Q'); +use vars qw[$opt_c $opt_d $opt_C]; +getopts('cd:C:'); + +# Suid stuff requires a secure path. +$ENV{'PATH'} = '/bin'; + +# We run suid so we can't use $ENV{'HOME'} and $ENV{'USER'} to determine the +# user. :( Don't alter this line unless you are _sure_ you have to. +my @tmp = getpwuid($>); use vars qw[$USER]; $USER=$tmp[0]; + +# use strict is a good thing++ + +use vars qw[$HOME_DIR]; $HOME_DIR=$tmp[7]; +use vars qw[$DEFAULT_OPTIONS $UNSAFE_RM $ALIAS_USER $LIST_DIR]; +use vars qw[$QMAIL_BASE $PRETTY_NAMES]; +use vars qw[$FILE_UPLOAD $WEBUSERS_FILE $MAIL_DOMAIN $HTML_TITLE]; +use vars qw[$HTML_CSS_FILE $TEMPLATE_DIR $LANGUAGE_DIR $HTML_LANGUAGE]; + +# set default TEXT_ENCODE +use vars qw[$TEXT_ENCODE]; $TEXT_ENCODE='us-ascii'; # by ooyama for multibyte convert support + +# pagedata contains the hdf tree for clearsilver +# pagename refers to the template file that should be used +use vars qw[$DEFAULT_HOST]; +use vars qw[$pagedata $pagename $error $customError $warning $customWarning $success]; + +# Get user configuration stuff +if(defined($opt_C)) { + $opt_C =~ /^([-\w.\/]+)$/; # security check by ooyama + require "$1"; # Command Line +} elsif(-e "$HOME_DIR/.ezmlmwebrc") { + require "$HOME_DIR/.ezmlmwebrc"; # User +} elsif(-e "./ezmlmwebrc") { + require "./ezmlmwebrc"; # Install +} elsif(-e "/etc/ezmlm-web/ezmlmwebrc") { + require "/etc/ezmlm-web/ezmlmwebrc"; # System (new style) +} elsif(-e "/etc/ezmlm/ezmlmwebrc") { + require "/etc/ezmlm/ezmlmwebrc"; # System (old style) +} else { + &fatal_error("Unable to read config file"); +} + +# Allow suid wrapper to over-ride default list directory ... +if(defined($opt_d)) { + $LIST_DIR = $1 if ($opt_d =~ /^([-\@\w.\/]+)$/); +} + +# If WEBUSERS_FILE is not defined in ezmlmwebrc (as before version 2.2), then use former default value for compatibility +if (!defined($WEBUSERS_FILE)) { + $WEBUSERS_FILE = $LIST_DIR . '/webusers' +} + +# check optional stylesheet +$HTML_CSS_FILE = '' unless defined($HTML_CSS_FILE); + +# check template directory +$TEMPLATE_DIR = 'template' unless defined($TEMPLATE_DIR); + +if (defined($MAIL_DOMAIN) && ($MAIL_DOMAIN ne '')) { + $DEFAULT_HOST = $MAIL_DOMAIN; +} else { + # Work out default domain name from qmail (for David Summers) + open (GETHOST, "<$QMAIL_BASE/defaultdomain") || open (GETHOST, "<$QMAIL_BASE/me") || &fatal_error("Unable to read $QMAIL_BASE/me: $!"); + chomp($DEFAULT_HOST = ); + close GETHOST; +} + + +# Untaint form input ... +&untaint; + +my $pagedata = load_hdf(); +my $action = $q->param('action'); + +# check permissions +unless (&check_permission_for_action) { + $pagename = 'list_select'; + $error = 'Forbidden'; +} +# This is where we decide what to do, depending on the form state and the +# users chosen course of action ... +# TODO: unify all these "is list param set?" checks ... +elsif ($action eq '' || $action eq 'list_select') { + # Default action. Present a list of available lists to the user ... + $pagename = 'list_select'; +} elsif ($action eq 'subscribers') { + # display list (or part list) subscribers + if (defined($q->param('list'))) { + $pagename = 'subscribers'; + } else { + $pagename = 'list_select'; + $error = 'ParameterMissing'; + } +} elsif ($action eq 'address_del') { + # Delete a subscriber ... + if (defined($q->param('list'))) { + $success = 'DeleteAddress' if (&delete_address()); + $pagename = 'subscribers'; + } else { + $error = 'ParameterMissing'; + $pagename = 'list_select'; + } +} elsif ($action eq 'address_add') { + # Add a subscriber ... + # no selected addresses -> no error + if (defined($q->param('list'))) { + $success = 'AddAddress' if (&add_address()); + $pagename = 'subscribers'; + } else { + $error = 'ParameterMissing'; + $pagename = 'list_select'; + } +} elsif ($action eq 'list_delete_ask') { + # Confirm list removal + if (defined($q->param('list'))) { + $pagename = 'list_delete'; + } else { + $pagename = 'list_select'; + $error = 'ParameterMissing'; + } +} elsif ($action eq 'list_delete_do') { + # User really wants to delete a list ... + warn "do it"; + if (defined($q->param('list'))) { + $success = 'DeleteList' if (&delete_list()); + } else { + $error = 'ParameterMissing'; + } + $pagename = 'list_select'; +} elsif ($action eq 'list_create_ask') { + # User wants to create a list ... + $pagename = 'list_create'; +} elsif ($action eq 'list_create_do') { + # create the new list + # Message if list creation is unsuccessful ... + if (&create_list()) { + $success = 'CreateList'; + $pagename = 'subscribers'; + } else { + $pagename = 'list_create'; + } +} elsif (($action eq 'config_ask') || ($action eq 'config_do')) { + # User wants to see/change the configuration ... + my $subset = $q->param('config_subset'); + if (defined($q->param('list')) && ($subset ne '')) { + if ($subset =~ m/^RESERVED-([\w_-]*)$/) { + $pagename = $1 + } elsif (($subset =~ /^[\w]*$/) && (-e "$TEMPLATE_DIR/config_$subset" . ".cs")) { + $pagename = 'config_' . $subset; + } else { + $pagename = ''; + } + if ($pagename ne '') { + $success = 'UpdateConfig' if (($action eq 'config_do') && &update_config()); + } else { + $error = 'UnknownConfigPage'; + warn "missing config page: $subset"; + $pagename = 'list_select'; + } + } else { + $error = 'ParameterMissing'; + $pagename = 'list_select'; + } +} elsif ($action eq 'textfiles') { + # Edit DIR/text ... + if (defined($q->param('list'))) { + $pagename = 'textfiles'; + } else { + $error = 'ParameterMissing'; + $pagename = 'list_select'; + } +} elsif ($action eq 'textfile_edit') { + # edit the content of a text file + if (defined($q->param('list')) && defined($q->param('file'))) { + if (! &check_filename($q->param('file'))) { + $error = 'InvalidFileName'; + $pagename = 'textfiles'; + } else { + $pagename = 'textfile_edit'; + } + } else { + $error = 'ParameterMissing'; + $pagename = 'list_select'; + } +} elsif ($action eq 'textfile_save') { + # User wants to save a new version of something in DIR/text ... + if (defined($q->param('list')) && defined($q->param('file')) && defined($q->param('content'))) { + if (! &check_filename($q->param('file'))) { + $error = 'InvalidFileName'; + $pagename = 'textfiles'; + } elsif (&save_text()) { + $pagename = 'textfiles'; + $success = 'SaveFile'; + } else { + $warning = 'SaveFile'; + $pagename = 'textfile_edit'; + } + } else { + $error = 'ParameterMissing'; + if ($q->param('list')) { + $pagename = 'textfiles'; + } else { + $pagename = 'list_select'; + } + } +} else { + $pagename = 'list_select'; + $error = 'UnknownAction'; +} + +# read the current state (after the changes are done) +&set_pagedata(); + +# set default action, if there is no list available and the user is +# allowed to create a new one +if (($action eq '') && (&webauth_create_allowed()) && ($pagedata->getValue('Data.Lists.0','') eq '')) { + $pagename = 'list_create'; +} + +# Print page and exit :) ... +&output_page; +exit; + + +# ========================================================================= + +sub load_hdf { + # initialize the data for clearsilver + my $hdf = ClearSilver::HDF->new(); + + $hdf->readFile($LANGUAGE_DIR . '/' . $HTML_LANGUAGE . '.hdf'); + + # TODO: check for existence + &fatal_error("Template dir ($TEMPLATE_DIR) not found!") unless (-e $TEMPLATE_DIR); + $hdf->setValue("TemplateDir", "$TEMPLATE_DIR/"); + &fatal_error("Language data dir ($LANGUAGE_DIR) not found!") unless (-e $LANGUAGE_DIR); + $hdf->setValue("LanguageDir", "$LANGUAGE_DIR/"); + $hdf->setValue("ScriptName", $ENV{'SCRIPT_NAME'}); + $hdf->setValue("Stylesheet", "$HTML_CSS_FILE"); + $hdf->setValue("Config.PageTitle", "$HTML_TITLE"); + + return $hdf; +} + + +sub output_page { + # Print the page + + $pagedata->setValue('Data.Success', "$success") if (defined($success)); + $pagedata->setValue('Data.Error', "$error") if (defined($error)); + $pagedata->setValue('Data.Warning', "$warning") if (defined($warning)); + $pagedata->setValue('Data.CustomError', "$customError") if (defined($customError)); + $pagedata->setValue('Data.CustomWarning', "$customWarning") if (defined($customWarning)); + + $pagedata->setValue('Data.Action', "$pagename"); + + my $pagefile = $TEMPLATE_DIR . "/main.cs"; + &fatal_error("main template ($pagefile) not found!") unless (-e "$pagefile"); + &fatal_error("sub template ($TEMPLATE_DIR/$pagename.cs) not found!") unless (-e "$TEMPLATE_DIR/$pagename.cs"); + + # print http header + print "Content-Type: text/html; charset=utf-8\n\n"; + + my $cs = ClearSilver::CS->new($pagedata); + + $cs->parseFile($pagefile); + + print $cs->render(); +} + +# --------------------------------------------------------------------------- + +sub set_pagedata_list_of_lists() +{ + my (@files, $i, $num); + + # Read the list directory for mailing lists. + return (0==0) unless (opendir DIR, $LIST_DIR); + + @files = sort grep !/^\./, readdir DIR; + closedir DIR; + + $num = 0; + # Check that they actually are lists and add good ones to pagedata ... + foreach $i (0 .. $#files) { + if ((-e "$LIST_DIR/$files[$i]/lock") && (&webauth($files[$i]))) { + $pagedata->setValue("Data.Lists." . $num, "$files[$i]"); + $num++; + } + } +} + +# --------------------------------------------------------------------------- + +sub set_pagedata() +{ + my ($hostname, $username); + + # read available list of lists + &set_pagedata_list_of_lists(); + + # username and hostname + # Work out if this user has a virtual host and set input accordingly ... + if(-e "$QMAIL_BASE/virtualdomains") { + open(VD, "<$QMAIL_BASE/virtualdomains") || warn "Can't read virtual domains file: $!"; + while() { + last if(($hostname) = /(.+?):$USER/); + } + close VD; + } + if(!defined($hostname)) { + $username = "$USER-" if ($USER ne $ALIAS_USER); + $hostname = $DEFAULT_HOST; + } + $pagedata->setValue("Data.UserName", "$username"); + $pagedata->setValue("Data.HostName", "$hostname"); + + + # modules + # TODO: someone should test, if the mysql support works + $pagedata->setValue("Data.Modules.MySQL", ($Mail::Ezmlm::MYSQL_BASE)? 1 : 0); + + + # permissions + $pagedata->setValue("Data.Permissions.Create", (&webauth_create_allowed)? 1 : 0 ); + $pagedata->setValue("Data.Permissions.FileUpload", ($FILE_UPLOAD)? 1 : 0); + + + # display webuser textfield? + $pagedata->setValue("Data.WebUser.show", (-e "$WEBUSERS_FILE")? 1 : 0); + # default username for webuser file + $pagedata->setValue("Data.WebUser.UserName", $ENV{'REMOTE_USER'}||'ALL'); + + # list specific configuration + if ($q->param('list') ne '' ) + { + &set_pagedata4list(&get_list_part()); + } else { + &set_pagedata4options($DEFAULT_OPTIONS); + } +} + +# --------------------------------------------------------------------------- + +sub set_pagedata4list +{ + my $part_type = shift; + my ($list, $listname, $webusers); + my ($i, $item, @files); + my ($address, $addr_name, %pretty); + + $listname = $q->param('list'); + + if (! -e "$LIST_DIR/$listname/lock" ) { + $warning = 'ListDoesNotExist' if ($warning eq ''); + return; + } + + # Work out the address of this list ... + $list = new Mail::Ezmlm("$LIST_DIR/$listname"); + + $pagedata->setValue("Data.List.Name", "$listname"); + $pagedata->setValue("Data.List.Address", &this_listaddress); + + &set_pagedata4part_list($part_type) if ($part_type ne ''); + + $i = 0; + tie %pretty, "DB_File", "$LIST_DIR/$listname/webnames" if ($PRETTY_NAMES); + foreach $address (sort $list->subscribers($part_type)) { + if ($address ne '') { + $pagedata->setValue("Data.List.Subscribers." . $i . '.address', "$address"); + $addr_name = ($PRETTY_NAMES)? $pretty{$address} : ''; + $pagedata->setValue("Data.List.Subscribers." . $i . '.name', $addr_name); + } + $i++; + } + untie %pretty if ($PRETTY_NAMES); + + $pagedata->setValue("Data.List.hasDenyList", 1) if ($list->isdeny); + $pagedata->setValue("Data.List.hasAllowList", 1) if ($list->isallow); + $pagedata->setValue("Data.List.hasDigestList", 1) if ($list->isdigest); + + # Get the contents of some important files + $item = $list->getpart('prefix'); + $pagedata->setValue("Data.List.Prefix", "$item"); + $item = $list->getpart('headeradd'); + $pagedata->setValue("Data.List.HeaderAdd", "$item"); + $item = $list->getpart('headerremove'); + $pagedata->setValue("Data.List.HeaderRemove", "$item"); + $item = $list->getpart('mimeremove'); + $pagedata->setValue("Data.List.MimeRemove", "$item"); + $item = $list->getpart('mimereject'); + $pagedata->setValue("Data.List.MimeReject", "$item"); + $item = $list->getpart('text/trailer'); + $pagedata->setValue("Data.List.TrailingText", "$item"); + + # read message size limits + $list->getpart('msgsize') =~ m/^\s*(\d+)\s*:\s*(\d+)\s*$/; + $pagedata->setValue("Data.List.MsgSize.Max", "$1"); + $pagedata->setValue("Data.List.MsgSize.Min", "$2"); + + # TODO: this is definitely ugly - create a new sub! + if(open(WEBUSER, "<$WEBUSERS_FILE")) { + while() { + last if (($webusers) = m{^$listname\s*\:\s*(.+)$}); + } + close WEBUSER; + } + # set default if there was no list definition + $webusers ||= $ENV{'REMOTE_USER'} || 'ALL'; + + $pagedata->setValue("Data.List.WebUsers", "$webusers"); + + # get the names of the textfiles of this list + { + my($listDir); + $listDir = $LIST_DIR . '/' . $q->param('list'); + + # Read the list directory for text ... + if (opendir DIR, "$listDir/text") { + @files = grep !/^\./, readdir DIR; + closedir DIR; + $i = 0; + foreach $item (@files) { + $pagedata->setValue("Data.List.Files." . $i, "$item"); + $i++; + } + } else { + $warning = 'TextDirAccessDenied' if ($warning eq '') + } + + # text file specified? + if (($q->param('file') ne '') && ($q->param('file') =~ m/^[\w-]*$/)) { + my ($content); + $content = $list->getpart("text/" . $q->param('file')); + from_to($content,$TEXT_ENCODE,'utf8'); # by ooyama for multibyte + $pagedata->setValue("Data.List.File.Name", $q->param('file')); + $pagedata->setValue("Data.List.File.Content", "$content"); + } + } + &set_pagedata4options($list->getconfig); +} + +# --------------------------------------------------------------------------- + +sub set_pagedata4options { + my($options) = shift; + my($i, $key, $state, $value, $dir_of_list); + + $dir_of_list = $LIST_DIR . '/' . $q->param('list'); + + $i = 0; + $key = lc(substr($options,$i,1)); + # parse the first part of the options string + while ($key =~ m/\w/) { + # scan the first part of the options string for lower case letters + $state = ($options =~ /^\w*$key\w*\s*/); + $pagedata->setValue("Data.List.Options." . $key , ($state)? 1 : 0); + $i++; + $key = lc(substr($options,$i,1)); + } + + # the options "t", "p" and "x" are only used to create a default value + # they have no meaning, so we should adapt them to reality + $pagedata->setValue("Data.List.Options.t" , 1) + if (-e "$dir_of_list/text/trailer"); + $pagedata->setValue("Data.List.Options.f" , 1) + if (-e "$dir_of_list/prefix"); + $pagedata->setValue("Data.List.Options.x" , 1) + if ((-e "$dir_of_list/mimeremove") || (-e "$dir_of_list/mimereject")); + + for ($i=0; $i<9; $i++) { + unless (($i eq 1) || ($i eq 2)) { + $state = ($options =~ /$i (?:'(.+?)')/); + unless ($state) { + if ($i eq 0) { + $value = 'mainlist@' . $DEFAULT_HOST; + } elsif ($i eq 3) { + $value = 'from_address@domain.org'; + } elsif ($i eq 4) { + $value = '-t24 -m30 -k64'; + } elsif ($i eq 5) { + $value = 'owner_address@domain.org'; + } elsif ($i eq 6) { + $value = 'host:port:user:password:database:table'; + } elsif ($i eq 7) { + $value = "$dir_of_list/mod"; + } elsif ($i eq 8) { + $value = "$dir_of_list/mod"; + } + } else { + # use the configured value (extracted by the pattern matching for 'state') + $value = $1; + } + $pagedata->setValue("Data.List.Settings." . $i . ".value", $value); + $pagedata->setValue("Data.List.Settings." . $i . ".state", $state ? 1 : 0); + } + } +} + +# --------------------------------------------------------------------------- + +sub check_filename() +{ + my $filename = shift; + return ($filename =~ m/[^\w-]/) ? (1==0) : (0==0); +} + +# --------------------------------------------------------------------------- + +sub get_list_part +# return the name of the part list (deny, allow, mod, digest or '') +{ + $q->param('part') =~ m/^(allow|deny|digest|mod)$/; + return $1; +} + +# --------------------------------------------------------------------------- + +sub delete_list { + # Delete a list ... + + # Fixes a bug from the previous version ... when the .qmail file has a + # different name to the list. We use outlocal to handle vhosts ... + my ($list, $listaddress, $listadd); + $list = new Mail::Ezmlm("$LIST_DIR/" . $q->param('list')); + if ($listadd = $list->getpart('outlocal')) { + chomp($listadd); + } else { + $listadd = $q->param('list'); + } + $listaddress = $1 if ($listadd =~ /-?(\w+)$/); + + if ($UNSAFE_RM == 0) { + # This doesn't actually delete anything ... It just moves them so that + # they don't show up. That way they can always be recovered by a helpful + # sysadmin should he/she be in the mood :) + + my $SAFE_DIR = "$LIST_DIR/_deleted_lists"; + mkdir "$SAFE_DIR", 0700 if (! -e "$SAFE_DIR"); + + # look for an unused directory name + my $i = 0; + while (-e "$SAFE_DIR/" . $q->param('list') . "-$i") { $i++; } + + $SAFE_DIR .= '/' . $q->param('list') . "-$i"; + + my ($oldfile); $oldfile = "$LIST_DIR/" . $q->param('list'); + unless (move($oldfile, $SAFE_DIR)) { + $warning = 'SafeRemoveRenameDirFailed'; + return (1==0); + } + + unless (opendir(DIR, "$HOME_DIR")) { + $warning = 'DotQmailDirAccessDenied'; + return (1==0); + } + # TODO: this could possibly move some qmail files of other lists - improve it! + my @files = map { "$HOME_DIR/$1" if m{^(\.qmail.+)$} } grep { /^\.qmail-$listaddress/ } readdir DIR; + closedir DIR; + foreach (@files) { + unless (move($_, "$SAFE_DIR")) { + $warning = 'SafeRemoveMoveDotQmailFailed'; + return (1==0); + } + } + warn "List '$oldfile' moved (deleted)"; + } else { + # This, however, does DELETE the list. I don't like the idea, but I was + # asked to include support for it so ... + unless (rmtree("$LIST_DIR/" . $q->param('list'))) { + $warning = 'UnsafeRemoveListDirFailed'; + return (1==0); + } + opendir(DIR, "$HOME_DIR") or &fatal_error("Unable to get directory listing: $!"); + my @files = map { "$HOME_DIR/$1" if m{^(\.qmail.+)$} } grep { /^\.qmail-$listaddress/ } readdir DIR; + closedir DIR; + if (unlink(@files) <= 0) { + $warning = 'UnsafeRemoveDotQmailFailed'; + return (1==0); + } + warn "List '$list->thislist()' deleted"; + } + $q->param(-name=>'list', -values=>''); +} + +# ------------------------------------------------------------------------ +sub untaint { + + $DEFAULT_HOST = $1 if $DEFAULT_HOST =~ /^([\w\d\.-]+)$/; + + # Go through all the CGI input and make sure it is not tainted. Log any + # tainted data that we come accross ... See the perlsec(1) man page ... + + my (@params, $i, $param); + @params = $q->param; + + foreach $i (0 .. $#params) { + my(@values); + next if($params[$i] eq 'mailaddressfile'); + foreach $param ($q->param($params[$i])) { + next if $param eq ''; + if ($param =~ /^([#-\@\w\.\/\[\]\:\n\r\>\< _"']+)$/) { + push @values, $1; + } else { + warn "Tainted input in '$params[$i]': " . $q->param($params[$i]); + } + $q->param(-name=>$params[$i], -values=>\@values); + } + } + + # special stuff + + # check the list name + if (($q->param('list') =~ /[^\w-]/) && ($q->param('action') !~ /^list_create_(do|ask)$/)) { + $warning = 'InvalidListName' if ($warning eq ''); + $q->param(-name=>'list', -values=>''); + } + +} + +# ------------------------------------------------------------------------ + +sub check_permission_for_action { + # test if the user is allowed to modify the choosen list or to create an new one + # the user would still be allowed to fill out the create-form (however he got there), + # but the final creation is omitted + + my $ret; + if ($action eq 'list_create_ask' || $action eq 'list_create_do') { + $ret = &webauth_create_allowed(); + } elsif (defined($q->param('list'))) { + $ret = &webauth($q->param('list')); + } else { + $ret = (0==0); + } + return $ret; +} + +# ------------------------------------------------------------------------ + +sub add_address { + # Add an address to a list .. + + my ($address, $list, $part, @addresses, $fail_count); + $list = new Mail::Ezmlm("$LIST_DIR/" . $q->param('list')); + $part = &get_list_part(); + + $fail_count = 0; + + if (($q->param('mailaddressfile')) && ($FILE_UPLOAD)) { + # Sanity check + my $fileinfo = $q->uploadInfo($q->param('mailaddressfile')); + my $filetype = $fileinfo->{'Content-Type'}; + unless($filetype =~ m{^text/}) { + $warning = 'InvalidFileFormat'; + return (1==0); + } + + # Handle file uploads of addresses + my($fh) = $q->param('mailaddressfile'); + while (<$fh>) { + next if (/^\s*$/ or /^#/); # blank, comments + if ( /(\w[\w\.\!\#\$\%\&\'\`\*\+\-\/\=\?\^\{\|\}\~]*)@(\w[\-\w_\.]+)/) { + chomp(); + push @addresses, "$_"; + } else { + $fail_count++; + } + } + } + + # User typed in an address + if ($q->param('mailaddress_add') ne '') { + + $address = $q->param('mailaddress_add'); + $address .= $DEFAULT_HOST if ($q->param('mailaddress_add') =~ /\@$/); + + # untaint + if ($address =~ m/(\w[\w\.\!\#\$\%\&\'\`\*\+\-\/\=\?\^\{\|\}\~]*)@(\w[\-\w_\.]+)/) { + push @addresses, "$address"; + } else { + warn "invalid address to add: $address to $part"; + $warning = 'AddAddress'; + return (1==0); + } + + } + + my %pretty; + my $add; + tie %pretty, "DB_File", "$LIST_DIR/" . $q->param('list') . "/webnames" if ($PRETTY_NAMES); + foreach $address (@addresses) { + + ($add) = Mail::Address->parse($address); + if (($add->address() =~ m/^(\w[\w\.\!\#\$\%\&\'\`\*\+\-\/\=\?\^\{\|\}\~]*)@(\w[\-\w_\.]+)$/) + && !($list->issub($add->address(), $part))) { + # it seems, that we cannot trust the return value of "$list->sub" + $list->sub($add->address(), $part); + if(defined($add->name()) && $PRETTY_NAMES) { + $pretty{$add->address()} = $add->name(); + } + } else { + $fail_count++; + } + } + untie %pretty if ($PRETTY_NAMES); + if ($fail_count gt 0) { + $warning = 'AddAddress'; + return (1==0); + } else { + return (0==0); + } +} + +# ------------------------------------------------------------------------ + +sub delete_address { + # Delete an address from a list ... + + my ($list, @address); + $list = new Mail::Ezmlm("$LIST_DIR/" . $q->param('list')); + my $part = &get_list_part(); + return (1==0) if ($q->param('mailaddress_del') eq ''); + + @address = $q->param('mailaddress_del'); + + if ($list->unsub(@address, $part) != 1) { + $warning = 'DeleteAddress'; + return (1==0); + } + + if($PRETTY_NAMES) { + my(%pretty, $add); + tie %pretty, "DB_File", "$LIST_DIR/" . $q->param('list') . "/webnames"; + foreach $add (@address) { + delete $pretty{$add}; + } + untie %pretty; + } + +} + +# ------------------------------------------------------------------------ + +sub set_pagedata4part_list { + my($part) = @_; + # Deal with list parts .... + + my ($i, $list, $listaddress,); + + # Work out the address of this list ... + $list = new Mail::Ezmlm("$LIST_DIR/" . $q->param('list')); + $listaddress = &this_listaddress(); + + $pagedata->setValue("Data.List.PartType", "$part"); + + if($part eq 'mod') { + # do we store things in different directories? + my $config = $list->getconfig; + # empty values represent default settings - everything else is considered as evil :) + my($postpath) = $config =~ m{7\s*'([^']+)'}; + my($subpath) = $config =~ m{8\s*'([^']+)'}; + my($remotepath) = $config =~ m{9\s*'([^']+)'}; + + $pagedata->setValue("Data.List.hasPostMod", ($list->ismodpost)? 1 : 0); + $pagedata->setValue("Data.List.PostModPath", "$postpath"); + + $pagedata->setValue("Data.List.hasSubMod", ($list->ismodsub)? 1 : 0); + $pagedata->setValue("Data.List.SubModPath", "$subpath"); + + $pagedata->setValue("Data.List.hasRemoteAdmin", ($list->isremote)? 1 : 0); + $pagedata->setValue("Data.List.RemoteAdminPath", "$remotepath"); + } +} + +# ------------------------------------------------------------------------ + +sub create_list { + # Create a list according to user selections ... + + # Check if the list directory exists and create if necessary ... + unless ((-e $LIST_DIR) || (mkdir $LIST_DIR, 0700)) { + warn "Unable to create directory ($LIST_DIR): $!"; + $warning = 'ListDirAccessDenied'; + return (1==0); + } + + my ($qmail, $listname, $options, $i); + + # Some taint checking ... + $qmail = $1 if $q->param('inlocal') =~ /(?:$USER-)?([^\<\>\\\/\s]+)$/; + $listname = $q->param('list'); + if ($listname =~ m/[^\w\.-]/) { + $warning = 'InvalidListName'; + return (1==0); + } + + # Sanity Checks ... + if ($listname eq '') { + $warning = 'EmptyListName'; + return (1==0); + } + if (($listname =~ m/^ALL$/i) || ($listname =~ m/^ALLOW_CREATE$/i)) { + $warning = 'ReservedListName'; + return (1==0); + } + if ($qmail eq '') { + $warning = 'InvalidLocalPart'; + return (1==0); + } + if (-e "$LIST_DIR/$listname/lock") { + $warning = 'ListNameAlreadyExists'; + return (1==0); + } + if (-e "$HOME_DIR/.qmail-$qmail") { + $warning = 'ListAddressAlreadyExists'; + return (1==0); + } + + $options = &extract_options_from_params(); + + my($list) = new Mail::Ezmlm; + + unless ($list->make(-dir=>"$LIST_DIR/$listname", + -qmail=>"$HOME_DIR/.qmail-$qmail", + -name=>$q->param('inlocal'), + -host=>$q->param('inhost'), + -switches=>$options, + -user=>$USER) + ) { + # fatal error + $customWarning = $list->errmsg(); + return (1==0); + } + + # handle MySQL stuff + if(defined($q->param('setting_state_6')) && $options =~ m/-6\s+/) { + $customWarning = $list->errmsg() unless($list->createsql()); + } + + # no error returned - just a warning + $warning = 'WebUsersUpdate' unless (&update_webusers()); + + return (0==0); +} + +# ------------------------------------------------------------------------ + +sub extract_options_from_params() +{ + # Work out the command line options ... + my ($options, $avail_options, $settings, $avail_settings, $i); + my ($listname, $list, $old_options, $state, $old_key); + + # NOTE: we have to define _every_ (even unchanged) setting + # as ezmlm-make removes any undefined value + + $listname = $q->param('list'); + $list = new Mail::Ezmlm("$LIST_DIR/$listname"); + $old_options = $list->getconfig(); + + ################ options ################ + $i = 0; + $old_key = substr($old_options,$i,1); + $avail_options = $q->param('options_available'); + # parse the first part of the options string + while ($old_key =~ m/\w/) { + # scan the first part of the options string for lower case letters + if ($avail_options =~ m/$old_key/i) { + my $form_var_name = "option_" . lc($old_key); + # this option was visible for the user + if (defined($q->param($form_var_name))) { + $options .= lc($old_key); + } else { + $options .= uc($old_key); + } + } elsif ("cevz" =~ m/$old_key/i) { + # ignore invalid settings (the output of "getconfig" is really weird!) + } else { + # import the previous set option + $options .= $old_key; + } + $i++; + $old_key = substr($old_options,$i,1); + } + + + ############### settings ################ + $avail_settings = $q->param('settings_available'); + for ($i=0; $i<9; $i++) { + if ($avail_settings =~ m/$i/) { + # this setting was visible for the user + $options .= " -$i '" . $q->param("setting_value_$i") . "'" + if (defined($q->param("setting_state_$i"))); + } else { + # import the previous setting + $state = ($old_options =~ /$i (?:'(.+?)')/); + $options .= " -$i '$1'" if ($state); + } + } + + return $options; +} + +# ------------------------------------------------------------------------ + +sub update_config { + # Save the new user entered config ... + + my ($list, $options, @inlocal, @inhost, $dir_of_list); + my ($old_msgsize); + + $list = new Mail::Ezmlm("$LIST_DIR/" . $q->param('list')); + $dir_of_list = $LIST_DIR . '/' . $q->param('list'); + + $options = &extract_options_from_params(); + + # save the settings, that are generally overwritten by ezmlm-make :((( + # good candidates are: msgsize, inhost, inlocal and outhost + # maybe there are some others? + $old_msgsize = $list->getpart('msgsize'); + + # Actually update the list ... + unless($list->update($options)) { + $warning = 'UpdateConfig'; + return (1==0); + } + + # update trailing text + # remove old one if the checkbox was not active + if (defined($q->param('trailing_text'))) { + if (defined($q->param('option_t'))) { + $list->setpart('text/trailer', $q->param('trailing_text')); + } else { + unlink("$dir_of_list/text/trailer"); + } + } + + # update prefix text + # remove old one if the checkbox was not active + if (defined($q->param('prefix'))) { + if (defined($q->param('option_f'))) { + $list->setpart('prefix', $q->param('prefix')) + } else { + unlink("$dir_of_list/prefix"); + } + } + + # update mimeremove + # remove old one if the checkbox was not active + if (defined($q->param('mimeremove'))) { + if (defined($q->param('option_x'))) { + $list->setpart('mimeremove', $q->param('mimeremove')) + } else { + unlink("$dir_of_list/mimeremove"); + } + } + + # update mimereject + # remove old one if the checkbox was not active + if (defined($q->param('mimereject'))) { + if (defined($q->param('option_x'))) { + $list->setpart('mimereject', $q->param('mimereject')) + } else { + unlink("$dir_of_list/mimereject"); + } + } + + # Update headeradd and headerremove if these options were visible + $list->setpart('headeradd', $q->param('headeradd')) + if (defined($q->param('headeradd'))); + $list->setpart('headerremove', $q->param('headerremove')) + if (defined($q->param('headerremove'))); + + if (defined($q->param('msgsize_max_value')) && defined($q->param('msgsize_min_value'))) { + my ($minsize, $maxsize); + $maxsize = (defined($q->param('msgsize_max_state'))) ? + $q->param('msgsize_max_value') : 0; + $minsize = (defined($q->param('msgsize_min_state'))) ? + $q->param('msgsize_min_value') : 0; + $list->setpart('msgsize', "$maxsize:$minsize"); + } else { + # restore the original value, as ezmlm-make always overrides these values :((( + $list->setpart('msgsize', "$old_msgsize"); + } + + unless (&update_webusers()) { + $warning = 'WebUsersUpdate'; + return (1==0); + } + + return (0==0); +} + +# ------------------------------------------------------------------------ + +sub update_webusers { + # replace existing webusers-line or add a new one + + # return if there is no webusers entry + return (0==0) unless defined($q->param('webusers')); + + # Back up web users file + my $temp_file; + my $fh; + # generate a temporary filename (as suggested by the Perl Cookbook) + do { $temp_file = tmpnam() } + until $fh = IO::File->new($temp_file, O_RDWR|O_CREAT|O_EXCL); + close $fh; + unless (open(TMP, ">$temp_file")) { + warn "could not open a temporary file"; + return (1==0);; + } + open(WU, "<$WEBUSERS_FILE"); + while() { print TMP; } + close WU; close TMP; + + my $matched = 0; + my $listname = $q->param('list'); + my $webusers_filtered = $q->param('webusers'); + # remove any insecure characters (e.g. a line break :)) + $webusers_filtered =~ s/[^\w_,-]/ /gs; + open(TMP, "<$temp_file"); + unless (open(WU, ">$WEBUSERS_FILE")) { + warn "the webusers file ($WEBUSERS_FILE) is not writable"; + return (0==1); + } + while() { + if ($_ =~ m/^$listname\s*:/i) { + print WU $listname . ': ' . $webusers_filtered . "\n" if ($matched == 0); + $matched = 1; + } else { + print WU $_; + } + } + # append the line, if there was no matching line found before + print WU $listname . ': ' . $webusers_filtered . "\n" if ($matched == 0); + + close TMP; close WU; + unlink "$temp_file"; +} + +# ------------------------------------------------------------------------ + +sub this_listaddress { + # Work out the address of this list ... Used often so put in its own subroutine ... + + my ($list, $listaddress); + $list = new Mail::Ezmlm("$LIST_DIR/" . $q->param('list')); + chomp($listaddress = $list->getpart('outlocal')); + $listaddress .= '@'; + chomp($listaddress .= $list->getpart('outhost')); + return $listaddress; +} + +# ------------------------------------------------------------------------ + +sub save_text { + # Save new text in DIR/text ... + + my ($list) = new Mail::Ezmlm("$LIST_DIR/" . $q->param('list')); + my ($content) = $q->param('content'); + from_to($content,'utf8',$TEXT_ENCODE); # by ooyama for multibyte + unless ($list->setpart("text/" . $q->param('file'), $content)) { + $warning = 'SaveFile'; + return (1==0); + } +} + +# ------------------------------------------------------------------------ + +sub webauth { + my $listname = shift; + + # Check if webusers file exists - if not, then access is granted + return (0==0) if (! -e "$WEBUSERS_FILE"); + + # if there was no user authentication, then everything is allowed + return (0==0) if ($ENV{'REMOTE_USER'} eq ''); + + # Read authentication level from webusers file. Format of this file is + # somewhat similar to the unix groups file + unless (open (USERS, "<$WEBUSERS_FILE")) { + warn "Unable to read webusers file ($WEBUSERS_FILE): $!"; + $warning = 'WebUsersRead'; + return (1==0); + } + + # TODO: check, why "directly after creating a new list" this does not + # work without the "m" switch for the regexp - very weird! + # the same goes for webauth_create_allowed + # maybe the creating action changed some file access defaults? + while() { + if (/^($listname|ALL):/im) { + # the following line should be synchronized with the webauth_create_allowed sub + if (/^[^:]*:(|.*[\s,])($ENV{'REMOTE_USER'}|ALL)(,|\s|$)/m) { + close USERS; + return (0==0); + } + } + } + close USERS; + return (1==0); +} + +# --------------------------------------------------------------------------- + +sub webauth_create_allowed { + + # Check if we were called with the deprecated argument "-c" (allow to create lists) + return (0==0) if (defined($opt_c)); + + # if there was no user authentication, then everything is allowed + return (0==0) if ($ENV{'REMOTE_USER'} eq ''); + + # Check if webusers file exists - if not, then access is granted + return (0==0) if (! -e "$WEBUSERS_FILE"); + + # Read create-permission from webusers file. + # the special listname "ALLOW_CREATE" controls, who is allowed to do it + unless (open (USERS, "<$WEBUSERS_FILE")) { + warn "Unable to read webusers file ($WEBUSERS_FILE): $!"; + $warning = 'WebUsersRead'; + return (1==0); + } + + while() { + if (/^ALLOW_CREATE:/im) { + # the following line should be synchronized with the webauth sub + if (/[:\s,]($ENV{'REMOTE_USER'}|(ALL))(,|\s|$)/m) { + close USERS; + return (0==0); + } + } + } + close USERS; + return (1==0); +} + +# --------------------------------------------------------------------------- + +sub rmtree { + # A subroutine to recursively delete a directory (like rm -f). + # Based on the one in the perl cookbook :) + + use File::Find qw(finddepth); + File::Find::finddepth sub { + # assume that File::Find::name is secure since it only uses data we pass it + my($name) = $File::Find::name =~ m{^(.+)$}; + + if (!-l && -d _) { + rmdir($name) or warn "couldn't rmdir $name: $!"; + } else { + unlink($name) or warn "couldn't unlink $name: $!"; + } + }, @_; + 1; +} + +# ------------------------------------------------------------------------ + +sub fatal_error() { + my $text = shift; + + print "Content-Type: text/html; charset=utf-8\n\n"; + print "\n"; + print "ezmlm-web\n"; + print "

a fatal error occoured!

\n"; + print "

$text

\n"; + print "

check the error log of your web server for details

\n"; + print "\n"; + die "$text"; +} + +# ------------------------------------------------------------------------ +# End of ezmlm-web.cgi v2.3 +# ------------------------------------------------------------------------ +__END__ + +=head1 NAME + +ezmlm-web - A web configuration interface to ezmlm mailing lists + +=head1 SYNOPSIS + +ezmlm-web [B<-c>] [B<-C> EFE] [B<-d> EFE] + +=head1 DESCRIPTION + +=over 4 + +=item B<-C> Specify an alternate configuration file given as F +If not specified, ezmlm-web checks first in the users home directory, then in +F and then the current directory + +=item B<-d> Specify an alternate directory where lists live. This is now +depreciated in favour of using a custom ezmlmwebrc, but is left for backward +compatibility. + +=back + +=head1 SUID WRAPPER + +C<#include stdio.h> + +C + C + C +C<}> + + +=head1 DOCUMENTATION/CONFIGURATION + + Please refer to the example ezmlmwebrc which is well commented, and + to the README file in this distribution. + +=head1 FILES + +F<~/.ezmlmwebrc> +F +F<./ezmlmwebrc> + +=head1 AUTHOR + + Guy Antony Halse + Lars Kruse + +=head1 BUGS + + None known yet. Please report bugs to the author. + +=head1 S + + ezmlm(5), ezmlm-cgi(1), Mail::Ezmlm(3) + + https://systemausfall.org/toolforge/ezmlm-web + http://rucus.ru.ac.za/~guy/ezmlm/ + http://www.ezmlm.org/ + http://www.qmail.org/ diff --git a/ezmlm-web-3.0.2/ezmlmwebrc b/ezmlm-web-3.0.2/ezmlmwebrc new file mode 100644 index 0000000..7f6d6ac --- /dev/null +++ b/ezmlm-web-3.0.2/ezmlmwebrc @@ -0,0 +1,63 @@ +# Configuration file for ezmlm-web 2.3 +# =========================================================================== + +# This file is not just an ordinary configuration file - it contains valid +# perl statements that are executed just like any other perl script. When +# editing this file, be careful that it is still valid perl when you have +# finished (perl -w ezmlmwebrc ;-) + +# --------------------------------------------------------------------------- + +# Where do we store lists on this server ... Try "$HOME_DIR/lists". +# This directory will automatically be created if needed. +$LIST_DIR = "$HOME_DIR/lists"; + +# Where is the webusers file for access-permissions +# defaults to "$LIST_DIR/webusers" +$WEBUSERS_FILE = "$LIST_DIR/webusers"; + +# Where are the language files +# usually something like /usr/local/share/ezmlm-web/lang +$LANGUAGE_DIR = "/usr/local/share/ezmlm-web/lang"; + +# Where are the template files +# usually something like /usr/local/share/ezmlm-web/template +$TEMPLATE_DIR = "/usr/local/share/ezmlm-web/template"; + +# Safe list deletion? +# 0 = move list to $LIST_DIR/_deleted_lists -> recoverable :) +# 1 = allow user to delete list completely. No backup, therefore no recovery. +$UNSAFE_RM = 0; + +# Who is the qmail alias user on this system (usually alias ;) +$ALIAS_USER = 'alias'; + +# Where do the qmail control files live on this system ... +$QMAIL_BASE = $Mail::Ezmlm::QMAIL_BASE . '/control'; + +# default mailing list domain name (optional) +#$MAIL_DOMAIN = 'lists.someserver.org'; + +# Do we want to allow ``pretty'' names - ie more human readable ones +# This will slow ezmlm-web down a bit for large lists +$PRETTY_NAMES = 1; + +# Do we want to allow the users to be allowed to upload a file containing +# lists of email addresses to subscribe? +$FILE_UPLOAD = 1; + +# What switches to we want ezmlm-web to have on as default. The ezmlm-make +# defaults are aBDFGHIJKLMNOpQRSTUWX (small means enabled, CAPITALS mean +# disabled). The defaults below should be reasonable - I use them ;) +$DEFAULT_OPTIONS = 'aBDFGHiJkLMNOpQRSTUWx'; + +# What is the title of this document? +$HTML_TITLE = "ezmlm-web - a mailinglists' administration interface"; + +# Optional: use a cascading style sheet (css) +# this is a URL - you have to copy the css file to the right location before +$HTML_CSS_FILE = "/ezmlm-web.css"; + +# choose a language (en|de) +$HTML_LANGUAGE = 'en'; + diff --git a/ezmlm-web-3.0.2/htaccess.sample b/ezmlm-web-3.0.2/htaccess.sample new file mode 100644 index 0000000..0599b5b --- /dev/null +++ b/ezmlm-web-3.0.2/htaccess.sample @@ -0,0 +1,7 @@ +#order deny,allow +#deny from all +#allow from .ru.ac.za +AuthName "EZ Mailing List Manager" +AuthType Basic +AuthUserFile /etc/ezmlm/.htusers +require valid-user diff --git a/ezmlm-web-3.0.2/index.c b/ezmlm-web-3.0.2/index.c new file mode 100644 index 0000000..3ba9cc1 --- /dev/null +++ b/ezmlm-web-3.0.2/index.c @@ -0,0 +1,25 @@ +/* $Id: index.c,v 1.2 2000/09/25 18:14:12 guy Exp $ */ + +#include + +/* C wrapper to allow ezmlm-web.cgi to run suid */ +/* Copyright (C) 1999/2000, Guy Antony Halse, All Rights Reserved */ +/* See the README file in this distribution for copyright information */ + +int main(void) { + /* Change this path to wherever you decided to put ezmlm-web.cgi */ + execv("/usr/local/bin/ezmlm-web.cgi"); + + /* Note that you could also use the following to allow a specific user + to store their mailing lists in a different directory defined by + /tmp/ezmlm-web-demo ... This over-rides the default . */ + + /* Look at the exec(3) man page if you don't understand how the arguments + list below works */ + + /* + char *switches[] = { "ezmlm-web.cgi", "-d", "/tmp/ezmlm-web-demo", NULL }; + execv("/usr/local/bin/ezmlm-web.cgi", switches); + */ + +} diff --git a/ezmlm-web-3.0.2/lang/de.hdf b/ezmlm-web-3.0.2/lang/de.hdf new file mode 100644 index 0000000..326f572 --- /dev/null +++ b/ezmlm-web-3.0.2/lang/de.hdf @@ -0,0 +1,224 @@ +LanguageID = de + +LanguageName = Deutsch + +Lang { + + Menue { + ListCreate = Neue Liste anlegen + ListDelete = Liste löschen + Subscribers = AbonnentInnen + AllowList = Zulassungsliste + DenyList = Ablehnungsliste + DigestList = Zusammenfassung + ModList = ModeratorInnen + ConfigMain = Einstellungen + ConfigSub = Einschreibung + ConfigPost = Einsendung + ConfigAdmin = Administration + ConfigArchive = Archivierung + ConfigProcess = Verarbeitung + ConfigAll = Übersicht + TextFiles = Texte + ListSelect = Auswahl einer Liste + Properties = Eigenschaften von + Help = Hilfe (extern) + } + + + Title { + ConfigMain = Listeneinstellungen + ConfigSub = Einschreibungsregeln + ConfigPosting = Einsendungsregeln + ConfigAdmin = Fern-Administration der Liste + ConfigArchive = Archivierung der Liste + ConfigProcess = Nachrichtenverarbeitung + ConfigAll = Einstellungen im Überblick + SubscriberList = AbonnentInnen der Liste + AllowList = Zugelassene Nutzer + DenyList = Abzuweisende Nutzer + DigestList = EmpfängerInnen von Zusammenfassungen + ModList = ModeratorInnen der Liste + ListCreate = Anlegen einer neuen Liste + ListSelect = Auswählen einer Liste + ListDelete = Löschung von + FileSelect = Auswählen eines Textbausteins + FileEdit = Bearbeitung des Textbausteins + } + + + Buttons { + Create = Erzeuge die Liste + ConfirmDeletion = Lösche die Liste + DeleteAddress = Adresse(n) entfernen + AddAddress = Adresse(n) hinzufügen + UpdateConfiguration = Einstellungen speichern + EditFile = Datei bearbeiten + SaveFile = Datei speichern + } + + + ErrorMessage { + UnknownAction = Diese Aktion ist undefiniert! + ParameterMissing = Diese Aktion benätigt weitere Parameter! + Forbidden = Fehler: dir fehlen die notwendigen Rechte für diese Aktion + InvalidFileName = Der Dateiname ist nicht zulässig. + UnknownConfigPage = Die gähle Konfigurations-Seite existiert nicht! + } + + + WarningMessage { + AddAddress = Mindestens eine Mailadresse konnte nicht hinzugefügt werden! + DeleteAddress = Mindestens eine der angegebenen Adressen konnte nicht entfernt werden! + CreateList = Fehler beim Anlegen der neuen Liste! + DeleteList = Die Löschung der Mailingliste schlug fehl! + UpdateConfig = Beim Speichern der Einstellungen trat ein Fehler auf! + SaveFile = Die Datei konnte nicht gespeichert werden! + ListNameAlreadyExists = Es gibt bereits eine Liste mit diesem Namen. + ListAddressAlreadyExists = Es gibt bereits eine Liste mit dieser Adresse. + ListDoesNotExist = Eine Liste dieses Namens existiert nicht. + ListDirAccessDenied = Fehler beim Zugriff auf das Verzeichnis der Liste + TextDirAccessDenied = Beim Zugriff auf das Text-Verzeichnis der Liste trat ein Fehler auf. + SafeRemoveRenameDirFailed = Das Verschieben der Liste schlug fehl. + DotQmailDirAccessDenied = Fehler beim Zugriff auf das Nutzerverzeichnis des Listenverwalters + SafeRemoveMoveDotQmailFailed = Beim Verschieben der .qmail-Dateien trat ein Fehler auf! + UnsafeRemoveListDirFailed = Fehler beim sicheren Löschen der Mailingliste + UnsafeRemoveDotQmailFailed = Fehler beim Löschen der .qmail-Dateien + InvalidFileFormat = Die gewählte Datei konnte nicht als Textdatei erkannt werden. + WebUsersUpdate = Fehler beim Aktualisieren der Nutzerverwaltungsdatei + WebUsersRead = Fehler beim Lesen der Nutzerverwaltungsdatei + InvalidListName = Der gewählte Listenname enthält unzulässige Zeichen + ReservedListName = Dieser Listenname ist ein reserviertes Wort und kann nicht benutzt werden + EmptyListName = Es wurde kein Name für die Listen angegeben. + InvalidLocalPart = Die gewählte untergeordnete Liste ist ungültig. + } + + + SuccessMessage { + AddAddress = Einschreibung erfolgreich + DeleteAddress = Austragung erfolgreich abgeschlossen + CreateList = Die neue Liste wurde erfolgreich angelegt. + DeleteList = Die Mailingliste wurde gelöscht. + UpdateConfig = Die neuen Einstellungen wurden erfolgreich gespeichert. + SaveFile = Die Datei wurde gespeichert. + } + + + Options { + a = Archiviere Mailinglisten-Mails + b = Nur Moderatoren dürfen auf das Archiv zugreifen + d = Aktiviere die Zusammenfassungsliste + f = Füge ein Präfix zum Betreff der ausgehenden Mails hinzu + g = Verweigere unbekannten NutzerInnen den Zugriff auf das Archiv + h = Bei der Einschreibung in die Liste ist keine Bestätigungsmail erforderlich + i = Indiziere die Nachrichten zur Veröffentlichung im Internet (z.B. mit ezmlm-www) + j = Beim Austragen aus der Liste ist keine Bestätigungsmail erforderlich + k = Beachte die Ablehnungsliste bei der Verarbeitung von Mails + l = Fern-AdministratorInnen (ModeratorInnen) dürfen eine Liste der AbonnentInnen anfordern + m = Alle eingehenden Nachrichten werden moderiert + n = Fern-AdministratorInnen (ModeratorInnen) dürfen Textbausteine per Mail verändern + o = Nur ModeratorInnen dürfen Nachrichten einsenden + p = Die Einschreibung und der Zugriff auf das Archiv sind öffentlich zugänglich + q = Verarbeite auch Anfragen im Mailman-Stil (Kompatibilität) + r = Erlaube die Fern-Administration der Liste (für ModeratorInnen) + s = Die Einschreibung in die Liste und für die Zusammenfassungen wird moderiert + t = Hänge eine Signatur an jede versandte Nachricht + u = Nur Einsendungen von AbonnentInnen werden akzeptiert (für moderierte Listen: akzeptiere alle Einsendungen von AbonnentInnen) + w = Entferne den Aufruf von ezmlm-warn aus den Verarbeitungsregeln (für sehr spezielle Konfigurationen) + x = Prüfe die MIME-Typen der Anhänge eingehender Nachrichten + y = Fordere eine Bestätigung für jede eingesandte Nachricht an + } + + + Settings { + 0 = Diese Liste is nur eine Unterliste + 3 = Definiere die Absender-Adresse ausgehender Mails + 4 = Eigene Einstellungen zum Versand von Zusammenfassungsmails (ezmlm-tstdig) + 5 = Lege die Mailadresse des Verantwortlichen für diese Liste fest + 6 = Verwende eine SQL-Datenbank + 7 = Die Datenbank der Nachrichten-ModeratorInnen befindet sich in einem alternativen Verzeichnis + 8 = Die Datenbank der Einschreibe-ModeratorInnen (und Fern-AdministratorInnen) befindet sich in einem alternativen Verzeichnis + # 9 => not used - it is only an alternative to (8) + } + + + Misc { + HelpLink = Das online-Handbuch von ezmlm-idx + Subscription = Einschreibung + Subscribers = AbonnentInnen + RemoteAdmin = Fern-AdministratorIn + ListName = Name der Liste + ListAddress = Addresse der Liste + ListOptions = Grundlegende Einstellungen + AllowedToEdit = Nutzer, die diese Liste per Web-Interface konfigurieren dürfen: + HeaderRemove = zu entfernende Kopfzeilen + HeaderAdd = hinzuzufügende Kopfzeilen + MimeRemove = Nachrichtenbestandteile dieses Typs werden entfernt + MimeReject = Nachrichten, die einen der folgenden Datentypen enthalten, werden abgewiesen + EditFileInfo { + CommonTags = allgemeine Platzhalter + ListNameLocal = der lokale Teil (vor dem "@") der Listenadresse + ListNameHost = die Domain der Mailadresse + MessageNumber = die Nummer der jeweiligen Nachricht + SubAddress = die Einschribe-Adresse + SubReplyAddress = die Bestätigungsadresse + AcceptanceAddress = die Zustimmungsadresse + RejectionAddress = die Ablehnungsadresse + } + SuggestDefaultPath = Ansonsten musst du diese Mitglieder per Hand verwalten. + PostModPathWarn = Die Nachrichten-ModeratorInnen werden nicht an ihrem üblichen Ort gespeichert. + SubModPathWarn = Die Einschreibe-ModeratorInnen werden nicht an ihrem üblichen Ort gespeichert. + RemoteAdminPathWarn = Die Fern-AdministratorInnen werden nicht an ihrem üblichen Ort gespeichert. + MessageSize.Max = Verweigere die Annahme von Nachrichten, die eine gewisse Größe überschreiten + MessageSize.Min = Verweigere die Annahme von Nachrichten, die eine gewisse Größe unterschreiten + MessageSize.Unit = Bytes + NoFiles = Es befinden sich keine Dateien im Text-Verzeichnis der Mailingliste. + AddSubscriberAddress = Füge eine neue Mailadresse hinzu: + AddSubscriberFile = Importiere eine Datei, die Mailadressen enthält: + SuggestDefaultPath = Es wird empfohlen, das Standard-Verzeichnis zu verwenden. Andernfalls kannst du die ModeratorInnen-Liste nicht mit ezmlm-web verwalten. + FooterText = eine Web-Oberfläche für + NoListsAvailable = Es sind keine passenden Listen vorhanden. + ConfirmDelete = Willst du wirklich diese Liste vollständig löschen? + } + + + Introduction { + ConfigAdmin = Fern-AdministratorInnen sind (per Voreinstellung) auch ModeratorInnen für die Einschreibung und für eingesandte Mails. Sie können berechtigt sein, per Mail Nutzer ein- und auszutragen, sowie Textbausteine zu verändern. + ConfigArchive = Das Mailinglisten-Archiv ist per Mail verfügbar. Außerdem benötigst du ein Archiv, falls du vergangene Mails im Internet zur Verfügung stellen möchtest (z.B. mit ezmlm-www). + ConfigProcess = Die folgenden Regeln werden auf alle Mails angewandt, bevor sie an die AbonnentInnen verteilt werden. + ConfigMain = Hier findest du ein paar allgemeine Einstellungen der Mailingliste, die sich nicht in den themenorientierten Rubriken unterbringen ließen. + ConfigPosting = Die Einsende-Konfiguration bestimmt, wer Nachrichten einsenden darf und welchen Bedingungen die Mails genügen müssen. + ConfigSub = Hier kannst du festlegen, wer sich als Abonnent selbständig eintragen darf und wie der Einschreibungsprozess abläuft. + ConfigAll = Diese Seite enthält alle verfügbaren Optionen auf einen Blick. + ListDelete = Die Mailingliste und alle damit verbundenen Daten werden hiermit vollständig entfernt. + AllowList = An die Adressen der Zulassungsliste werden keine Mails verschickt. Einsendungen von diesen Adressen werden so behandelt, als kämen sie von AbonnentInnen. Üblicherweise solltest du Aliase von AbonnentInnen in die Zulassungsliste eintragen. + DenyList = Falls du Mails von bestimmte Mailadressen verweigern möchtest, dann füge sie einfach zur Ablehnungsliste hinzu Dies kann nützlich sein, um unbeliebte Nutzer auszuschließen oder um störende Abwesenheitsbenachrichtigungen zu verhindern. + DigestList = Einige AbonnentInnen deiner Mailingliste sind möglicherweise nicht an jeder einzelnen Nachricht interessiert, sondern ziehen es vor, stattdessen regelmäßig automatisch erstellte Zusammenfassungen zu erhalten. + ModList = ModeratorInnen (für die Einschreibung von AbonnentInnen und die Einsendungen an die Liste) und Fern-AdministratorInnen können die Kontrolle über viele wichtige Aspekte der Liste übernehmen (falls du sie dementsprechend konfigurierst). + SubscriberList = Die AbonnentInnen der Mailingliste empfangen alle versandten Nachrigten der Liste. Zudem kann es ihnen gestattet sein, Nachrichten direkt oder indirekt zur weiteren Verteilung an die Liste zu senden. Oft ist es anonymen Nutzern gestattet, sich selbständig in die Mailingliste einzuschreiben, ohne die Hilfe eines Administrators in Anspruch nehmen zu müssen. + TextFiles = Das Auswahlfeld beinhaltet die Liste aller verfügbaren Textbausteine im Texte-Verzeichnis der Liste. Diese Textbasuteine werden zur Erstellung der automatischen Antworten der Mailingliste benutzt. + EditTextFile = Passe den Textbaustein an die Erfordernisse der Liste an. Eventuell möchtest du dafür auch einige der reservierten Platzhalter verwenden, die am Ende dieser Seite aufgeführt sind. + } + + Legend { + ConfigAdmin = Fern-Administrations-Rechte + ConfigArchve = Archivierungseinstellungen + ConfigPosting = Einsende-Regeln + ConfigSub = Einschreibungsdetails + ConfigMain = Allgemeine Listen-Einstellungen + ConfigProcess = Verarbeitungsregeln + ConfigAll = Einstellungen + ListCreate = Eigenschaften der neuen Liste + ListDelete = Löschung der Mailingliste + RelevantOptions = Relevante Optionen + MembersList = AbonnentInnen-Verwaltung + MembersAllow = Verwaltung der zulässigen Adressen + MembersDeny = Verwaltung der abzulehnenden Adressen + MembersDigest = Verwaltung der AbonnentInnen der Zusammenfassungen + MembersMod = Verwaltung der ModeratorInnen / AdministratorInnen + TextFiles = Verfügbare Textbausteine + TextFileEdit = Bearbeite einen Textbaustein + TextFileInfo = Nützliche Platzhalter + AvailableLists = Verfügbare Listen + } +} diff --git a/ezmlm-web-3.0.2/lang/en.hdf b/ezmlm-web-3.0.2/lang/en.hdf new file mode 100644 index 0000000..af1adc2 --- /dev/null +++ b/ezmlm-web-3.0.2/lang/en.hdf @@ -0,0 +1,224 @@ +LanguageID = en + +LanguageName = English + +Lang { + + Menue { + ListCreate = Create new list + ListDelete = Delete list + Subscribers = Subscribers + AllowList = allow list + DenyList = deny list + DigestList = digest list + ModList = moderators + ConfigMain = Options + ConfigSub = subscription + ConfigPost = posting + ConfigAdmin = administration + ConfigArchive = archive + ConfigProcess = processing + ConfigAll = overview + TextFiles = Text files + ListSelect = Choose a list + Properties = Properties of + Help = Help (external) + } + + + Title { + ConfigMain = List configuration + ConfigSub = Subscription options + ConfigPosting = Posting options + ConfigAdmin = Remote administration + ConfigArchive = Archive options + ConfigProcess = Message processing + ConfigAll = Complete configuration + SubscriberList = Subscribers of the list + AllowList = Allowed users + DenyList = Blocked users + DigestList = Digest subscribers + ModList = Moderators of the mailinglist + ListCreate = Create a new list + ListSelect = Choose a list + ListDelete = Delete list + FileSelect = Choose a file for editing + FileEdit = Editing file + } + + + Buttons { + Create = Create list + ConfirmDeletion = Delete the list + DeleteAddress = Delete address(es) + AddAddress = Add address(es) + UpdateConfiguration = Update configuration + EditFile = Edit file + SaveFile = Save File + } + + + ErrorMessage { + UnknownAction = this action is undefined + ParameterMissing = this action needs one or more parameters + Forbidden = Error: you are not allowed to do this! + InvalidFileName = The name of the file is invalid! + UnknownConfigPage = The chosen config page is invalid! + } + + + WarningMessage { + AddAddress = Adding of at least one mail address failed! + DeleteAddress = Removal of at least one mail address failed! + CreateList = Creation of new mailing list failed! + DeleteList = Removal of mailing list failed! + UpdateConfig = Update of configuration failed! + SaveFile = The file could not be saved! + ListNameAlreadyExists = There is already a list with this name! + ListAddressAlreadyExists = There is already a list with this address! + ListDoesNotExist = A list with this name does not exist! + ListDirAccessDenied = Unable to access the list's directory + TextDirAccessDenied = Unable to access the list's directory of text files + SafeRemoveRenameDirFailed = Unable to rename list for safe removal + DotQmailDirAccessDenied = Unable to read the mail user's home directory for .qmail files + SafeRemoveMoveDotQmailFailed = Unable to move .qmail files + UnsafeRemoveListDirFailed = Unable to delete list + UnsafeRemoveDotQmailFailed = Unable to delete .qmail files + InvalidFileFormat = The uploaded file must be a text file + WebUsersUpdate = Could not update the webusers file + WebUsersRead = Could not read the webusers file + InvalidListName = The name of the list contains invalid characters + ReservedListName = This listname may not be used as it is reserved for internal purposes + EmptyListName = The name of the list may not be empty + InvalidLocalPart = The local part of the list address is not valid + } + + + SuccessMessage { + AddAddress = The address was added to the list. + DeleteAddress = The address was removed from the list. + CreateList = The new mailing list was successfully created. + DeleteList = The mailing list was successfully removed. + UpdateConfig = The mailing list's configuration was successfully changed. + SaveFile = The file was saved. + } + + + Options { + a = Archive mailing list messages + b = Only moderators are allowed to access the archive + d = Activate the digest list + f = Add a prefix to the subject line of outgoing messages + g = Archive requests from unrecogniced senders are denied + h = Subscriptions do not require confirmation by the user + i = Index mailing list messages for WWW archive access + j = Unsubscribe does not require confirmation + k = Use deny list to prevent some users from posting + l = Remote administrators (moderators) may request a subscriber list + m = All incoming messages are moderated + n = Remote administrators (moderators) may edit text files in DIR/text + o = Only moderators may post + p = Allow subscription and archive retrieval for everyone + q = Process mailman-style requests (to local-request@domain) + r = Enable remote administration of the list (for moderators) + s = Subscriptions to the main list and the digest list will be moderated + t = Add a trailing text to every message + u = Only subscribed users may post messages (for a moderated list: always accept subscribers' postings) + w = Remove the ezmlm-warn invocations from the list setup (rarely useful) + x = Remove or reject specific mime types in messages + y = Request a confirmation mail for every posted message + } + + + Settings { + 0 = Make the list a sublist of list mainlist@host + 3 = Set a custom "From:" header for outgoing messsages + 4 = Define customized setting for digest creation (ezmlm-tstdig) + 5 = Define the email address of the list owner + 6 = Use a SQL database + 7 = Define a custom path to the database for posting moderators + 8 = Define a custom path to the database for remote administrators and subscription moderators + # 9 => not used - it is only an alternative to (8) + } + + + Misc { + HelpLink = The manual page of ezmlm-idx + Subscription = Subscription + Subscribers = subscribers + RemoteAdmin = Remote Admin + ListName = List Name + ListAddress = List Address + ListOptions = Basic List Options + AllowedToEdit = Users allowed to edit this list via web interface: + HeaderRemove = Headers to strip from every outgoing mail + HeaderAdd = Headers to add to all outgoing mail + MimeRemove = Mime types to strip from all outgoing mail + MimeReject = Messages containing any of these mime type will be rejected + EditFileInfo { + CommonTags = common tags + ListNameLocal = The local part of the list name + ListNameHost = The host name of the list name + MessageNumber = Number of the respective message + SubAddress = The subscription address + SubReplyAddress = The address a subscriber must reply to + AcceptanceAddress = The acceptance address + RejectionAddress = The rejection address + } + SuggestDefaultPath = You will have to manage them manually. + PostModPathWarn = Posting moderators are stored in a non-standard location + SubModPathWarn = Subscription moderators are stored in a non-standard location + RemoteAdminPathWarn = Remote administrators are stored in a non-standard location + MessageSize.Max = Reject messages exceeding a specified value + MessageSize.Min = Reject messages smaller than a specified value + MessageSize.Unit = bytes + NoFiles = There are no files in the text directory of the mailinglist. + AddSubscriberAddress = Add a new mail address: + AddSubscriberFile = Upload a file containing mail addresses to be added: + SuggestDefaultPath = It is recommended to use the default path for the moderation database. Otherwise you cannot manage the moderators' list with ezmlm-web. + FooterText = a web interface for + NoListsAvailable = I could not find any accessible list for you. + ConfirmDelete = Do you really want to remove this list completely? + } + + + Introduction { + ConfigAdmin = Remote administrators are (by default) also moderators for subscription and for posting. They may have the permission to (un)subscribe users and to change the text files of the list by sending emails to the mailing list software. + ConfigArchive = The mailing list archive can be accessed by mail. Additionally you will want to create a list archive, if you plan to publish it (e.g. with ezmlm-www). + ConfigProcess = Modify some message properties, before they are distributed to the subscribers. + ConfigMain = Here you find some settings, that did not fit into any other category. + ConfigPosting = The posting configuration determines, who is allowed to send messages to the list and how these mails will be processed. + ConfigSub = Here you may define, who is allowed to subscribe to the list and you can set some details of the subscription process. + ConfigAll = This is the complete list of all available properties of the list. Usually it should be easier to use the topic-based configuration pages, but - of course - this is your choice. + ListDelete = This mailinglist and everything inside of it will be removed completely. + AllowList = Members of the allow list will not receive outgoing mails, but they have the same rights, as normal subscribers. Usually the allow list will contain mail aliases of subscribers. + DenyList = If you want to prevent specific mail addresses from using this list (subscription, posting, ...), then you should add them to the deny list and activate it. This can be useful for annoying people and even for notorious vacation reply users. But since it is fairly easy to fake an mail address, this will not really improve security. + DigestList = Some users of your mailing list may prefer to receive a regular digest instead of all mailing list messages. They will usually not take part in discussions, but aret somehow interested anyway. + ModList = Moderators (for posting or subscription) and remote administrators can be allowed to manage the most important parts of mailing list administration: moderating subscription and posting, changing filtering rules, and managing users. Moderators may even be configured to be the only ones, who are allowed to send mails to the mailing list. + SubscriberList = Subscribers of a mailing list will receive all outgoing message of the list. They may also be allowed to post messages directly or moderated. Usually anonymous users are able to subscribe and unsubscribe without the help of an administrator - but of course, you may configure this to suit your needs. + TextFiles = The selection box contains a list of files available in the DIR/text directory. These files are sent out in response to specfic user requests or as part of all outgoing messages. Edit them as necessary. + EditTextFile = Change this text according to your needs. Maybe you would like to use some of the reserved tags, that are described at the bottom of this page. + } + + Legend { + ConfigAdmin = Remote administrator's permissions + ConfigArchve = Archive configuration + ConfigPosting = Posting rules + ConfigSub = Subscription details + ConfigMain = General list configuration + ConfigProcess = Processing rules + ConfigAll = Available properties + ListCreate = Properties of the new list + ListDelete = Remove this mailinglist + RelevantOptions = Useful settings + MembersList = Manage subscribers + MembersAllow = Manage allowed users + MembersDeny = Manage blocked users + MembersDigest = Manage digest subscribers + MembersMod = Manage moderators and administrators + TextFiles = Available text files + TextFileEdit = Edit content of text file + TextFileInfo = Useful placeholders + AvailableLists = Available lists + } +} diff --git a/ezmlm-web-3.0.2/lang/jp.pm b/ezmlm-web-3.0.2/lang/jp.pm new file mode 100644 index 0000000..522fbad --- /dev/null +++ b/ezmlm-web-3.0.2/lang/jp.pm @@ -0,0 +1,187 @@ +# language-specific definitions for ezmlm-web +# in Japanese + +# The meanings of the various ezmlm-make command line switches. The default +# ones match the ezmlm-idx 0.4 default ezmlmrc ... Alter them to suit your +# own ezmlmrc. Removing options from this list makes them unavailable +# through ezmlm-web - this could be useful for things like -w + +%EZMLM_LABELS = ( +# option => ['Short Name', +# 'Long Help Description'], + + a => ['アーカイブ保存', + 'メッセージをアーカイブする'], + b => ['アーカイブブロック', + 'モデレータのみアーカイブにアクセス可能'], +# c => config. This is implicity called, so is not defined here + d => ['ダイジェスト作成', + 'メッセージのダイジェストリストをセットアップする'], +# e => edit. Also implicity called, so not defined here + f => ['件名にPrefixを付加する', + '件名に指定したPrefix文字を付加する'], + g => ['アーカイブ制限', + '送信者が未登録の場合アーカイブのアクセスを拒否する'], + h => ['登録確認をしない', + 'メールによる登録時に確認メールを送らない'], + i => ['インデックス作成', + 'WWW アーカイブアクセス用インデックスの作成'], + j => ['登録解除確認をしない', + 'メールによる登録解除時に確認メールを送らない'], + k => ['拒否リスト有効', + '拒否リストに登録されたアドレスを拒否する'], + l => ['登録者リスト取出', + '遠隔管理者に登録者リストを送る'], + m => ['投稿の審査', + '全ての投稿メッセージを審査する'], + n => ['テキスト編集', + '遠隔管理者にテキスト編集を許可する'], + o => ['モデレータのみ投稿可', + 'モデレータ以外の投稿を拒否する'], + p => ['公開する', + 'メールによる登録、登録解除などを有効にする'], + q => ['リクエスト形式有効', + 'local-request@host のメールを処理する'], + r => ['遠隔管理', + '遠隔管理を有効にする'], + s => ['登録の審査', + '登録を審査する'], + t => ['Trailerを付加する', + 'メッセージの末尾にTrailerを付加する'], + u => ['登録者のみ投稿可', + '登録者の投稿のみを受け付ける'], +# v => version. I doubt you will really need this ;-) + w => ['警告を出さない', + 'ezmlm-warn(1) の挙動を抑止する'], + x => ['指定mime typeの削除', + '指定したmime typeの貼付ファイルを削除する'], +# y => not used +# z => not used + +# These all take an extra argument, which is the default value to use + + 0 => ['サブリストにする', + '指定したメインリストのサブリストにする', + 'mainlist@host'], +# 1 => not used +# 2 => not used + 3 => ['送信者アドレス固定', + '指定した Fromアドレスに固定する', + 'fromarg'], + 4 => ['ダイジェストオプション', + 'ezmlm-tstdig(1) のオプションを指定する', + '-t24 -m30 -k64'], + 5 => ['オーナーアドレス', + 'リストオーナーのアドレスを指定する', + ''], + 6 => ['SQLデータベース', + 'SQLデータベースへの接続情報', + 'host:port:user:password:datab:table'], + 7 => ['メッセージモデレータのデータベース', + 'メッセージモデレータのデータベースへのフルパス', + '/some/full/path'], + 8 => ['登録モデレータのデータベース', + '登録モデレータのデータベースへのフルパス', + '/some/full/path'], + 9 => ['遠隔管理者データベース', + '遠隔管理者のデータベースへのフルパス', + '/some/full/path'] + +); + +# This list defines most of the context sensitive help in ezmlm-web. What +# isn't defined here is the options, which are defined above ... You can +# alter these if you feel something else would make more sense to your users +# Just be careful of what can fit on a screen! + +%HELPER = ( + + # These should be self explainitory + addaddress => 'RFC822 に準拠したメールアドレスを入れます 例; J Random User ', + addaddressfile => 'または RFC822 に準拠したアドレスを、１行毎に含むテキストファイルを選択します', + moderator => 'モデレータ: 登録や投稿を審査する人のリスト', + deny => '拒絶リスト: メーリングリストへの参加を拒絶する人のリスト', + allow => '許可リスト: メーリングリストへの参加を特に許可する人のリスト', + digest => 'ダイジェストリスト: 全てのメッセージのダイジェストの受け取りを許可された人のリスト', + webarch => 'ウェブベースのアーカイブリストの閲覧', + config => 'メーリングリストの設定の変更', + listname => 'リスト選択時に表示される名前.また、実際に作成されるサブディレクトリの名前.', + listadd => 'メーリングリストの投稿に使用されるアドレス.特殊な場合を除き、- 以前は変更削除しないこと', + webusers => 'NB! 現在は、ここで指定できるユーザーは実在のユーザーに限る. ユーザーの追加は将来の追加課題', + prefix => '件名の先頭に付加される文字列 #で、メッセージ番号がつきます', + headerremove => 'メッセージから取り除くヘッダーを指定する', + headeradd => 'メッセージに追加するヘッダーを指定する', + mimeremove => '指定した mime type の貼付ファイルをメッセージから削除する', + allowedit => 'ユーザー名のカンマ区切りリストまたは、ALL (有効な全てのユーザー)', + mysqlcreate => 'MySQLに必要なテーブルを作成する' + +); + +# This defines the captions of each of the buttons in ezmlm-web, and allows +# you to configure them for your own language or taste. Since these are used +# by the switching algorithm it is important that every button has a unique +# caption - ie we can't have two 'Edit' buttons doing different things. + +%BUTTON = ( + + # These MUST all be unique! + create => '作成', + createlist => 'リスト作成', + edit => '編集', + delete => '削除', + deleteaddress => 'アドレス削除', + addaddress => 'アドレス追加', + moderators => 'モデレータ', + denylist => '拒絶リスト', + allowlist => '許可リスト', + digestsubscribers => 'ダイジェスト登録者', + configuration => '設定', + yes => 'はい', + no => 'いいえ', + updateconfiguration => '設定更新', + edittexts => 'テキスト編集', + editfile => 'ファイル編集', + savefile => 'ファイル保存', + webarchive => 'ウェブアーカイブ', + selectlist => 'リスト選択', + subscribers => '登録者編集', + cancel => 'キャンセル', + resetform => 'リセット', + +); + +# This defines the fixed text strings that are used in ezmlm-web. By editing +# these along with the button labels and help texts, you can convert ezmlm-web +# to another language :-) If anyone gets arround to doing complete templates +# for other languages I would appreciate a copy so that I can include it in +# future releases of ezmlm-web. + +%LANGUAGE = ( + nop => 'Action not yet implemented', + chooselistinfo => "
  • メーリングリストを選択するか、または、 [$BUTTON{'create'}] ボタンを押して作成してください.
  • 変更する場合は、選択して、 [$BUTTON{'edit'}] ボタンを押してください.
  • 削除する場合は、選択して、 [$BUTTON{'delete'}] ボタンを押してください.
", + confirmdelete => '削除確認', # list name + subscribersto => '登録者編集', # list name + subscribers => '登録者', + additionalparts => 'リスト付加情報', + posting => '投稿', + subscription => '登録', + remoteadmin => '遠隔管理', + for => 'for', # as in; moderators for blahlist + createnew => '新規リスト作成', + listname => 'リスト名', + listaddress => 'リストアドレス', + listoptions => 'リストオプション', + allowedtoedit => 'リスト編集許可者', + editconfiguration => 'リスト設定編集', + prefix => '件名に付加する文字 prefix', + headerremove => '削除するヘッダー情報', + headeradd => '追加するヘッダー情報', + mimeremove => '削除する貼付ファイルのmime type', + edittextinfo => "左側にある一覧は、DIR/text の中にあるテキストファイルです.
これらのファイルは、ユーザーのリクエストに対する返信内容,または、配信されるメールに付加される内容です.

このファイルを編集するには, 左の一覧から選択して、 [$BUTTON{'editfile'}] ボタンを押します.

終了または、中止するときは、[$BUTTON{'cancel'}] ボタンを押します.", + editingfile => 'ファイル編集', + editfileinfo => 'マネージ用
<#l#> リスト名
<#A#> 投稿者アドレス
<#R#> 投稿者が返信するアドレス

メッセージ埋め込み用
<#l#> リスト名
<#A#> 受け取りアドレス
<#R#> 拒絶アドレス', + mysqlcreate => '必要ならば MySQL データベースを作成', + +); + +# === Configuration file ends === diff --git a/ezmlm-web-3.0.2/scripts/check_languages.sh b/ezmlm-web-3.0.2/scripts/check_languages.sh new file mode 100755 index 0000000..502dbe9 --- /dev/null +++ b/ezmlm-web-3.0.2/scripts/check_languages.sh @@ -0,0 +1,26 @@ +#!/bin/sh +# +# compare the defined fields of a language file with the english translation +# +# nice for finding unavailable definitions +# +# Parameter: LANGUAGE +# (e.g. "de") +# + +set -u + +LANG_DIR=$(dirname $0)/../lang +DEFAULT_LANG=en +TMP_FILE1=/tmp/$(basename $0)-$$-1 +TMP_FILE2=/tmp/$(basename $0)-$$-2 + +[ $# -ne 1 ] && echo -e "Syntax: $(basename $0) LANGUAGE\n" >&2 && exit 1 + +grep "=" "$LANG_DIR/${DEFAULT_LANG}.hdf" | grep -v "^[[:space:]]*#" | cut -f 1 -d "=" >"$TMP_FILE1" +grep "=" "$LANG_DIR/${1}.hdf" | grep -v "^[[:space:]]*#" | cut -f 1 -d "=" >"$TMP_FILE2" + +diff -wu "$TMP_FILE1" "$TMP_FILE2" + +rm "$TMP_FILE1" "$TMP_FILE2" + diff --git a/ezmlm-web-3.0.2/scripts/debian.sh b/ezmlm-web-3.0.2/scripts/debian.sh new file mode 100755 index 0000000..96dd2e4 --- /dev/null +++ b/ezmlm-web-3.0.2/scripts/debian.sh @@ -0,0 +1,76 @@ +#!/bin/sh +# +# Copyright (c) 02005 Lars Kruse +# +# License: This script is distributed under the terms of +# the BSD license +# +# build a debian package +# + +set -ue + +######### some settings ########### +ROOT_DIR=$(dirname "$0")/.. +ROOT_DIR=$(cd "$ROOT_DIR"; pwd) + +BUILD_DIR=/tmp/ezmlm-web-build-$$ + +PACKAGE_DIR=$ROOT_DIR/../tags/packages +[ ! -e "$PACKAGE_DIR" ] && PACKAGE_DIR=$ROOT_DIR/../packages +[ ! -e "$PACKAGE_DIR" ] && echo "package dir not found" >&2 && exit 1 + +############# do it ############### + +[ -e "$BUILD_DIR" ] && rm -rf "$BUILD_DIR" + +ACTION=build +[ $# -gt 0 ] && ACTION=$1 && shift + +case "$ACTION" in + build ) + mkdir -p "$BUILD_DIR/usr/share/ezmlm-web" + mkdir -p "$BUILD_DIR/usr/lib/ezmlm-web" + mkdir -p "$BUILD_DIR/usr/bin" + mkdir -p "$BUILD_DIR/usr/share/man/man1" + mkdir -p "$BUILD_DIR/usr/share/doc/ezmlm-web/examples" + mkdir -p "$BUILD_DIR/etc/ezmlm-web" + mkdir -p "$BUILD_DIR/var/www" + svn export "$ROOT_DIR/template" "$BUILD_DIR/usr/share/ezmlm-web/template" >/dev/null + svn export "$ROOT_DIR/css" "$BUILD_DIR/usr/share/ezmlm-web/css" >/dev/null + ln -s /usr/share/ezmlm-web/css/default.css "$BUILD_DIR/var/www/ezmlm-web.css" + svn export "$ROOT_DIR/lang" "$BUILD_DIR/usr/share/ezmlm-web/lang" >/dev/null + cp "$ROOT_DIR/ezmlm-web.cgi" "$BUILD_DIR/usr/lib/ezmlm-web/ezmlm-web.pl" + cp "$ROOT_DIR/debian-related/index.c" "$BUILD_DIR/usr/share/ezmlm-web" + cp "$ROOT_DIR/htaccess.sample" "$BUILD_DIR/usr/share/doc/ezmlm-web/examples" + cp "$ROOT_DIR/webusers.sample" "$BUILD_DIR/usr/share/doc/ezmlm-web/examples" + sed 's#/usr/local/#/usr/#g' "$ROOT_DIR/ezmlmwebrc" | tee "$BUILD_DIR/usr/share/doc/ezmlm-web/examples/ezmlmwebrc" >"$BUILD_DIR/etc/ezmlm-web/ezmlmwebrc" + cp "$ROOT_DIR/README" "$BUILD_DIR/usr/share/doc/ezmlm-web" + cp "$ROOT_DIR/TODO" "$BUILD_DIR/usr/share/doc/ezmlm-web" + cp "$ROOT_DIR/UPGRADING" "$BUILD_DIR/usr/share/doc/ezmlm-web" + cp "$ROOT_DIR/copyright" "$BUILD_DIR/usr/share/doc/ezmlm-web" + cp "$ROOT_DIR/debian-related/README.Debian" "$BUILD_DIR/usr/share/doc/ezmlm-web" + cp "$ROOT_DIR/debian-related/ezmlm-web-make-suid" "$BUILD_DIR/usr/bin" + gzip --best -c "$ROOT_DIR/changelog" \ + >"$BUILD_DIR/usr/share/doc/ezmlm-web/changelog.gz" + gzip --best -c "$ROOT_DIR/debian-related/changelog.Debian" \ + >"$BUILD_DIR/usr/share/doc/ezmlm-web/changelog.Debian.gz" + gzip --best -c "$ROOT_DIR/debian-related/man/ezmlm-web-make-suid.1" \ + >"$BUILD_DIR/usr/share/man/man1/ezmlm-web-make-suid.1.gz" + svn export "$ROOT_DIR/debian-related/DEBIAN" "$BUILD_DIR/DEBIAN" >/dev/null + fakeroot dpkg-deb --build "$BUILD_DIR" "$PACKAGE_DIR" + rm -rf "$BUILD_DIR" + ;; + check ) + PACKAGE_FILE=$(find "$PACKAGE_DIR" -type f -name "ezmlm-web*" | grep "\.deb$" | sort -n | tail -1) + if [ -z "$PACKAGE_FILE" ] + then echo "no debian package found in $PACKAGE_DIR" + else lintian "$PACKAGE_FILE" + fi + ;; + * ) + echo "Syntax: $(basename $0) [ build | check | help ]" + echo + ;; + esac + diff --git a/ezmlm-web-3.0.2/spec/actions-spec.txt b/ezmlm-web-3.0.2/spec/actions-spec.txt new file mode 100644 index 0000000..f5066c9 --- /dev/null +++ b/ezmlm-web-3.0.2/spec/actions-spec.txt @@ -0,0 +1,40 @@ +subscribers + list + [part] +address_add + list + [part] + [mailaddress_add] + [mailaddressfile] +address_del + list + [part] + mailaddress_del +list_select +list_delete_ask + list +list_delete_do + list +list_create_ask +list_create_do + list + inlocal + inhost + [options] + [sql] +config_ask + list + [config_subset] +config_do + list + [config_subset] + [options] +textfiles + list +textfile_edit + list + file +textfile_save + list + file + content diff --git a/ezmlm-web-3.0.2/spec/hdf-spec.txt b/ezmlm-web-3.0.2/spec/hdf-spec.txt new file mode 100644 index 0000000..fc2f4e6 --- /dev/null +++ b/ezmlm-web-3.0.2/spec/hdf-spec.txt @@ -0,0 +1,47 @@ +ScriptName +TemplateDir +LanguageDir +Stylesheet +HelpIconURL +Config.Title + +Data.Action +Data.ErrorMessage +Data.List.Address +Data.List.File.Name +Data.List.File.Content +Data.List.Files.* +Data.List.hasAllowList +Data.List.hasDenyList +Data.List.hasDigestList +Data.List.hasPostMod +Data.List.hasRemoteAdmin +Data.List.hasSubMod +Data.List.HeaderAdd +Data.List.HeaderRemove +Data.List.MimeRemove +Data.List.MimeReject +Data.List.MsgSize.Max +Data.List.MsgSize.Min +Data.List.Name +Data.List.PartType +Data.List.PostModPath +Data.List.Options +Data.List.Options.[0-9] +Data.List.Prefix +Data.List.RemoteAdminPath +Data.List.Settings.[0-9].value +Data.List.Settings.[0-9].state +Data.List.SubModPath +Data.List.Subscribers.* +Data.List.TrailingText +Data.List.WebUsers +Data.Lists.[0-9]+ +Data.ListsCount +Data.HostName +Data.Modules.MySQL +Data.Permissions.Create +Data.Permissions.FileUpload +Data.UserName +Data.WebUser.show +Data.WebUser.UserName diff --git a/ezmlm-web-3.0.2/template/config_admin.cs b/ezmlm-web-3.0.2/template/config_admin.cs new file mode 100644 index 0000000..4827808 --- /dev/null +++ b/ezmlm-web-3.0.2/template/config_admin.cs @@ -0,0 +1,39 @@ +

+

+
+ +
+

+
+ +
+ + +
+ + +
    + + +
  • +
      + +
      • + + +
      • + + +
      • +
    • + +
  • + + + +
    • +
+ +
+
+ diff --git a/ezmlm-web-3.0.2/template/config_all.cs b/ezmlm-web-3.0.2/template/config_all.cs new file mode 100644 index 0000000..938950d --- /dev/null +++ b/ezmlm-web-3.0.2/template/config_all.cs @@ -0,0 +1,163 @@ +
+

+
+ +
+

+
+ +
+ + +
+ + +
    + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + +
    • + + + +
    • + + +
    • + + +
    • + + +
    • + + +
  • +
    • +
    • + + +
  • + + +
      • +
    • + + +
  • 0 ?>checked="checked" /> + +
    • +
  • 0 ?>checked="checked" /> + +
    • + + +
  • +
      + +
    • :
      +
      • +
    • :
      +
      • +
    • + + +
  • :
    +
    • + + +
  • :
    +
    • + + + +
  • +

    • +
    • + +
  • + + + +
    • +
+ +
+
+ diff --git a/ezmlm-web-3.0.2/template/config_archive.cs b/ezmlm-web-3.0.2/template/config_archive.cs new file mode 100644 index 0000000..4cc588b --- /dev/null +++ b/ezmlm-web-3.0.2/template/config_archive.cs @@ -0,0 +1,42 @@ +
+

+
+ +
+

+
+ +
+ + +
+ + +
    + + +
  • +
      + +
      • + + +
      • + + +
      • +
    • + + +
    • + +
  • + + + +
    • +
+ +
+
+ diff --git a/ezmlm-web-3.0.2/template/config_main.cs b/ezmlm-web-3.0.2/template/config_main.cs new file mode 100644 index 0000000..af700f3 --- /dev/null +++ b/ezmlm-web-3.0.2/template/config_main.cs @@ -0,0 +1,50 @@ +
+

+
+ +
+

+
+ +
+ + +
+ + +
    + + +
    • + + +
    • + + +
    • + + +
    • + + + +
    • + + + +
  • +

    • +
    • + +
  • + + + +
    • +
+ +
+ +
diff --git a/ezmlm-web-3.0.2/template/config_posting.cs b/ezmlm-web-3.0.2/template/config_posting.cs new file mode 100644 index 0000000..b57740b --- /dev/null +++ b/ezmlm-web-3.0.2/template/config_posting.cs @@ -0,0 +1,73 @@ +
+

+
+ +
+

+
+ +
+ + +
+ + +
    + + +
    • + + +
    • + + +
    • + + +
  • +
      + +
      • + + +
      • +
    • + + +
  • 0 ?>checked="checked" /> + +
    • +
  • 0 ?>checked="checked" /> + +
    • + + +
  • +
      + +
    • :
      +
      • +
    • + +
  • + + + +
    • +
+ +
+ +
diff --git a/ezmlm-web-3.0.2/template/config_processing.cs b/ezmlm-web-3.0.2/template/config_processing.cs new file mode 100644 index 0000000..a888187 --- /dev/null +++ b/ezmlm-web-3.0.2/template/config_processing.cs @@ -0,0 +1,65 @@ +
+

+
+ +
+

+
+ +
+ + +
+ + +
    + + +
  • +
    • +
    • + + +
  • + + +
      • +
    • + + +
    • + + +
  • +
      + +
    • :
      +
      • +
    • + + +
  • :
    +
    • + + +
  • :
    +
    • + +
  • + + + +
    • + +
+
+
+ + diff --git a/ezmlm-web-3.0.2/template/config_subscription.cs b/ezmlm-web-3.0.2/template/config_subscription.cs new file mode 100644 index 0000000..9527f83 --- /dev/null +++ b/ezmlm-web-3.0.2/template/config_subscription.cs @@ -0,0 +1,42 @@ +
+

+
+ +
+

+
+ +
+ + +
+ + +
    + + +
    • + + +
    • + + +
    • + + +
  • +
      + +
      • +
    • + +
  • + + + +
    • +
+ +
+ +
diff --git a/ezmlm-web-3.0.2/template/footer.cs b/ezmlm-web-3.0.2/template/footer.cs new file mode 100644 index 0000000..9f93044 --- /dev/null +++ b/ezmlm-web-3.0.2/template/footer.cs @@ -0,0 +1,8 @@ + + + + + diff --git a/ezmlm-web-3.0.2/template/form_common.cs b/ezmlm-web-3.0.2/template/form_common.cs new file mode 100644 index 0000000..8b633bc --- /dev/null +++ b/ezmlm-web-3.0.2/template/form_common.cs @@ -0,0 +1,9 @@ + + + + + + + + + diff --git a/ezmlm-web-3.0.2/template/header.cs b/ezmlm-web-3.0.2/template/header.cs new file mode 100644 index 0000000..9c5c0b4 --- /dev/null +++ b/ezmlm-web-3.0.2/template/header.cs @@ -0,0 +1,25 @@ + + + + + + <?cs var:Config.PageTitle ?> + + + + + + + + + + +
+
+ +
+

ezmlm-web

+
+ diff --git a/ezmlm-web-3.0.2/template/help_tag_substitution.cs b/ezmlm-web-3.0.2/template/help_tag_substitution.cs new file mode 100644 index 0000000..4ebd095 --- /dev/null +++ b/ezmlm-web-3.0.2/template/help_tag_substitution.cs @@ -0,0 +1,21 @@ +
+ + +
    +
    • +
    • <#l#>
      • +
    • <#h#>
      • +
    • <#n#>
      • +
    • +
  • ezmlm-manage
      +
    • <#A#>
      • +
    • <#R#>
      • +
    • +
  • ezmlm-store
      +
    • <#A#>
      • +
    • <#R#>
      • +
    • +
+ +
+ diff --git a/ezmlm-web-3.0.2/template/list_create.cs b/ezmlm-web-3.0.2/template/list_create.cs new file mode 100644 index 0000000..56c7281 --- /dev/null +++ b/ezmlm-web-3.0.2/template/list_create.cs @@ -0,0 +1,40 @@ +
+

+
+ +
+ + +
+
    +
  • +
    • + +
  • + @
    • + + + +
    • + + + +
  • +
    • + + +
+ + + + + + +
+ +
diff --git a/ezmlm-web-3.0.2/template/list_delete.cs b/ezmlm-web-3.0.2/template/list_delete.cs new file mode 100644 index 0000000..a8b0773 --- /dev/null +++ b/ezmlm-web-3.0.2/template/list_delete.cs @@ -0,0 +1,20 @@ +
+

""

+
+ +
+

+
+ +
+ + +

+
+ + + + +
+ +
diff --git a/ezmlm-web-3.0.2/template/list_select.cs b/ezmlm-web-3.0.2/template/list_select.cs new file mode 100644 index 0000000..e765f83 --- /dev/null +++ b/ezmlm-web-3.0.2/template/list_select.cs @@ -0,0 +1,39 @@ +
+

+
+ +
+ + + + + + + + 0 ?> + + + + 0 ?> + + + + + + + + + +
+ + +
+ +

+ + +
+ diff --git a/ezmlm-web-3.0.2/template/macros.cs b/ezmlm-web-3.0.2/template/macros.cs new file mode 100644 index 0000000..dbd5c0e --- /dev/null +++ b/ezmlm-web-3.0.2/template/macros.cs @@ -0,0 +1,53 @@ +checked="checked" /> + unknown option () + +checked="checked" /> + +
unknown setting () + +
+ unknown warning message () +
+ +
+ unknown error message () +
+ +
+ unknown success message () +
+ + limit ?>... diff --git a/ezmlm-web-3.0.2/template/main.cs b/ezmlm-web-3.0.2/template/main.cs new file mode 100644 index 0000000..ecba2c6 --- /dev/null +++ b/ezmlm-web-3.0.2/template/main.cs @@ -0,0 +1,21 @@ + + + + + + + + +
+
-
+ + + + + + +
+ + + diff --git a/ezmlm-web-3.0.2/template/modpath_info.cs b/ezmlm-web-3.0.2/template/modpath_info.cs new file mode 100644 index 0000000..a96cbcc --- /dev/null +++ b/ezmlm-web-3.0.2/template/modpath_info.cs @@ -0,0 +1,20 @@ + + +
+ ().
+
+ + + + +
+ ().
+
+ + + + +
+ ().
+
+ diff --git a/ezmlm-web-3.0.2/template/nav.cs b/ezmlm-web-3.0.2/template/nav.cs new file mode 100644 index 0000000..2264db3 --- /dev/null +++ b/ezmlm-web-3.0.2/template/nav.cs @@ -0,0 +1,73 @@ + + + + diff --git a/ezmlm-web-3.0.2/template/subscribers.cs b/ezmlm-web-3.0.2/template/subscribers.cs new file mode 100644 index 0000000..7b3c705 --- /dev/null +++ b/ezmlm-web-3.0.2/template/subscribers.cs @@ -0,0 +1,135 @@ +
+

+ + + + + + +

+
+ +
+

+ + + + + + +

+
+ + + + + + + + + +
+ + +
+ + + +
    + +
    • +
    • + +
    • + +
    • +
    • + + +
  • + + + + + +
    • +
+
+
+ + + + + + +
+ + + + + + + + + + + 0 ?> + + + + +
+ + + + + +
    + + + 15 ?> + + + + +
    • +
    • +
  • +
    • +
+ + + + + +
    + +
  • +
      • +
    • + +
  • +
      • +
    • + + +
  • +
    • +
+
+
+ +
+ + + diff --git a/ezmlm-web-3.0.2/template/textfile_edit.cs b/ezmlm-web-3.0.2/template/textfile_edit.cs new file mode 100644 index 0000000..2e183e2 --- /dev/null +++ b/ezmlm-web-3.0.2/template/textfile_edit.cs @@ -0,0 +1,25 @@ +
+

""

+
+ +
+ +
+ +
+ + +
+ + + +

+ + + +
+ +
+ + diff --git a/ezmlm-web-3.0.2/template/textfiles.cs b/ezmlm-web-3.0.2/template/textfiles.cs new file mode 100644 index 0000000..255fb0d --- /dev/null +++ b/ezmlm-web-3.0.2/template/textfiles.cs @@ -0,0 +1,39 @@ +
+

+
+ +
+ +
+ +
+ + +
+ + +
    + 0 ?> + + + 15 ?> + + + + +
    • + +
    • + + +
  • +
    • +
+ +
+
+ diff --git a/ezmlm-web-3.0.2/webusers.sample b/ezmlm-web-3.0.2/webusers.sample new file mode 100644 index 0000000..268caa8 --- /dev/null +++ b/ezmlm-web-3.0.2/webusers.sample @@ -0,0 +1,5 @@ +comm: guy arb +users: arb +members: ALL +ALL: root +ALLOW_CREATE: root guy diff --git a/packages/ezmlm-web-3.0.1.tar.gz b/packages/ezmlm-web-3.0.1.tar.gz index d49f88b..832077c 100644 Binary files a/packages/ezmlm-web-3.0.1.tar.gz and b/packages/ezmlm-web-3.0.1.tar.gz differ diff --git a/packages/ezmlm-web-3.0.2.tar.gz b/packages/ezmlm-web-3.0.2.tar.gz new file mode 100644 index 0000000..617c6c7 Binary files /dev/null and b/packages/ezmlm-web-3.0.2.tar.gz differ diff --git a/packages/ezmlm-web_3.0-1_all.deb b/packages/ezmlm-web_3.0-1_all.deb index 1514c2a..9849fdc 100644 Binary files a/packages/ezmlm-web_3.0-1_all.deb and b/packages/ezmlm-web_3.0-1_all.deb differ diff --git a/packages/ezmlm-web_3.0-2_all.deb b/packages/ezmlm-web_3.0-2_all.deb new file mode 100644 index 0000000..f1ce9b5 Binary files /dev/null and b/packages/ezmlm-web_3.0-2_all.deb differ