[people/pmueller/ipfire-2.x.git] / html / cgi-bin / mail.cgi

#!/usr/bin/perl
###############################################################################
#                                                                             #
# IPFire.org - A linux based firewall                                         #
# Copyright (C) 2007-2020  IPFire Team  <info@ipfire.org>                     #
#                                                                             #
# This program is free software: you can redistribute it and/or modify        #
# it under the terms of the GNU General Public License as published by        #
# the Free Software Foundation, either version 3 of the License, or           #
# (at your option) any later version.                                         #
#                                                                             #
# This program is distributed in the hope that it will be useful,             #
# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
# GNU General Public License for more details.                                #
#                                                                             #
# You should have received a copy of the GNU General Public License           #
# along with this program.  If not, see <http://www.gnu.org/licenses/>.       #
#                                                                             #
###############################################################################
 
use MIME::Lite;
 
#enable only the following on debugging purpose
#use warnings;
#use CGI::Carp 'fatalsToBrowser';

require '/var/ipfire/general-functions.pl';
require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";

#Initialize variables and hashes
my $dmafile="${General::swroot}/dma/dma.conf";
my $authfile="${General::swroot}/dma/auth.conf";
my $mailfile="${General::swroot}/dma/mail.conf";
my %dma=();
my %auth=();
my %mail=();
my %mainsettings=();
my %cgiparams=();
my $errormessage='';

#Read all parameters for site
&Header::getcgihash(\%cgiparams);
&General::readhash("${General::swroot}/main/settings", \%mainsettings);
&General::readhash("/srv/web/ipfire/html/themes/ipfire/include/colors.txt", \%color);

#Show Headers
&Header::showhttpheaders();

#Check configfiles
if ( -f $dmafile){
	open (FILE, "<", $dmafile) or die $!;
	foreach my $line (<FILE>) {
		$line =~ m/^([A-Z]+)\s+?(.*)?$/;
		my $key = $1;
		my $val = $2;
		$dma{$key}=$val;
	}
}else{
	open(FILE, ">$dmafile") or die $!;
}
close FILE;

if (exists $dma{'AUTHPATH'}){
	open (FILE, "<", $dma{'AUTHPATH'}) or die "$dma{'AUTHPATH'} nicht gefunden $! ";
	my $authline;
	foreach my $line (<FILE>) {
		$authline = $line;
	}
	my @part1 = split(/\|/,$authline);
	my @part2 = split(/\:/,$part1[1]);
	$auth{'AUTHNAME'} = $part1[0];
	$auth{'AUTHHOST'} = $part2[0];
	$auth{'AUTHPASS'} = $part2[1];
}

if ( -f $mailfile){
	&General::readhash($mailfile, \%mail);
}

#ACTIONS
if ($cgiparams{'ACTION'} eq "$Lang::tr{'save'}"){ #SaveButton on configsite
	# Check fields
	$errormessage = &checkmailsettings();

	if (!$errormessage) {
		#clear hashes
		%auth=();
		%dma=();
		%mail=();

		#clear configfiles
		open (TXT, ">$dmafile") or die("Could not open /var/ipfire/dma/dma.conf: $!\n");
		open (TXT1, ">$authfile") or die("Could not open /var/ipfire/dma/auth.conf: $!\n");
		open (TXT2, ">$mailfile") or die("Could not open /var/ipfire/dma/mail.conf: $!\n");
		close TXT2;

		#Fill hashes with actual values
		$mail{'USEMAIL'}		= $cgiparams{'USEMAIL'};
		$mail{'SENDER'} 		= $cgiparams{'txt_mailsender'};
		$mail{'RECIPIENT'}		= $cgiparams{'txt_recipient'};

		if ($cgiparams{'txt_mailuser'} && $cgiparams{'txt_mailpass'}) {
			$auth{'AUTHNAME'}		= $cgiparams{'txt_mailuser'};
			$auth{'AUTHPASS'}		= $cgiparams{'txt_mailpass'};
			$auth{'AUTHHOST'}		= $cgiparams{'txt_mailserver'};
			print TXT1 "$auth{'AUTHNAME'}|$auth{'AUTHHOST'}:$auth{'AUTHPASS'}\n";
		}

		$dma{'SMARTHOST'}		= $cgiparams{'txt_mailserver'};
		$dma{'PORT'}			= $cgiparams{'txt_mailport'};
		$dma{'STARTTLS'}		= '' if ($cgiparams{'mail_tls'} eq 'explicit');
		$dma{'SECURETRANSFER'}	= '' if ($cgiparams{'mail_tls'} eq 'explicit' || $cgiparams{'mail_tls'} eq 'implicit');
		$dma{'SPOOLDIR'}		= "/var/spool/dma";
		$dma{'FULLBOUNCE'}		= '';
		$dma{'MAILNAME'}		= "$mainsettings{'HOSTNAME'}.$mainsettings{DOMAINNAME}";
		$dma{'AUTHPATH'}		= "$authfile" if exists $auth{'AUTHNAME'};

		#Create new configfiles
		&General::writehash("$mailfile", \%mail);
		while ( ($k,$v) = each %dma ) {
			print TXT "$k $v\n";
		}
		close TXT;
		close TXT1;
		close TXT2;

	}else{
		$cgiparams{'update'}='on';
		&configsite;
	}
}
if ($cgiparams{'ACTION'} eq "$Lang::tr{'email testmail'}"){ #Testmail button on configsite
	&testmail;
}

