#!/usr/local/bin/perl # edit_dialin.cgi # Display a list of allowed and denied caller-ID numbers require './pap-lib.pl'; $access{'dialin'} || &error($text{'dialin_ecannot'}); &ui_print_header(undef, $text{'dialin_title'}, ""); # Check for the mgetty login config file if (!-r $config{'login_config'}) { print "
",&text('dialin_efile', "$config{'dialin_config'}", "$gconfig{'webprefix'}/config.cgi?$module_name"),"
\n"; &ui_print_footer("", $text{'index_return'}); exit; } @dialin = &parse_dialin_config(); print "$text{'dialin_desc'}
\n";
if (@dialin) {
print "$text{'dialin_add'}
\n";
print "
$text{'dialin_number'} | ", "$text{'dialin_ad'} | ", "$text{'dialin_move'} |
", $d->{'number'} eq 'all' ? $text{'dialin_all'} : $d->{'number'} eq 'none' ? $text{'dialin_none'} : $d->{'number'}," | \n"; print "",$d->{'not'} ? $text{'dialin_deny'} : $text{'dialin_allow'}," | \n"; print ""; if ($d eq $dialin[@dialin-1]) { print ""; } else { print "", ""; } if ($d eq $dialin[0]) { print ""; } else { print "", ""; } print " | \n"; print "
\n"; } print "$text{'dialin_add'}
\n"; &ui_print_footer("", $text{'index_return'});