Mercurial > hg > mlmmj
changeset 471:cdcf8c322176
Perl webinterface updates
| author | mmj |
|---|---|
| date | Mon, 14 Mar 2005 23:44:56 +1100 |
| parents | acc8ac4bc040 |
| children | cbf2fb510dbe |
| files | contrib/web/perl-admin/conf/tunables.pl contrib/web/perl-admin/htdocs/save.cgi contrib/web/php-admin/conf/tunables.php |
| diffstat | 3 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/contrib/web/perl-admin/conf/tunables.pl Wed Feb 23 00:49:33 2005 +1100 +++ b/contrib/web/perl-admin/conf/tunables.pl Mon Mar 14 23:44:56 2005 +1100 @@ -70,6 +70,10 @@ "The host specified (IP address or domainname, both works) in this file will be used for relaying the mail sent to the list. ". "Defaults to 127.0.0.1."); +mlmmj_string("smtpport", + "SMTP port", + "In this file a port other than port 25 for connecting to the relayhost can be specified."); + mlmmj_boolean("notifysub", "Notify subscribers", "If this option is set, the owner(s) will get a mail with the address of someone sub/unsubscribing to a mailinglist.");
--- a/contrib/web/perl-admin/htdocs/save.cgi Wed Feb 23 00:49:33 2005 +1100 +++ b/contrib/web/perl-admin/htdocs/save.cgi Mon Mar 14 23:44:56 2005 +1100 @@ -89,6 +89,7 @@ if (defined $value && $value !~ /^\s*$/) { $value .= "\n" if $value !~ /\n$/; + $value =~ s/\s*\r?\n/\n/g; open (FILE, ">$file") or die "Couldn't open $file for writing: $!"; print FILE $value; close FILE;
--- a/contrib/web/php-admin/conf/tunables.php Wed Feb 23 00:49:33 2005 +1100 +++ b/contrib/web/php-admin/conf/tunables.php Mon Mar 14 23:44:56 2005 +1100 @@ -79,6 +79,11 @@ "this file will be used for relaying the mail sent to the list. ". "Defaults to 127.0.0.1."); +mlmmj_string("smtpport", + "SMTP port", + "In this file a port other than port 25 for connecting to the ". + "relayhost can be specified."); + mlmmj_boolean("notifysub", "Notify subscribers", "If this option is set, the owner(s) will get a mail with the ".