#Show site
&configsite;

#FUNCTIONS
sub configsite{
	#If update set fieldvalues new
	if($cgiparams{'update'} eq 'on'){
		$mail{'USEMAIL'}	= 'on';
		$mail{'SENDER'} 	=  $cgiparams{'txt_mailsender'};
		$mail{'RECIPIENT'}	=  $cgiparams{'txt_recipient'};
		$dma{'SMARTHOST'} 	= $cgiparams{'txt_mailserver'};
		$dma{'PORT'} 		= $cgiparams{'txt_mailport'};
		$auth{'AUTHNAME'} 	= $cgiparams{'txt_mailuser'};
		$auth{'AUTHHOST'}	= $cgiparams{'txt_mailserver'};
		$auth{'AUTHPASS'} 	= $cgiparams{'txt_mailpass'};
		$dma{'STARTTLS'}	= $cgiparams{'mail_tls'};
	}
	#find preselections
	$checked{'usemail'}{$mail{'USEMAIL'}}	= 'CHECKED';
	$selected{'mail_tls'}{'explicit'} = 'selected' if exists $dma{'STARTTLS'};
	$selected{'mail_tls'}{'implicit'} = 'selected' if (exists $dma{'SECURETRANSFER'}) and (not exists $dma{'STARTTLS'});
	$selected{'mail_tls'}{'disabled'} = 'selected' if (not exists $dma{'SECURETRANSFER'}) and (not exists $dma{'STARTTLS'});
	
	#Open site
	&Header::openpage($Lang::tr{'email settings'}, 1, '');
	&Header::openbigbox('100%', 'center');
	&error;
	&info;
	&Header::openbox('100%', 'left', $Lang::tr{'email config'});
	
	#### JAVA SCRIPT ####
	print<<END;
<script>
	\$(document).ready(function() {
		// Show/Hide elements when USEMAIL checkbox is checked.
		if (\$("#MAIL").attr("checked")) {
			\$(".MAILSRV").show();
		} else {
			\$(".MAILSRV").hide();
		}

		// Toggle MAIL elements when "USEMAIL" checkbox is clicked
		\$("#MAIL").change(function() {
			\$(".MAILSRV").toggle();
		});
	});
</script>
END
	##### JAVA SCRIPT END ####
	my $col="style='background-color:$color{'color22'}'";
	print<<END;
	<form method='post' action='$ENV{'SCRIPT_NAME'}'>
	<table style='width:100%' border='0'>
	<tr>
		<th colspan='3'></th>
	</tr>
	<tr>
		<td style='width:24em'>$Lang::tr{'email usemail'}</td>
		<td><label><input type='checkbox' name='USEMAIL' id='MAIL' $checked{'usemail'}{'on'}></label></td>
		<td></td>
	</tr>
	</table><br>

	<div class="MAILSRV">
		<table style='width:100%;'>
		<tr>
			<td>$Lang::tr{'email mailsender'}<img src='/blob.gif' alt='*' /></td>
			<td><input type='text' name='txt_mailsender' value='$mail{'SENDER'}' style='width:22em;'></td>
		</tr>
		<tr>
			<td>$Lang::tr{'email mailrcpt'}<img src='/blob.gif' alt='*' /></td>
			<td><input type='text' name='txt_recipient' value='$mail{'RECIPIENT'}' style='width:22em;'></td>
		</tr>
		<tr>
			<td style='width:24em'>$Lang::tr{'email mailaddr'}<img src='/blob.gif' alt='*' /></td>
			<td><input type='text' name='txt_mailserver' value='$dma{'SMARTHOST'}' style='width:22em;'></td>
		</tr>
		<tr>
			<td>$Lang::tr{'email mailport'}<img src='/blob.gif' alt='*' /></td>
			<td><input type='text' name='txt_mailport' value='$dma{'PORT'}' size='3'></td>
		</tr>
		<tr>
			<td>$Lang::tr{'email mailuser'}</td>
			<td><input type='text' name='txt_mailuser' value='$auth{'AUTHNAME'}' style='width:22em;'></td>
		</tr>
		<tr>
			<td>$Lang::tr{'email mailpass'}</td>
			<td><input type='password' name='txt_mailpass' value='$auth{'AUTHPASS'}' style='width:22em;' ></td>
		</tr>
		<tr>
			<td>$Lang::tr{'email tls'}</td>
			<td>
				<select name='mail_tls'>
					<option value='implicit' $selected{'mail_tls'}{'implicit'}>$Lang::tr{'email tls implicit'}</option>
					<option value='explicit' $selected{'mail_tls'}{'explicit'}>$Lang::tr{'email tls explicit'}</option>
					<option value='disabled' $selected{'mail_tls'}{'disabled'}>$Lang::tr{'disabled'}</option>
				</select>
			</td>
		</tr>
END
		if (! -z $dmafile && $mail{'USEMAIL'} eq 'on' && !$errormessage){
			print "<tr>";
			print "<td></td>";
			print "<td><input type='submit' name='ACTION' value='$Lang::tr{'email testmail'}'></td>";
			print "</tr>";
		}
		print<<END;;
		<tr>
			<td colspan='2'>&nbsp;</td>
		</tr>
		</table>
	</div>

	<table style='width:100%;'>
	<tr>
		<td colspan='3' display:inline align='right'><input type='submit' name='ACTION' value='$Lang::tr{'save'}'></td>
	</tr>
	</table>
	<br>
	</form>
END
	&Header::closebox();
	&Header::closebigbox();	
	&Header::closepage();
	exit 0;
}

