Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
services	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	6.42 KB	-rw-r--r--	2026-07-17 21:17
WEBMIN-STATUS-MIB.txt	1.52 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	508 B	-rwxr-xr-x	2026-07-17 21:17
alive-monitor.pl	261 B	-rwxr-xr-x	2026-07-17 21:17
apache-monitor.pl	714 B	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	801 B	-rwxr-xr-x	2026-07-17 21:17
bind8-monitor.pl	710 B	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	321 B	-rwxr-xr-x	2026-07-17 21:17
change-monitor.pl	791 B	-rwxr-xr-x	2026-07-17 21:17
config	182 B	-rw-r--r--	2026-07-17 21:17
config-ALL-linux	210 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	225 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-3.0	216 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-3.1-ALL	216 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	195 B	-rw-r--r--	2026-07-17 21:17
config-hpux	182 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	182 B	-rw-r--r--	2026-07-17 21:17
config-solaris	182 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	197 B	-rw-r--r--	2026-07-17 21:17
config.info	1.09 KB	-rw-r--r--	2026-07-17 21:17
config.info.ca	1.31 KB	-rw-r--r--	2026-07-17 21:17
config.info.cs	802 B	-rw-r--r--	2026-07-17 21:17
config.info.de	1.28 KB	-rw-r--r--	2026-07-17 21:17
config.info.es	659 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	994 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	1.42 KB	-rw-r--r--	2026-07-17 21:17
config.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
config.info.it	0 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	1.04 KB	-rw-r--r--	2026-07-17 21:17
config.info.ko	764 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	984 B	-rw-r--r--	2026-07-17 21:17
config.info.no	962 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	1021 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	486 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	99 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	567 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	479 B	-rw-r--r--	2026-07-17 21:17
config.info.zh	86 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	229 B	-rw-r--r--	2026-07-17 21:17
consume-monitor.pl	1.89 KB	-rwxr-xr-x	2026-07-17 21:17
defaultacl	15 B	-rw-r--r--	2026-07-17 21:17
delete_mons.cgi	1.52 KB	-rwxr-xr-x	2026-07-17 21:22
delete_tmpls.cgi	712 B	-rwxr-xr-x	2026-07-17 21:22
dhcpd-monitor.pl	616 B	-rwxr-xr-x	2026-07-17 21:17
dns-monitor.pl	1.3 KB	-rwxr-xr-x	2026-07-17 21:17
dovecot-monitor.pl	302 B	-rwxr-xr-x	2026-07-17 21:17
du-monitor.pl	790 B	-rw-r--r--	2026-07-17 21:17
edit_mon.cgi	9.75 KB	-rwxr-xr-x	2026-07-17 21:22
edit_sched.cgi	4.62 KB	-rwxr-xr-x	2026-07-17 21:22
edit_tmpl.cgi	1.81 KB	-rwxr-xr-x	2026-07-17 21:22
exec-monitor.pl	1.52 KB	-rwxr-xr-x	2026-07-17 21:17
fail2ban-monitor.pl	516 B	-rwxr-xr-x	2026-07-17 21:17
feedback_files.pl	175 B	-rwxr-xr-x	2026-07-17 21:17
file-monitor.pl	3.35 KB	-rwxr-xr-x	2026-07-17 21:17
firewalld-monitor.pl	242 B	-rw-r--r--	2026-07-17 21:17
ftp-monitor.pl	3.05 KB	-rwxr-xr-x	2026-07-17 21:17
hostsentry-monitor.pl	521 B	-rwxr-xr-x	2026-07-17 21:17
http-monitor.pl	4.24 KB	-rwxr-xr-x	2026-07-17 21:17
iface-monitor.pl	908 B	-rwxr-xr-x	2026-07-17 21:17
imap-monitor.pl	1.78 KB	-rw-r--r--	2026-07-17 21:17
index.cgi	5 KB	-rwxr-xr-x	2026-07-17 21:22
inetd-monitor.pl	399 B	-rwxr-xr-x	2026-07-17 21:17
init-monitor.pl	576 B	-rw-r--r--	2026-07-17 21:17
ldap-monitor.pl	1.51 KB	-rwxr-xr-x	2026-07-17 21:17
list_tmpls.cgi	1.07 KB	-rwxr-xr-x	2026-07-17 21:22
load-monitor.pl	1.1 KB	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	723 B	-rwxr-xr-x	2026-07-17 21:17
mailq-monitor.pl	1.3 KB	-rwxr-xr-x	2026-07-17 21:17
memory-monitor.pl	1.55 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	168 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	167 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	247 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	118 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	14 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	33 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	105 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	120 B	-rw-r--r--	2026-07-17 21:17
module.info.de	121 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	15 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	274 B	-rw-r--r--	2026-07-17 21:17
module.info.es	40 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	95 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	132 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	185 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	134 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	42 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	107 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	134 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	37 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	99 B	-rw-r--r--	2026-07-17 21:17
module.info.it	39 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	96 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	57 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	130 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	36 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	92 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	119 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	15 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	33 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	97 B	-rw-r--r--	2026-07-17 21:17
module.info.no	32 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	96 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	97 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	15 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	133 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	142 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	56 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	165 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	33 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	106 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	33 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	92 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	32 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	105 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	208 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	36 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	76 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	40 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	82 B	-rw-r--r--	2026-07-17 21:17
mon-monitor.pl	431 B	-rwxr-xr-x	2026-07-17 21:17
monitor.pl	18.03 KB	-rwxr-xr-x	2026-07-17 21:22
mysql-monitor.pl	450 B	-rwxr-xr-x	2026-07-17 21:17
nfs-monitor.pl	410 B	-rwxr-xr-x	2026-07-17 21:17
oldfile-monitor.pl	864 B	-rwxr-xr-x	2026-07-17 21:17
phpini-monitor.pl	1.32 KB	-rw-r--r--	2026-07-17 21:17
ping-monitor.pl	6.89 KB	-rwxr-xr-x	2026-07-17 21:17
portsentry-monitor.pl	535 B	-rwxr-xr-x	2026-07-17 21:17
postfix-monitor.pl	509 B	-rwxr-xr-x	2026-07-17 21:17
postgresql-monitor.pl	480 B	-rwxr-xr-x	2026-07-17 21:17
prefs.info	58 B	-rw-r--r--	2026-07-17 21:17
proc-monitor.pl	1.7 KB	-rwxr-xr-x	2026-07-17 21:17
proftpd-monitor.pl	842 B	-rwxr-xr-x	2026-07-17 21:17
qmailadmin-monitor.pl	424 B	-rwxr-xr-x	2026-07-17 21:17
query-monitor.pl	5.08 KB	-rwxr-xr-x	2026-07-17 21:17
raid-monitor.pl	1.66 KB	-rwxr-xr-x	2026-07-17 21:17
reboot-monitor.pl	503 B	-rw-r--r--	2026-07-17 21:17
refresh.cgi	550 B	-rwxr-xr-x	2026-07-17 21:22
rssh-monitor.pl	2.63 KB	-rwxr-xr-x	2026-07-17 21:17
safeacl	15 B	-rw-r--r--	2026-07-17 21:17
samba-monitor.pl	453 B	-rwxr-xr-x	2026-07-17 21:17
save_mon.cgi	3.27 KB	-rwxr-xr-x	2026-07-17 21:22
save_sched.cgi	2.96 KB	-rwxr-xr-x	2026-07-17 21:22
save_tmpl.cgi	1.25 KB	-rwxr-xr-x	2026-07-17 21:22
sendmail-monitor.pl	682 B	-rwxr-xr-x	2026-07-17 21:17
sensors-monitor.pl	3.9 KB	-rwxr-xr-x	2026-07-17 21:17
slapd-monitor.pl	606 B	-rwxr-xr-x	2026-07-17 21:17
smtp-monitor.pl	5.22 KB	-rw-r--r--	2026-07-17 21:17
space-monitor.pl	3.09 KB	-rwxr-xr-x	2026-07-17 21:17
squid-monitor.pl	881 B	-rwxr-xr-x	2026-07-17 21:17
sshd-monitor.pl	817 B	-rwxr-xr-x	2026-07-17 21:17
sslcert-monitor.pl	4.54 KB	-rwxr-xr-x	2026-07-17 21:17
status-lib.pl	18.02 KB	-rwxr-xr-x	2026-07-17 21:17
status_monitor_api.pl	593 B	-rwxr-xr-x	2026-07-17 21:17
system_info.pl	1.49 KB	-rw-r--r--	2026-07-17 21:17
tcp-monitor.pl	1.32 KB	-rwxr-xr-x	2026-07-17 21:17
traffic-monitor.pl	2.4 KB	-rwxr-xr-x	2026-07-17 21:17
uninstall.pl	434 B	-rwxr-xr-x	2026-07-17 21:17
usermin-monitor.pl	496 B	-rwxr-xr-x	2026-07-17 21:17
webmin-monitor.pl	363 B	-rwxr-xr-x	2026-07-17 21:17
xinetd-monitor.pl	491 B	-rwxr-xr-x	2026-07-17 21:17

