# HG changeset patch
# User mmj
# Date 1110804296 -39600
# Node ID cdcf8c322176dc3736fdadb830cb1690592905ba
# Parent  acc8ac4bc040b770b12565952f0438cf2a7ce424
Perl webinterface updates

diff -r acc8ac4bc040 -r cdcf8c322176 contrib/web/perl-admin/conf/tunables.pl
--- 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.");
diff -r acc8ac4bc040 -r cdcf8c322176 contrib/web/perl-admin/htdocs/save.cgi
--- 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;
diff -r acc8ac4bc040 -r cdcf8c322176 contrib/web/php-admin/conf/tunables.php
--- 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 ".