#!/usr/local/bin/perl
# list_aliases.cgi
# Displays a list of all aliases
# XXX .qmail-default and .qmail-foo-default alias support
require './qmail-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'aliases_title'}, "");
@aliases = &list_aliases();
&alias_form();
if ($in{'search'}) {
# Restrict to search results
@aliases = grep { $_ =~ /$in{'search'}/ } @aliases;
}
elsif ($config{'max_records'} && @aliases > $config{'max_records'}) {
# Show search form
print $text{'aliases_toomany'},"
\n";
print "
\n"; &aliases_table(@aliases[0..$mid-1]); print " | \n"; if ($mid < @aliases) { &aliases_table(@aliases[$mid..$#aliases]); } print " |
$text{'aliases_addr'} | ", "$text{'aliases_to'} | |
",&ui_checkbox("d", $a->{'name'})," | \n"; print "{'name'}\">", &html_escape($n)," | \n"; print "\n";
foreach $v (@{$a->{'values'}}) {
($anum, $astr) = &alias_type($v);
print &text("aliases_type$anum",
"".&html_escape($astr)."")," \n"; } if (!@{$a->{'values'}}) { print "$text{'aliases_none'}\n"; } print " |