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
ulang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	298 B	-rw-r--r--	2026-07-19 16:26
check.cgi	1.57 KB	-rwxr-xr-x	2026-07-19 16:28
check.pl	2.47 KB	-rwxr-xr-x	2026-07-19 16:28
config	49 B	-rw-r--r--	2026-07-19 16:26
config.info	218 B	-rw-r--r--	2026-07-19 16:26
config.info.ca	249 B	-rwxr-xr-x	2026-07-19 16:26
config.info.cs	103 B	-rw-r--r--	2026-07-19 16:26
config.info.de	119 B	-rw-r--r--	2026-07-19 16:26
config.info.nl	238 B	-rwxr-xr-x	2026-07-19 16:26
config.info.no	231 B	-rw-r--r--	2026-07-19 16:26
defaultacl	7 B	-rw-r--r--	2026-07-19 16:26
edit_cron.cgi	1.99 KB	-rwxr-xr-x	2026-07-19 16:28
edit_global.cgi	1.82 KB	-rwxr-xr-x	2026-07-19 16:28
edit_poll.cgi	4.28 KB	-rwxr-xr-x	2026-07-19 16:28
fetchmail-lib.pl	8.47 KB	-rwxr-xr-x	2026-07-19 16:26
index.cgi	1.57 KB	-rwxr-xr-x	2026-07-19 16:28
module.info	198 B	-rw-r--r--	2026-07-19 16:26
module.info.ar	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ar.auto	212 B	-rw-r--r--	2026-07-19 16:26
module.info.bg	0 B	-rw-r--r--	2026-07-19 16:26
module.info.bg.auto	242 B	-rw-r--r--	2026-07-19 16:26
module.info.ca	39 B	-rw-r--r--	2026-07-19 16:26
module.info.ca.auto	147 B	-rw-r--r--	2026-07-19 16:26
module.info.cs	39 B	-rw-r--r--	2026-07-19 16:26
module.info.cs.auto	147 B	-rw-r--r--	2026-07-19 16:26
module.info.da	0 B	-rw-r--r--	2026-07-19 16:26
module.info.da.auto	166 B	-rw-r--r--	2026-07-19 16:26
module.info.de	152 B	-rw-r--r--	2026-07-19 16:26
module.info.el	0 B	-rw-r--r--	2026-07-19 16:26
module.info.el.auto	357 B	-rw-r--r--	2026-07-19 16:26
module.info.es	0 B	-rw-r--r--	2026-07-19 16:26
module.info.es.auto	194 B	-rw-r--r--	2026-07-19 16:26
module.info.eu	0 B	-rw-r--r--	2026-07-19 16:26
module.info.eu.auto	188 B	-rw-r--r--	2026-07-19 16:26
module.info.fa	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fa.auto	230 B	-rw-r--r--	2026-07-19 16:26
module.info.fi	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fi.auto	165 B	-rw-r--r--	2026-07-19 16:26
module.info.fr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fr.auto	187 B	-rw-r--r--	2026-07-19 16:26
module.info.hr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.hr.auto	183 B	-rw-r--r--	2026-07-19 16:26
module.info.hu	42 B	-rw-r--r--	2026-07-19 16:26
module.info.hu.auto	150 B	-rw-r--r--	2026-07-19 16:26
module.info.it	0 B	-rw-r--r--	2026-07-19 16:26
module.info.it.auto	173 B	-rw-r--r--	2026-07-19 16:26
module.info.ja	30 B	-rw-r--r--	2026-07-19 16:26
module.info.ja.auto	186 B	-rw-r--r--	2026-07-19 16:26
module.info.ko	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ko.auto	192 B	-rw-r--r--	2026-07-19 16:26
module.info.ms	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ms.auto	166 B	-rw-r--r--	2026-07-19 16:26
module.info.nl	34 B	-rw-r--r--	2026-07-19 16:26
module.info.no	30 B	-rw-r--r--	2026-07-19 16:26
module.info.no.auto	136 B	-rw-r--r--	2026-07-19 16:26
module.info.pl	38 B	-rw-r--r--	2026-07-19 16:26
module.info.pl.auto	138 B	-rw-r--r--	2026-07-19 16:26
module.info.pt	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt.auto	176 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR.auto	185 B	-rw-r--r--	2026-07-19 16:26
module.info.ru	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ru.auto	242 B	-rw-r--r--	2026-07-19 16:26
module.info.sk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sk.auto	184 B	-rw-r--r--	2026-07-19 16:26
module.info.sv	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sv.auto	179 B	-rw-r--r--	2026-07-19 16:26
module.info.tr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.tr.auto	172 B	-rw-r--r--	2026-07-19 16:26
module.info.uk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.uk.auto	282 B	-rw-r--r--	2026-07-19 16:26
module.info.zh	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh.auto	150 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW.auto	159 B	-rw-r--r--	2026-07-19 16:26
save_cron.cgi	1.74 KB	-rwxr-xr-x	2026-07-19 16:28
save_global.cgi	1.57 KB	-rwxr-xr-x	2026-07-19 16:28
save_poll.cgi	3.53 KB	-rwxr-xr-x	2026-07-19 16:28
start.cgi	1.16 KB	-rwxr-xr-x	2026-07-19 16:28
stop.cgi	790 B	-rwxr-xr-x	2026-07-19 16:28

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;
}