\n";
print " $text{'poll_poll'} | \n";
printf " | \n",
$poll->{'poll'};
print "$text{'poll_skip'} | \n";
printf " %s\n",
$poll->{'skip'} ? '' : 'checked', $text{'yes'};
printf " %s | \n",
$poll->{'skip'} ? 'checked' : '', $text{'no'};
print " $text{'poll_via'} | \n";
printf " %s\n",
$poll->{'via'} ? '' : 'checked', $text{'poll_via_def'};
printf "\n",
$poll->{'via'} ? 'checked' : '';
printf " | \n",
$poll->{'via'};
print " $text{'poll_proto'} | \n";
print " | \n";
print "$text{'poll_port'} | \n";
printf " %s\n",
$poll->{'port'} ? '' : 'checked', $text{'default'};
printf " %s\n",
$poll->{'port'} ? 'checked' : '';
printf " | \n",
$poll->{'port'};
print " $text{'poll_auth'} | \n";
print " | \n";
@interface = split(/\//, $poll->{'interface'});
print " $text{'poll_interface'} | \n";
printf " %s \n",
@interface ? '' : 'checked', $text{'poll_interface_def'};
printf " %s\n",
@interface ? 'checked' : '', $text{'poll_interface_ifc'};
print " ",
"$text{'poll_interface_ip'}\n";
print " /\n";
print " | \n";
print " |