#!/usr/local/bin/perl # list_access.cgi # Display a list of all domain and address mappings require './sendmail-lib.pl'; require './access-lib.pl'; &ReadParse(); $access{'access'} || &error($text{'access_ecannot'}); &ui_print_header(undef, $text{'access_title'}, ""); $conf = &get_sendmailcf(); $afile = &access_file($conf); ($adbm, $adbmtype) = &access_dbm($conf); if (!$adbm) { # No Kaccess directive in sendmail.cf print "",&text('access_efeature', 'list_features.cgi'),"
\n"; &ui_print_footer("", $text{'index_return'}); exit; } if (!-r $afile) { # Text file not found print "",&text('access_efile', "$afile", "$adbm", "$gconfig{'webprefix'}/config.cgi?$module_name"),"
\n"; print "",&text('virtusers_createfile', 'create_file.cgi?mode=access'),"
\n";
&ui_print_footer("", $text{'index_return'});
exit;
}
# Get list of spam control rules, limited to those the user can edit
@accs = &list_access($afile);
if ($access{'smode'} == 2) {
@accs = grep { $_->{'from'} =~ /$access{'saddrs'}/i } @accs;
}
&access_form();
if ($in{'search'}) {
# Restrict to search results
@accs = grep { $_->{'from'} =~ /$in{'search'}/i ||
$_->{'to'} =~ /$in{'search'}/i } @accs;
}
elsif ($config{'max_records'} && @accs > $config{'max_records'}) {
# Show search form
print $text{'access_toomany'},"
\n";
print "
\n"; &accs_table(@accs[0..$mid-1]); print " | \n"; if ($mid < @accs) { &accs_table(@accs[$mid..$#accs]); } print " |
\n" if ($access{'manual'}); print $text{'access_desc1'},"
\n"; &ui_print_footer("", $text{'index_return'}); sub accs_table { local @tds = ( "width=5" ); print &ui_columns_start([ "", $text{'access_source'}, $text{'access_action'}, $config{'show_cmts'} ? ( $text{'virtusers_cmt'} ) : ( ) ], 100, 0, \@tds); foreach $m (@_) { $from = $m->{'tag'} ? "$m->{'tag'}: $m->{'from'}" : $m->{'from'}; local @cols; push(@cols, "{'num'}\">". &html_escape($from).""); push(@cols, &html_escape($m->{'action'})); push(@cols, &html_escape($m->{'cmt'})) if ($config{'show_cmts'}); print &ui_checked_columns_row(\@cols, \@tds, "d", $m->{'from'}); } print &ui_columns_end(); }