sendmail/edit_domain.cgi

   1 #!/usr/local/bin/perl
   2 # edit_domain.cgi
   3 # Edit an existing domain
   4
   5 require './sendmail-lib.pl';
   6 require './domain-lib.pl';
   7 &ReadParse();
   8 $access{'domains'} || &error($text{'dform_ecannot'});
   9 $conf = &get_sendmailcf();
  10 @doms = &list_domains(&domains_file($conf));
  11
  12 &ui_print_header(undef, $text{'dform_edit'}, "");
  13 &domain_form($doms[$in{'num'}]);
  14 &ui_print_footer("list_domains.cgi", $text{'domains_return'},
  15         "", $text{'index_return'});
  16