Rename

# Connect to an SMTP server, login and try to send a message

sub get_smtp_status
{
my ($serv) = @_;

&foreign_require("mailboxes");
$main::error_must_die = 1;
my $desc;
eval {
	my $h = { 'fh' => 'MAIL' };
        &open_socket($serv->{'host'}, $serv->{'port'}, $h->{'fh'});
	if ($serv->{'ssl'} == 1) {
                # Switch to SSL mode right now
                &switch_smtp_to_ssl($h);
		}
	my $callpkg = (caller(0))[0];
        $h->{'fh'} = $callpkg."::".$h->{'fh'};
	&mailboxes::smtp_command($h);
        &mailboxes::smtp_command($h, "helo ".&get_system_hostname()."\r\n");
	if ($ssl == 2) {
                # Switch to SSL with STARTTLS
                my $rv = &mailboxes::smtp_command($h, "starttls\r\n", 1);
                if ($rv =~ /^2\d+/) {
                        &switch_smtp_to_ssl($h);
                        }
                else {
                        $serv->{'ssl'} = 0;
                        }
                }
	$desc = $text{'smtp_ok1'};

if ($serv->{'user'}) {
		# Login to SMTP server
		eval "use Authen::SASL";
		my $auth = "Plain";
		if ($@) {
			die "Perl module <tt>Authen::SASL</tt> is needed for SMTP authentication";
			}
		my $sasl = Authen::SASL->new('mechanism' => uc($auth),
					     'callback' => {
						'auth' => $serv->{'user'},
						'user' => $serv->{'user'},
						'pass' => $serv->{'pass'} } );
		die "Failed to create Authen::SASL object" if (!$sasl);
		my $conn = $sasl->client_new("smtp", &get_system_hostname());
		my $arv = &mailboxes::smtp_command($h, "auth $auth\r\n", 1);
		if ($arv =~ /^(334)(\-\S+)?\s+(.*)/) {
			# Server says to go ahead
			$extra = $3;
			my $initial = $conn->client_start();
			my $auth_ok;
			if ($initial) {
				my $enc = &encode_base64($initial);
				$enc =~ s/\r|\n//g;
				$arv = &mailboxes::smtp_command($h, "$enc\r\n", 1);
				if ($arv =~ /^(\d+)(\-\S+)?\s+(.*)/) {
					if ($1 == 235) {
						$auth_ok = 1;
						}
					else {
						die("Unknown SMTP authentication response : $arv");
						}
					}
				$extra = $3;
				}
			while(!$auth_ok) {
				my $message = &decode_base64($extra);
				my $return = $conn->client_step($message);
				my $enc = &encode_base64($return);
				$enc =~ s/\r|\n//g;
				$arv = &mailboxes::smtp_command($h, "$enc\r\n", 1);
				if ($arv =~ /^(\d+)(\-\S+)?\s+(.*)/) {
					if ($1 == 235) {
						$auth_ok = 1;
						}
					elsif ($1 == 535) {
						die("SMTP authentication failed : $arv");
						}
					$extra = $3;
					}
				else {
					die("Unknown SMTP authentication response : $arv");
					}
				}
			}
		$desc = $text{'smtp_ok4'};
		}

# Open an SMTP transaction
	if ($serv->{'from'}) {
		&mailboxes::smtp_command($h, "mail from: <$serv->{'from'}>\r\n");
		$desc = $text{'smtp_ok2'};
		}
	if ($serv->{'to'}) {
		&mailboxes::smtp_command($h, "rcpt to: <$serv->{'to'}>\r\n");
		$desc = $text{'smtp_ok3'};
		}
	&mailboxes::smtp_command($h, "quit\r\n");
	&close_http_connection($h);
	};
if ($@) {
        $err = &entities_to_ascii("$@");
        $err =~ s/at\s+\S+\s+line\s+\d+.*//;
	return { 'up' => 0,
		 'desc' => $err };
	}
return { 'up' => 1, 'desc' => $desc };
}

