#!/usr/local/bin/perl # edit_global.cgi # Edit options for all poll sections in a file 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', "$in{'user'}"); } &ui_print_header($uheader, $text{'global_title'}, ""); @conf = &parse_config_file($file); foreach $c (@conf) { $poll = $c if ($c->{'defaults'}); } print "