sub checkmailsettings {
	#Check if mailserver is an ip address or a domain
	if ($cgiparams{'txt_mailserver'} =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/){
		if (! &General::validip($cgiparams{'txt_mailserver'})){
			$errormessage .= $Lang::tr{'email invalid mailip'} . "<br>";
		}
	}elsif(! &General::validfqdn($cgiparams{'txt_mailserver'})){
			$errormessage .= $Lang::tr{'email invalid mailfqdn'} . "<br>";
	}
	#Check valid mailserverport
	if($cgiparams{'txt_mailport'} < 1 || $cgiparams{'txt_mailport'} > 65535){
		$errormessage .= $Lang::tr{'email invalid mailport'} . "<br>";
	}
	#Check valid sender
	if(! $cgiparams{'txt_mailsender'}){
		$errormessage .= $Lang::tr{'email empty field'} . "<br>";
	}else{
		if (! &General::validemail($cgiparams{'txt_mailsender'})){
			$errormessage .= "$Lang::tr{'email invalid'} $Lang::tr{'email mailsender'}<br>";
		}
	}
	return $errormessage;
}

sub testmail {
	### Create a new multipart message:
	$msg = MIME::Lite->new(
		From	=> $mail{'SENDER'},
		To		=> $mail{'RECIPIENT'},
		#Cc		=> 'some@other.com, some@more.com',
		Subject	=> 'IPFire Testmail',
		Type	=> 'multipart/mixed'
	);

	### Add parts (each "attach" has same arguments as "new"):
	$msg->attach(
		Type	=> 'TEXT',
		Data	=> "This is the IPFire test mail."
	);

	### Add attachment for testing
	#$msg->attach(
	#	Type     => 'application/txt',
	#	Encoding => 'base64',
	#	Path     => '/var/ipfire/dma/dma.conf',
	#	Filename => 'dma.conf',
	#	Disposition => 'attachment'
	#);

	$msg->send_by_sendmail;
}