sub switch_smtp_to_ssl
{
my ($h) = @_;
eval "use Net::SSLeay";
$@ && die($text{'link_essl'});
eval "Net::SSLeay::SSLeay_add_ssl_algorithms()";
eval "Net::SSLeay::load_error_strings()";
$h->{'ssl_ctx'} = Net::SSLeay::CTX_new() ||
        die("Failed to create SSL context");
$h->{'ssl_con'} = Net::SSLeay::new($h->{'ssl_ctx'}) ||
        die("Failed to create SSL connection");
Net::SSLeay::set_fd($h->{'ssl_con'}, fileno(MAIL));
Net::SSLeay::connect($h->{'ssl_con'}) ||
        die("SSL connect() failed");
}

sub show_smtp_dialog
{
my ($serv) = @_;

print &ui_table_row($text{'smtp_host'},
	&ui_textbox("host", $serv->{'host'}, 25));

print &ui_table_row($text{'smtp_port'},
	&ui_textbox("port", $serv->{'port'} || 25, 5));

print &ui_table_row($text{'smtp_ssl'},
	&ui_radio("ssl", $serv->{'ssl'} || 0,
		  [ [ 0, $text{'smtp_ssl0'} ],
		    [ 1, $text{'smtp_ssl1'} ],
		    [ 2, $text{'smtp_ssl2'} ] ]));

print &ui_table_row($text{'smtp_from'},
	&ui_opt_textbox("from", $serv->{'from'}, 25,
			$text{'smtp_none'}, $text{'smtp_addr'}));

print &ui_table_row($text{'smtp_to'},
	&ui_opt_textbox("to", $serv->{'to'}, 25,
			$text{'smtp_none'}, $text{'smtp_addr'}));

print &ui_table_row($text{'smtp_user'},
	&ui_radio("user_def", $serv->{'user'} ? 0 : 1,
		  [ [ 1, $text{'smtp_user1'} ],
		    [ 0, $text{'smtp_user0'}." ".
			 &ui_textbox("user", $serv->{'user'}, 20)." ".
			 $text{'smtp_pass'}." ".
			 &ui_textbox("pass", $serv->{'pass'}, 20) ] ]));
}

sub parse_smtp_dialog
{
my ($serv) = @_;

&to_ipaddress($in{'host'}) || &to_ip6address($in{'host'}) ||
	&error($text{'smtp_ehost'});
$serv->{'host'} = $in{'host'};

$in{'port'} =~ /^\d+$/ || &error($text{'smtp_eport'});
$serv->{'port'} = $in{'port'};

$serv->{'ssl'} = $in{'ssl'};

if ($in{'from_def'}) {
	delete($serv->{'from'});
	}
else {
	$in{'from'} =~ /^\S+\@\S+$/ || &error($text{'smtp_efrom'});
	$serv->{'from'} = $in{'from'};
	}

if ($in{'to_def'}) {
	delete($serv->{'to'});
	}
else {
	$in{'to'} =~ /^\S+\@\S+$/ || &error($text{'smtp_eto'});
	$serv->{'to'} = $in{'to'};
	}

if ($in{'user_def'}) {
	delete($serv->{'user'});
	delete($serv->{'pass'});
	}
else {
	$in{'user'} =~ /\S/ ||  &error($text{'smtp_euser'});
	$serv->{'user'} = $in{'user'};
	$serv->{'pass'} = $in{'pass'};
	}
}