",&text('index_efetchmail', "$config{'fetchmail_path'}"),"
\n"; print "
| \n";
foreach $pf ("$remote_user_info[7]/.fetchmail.pid",
"$remote_user_info[7]/.fetchmail") {
if (open(PID, $pf) && ($line= | \n";
print "",&text('index_stopmsg', $interval)," | \n"; } else { # daemon isn't running - offer to start it print "
| $text{'index_poll'} | ", "$text{'index_proto'} | ", "$text{'index_users'} |
| ",&html_escape($p->{'poll'}), " | \n"; print "",$p->{'proto'} ? &html_escape(uc($p->{'proto'})) : $text{'default'}," | \n"; print "\n";
foreach $u (@{$p->{'users'}}) {
printf "%s -> %s \n", &html_escape($u->{'user'}), &html_escape(@{$u->{'is'}} ? join(" ", @{$u->{'is'}}) : $_[2]); } print " |
\n"; } print "$text{'index_add'}\n"; print " \n"; print "$text{'index_global'}\n"; print " \n"; if (@{$_[0]}) { print "$text{'index_run'}\n"; } print "
\n"; } fetchmail/fetchmail-lib.pl 0100664 0005671 0000012 00000000100 07563067500 015531 0 ustar jcameron wheel do './webmin-fetchmail-lib.pl'; &switch_to_remote_user(); 1; fetchmail/edit_poll.cgi 0100775 0005671 0000012 00000013466 07531044751 015157 0 ustar jcameron wheel #!/usr/local/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"; } if ($in{'new'}) { &header($text{'poll_create'}, ""); } else { &header($text{'poll_edit'}, ""); @conf = &parse_config_file($file); $poll = $conf[$in{'idx'}]; } print "