sub info {
	if ($infomessage) {
		&Header::openbox('100%', 'left', $Lang::tr{'info messages'});
		print "<class name='base'>$infomessage\n";
		print "&nbsp;</class>\n";
		&Header::closebox();
	}
}

sub error {
	if ($errormessage) {
		&Header::openbox('100%', 'left', $Lang::tr{'error messages'});
		print "<class name='base'>$errormessage\n";
		print "&nbsp;</class>\n";
		&Header::closebox();
	}
}
Commit	Line	Data
9c7b9020 AM	1	#!/usr/bin/perl
	2	###############################################################################
	3	# #
	4	# IPFire.org - A linux based firewall #
d07286de	5	# Copyright (C) 2007-2020 IPFire Team <info@ipfire.org> #
9c7b9020 AM	6	# #
	7	# This program is free software: you can redistribute it and/or modify #
	8	# it under the terms of the GNU General Public License as published by #
	9	# the Free Software Foundation, either version 3 of the License, or #
	10	# (at your option) any later version. #
	11	# #
	12	# This program is distributed in the hope that it will be useful, #
	13	# but WITHOUT ANY WARRANTY; without even the implied warranty of #
	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
	15	# GNU General Public License for more details. #
	16	# #
	17	# You should have received a copy of the GNU General Public License #
	18	# along with this program. If not, see <http://www.gnu.org/licenses/>. #
	19	# #
	20	###############################################################################
	21
	22	use MIME::Lite;
	23
	24	#enable only the following on debugging purpose
	25	#use warnings;
	26	#use CGI::Carp 'fatalsToBrowser';
	27
	28	require '/var/ipfire/general-functions.pl';
	29	require "${General::swroot}/lang.pl";
	30	require "${General::swroot}/header.pl";
	31
	32	#Initialize variables and hashes
	33	my $dmafile="${General::swroot}/dma/dma.conf";
	34	my $authfile="${General::swroot}/dma/auth.conf";
	35	my $mailfile="${General::swroot}/dma/mail.conf";
	36	my %dma=();
	37	my %auth=();
	38	my %mail=();
	39	my %mainsettings=();
	40	my %cgiparams=();
	41	my $errormessage='';
	42
	43	#Read all parameters for site
	44	&Header::getcgihash(\%cgiparams);
	45	&General::readhash("${General::swroot}/main/settings", \%mainsettings);
