#!/usr/local/bin/perl # edit_dialin.cgi # Display a caller-ID number for editing require './pap-lib.pl'; $access{'dialin'} || &error($text{'dialin_ecannot'}); &ReadParse(); if ($in{'new'}) { &ui_print_header(undef, $text{'dialin_create'}, ""); } else { &ui_print_header(undef, $text{'dialin_edit'}, ""); @dialin = &parse_dialin_config(); $dialin = $dialin[$in{'idx'}]; } print "
\n"; &ui_print_footer("list_dialin.cgi", $text{'dialin_return'});