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
# index.cgi
# Show fetchmail configurations

require './fetchmail-lib.pl';

# Check if fetchmail is installed
if (!&has_command($config{'fetchmail_path'})) {
	&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
		&help_search_link("fetchmail", "doc", "man", "google"));
	print "",&text('index_efetchmail',
			 "<tt>$config{'fetchmail_path'}</tt>",
			 "@{[&get_webprefix()]}/config.cgi?$module_name"),"\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

# Get and show the version
$ver = &get_fetchmail_version();
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
	&help_search_link("fetchmail", "doc", "man", "google"), undef, undef,
	&text('index_version', $ver));

if ($config{'config_file'}) {
	# Just read one config file
	@conf = &parse_config_file($config{'config_file'});
	@conf = grep { $_->{'poll'} } @conf;
	print "",&text('index_file',
			 "<tt>$config{'config_file'}</tt>"),"\n";
	print &show_polls(\@conf, $config{'config_file'}, $config{'daemon_user'});

print &ui_hr();
	print &ui_buttons_start();

if (&foreign_installed("cron") && $access{'cron'}) {
		# Show button to manage cron job
		print &ui_buttons_row("edit_cron.cgi", $text{'index_cron'},
				      $text{'index_crondesc'});
		}

# Show the fetchmail daemon form
	if (&is_fetchmail_running()) {
		# daemon is running - offer to stop it
		print &ui_buttons_row("stop.cgi", $text{'index_stop'},
			&text('index_stopmsg',
			 "<tt>$config{'daemon_user'}</tt>",
			 $interval));
		}
	else {
		# daemon isn't running - offer to start it
		print &ui_buttons_row("start.cgi", $text{'index_start'},
			&text('index_startmsg', &ui_textbox("interval", 60, 5),
			 "<tt>$config{'daemon_user'}</tt>"));
		}
	print &ui_buttons_end();
	}
else {
	# Build a list of users with fetchmail configurations
	$ucount = 0;
	setpwent();
	while(@uinfo = getpwent()) {
		next if ($donehome{$uinfo[7]}++);
		next if (!&can_edit_user($uinfo[0]));
		local @conf = &parse_config_file("$uinfo[7]/.fetchmailrc");
		@conf = grep { $_->{'poll'} } @conf;
		if (@conf) {
			push(@users, [ \@conf, [ @uinfo ] ]);
			}
		$ucount++;
		last if ($config{'max_users'} &&
			 $ucount > $config{'max_users'});
		}
	endpwent() if ($gconfig{'os_type'} ne 'hpux');
	@users = sort { $a->[1]->[0] cmp $b->[1]->[0] } @users;
	if (!@users) {
		# None found
		print " $text{'index_none'}\n";
		}
	elsif ($config{'max_users'} && $ucount > $config{'max_users'}) {
		# Show user search form
		print "$text{'index_toomany'}\n";
		print &ui_form_start("edit_user.cgi");
		print "$text{'index_search'}\n";
		print &ui_user_textbox("user", undef, 20),"\n";
		print &ui_submit($text{'index_show'}),"\n";
		print &ui_form_end();
		$toomany = 1;
		}
	elsif (!$config{'view_mode'}) {
		# Full details
		&show_button();
		print &ui_columns_start([ $text{'index_user'}, $text{'index_conf'} ], 100);
		foreach $u (@users) {
			print &ui_columns_row([
				&html_escape($u->[1]->[0]),
				&show_polls($u->[0], "$u->[1]->[7]/.fetchmailrc",
					 $u->[1]->[0]) ]);
			}
		print &ui_columns_end();
		}
	else {
		# Just show usernames
		my @grid;
		foreach $u (@users) {
			push(@grid, &ui_link("edit_user.cgi?user=$u->[1]->[0]","$u->[1]->[0]"));
			}
		print &ui_table_start($text{'index_header'}, "width=100%", 1);
		print &ui_table_row(undef, &ui_grid_table(\@grid, 4));
		print &ui_table_end();
		}
	if (!$toomany) {
		&show_button(1);
		# Only display the bottom form when there are too many users,
		# i.e. requiring page scrolling
		print &ui_hide_outside_of_viewport();
		}

if (&foreign_installed("cron") && $access{'cron'}) {
		# Show button to manage global cron job
		print &ui_hr();
		print &ui_buttons_start();
		print &ui_buttons_row("edit_cron.cgi",
				      $text{'index_cron'}, $text{'index_crondesc2'});
		print &ui_buttons_end();
		}
	}

&ui_print_footer("/", $text{'index'});

sub show_button
{
my $bottom = shift;
my $bottom_form;
$bottom_form = 'data-outside-of-viewport' if ($bottom);
if ($access{'mode'} != 3 || !$doneheader) {
	print &ui_form_start("edit_poll.cgi", "get", undef, $bottom_form);
	print &ui_hidden("view", 1);
	print &ui_submit($text{'index_fadd'});
	print &unix_user_input("user");
	print &ui_form_end();
	}
}