sendmail/list_virtusers.cgi

   1 #!/usr/local/bin/perl
   2 # list_virtusers.cgi
   3 # Display a list of all domain and address mappings
   4
   5 require './sendmail-lib.pl';
   6 require './virtusers-lib.pl';
   7 &ReadParse();
   8 $access{'vmode'} || &error($text{'virtusers_ecannot'});
   9 &ui_print_header(undef, $text{'virtusers_title'}, "");
  10
  11 $conf = &get_sendmailcf();
  12 $vfile = &virtusers_file($conf);
  13 ($vdbm, $vdbmtype) = &virtusers_dbm($conf);
  14 if (!$vdbm) {
  15         # No Kvirtuser directive in sendmail.cf
  16         print "<b>",&text('virtusers_efeature', 'list_features.cgi'),"</b><p>\n";
  17         &ui_print_footer("", $text{'index_return'});
  18         exit;
  19         }
  20 if (!-r $vfile) {
  21         # Text file not found
  22         print "<b>",&text('virtusers_efile', "<tt>$vfile</tt>",
  23               "<tt>$vdbm</tt>", "$gconfig{'webprefix'}/config.cgi?$module_name"),"</b><p>\n";
  24         print "<b>",&text('virtusers_createfile',
  25                           'create_file.cgi?mode=virtusers'),"</b><p>\n";
  26         &ui_print_footer("", $text{'index_return'});
  27         exit;
  28         }
  29 @virts = &list_virtusers($vfile);
  30 if ($access{'vmode'} == 2) {
  31         @virts = grep { $_->{'from'} =~ /$access{'vaddrs'}/ } @virts;
  32         }
  33 elsif ($access{'vmode'} == 3) {
  34         @virts = grep { $_->{'from'} =~ /^$remote_user\@/ } @virts;
  35         }
  36 @virts = grep { $access{"vedit_".&virt_type($_->{'to'})} } @virts;
  37 if (!$access{'vcatchall'}) {
  38         @virts = grep { $_->{'from'} !~ /^\@/ } @virts;
  39         }
  40
  41 &virtuser_form();
  42
  43 if ($in{'search'}) {
  44         # Restrict to search results
  45         @virts = grep { $_->{'from'} =~ /$in{'search'}/i ||
  46                         $_->{'to'} =~ /$in{'search'}/i } @virts;
  47         }
  48 elsif ($config{'max_records'} && @virts > $config{'max_records'}) {
  49         # Show search form
  50         print $text{'virtusers_toomany'},"<br>\n";
  51         print "<form action=list_virtusers.cgi>\n";
  52         print "<input type=submit value='$text{'virtusers_go'}'>\n";
  53         print "<input name=search size=20></form>\n";
  54         undef(@virts);
  55         }
  56
  57 if (@virts) {
  58         # sort if needed
  59         if ($config{'sort_mode'} == 1) {
  60                 @virts = sort sort_by_domain @virts;
  61                 }
  62
  63         # render table of virtusers
  64         print &ui_form_start("delete_virtusers.cgi", "post");
  65         @links = ( &select_all_link("d", 1),
  66                    &select_invert_link("d", 1) );
  67         print &ui_links_row(\@links);
  68         if ($config{'columns'} == 2) {
  69                 $mid = int((@virts+1)/2);
  70                 print "<table width=100%> <tr><td width=50% valign=top>\n";
  71                 &virts_table(@virts[0..$mid-1]);
  72                 print "</td><td width=50% valign=top>\n";
  73                 if ($mid < @virts) { &virts_table(@virts[$mid..$#virts]); }
  74                 print "</td></tr> </table><br>\n";
  75                 }
  76         else {
  77                 &virts_table(@virts);
  78                 }
  79         print &ui_links_row(\@links);
  80         print &ui_form_end([ [ "delete", $text{'virtusers_delete'} ] ]);
  81         }
  82 if ($access{'vmode'} == 1 && $access{'vedit_0'} && $access{'vedit_1'} &&
  83     $access{'vedit_2'} && $access{'vmax'} == 0 && $access{'manual'}) {
  84         print "<a href='edit_file.cgi?mode=virtusers'>",
  85                 &text('file_edit', "<tt>$vfile</tt>"),"</a><p>\n";
  86         }
  87
  88 print &text('virtusers_desc1', 'list_aliases.cgi'),"<p>\n"
  89         if ($access{'amode'});
  90 print &text('virtusers_desc2', 'list_cws.cgi'),"<br>\n"
  91         if ($access{'cws'});
  92
  93 &ui_print_footer("", $text{'index_return'});
  94
  95 sub virts_table
  96 {
  97 local @tds = ( "width=5" );
  98 print &ui_columns_start([ "",
  99                           $text{'virtusers_for'},
 100                           $text{'virtusers_to'},
 101                           $config{'show_cmts'} ? ( $text{'virtusers_cmt'} )
 102                                                : ( ) ], 100, 0, \@tds);
 103 foreach $m (@_) {
 104         local @cols;
 105         push(@cols, "<a href=\"edit_virtuser.cgi?num=$m->{'num'}\">".
 106                     "<tt>".&html_escape($m->{'from'})."</tt></a>");
 107         if ($m->{'to'} =~ /^error:(.*)$/) {
 108                 push(@cols, &text('virtusers_error',
 109                             "<tt>".&html_escape("$1")."</tt>"));
 110                 }
 111         elsif ($m->{'to'} =~ /^\%1\@(\S+)$/) {
 112                 push(@cols, &text('virtusers_domain',
 113                             "<tt>".&html_escape("$1")."</tt>"));
 114                 }
 115         else {
 116                 push(@cols, &text('virtusers_address',
 117                             "<tt>".&html_escape($m->{'to'})."</tt>"));
 118                 }
 119         push(@cols, &html_escape($m->{'cmt'})) if ($config{'show_cmts'});
 120         print &ui_checked_columns_row(\@cols, \@tds, "d", $m->{'from'});
 121         }
 122 print &ui_columns_end();
 123 }
 124