Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	468 B	-rw-r--r--	2026-07-17 21:17
acl_security.pl	1.03 KB	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	838 B	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	696 B	-rwxr-xr-x	2026-07-17 21:17
check.cgi	1.57 KB	-rwxr-xr-x	2026-07-17 21:22
check.pl	2.47 KB	-rwxr-xr-x	2026-07-17 21:22
config	113 B	-rw-r--r--	2026-07-17 21:17
config-cobalt-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-coherent-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-corel-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-msc-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-open-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	113 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-sol-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	137 B	-rw-r--r--	2026-07-17 21:17
config-trustix-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-turbo-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-united-linux	113 B	-rw-r--r--	2026-07-17 21:17
config.info	603 B	-rw-r--r--	2026-07-17 21:17
config.info.bg	1.14 KB	-rw-r--r--	2026-07-17 21:17
config.info.ca	705 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	386 B	-rw-r--r--	2026-07-17 21:17
config.info.de	726 B	-rw-r--r--	2026-07-17 21:17
config.info.es	277 B	-rw-r--r--	2026-07-17 21:17
config.info.it	746 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	707 B	-rw-r--r--	2026-07-17 21:17
config.info.no	647 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	777 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	544 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	551 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	265 B	-rw-r--r--	2026-07-17 21:17
defaultacl	41 B	-rw-r--r--	2026-07-17 21:17
edit_cron.cgi	1.99 KB	-rwxr-xr-x	2026-07-17 21:22
edit_global.cgi	1.82 KB	-rwxr-xr-x	2026-07-17 21:22
edit_poll.cgi	4.28 KB	-rwxr-xr-x	2026-07-17 21:22
edit_user.cgi	555 B	-rwxr-xr-x	2026-07-17 21:22
feedback_files.pl	266 B	-rwxr-xr-x	2026-07-17 21:17
fetchmail-lib.pl	8.47 KB	-rwxr-xr-x	2026-07-17 21:17
index.cgi	4.17 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	355 B	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	1.35 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	213 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	198 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	254 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	153 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	18 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	44 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	132 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	154 B	-rw-r--r--	2026-07-17 21:17
module.info.de	152 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	23 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	39 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	133 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	167 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	222 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	160 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	181 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	177 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	133 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	18 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	128 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	34 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	157 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	33 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	163 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	138 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	18 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	34 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	136 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	126 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	154 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	18 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	175 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	184 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	44 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	201 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	168 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	172 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	166 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	254 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	139 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	33 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	115 B	-rw-r--r--	2026-07-17 21:17
prefs.info	41 B	-rw-r--r--	2026-07-17 21:17
save_cron.cgi	1.74 KB	-rwxr-xr-x	2026-07-17 21:22
save_global.cgi	1.57 KB	-rwxr-xr-x	2026-07-17 21:22
save_poll.cgi	3.53 KB	-rwxr-xr-x	2026-07-17 21:22
start.cgi	1.16 KB	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	790 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# save_poll.cgi
# Update, create or delete a server to poll

require './fetchmail-lib.pl';
&ReadParse();
&error_setup($text{'poll_err'});
if ($config{'config_file'}) {
	$file = $config{'config_file'};
	}
else {
	&can_edit_user($in{'user'}) || &error($text{'poll_ecannot'});
	@uinfo = getpwnam($in{'user'});
	$file = "$uinfo[7]/.fetchmailrc";
	}
@conf = &parse_config_file($file);
if (!$in{'new'}) {
	$poll = $conf[$in{'idx'}];
	}

&lock_file($file);
if ($in{'adduser'}) {
	# Go back to the edit form
	&redirect("edit_poll.cgi?file=$file&idx=$in{'idx'}&adduser=1&user=$in{'user'}");
	exit;
	}
elsif ($in{'check'}) {
	# Go to the mail checking CGI
	&redirect("check.cgi?file=$file&idx=$in{'idx'}&adduser=1&user=$in{'user'}");
	exit;
	}