8186b372	46	&General::readhash("/srv/web/ipfire/html/themes/ipfire/include/colors.txt", \%color);
9c7b9020 AM	47
	48	#Show Headers
	49	&Header::showhttpheaders();
	50
	51	#Check configfiles
	52	if ( -f $dmafile){
	53	open (FILE, "<", $dmafile) or die $!;
	54	foreach my $line (<FILE>) {
	55	$line =~ m/^([A-Z]+)\s+?(.*)?$/;
	56	my $key = $1;
	57	my $val = $2;
	58	$dma{$key}=$val;
	59	}
	60	}else{
	61	open(FILE, ">$dmafile") or die $!;
	62	}
	63	close FILE;
	64
	65	if (exists $dma{'AUTHPATH'}){
	66	open (FILE, "<", $dma{'AUTHPATH'}) or die "$dma{'AUTHPATH'} nicht gefunden $! ";
	67	my $authline;
	68	foreach my $line (<FILE>) {
	69	$authline = $line;
	70	}
	71	my @part1 = split(/\\|/,$authline);
	72	my @part2 = split(/\:/,$part1[1]);
	73	$auth{'AUTHNAME'} = $part1[0];
	74	$auth{'AUTHHOST'} = $part2[0];
	75	$auth{'AUTHPASS'} = $part2[1];
	76	}
	77
	78	if ( -f $mailfile){
	79	&General::readhash($mailfile, \%mail);
	80	}
	81
	82	#ACTIONS
	83	if ($cgiparams{'ACTION'} eq "$Lang::tr{'save'}"){ #SaveButton on configsite
0a340fbe MT	84	# Check fields
	85	$errormessage = &checkmailsettings();
	86
	87	if (!$errormessage) {
9c7b9020 AM	88	#clear hashes
	89	%auth=();
	90	%dma=();
	91	%mail=();
	92
	93	#clear configfiles
	94	open (TXT, ">$dmafile") or die("Could not open /var/ipfire/dma/dma.conf: $!\n");
2799b3d9 AM	95	open (TXT1, ">$authfile") or die("Could not open /var/ipfire/dma/auth.conf: $!\n");
2799b3d9 AM	96	open (TXT2, ">$mailfile") or die("Could not open /var/ipfire/dma/mail.conf: $!\n");
9c7b9020 AM	97	close TXT2;
	98
	99	#Fill hashes with actual values
	100	$mail{'USEMAIL'} = $cgiparams{'USEMAIL'};
	101	$mail{'SENDER'} = $cgiparams{'txt_mailsender'};
	102	$mail{'RECIPIENT'} = $cgiparams{'txt_recipient'};
	103
4bfec109 AM	104	if ($cgiparams{'txt_mailuser'} && $cgiparams{'txt_mailpass'}) {
	105	$auth{'AUTHNAME'} = $cgiparams{'txt_mailuser'};
	106	$auth{'AUTHPASS'} = $cgiparams{'txt_mailpass'};
	107	$auth{'AUTHHOST'} = $cgiparams{'txt_mailserver'};
	108	print TXT1 "$auth{'AUTHNAME'}\|$auth{'AUTHHOST'}:$auth{'AUTHPASS'}\n";
	109	}
9c7b9020 AM	110
	111	$dma{'SMARTHOST'} = $cgiparams{'txt_mailserver'};
	112	$dma{'PORT'} = $cgiparams{'txt_mailport'};
d07286de PM	113	$dma{'STARTTLS'} = '' if ($cgiparams{'mail_tls'} eq 'explicit');
d07286de PM	114	$dma{'SECURETRANSFER'} = '' if ($cgiparams{'mail_tls'} eq 'explicit' \|\| $cgiparams{'mail_tls'} eq 'implicit');
9c7b9020 AM	115	$dma{'SPOOLDIR'} = "/var/spool/dma";
	116	$dma{'FULLBOUNCE'} = '';
	117	$dma{'MAILNAME'} = "$mainsettings{'HOSTNAME'}.$mainsettings{DOMAINNAME}";
	118	$dma{'AUTHPATH'} = "$authfile" if exists $auth{'AUTHNAME'};
	119
	120	#Create new configfiles
	121	&General::writehash("$mailfile", \%mail);
	122	while ( ($k,$v) = each %dma ) {
	123	print TXT "$k $v\n";
	124	}
	125	close TXT;
4bfec109	126	close TXT1;
9c7b9020 AM	127	close TXT2;
	128
	129	}else{
	130	$cgiparams{'update'}='on';
	131	&configsite;
	132	}
	133	}
	134	if ($cgiparams{'ACTION'} eq "$Lang::tr{'email testmail'}"){ #Testmail button on configsite
	135	&testmail;
	136	}
	137
	138	#Show site
	139	&configsite;
	140
	141	#FUNCTIONS
	142	sub configsite{
9c7b9020 AM	143	#If update set fieldvalues new
9c7b9020 AM	144	if($cgiparams{'update'} eq 'on'){
70defeb0 AM	145	$mail{'USEMAIL'} = 'on';
	146	$mail{'SENDER'} = $cgiparams{'txt_mailsender'};
	147	$mail{'RECIPIENT'} = $cgiparams{'txt_recipient'};
9c7b9020 AM	148	$dma{'SMARTHOST'} = $cgiparams{'txt_mailserver'};
9c7b9020 AM	149	$dma{'PORT'} = $cgiparams{'txt_mailport'};
70defeb0	150	$auth{'AUTHNAME'} = $cgiparams{'txt_mailuser'};
9c7b9020 AM	151	$auth{'AUTHHOST'} = $cgiparams{'txt_mailserver'};
9c7b9020 AM	152	$auth{'AUTHPASS'} = $cgiparams{'txt_mailpass'};
70defeb0	153	$dma{'STARTTLS'} = $cgiparams{'mail_tls'};
9c7b9020 AM	154	}
	155	#find preselections
	156	$checked{'usemail'}{$mail{'USEMAIL'}} = 'CHECKED';
d07286de PM	157	$selected{'mail_tls'}{'explicit'} = 'selected' if exists $dma{'STARTTLS'};
	158	$selected{'mail_tls'}{'implicit'} = 'selected' if (exists $dma{'SECURETRANSFER'}) and (not exists $dma{'STARTTLS'});
	159	$selected{'mail_tls'}{'disabled'} = 'selected' if (not exists $dma{'SECURETRANSFER'}) and (not exists $dma{'STARTTLS'});
9c7b9020 AM	160
	161	#Open site
	162	&Header::openpage($Lang::tr{'email settings'}, 1, '');
	163	&Header::openbigbox('100%', 'center');
	164	&error;
	165	&info;
	166	&Header::openbox('100%', 'left', $Lang::tr{'email config'});
	167
	168	#### JAVA SCRIPT ####
	169	print<<END;
	170	<script>
	171	\$(document).ready(function() {
	172	// Show/Hide elements when USEMAIL checkbox is checked.
	173	if (\$("#MAIL").attr("checked")) {
	174	\$(".MAILSRV").show();
	175	} else {
	176	\$(".MAILSRV").hide();
	177	}
	178
	179	// Toggle MAIL elements when "USEMAIL" checkbox is clicked
	180	\$("#MAIL").change(function() {
	181	\$(".MAILSRV").toggle();
	182	});
	183	});
	184	</script>
	185	END
	186	##### JAVA SCRIPT END ####
	187	my $col="style='background-color:$color{'color22'}'";
	188	print<<END;
	189	<form method='post' action='$ENV{'SCRIPT_NAME'}'>
	190	<table style='width:100%' border='0'>
	191	<tr>
	192	<th colspan='3'></th>
	193	</tr>
	194	<tr>
	195	<td style='width:24em'>$Lang::tr{'email usemail'}</td>
	196	<td><label><input type='checkbox' name='USEMAIL' id='MAIL' $checked{'usemail'}{'on'}></label></td>
	197	<td></td>
	198	</tr>
	199	</table><br>
	200
	201	<div class="MAILSRV">
	202	<table style='width:100%;'>
	203	<tr>
afd6e193 AM	204	<td>$Lang::tr{'email mailsender'}<img src='/blob.gif' alt='*' /></td>
	205	<td><input type='text' name='txt_mailsender' value='$mail{'SENDER'}' style='width:22em;'></td>
	206	</tr>
	207	<tr>
	208	<td>$Lang::tr{'email mailrcpt'}<img src='/blob.gif' alt='*' /></td>
	209	<td><input type='text' name='txt_recipient' value='$mail{'RECIPIENT'}' style='width:22em;'></td>
	210	</tr>
	211	<tr>
	212	<td style='width:24em'>$Lang::tr{'email mailaddr'}<img src='/blob.gif' alt='*' /></td>
9c7b9020 AM	213	<td><input type='text' name='txt_mailserver' value='$dma{'SMARTHOST'}' style='width:22em;'></td>
	214	</tr>
	215	<tr>
afd6e193	216	<td>$Lang::tr{'email mailport'}<img src='/blob.gif' alt='*' /></td>
9c7b9020 AM	217	<td><input type='text' name='txt_mailport' value='$dma{'PORT'}' size='3'></td>
	218	</tr>
	219	<tr>
afd6e193	220	<td>$Lang::tr{'email mailuser'}</td>
9c7b9020 AM	221	<td><input type='text' name='txt_mailuser' value='$auth{'AUTHNAME'}' style='width:22em;'></td>
	222	</tr>
	223	<tr>
afd6e193	224	<td>$Lang::tr{'email mailpass'}</td>
9c7b9020 AM	225	<td><input type='password' name='txt_mailpass' value='$auth{'AUTHPASS'}' style='width:22em;' ></td>
	226	</tr>
	227	<tr>
	228	<td>$Lang::tr{'email tls'}</td>
d07286de PM	229	<td>
	230	<select name='mail_tls'>
	231	<option value='implicit' $selected{'mail_tls'}{'implicit'}>$Lang::tr{'email tls implicit'}</option>
	232	<option value='explicit' $selected{'mail_tls'}{'explicit'}>$Lang::tr{'email tls explicit'}</option>
	233	<option value='disabled' $selected{'mail_tls'}{'disabled'}>$Lang::tr{'disabled'}</option>
	234	</select>
	235	</td>
9c7b9020	236	</tr>
9c7b9020	237	END
70defeb0	238	if (! -z $dmafile && $mail{'USEMAIL'} eq 'on' && !$errormessage){
9c7b9020 AM	239	print "<tr>";
	240	print "<td></td>";
	241	print "<td><input type='submit' name='ACTION' value='$Lang::tr{'email testmail'}'></td>";
	242	print "</tr>";
	243	}
	244	print<<END;;
	245	<tr>
	246	<td colspan='2'> </td>
	247	</tr>
	248	</table>
	249	</div>
	250
	251	<table style='width:100%;'>
	252	<tr>
	253	<td colspan='3' display:inline align='right'><input type='submit' name='ACTION' value='$Lang::tr{'save'}'></td>
	254	</tr>
	255	</table>
	256	<br>
	257	</form>
	258	END
	259	&Header::closebox();
	260	&Header::closebigbox();
	261	&Header::closepage();
	262	exit 0;
	263	}
	264
	265	sub checkmailsettings {
	266	#Check if mailserver is an ip address or a domain
	267	if ($cgiparams{'txt_mailserver'} =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/){
	268	if (! &General::validip($cgiparams{'txt_mailserver'})){
095bf494	269	$errormessage .= $Lang::tr{'email invalid mailip'} . "<br>";
9c7b9020 AM	270	}
9c7b9020 AM	271	}elsif(! &General::validfqdn($cgiparams{'txt_mailserver'})){
095bf494	272	$errormessage .= $Lang::tr{'email invalid mailfqdn'} . "<br>";
9c7b9020 AM	273	}
	274	#Check valid mailserverport
	275	if($cgiparams{'txt_mailport'} < 1 \|\| $cgiparams{'txt_mailport'} > 65535){
095bf494	276	$errormessage .= $Lang::tr{'email invalid mailport'} . "<br>";
9c7b9020 AM	277	}
	278	#Check valid sender
	279	if(! $cgiparams{'txt_mailsender'}){
095bf494	280	$errormessage .= $Lang::tr{'email empty field'} . "<br>";
9c7b9020 AM	281	}else{
9c7b9020 AM	282	if (! &General::validemail($cgiparams{'txt_mailsender'})){
095bf494	283	$errormessage .= "$Lang::tr{'email invalid'} $Lang::tr{'email mailsender'}<br>";
9c7b9020 AM	284	}
	285	}
	286	return $errormessage;
	287	}
	288
	289	sub testmail {
	290	### Create a new multipart message:
	291	$msg = MIME::Lite->new(
	292	From => $mail{'SENDER'},
	293	To => $mail{'RECIPIENT'},
	294	#Cc => 'some@other.com, some@more.com',
	295	Subject => 'IPFire Testmail',
	296	Type => 'multipart/mixed'
	297	);
	298
	299	### Add parts (each "attach" has same arguments as "new"):
	300	$msg->attach(
	301	Type => 'TEXT',
	302	Data => "This is the IPFire test mail."
	303	);
	304
	305	### Add attachment for testing
	306	#$msg->attach(
	307	# Type => 'application/txt',
	308	# Encoding => 'base64',
	309	# Path => '/var/ipfire/dma/dma.conf',
	310	# Filename => 'dma.conf',
	311	# Disposition => 'attachment'
	312	#);
	313
	314	$msg->send_by_sendmail;
	315	}
	316
	317	sub info {
	318	if ($infomessage) {
	319	&Header::openbox('100%', 'left', $Lang::tr{'info messages'});
	320	print "<class name='base'>$infomessage\n";
	321	print " </class>\n";
	322	&Header::closebox();
	323	}
	324	}
	325
	326	sub error {
	327	if ($errormessage) {
	328	&Header::openbox('100%', 'left', $Lang::tr{'error messages'});
	329	print "<class name='base'>$errormessage\n";
	330	print " </class>\n";
	331	&Header::closebox();
	332	}
	333	}