pap/list_dialin.cgi

   1 #!/usr/local/bin/perl
   2 # edit_dialin.cgi
   3 # Display a list of allowed and denied caller-ID numbers
   4
   5 require './pap-lib.pl';
   6 $access{'dialin'} || &error($text{'dialin_ecannot'});
   7 &ui_print_header(undef, $text{'dialin_title'}, "");
   8
   9 # Check for the mgetty login config file
  10 if (!-r $config{'login_config'}) {
  11         print "<p>",&text('dialin_efile', "<tt>$config{'dialin_config'}</tt>",
  12             "$gconfig{'webprefix'}/config.cgi?$module_name"),"<p>\n";
  13         &ui_print_footer("", $text{'index_return'});
  14         exit;
  15         }
  16 @dialin = &parse_dialin_config();
  17
  18 print "$text{'dialin_desc'}<p>\n";
  19
  20 if (@dialin) {
  21         print "<a href='edit_dialin.cgi?new=1'>$text{'dialin_add'}</a><br>\n";
  22         print "<table border>\n";
  23         print "<tr $tb> <td><b>$text{'dialin_number'}</b></td> ",
  24               "<td><b>$text{'dialin_ad'}</b></td> ",
  25               "<td><b>$text{'dialin_move'}</b></td> </tr>\n";
  26         foreach $d (@dialin) {
  27                 print "<tr $cb>\n";
  28                 print "<td><a href='edit_dialin.cgi?idx=$d->{'index'}'>",
  29                         $d->{'number'} eq 'all' ? $text{'dialin_all'} :
  30                         $d->{'number'} eq 'none' ? $text{'dialin_none'} :
  31                         $d->{'number'},"</a></td>\n";
  32                 print "<td>",$d->{'not'} ? $text{'dialin_deny'}
  33                                          : $text{'dialin_allow'},"</td>\n";
  34                 print "<td>";
  35                 if ($d eq $dialin[@dialin-1]) {
  36                         print "<img src=images/gap.gif>";
  37                         }
  38                 else {
  39                         print "<a href='move.cgi?idx=$d->{'index'}&down=1'>",
  40                               "<img src=images/down.gif border=0></a>";
  41                         }
  42                 if ($d eq $dialin[0]) {
  43                         print "<img src=images/gap.gif>";
  44                         }
  45                 else {
  46                         print "<a href='move.cgi?idx=$d->{'index'}&up=1'>",
  47                               "<img src=images/up.gif border=0></a>";
  48                         }
  49                 print "</td>\n";
  50                 print "</tr>\n";
  51                 }
  52         print "</table>\n";
  53         }
  54 else {
  55         print "<b>$text{'dialin_nonumbers'}</b> <p>\n";
  56         }
  57 print "<a href='edit_dialin.cgi?new=1'>$text{'dialin_add'}</a><p>\n";
  58
  59 &ui_print_footer("", $text{'index_return'});
  60