elsif ($in{'delete'}) {
	# Just delete the poll
	&delete_poll($poll, $file);
	}
else {
	# Validate poll inputs
	$in{'poll'} =~ /^\S+$/ || &error($text{'poll_epoll'});
	$in{'via_def'} || &check_host($in{'via'}) ||
		&error($text{'poll_evia'});
	!$in{'via_def'} || &check_host($in{'poll'}) ||
		&error($text{'poll_epoll'});
	$in{'port_def'} || $in{'port'} =~ /^\d+$/ ||
		&error($text{'poll_eport'});
	if (!$in{'interface_def'}) {
		$in{'interface'} =~ /^\S+$/ || &error($text{'poll_einterface'});
		&check_ipaddress($in{'interface_net'}) ||
			&error($text{'poll_enet'});
		&check_ipaddress($in{'interface_mask'}) ||
		    !$in{'interface_mask'} ||
			&error($text{'poll_emask'});
		}

# Create the poll structure
	$poll->{'poll'} = $in{'poll'};
	$poll->{'skip'} = $in{'skip'};
	$poll->{'via'} = $in{'via_def'} ? undef : $in{'via'};
	$poll->{'proto'} = $in{'proto'};
	$poll->{'auth'} = $in{'auth'};
	$poll->{'port'} = $in{'port_def'} ? undef : $in{'port'};
	if ($in{'interface_def'}) {
		delete($poll->{'interface'});
		}
	else {
		local @interface = ( $in{'interface'}, $in{'interface_net'} );
		push(@interface, $in{'interface_mask'})
			if ($in{'interface_mask'});
		$poll->{'interface'} = join("/", @interface);
		}

# Validate user inputs
	for($i=0; defined($in{"user_$i"}); $i++) {
		$user = $poll->{'users'}->[$i];
		next if (!$in{"user_$i"});
		$in{"user_$i"} =~ /^\S*$/ || &error($text{'poll_euser'});
		$user->{'user'} = $in{"user_$i"};
		$user->{'pass'} = $in{"pass_$i"};
		local @is = split(/\s+/, $in{"is_$i"});
		$user->{'is'} = \@is;
		if ($in{"folder_${i}_def"}) {
			delete($user->{'folder'});
			}
		else {
			$in{"folder_$i"} =~ /\S/ ||
				&error($text{'poll_efolder'});
			$user->{'folder'} = $in{"folder_$i"};
			}
		$user->{'keep'} = $in{"keep_$i"};
		$user->{'fetchall'} = $in{"fetchall_$i"};
		if ($in{"keep_$i"} == 1 && $in{"fetchall_$i"} == 1) {
			&error($text{'poll_eboth'});
			}
		$user->{'ssl'} = $in{"ssl_$i"};
		$user->{'preconnect'} = $in{"preconnect_$i"};
		$user->{'postconnect'} = $in{"postconnect_$i"};
		push(@users, $user);
		}
	$poll->{'users'} = \@users;

if ($in{'new'}) {
		&create_poll($poll, $file);
		if ($in{'user'} && $< == 0) {
			local @uinfo = getpwnam($in{'user'});
			&system_logged("chown $uinfo[2]:$uinfo[3] ".quotemeta($file));
			}
		&system_logged("chmod 700 ".quotemeta($file));
		}
	else {
		&modify_poll($poll, $file);
		}
	}

&unlock_file($file);
&webmin_log($in{'new'} ? 'create' : $in{'delete'} ? 'delete' : 'modify',
	    'poll', $poll->{'poll'},
	    $config{'config_file'} ? { 'file' => $file }
				   : { 'user' => $in{'user'} } );
&redirect(!$fetchmail_config && $config{'view_mode'} ?
	"edit_user.cgi?user=$in{'user'}" : "");

sub check_host
{
return 1 if (&to_ipaddress($_[0]) || &to_ip6address($_[0]));
return 0 if (&to_ipaddress("www.webmin.com"));	# only fail if we are online
return 1;
}