FM / fetchmail

/usr/share/usermin/fetchmail

Name	Size	Mode	Actions
images/	-	0755	rm
lang/	-	0755	rm
ulang/	-	0755	rm
CHANGELOG	298	0644	edit dl rm
check.cgi	1605	0755	edit dl rm
check.pl	2528	0755	edit dl rm
config	49	0644	edit dl rm
config.info	218	0644	edit dl rm
config.info.ca	249	0755	edit dl rm
config.info.cs	103	0644	edit dl rm
config.info.de	119	0644	edit dl rm
config.info.nl	238	0755	edit dl rm
config.info.no	231	0644	edit dl rm
defaultacl	7	0644	edit dl rm
edit_cron.cgi	2037	0755	edit dl rm
edit_global.cgi	1867	0755	edit dl rm
edit_poll.cgi	4378	0755	edit dl rm
fetchmail-lib.pl	8678	0755	edit dl rm
index.cgi	1608	0755	edit dl rm
module.info	198	0644	edit dl rm
module.info.ar	0	0644	edit dl rm
module.info.ar.auto	212	0644	edit dl rm
module.info.bg	0	0644	edit dl rm
module.info.bg.auto	242	0644	edit dl rm
module.info.ca	39	0644	edit dl rm
module.info.ca.auto	147	0644	edit dl rm
module.info.cs	39	0644	edit dl rm
module.info.cs.auto	147	0644	edit dl rm
module.info.da	0	0644	edit dl rm
module.info.da.auto	166	0644	edit dl rm
module.info.de	152	0644	edit dl rm
module.info.el	0	0644	edit dl rm
module.info.el.auto	357	0644	edit dl rm
module.info.es	0	0644	edit dl rm
module.info.es.auto	194	0644	edit dl rm
module.info.eu	0	0644	edit dl rm
module.info.eu.auto	188	0644	edit dl rm
module.info.fa	0	0644	edit dl rm
module.info.fa.auto	230	0644	edit dl rm
module.info.fi	0	0644	edit dl rm
module.info.fi.auto	165	0644	edit dl rm
module.info.fr	0	0644	edit dl rm
module.info.fr.auto	187	0644	edit dl rm
module.info.hr	0	0644	edit dl rm
module.info.hr.auto	183	0644	edit dl rm
module.info.hu	42	0644	edit dl rm
module.info.hu.auto	150	0644	edit dl rm
module.info.it	0	0644	edit dl rm
module.info.it.auto	173	0644	edit dl rm
module.info.ja	30	0644	edit dl rm
module.info.ja.auto	186	0644	edit dl rm
module.info.ko	0	0644	edit dl rm
module.info.ko.auto	192	0644	edit dl rm
module.info.ms	0	0644	edit dl rm
module.info.ms.auto	166	0644	edit dl rm
module.info.nl	34	0644	edit dl rm
module.info.no	30	0644	edit dl rm
module.info.no.auto	136	0644	edit dl rm
module.info.pl	38	0644	edit dl rm
module.info.pl.auto	138	0644	edit dl rm
module.info.pt	0	0644	edit dl rm
module.info.pt.auto	176	0644	edit dl rm
module.info.pt_BR	0	0644	edit dl rm
module.info.pt_BR.auto	185	0644	edit dl rm
module.info.ru	0	0644	edit dl rm
module.info.ru.auto	242	0644	edit dl rm
module.info.sk	0	0644	edit dl rm
module.info.sk.auto	184	0644	edit dl rm
module.info.sv	0	0644	edit dl rm
module.info.sv.auto	179	0644	edit dl rm
module.info.tr	0	0644	edit dl rm
module.info.tr.auto	172	0644	edit dl rm
module.info.uk	0	0644	edit dl rm
module.info.uk.auto	282	0644	edit dl rm
module.info.zh	0	0644	edit dl rm
module.info.zh.auto	150	0644	edit dl rm
module.info.zh_TW	0	0644	edit dl rm
module.info.zh_TW.auto	159	0644	edit dl rm
save_cron.cgi	1784	0755	edit dl rm
save_global.cgi	1607	0755	edit dl rm
save_poll.cgi	3618	0755	edit dl rm
start.cgi	1186	0755	edit dl rm
stop.cgi	790	0755	edit dl rm

Edit: /usr/share/usermin/fetchmail/index.cgi (1608B)

#!/usr/bin/perl
# index.cgi
# Show fetchmail configurations

require './fetchmail-lib.pl';
&ui_print_header(undef, $text{'index_title'}, "", undef, 0, 1);

# Check if fetchmail is installed
if (!&has_command($config{'fetchmail_path'})) {
	print &text('index_efetchmail',
			  "<tt>$config{'fetchmail_path'}</tt>"),"<p>\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

@conf = &parse_config_file($fetchmail_config);
@conf = grep { $_->{'poll'} } @conf;
if (!@conf) {
	print "<b>$text{'index_none'}</b><p>\n";
	}
&show_polls(\@conf, $fetchmail_config, $remote_user_info[0]);

if (@conf) {
	# Show the fetchmail daemon form
	print "<hr>\n";
	print &ui_buttons_start();

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

if ($can_daemon) {
		print "<tr><td>\n";
		foreach $pf ("$remote_user_info[7]/.fetchmail.pid",
			     "$remote_user_info[7]/.fetchmail") {
			if (open(PID, $pf) && ($line=<PID>) &&
			    (($pid,$interval) = split(/\s+/, $line)) && $pid &&
			    kill(0, $pid)) {
				$running = $pf;
				last;
				}
			}
		if ($running) {
			# daemon is running - offer to stop it
			print &ui_buttons_row("stop.cgi",
				$text{'index_stop'},
				&text('index_stopmsg',$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)));
			}
		}
	print &ui_buttons_end();
	}

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

#!/usr/bin/perl # index.cgi # Show fetchmail configurations require './fetchmail-lib.pl'; &ui_print_header(undef, $text{'index_title'}, "", undef, 0, 1); # Check if fetchmail is installed if (!&has_command($config{'fetchmail_path'})) { print &text('index_efetchmail', "$config{'fetchmail_path'}"),"

\n"; &ui_print_footer("/", $text{'index'}); exit; } @conf = &parse_config_file($fetchmail_config); @conf = grep { $_->{'poll'} } @conf; if (!@conf) { print "$text{'index_none'}

\n"; } &show_polls(\@conf, $fetchmail_config, $remote_user_info[0]); if (@conf) { # Show the fetchmail daemon form print "

\n"; print &ui_buttons_start(); if (&foreign_check("cron") && $can_cron) { # Show button to manage cron job print &ui_buttons_row("edit_cron.cgi", $text{'index_cron'}, $text{'index_crondesc'}); } if ($can_daemon) { print "\n"; foreach $pf ("$remote_user_info[7]/.fetchmail.pid", "$remote_user_info[7]/.fetchmail") { if (open(PID, $pf) && ($line=) && (($pid,$interval) = split(/\s+/, $line)) && $pid && kill(0, $pid)) { $running = $pf; last; } } if ($running) { # daemon is running - offer to stop it print &ui_buttons_row("stop.cgi", $text{'index_stop'}, &text('index_stopmsg',$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))); } } print &ui_buttons_end(); } &ui_print_footer("/", $text{'index'});