#!/usr/local/bin/perl # list_virts.cgi # Display a list of virtual domain mappings require './qmail-lib.pl'; &ReadParse(); &ui_print_header(undef, $text{'virts_title'}, ""); @virts = &list_virts(); print &text('virts_desc', "list_aliases.cgi"),"
\n";
&virt_form();
if ($in{'search'}) {
# Restrict to search results
@virts = grep { $_->{'from'} =~ /$in{'search'}/ } @virts;
}
elsif ($config{'max_records'} && @virts > $config{'max_records'}) {
# Show search form
print $text{'virts_toomany'},"
\n";
print "
\n"; &virts_table(@virts[0..$mid-1]); print " | \n"; if ($mid < @virts) { &virts_table(@virts[$mid..$#virts]); } print " |
$text{'virts_from'} | ", "$text{'virts_prepend'} | |
",&ui_checkbox("d", $v->{'from'})," | \n"; print "{'idx'}\">", ($v->{'from'} ? &html_escape($v->{'from'}) : "$text{'virts_all'}")," | \n"; print "",($v->{'prepend'} ? &html_escape($v->{'prepend'}) : "$text{'virts_none'}")," |