#!/usr/local/bin/perl # list_rcpts.cgi # Display domains for which we accept mail for relaying or local delivery require './qmail-lib.pl'; &ui_print_header(undef, $text{'rcpts_title'}, ""); $dlist = &list_control_file("rcpthosts"); $dlist2 = &list_control_file("morercpthosts"); print "
\n"; &ui_print_footer("", $text{'index_return'});