sendmail/list_aliases.cgi

   1 #!/usr/local/bin/perl
   2 # list_aliases.cgi
   3 # Displays a list of all aliases
   4
   5 require './sendmail-lib.pl';
   6 require './aliases-lib.pl';
   7 &ReadParse();
   8 $access{'amode'} || &error($text{'aliases_ecannot'});
   9 $conf = &get_sendmailcf();
  10 $afile = &aliases_file($conf);
  11 @$afile || &error($text{'aliases_enofile'});
  12 &ui_print_header(undef, $text{'aliases_title'}, "", "aliases");
  13
  14 @aliases = &list_aliases($afile);
  15 if ($access{'amode'} == 2) {
  16         @aliases = grep { $_->{'name'} =~ /$access{'aliases'}/ } @aliases;
  17         }
  18 elsif ($access{'amode'} == 3) {
  19         @aliases = grep { $_->{'name'} eq $remote_user } @aliases;
  20         }
  21 @aliases = grep { local $rv = 1;
  22                   foreach $v (@{$_->{'values'}}) {
  23                         $rv = 0 if (!$access{"aedit_".&alias_type($v)});
  24                         }
  25                   $rv;
  26                 } @aliases;
  27
  28 &alias_form(undef, undef, $afile);
  29
  30 if ($in{'search'}) {
  31         # Restrict to search results
  32         @aliases = grep { $_->{'name'} =~ /$in{'search'}/ } @aliases;
  33         }
  34 elsif ($config{'max_records'} && @aliases > $config{'max_records'}) {
  35         # Show search form
  36         print $text{'aliases_toomany'},"<br>\n";
  37         print "<form action=list_aliases.cgi>\n";
  38         print "<input type=submit value='$text{'aliases_go'}'>\n";
  39         print "<input name=search size=20></form>\n";
  40         undef(@aliases);
  41         }
  42
  43 if (@aliases) {
  44         # sort if needed
  45         if ($config{'sort_mode'} == 1) {
  46                 @aliases = sort { lc($a->{'name'}) cmp lc($b->{'name'}) }
  47                                 @aliases;
  48                 }
  49
  50         # find a good place to split
  51         $lines = 0;
  52         for($i=0; $i<@aliases; $i++) {
  53                 $aline[$i] = $lines;
  54                 $al = scalar(@{$aliases[$i]->{'values'}});
  55                 $lines += ($al ? $al : 1);
  56                 }
  57         $midline = int(($lines+1) / 2);
  58         for($mid=0; $mid<@aliases && $aline[$mid] < $midline; $mid++) { }
  59
  60         # render tables
  61         print &ui_form_start("delete_aliases.cgi", "post");
  62         @links = ( &select_all_link("d", 1),
  63                    &select_invert_link("d", 1) );
  64         print &ui_links_row(\@links);
  65         if ($config{'columns'} == 2) {
  66                 print "<table width=100%> <tr><td width=50% valign=top>\n";
  67                 &aliases_table(@aliases[0..$mid-1]);
  68                 print "</td><td width=50% valign=top>\n";
  69                 if ($mid < @aliases) { &aliases_table(@aliases[$mid..$#aliases]); }
  70                 print "</td></tr> </table><br>\n";
  71                 }
  72         else {
  73                 &aliases_table(@aliases);
  74                 }
  75         print &ui_links_row(\@links);
  76         print &ui_form_end([ [ "delete", $text{'aliases_delete'} ] ]);
  77         }
  78
  79 if ($access{'amode'} == 1 && $access{'aedit_1'} && $access{'aedit_2'} &&
  80     $access{'aedit_3'} && $access{'aedit_4'} && $access{'aedit_5'} &&
  81     $access{'amax'} == 0 && $access{'apath'} eq '/' &&
  82     $access{'manual'}) {
  83         $i = 0;
  84         foreach $f (@{&aliases_file($conf)}) {
  85                 print "<a href='edit_file.cgi?mode=aliases&idx=$i'>",
  86                         &text('file_edit', "<tt>$f</tt>"),
  87                         "</a>&nbsp;&nbsp;\n";
  88                 $i++;
  89                 }
  90         print "<p>\n";
  91         }
  92
  93 &ui_print_footer("", $text{'index_return'});
  94
  95 sub aliases_table
  96 {
  97 local @tds = ( "width=5", "valign=top", "valign=top" );
  98 print &ui_columns_start([ "",
  99                           $text{'aliases_addr'},
 100                           $text{'aliases_to'},
 101                           $config{'show_cmts'} ? ( $text{'virtusers_cmt'} )
 102                                                : ( ) ], 100, 0, \@tds);
 103 foreach $a (@_) {
 104         local @cols;
 105         push(@cols, "<a href=\"edit_alias.cgi?num=$a->{'num'}\">".
 106               ($a->{'enabled'} ? "" : "<i>").&html_escape($a->{'name'}).
 107               ($a->{'enabled'} ? "" : "</i>")."</a>");
 108         local $vstr;
 109         foreach $v (@{$a->{'values'}}) {
 110                 ($anum, $astr) = &alias_type($v);
 111                 $vstr .= &text("aliases_type$anum",
 112                             "<tt>".&html_escape($astr)."</tt>")."<br>\n";
 113                 }
 114         $vstr ||= "<i>$text{'aliases_none'}</i>\n";
 115         push(@cols, $vstr);
 116         push(@cols, &html_escape($a->{'cmt'})) if ($config{'show_cmts'});
 117         print &ui_checked_columns_row(\@cols, \@tds, "d", $a->{'name'});
 118         }
 119 print &ui_columns_end();
 120 }
 121