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
# edit_poll.cgi
# Display one server polled by fetchmail

require './fetchmail-lib.pl';
&ReadParse();
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";
	$uheader = &text('poll_foruser', "<tt>$in{'user'}</tt>");
	}

if ($in{'new'}) {
	&ui_print_header($uheader, $text{'poll_create'}, "");
	}
else {
	&ui_print_header($uheader, $text{'poll_edit'}, "");
	@conf = &parse_config_file($file);
	$poll = $conf[$in{'idx'}];
	}

# Show server options
print &ui_form_start("save_poll.cgi", "post");
print &ui_hidden("new", $in{'new'});
print &ui_hidden("idx", $in{'idx'});
print &ui_hidden("file", $file);
print &ui_hidden("user", $in{'user'});
print &ui_table_start($text{'poll_header'}, "width=100%", 2);

# Server to poll
print &ui_table_row($text{'poll_poll'},
	&ui_textbox("poll", $poll->{'poll'}, 30));

# Polling enabled?
print &ui_table_row($text{'poll_skip'},
	&ui_yesno_radio("skip", $poll->{'skip'} ? 1 : 0,
			[ [ 0, $text{'yes'} ],
			  [ 1, $text{'no'} ] ]));

# Server to connect via
print &ui_table_row($text{'poll_via'},
	&ui_opt_textbox("via", $poll->{'via'}, 30, $text{'poll_via_def'}), 3);

# Protocol
print &ui_table_row($text{'poll_proto'},
	&ui_select("proto", lc($poll->{'proto'}),
		   [ [ '', $text{'default'} ],
		     map { [ $_, uc($_) ] } ('pop3', 'pop2', 'imap', 'imap-k4', 'imap-gss', 'apop', 'kpop'),
		   ], 1, 0, 1));

# Port number
print &ui_table_row($text{'poll_port'},
	&ui_opt_textbox("port", $poll->{'port'}, 8, $text{'default'}));

# Authentication method
print &ui_table_row($text{'poll_auth'},
	&ui_select("auth", lc($poll->{'auth'}),
		   [ [ '', $text{'default'} ],
		     map { [ $_, uc($_) ] } ('password', 'kerberos_v5', 'kerberos_v4', 'gssapi', 'cram-md5', 'otp', 'ntlm', 'ssh') ],
		   1, 0, 1));

# Interface to depend on
@interface = split(/\//, $poll->{'interface'});
print &ui_table_row($text{'poll_interface'},
	&ui_radio("interface_def", @interface ? 0 : 1,
		  [ [ 1, $text{'poll_interface_def'} ],
		    [ 0, $text{'poll_interface_ifc'} ] ])."\n".
	&ui_textbox("interface", $interface[0], 8)." ".
	$text{'poll_interface_ip'}." ".
	&ui_textbox("interface_net", $interface[1], 15)." / ".
	&ui_textbox("interface_mask", $interface[2], 15));

print &ui_table_end();

# Show user options
@users = @{$poll->{'users'}};
push(@users, undef) if ($in{'new'} || $in{'adduser'});
$i = 0;
foreach $u (@users) {
	print &ui_table_start($text{'poll_uheader'}, "width=100%", 2);

# IMAP username
	print &ui_table_row($text{'poll_user'},
		&ui_textbox("user_$i", $u->{'user'}, 25));

# IMAP password
	print &ui_table_row($text{'poll_pass'},
		&ui_password("pass_$i", $u->{'pass'}, 25));

# Deliver to local users
	print &ui_table_row($text{'poll_is'},
		&ui_textbox("is_$i", join(" ", @{$u->{'is'}}) ||
				     $remote_user, 60));

# Folder to check
	print &ui_table_row($text{'poll_folder'},
		&ui_opt_textbox("folder_$i", $u->{'folder'}, 15,
				$text{'poll_inbox'}));

# Leave messages on server?
	my @kopts = ( [ 1, $text{'yes'} ], [ 0, $text{'no'} ],
		      [ '', $text{'default'}." (".$text{'poll_usually'}.")" ] );
	print &ui_table_row($text{'poll_keep'},
		&ui_radio("keep_$i", $u->{'keep'}, \@kopts));

# Always fetch all?
	print &ui_table_row($text{'poll_fetchall'},
		&ui_radio("fetchall_$i", $u->{'fetchall'}, \@kopts));

# Connect in SSL mode?
	print &ui_table_row($text{'poll_ssl'},
		&ui_radio("ssl_$i", $u->{'ssl'}, \@kopts));

# Command to run before and after connecting
	print &ui_table_row($text{'poll_preconnect'},
		&ui_textbox("preconnect_$i", $u->{'preconnect'}, 60));
	print &ui_table_row($text{'poll_postconnect'},
		&ui_textbox("postconnect_$i", $u->{'postconnect'}, 60));

print &ui_table_end();
	$i++;
	}

if ($in{'new'}) {
	push(@buts, [ undef, $text{'create'} ]);
	}
else {
	push(@buts, [ undef, $text{'save'} ]);
	if (!$in{'adduser'}) {
		push(@buts, [ 'adduser', $text{'poll_adduser'} ]);
		}
	push(@buts, [ 'check', $text{'poll_check'} ]);
	push(@buts, [ 'delete', $text{'delete'} ]);
	}
print &ui_form_end(\@buts);

if (!$fetchmail_config && $config{'view_mode'}) {
	&ui_print_footer("edit_user.cgi?user=$in{'user'}", $text{'user_return'},
			 "", $text{'index_return'});
	}
else {
	&ui_print_footer("", $text{'index_return'});
	}