Viewing file:  list_aliases.cgi (3.26 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# list_aliases.cgi
# Display users and aliases in a domain
$trust_unknown_referers = 1;
require './virtual-server-lib.pl';
&ReadParse();
$d = &get_domain($in{'dom'});
$d || &error($text{'edit_egone'});
&can_edit_domain($d) && &can_edit_aliases() || &error($text{'aliases_ecannot'});
@aliases = &list_domain_aliases($d, !$in{'show'});
$msg = &text('aliases_indom', scalar(@aliases),
"<tt>".&show_domain_name($d)."</tt>");
&ui_print_header($msg, $text{'aliases_title'}, "");
# Create add links
($mleft, $mreason, $mmax, $mhide) = &count_feature("aliases");
if ($mleft != 0) {
push(@links, [ "edit_alias.cgi?new=1&dom=".&urlize($in{'dom'}).
"&show=".&urlize($in{'show'}),
$text{'aliases_add'} ]);
}
push(@links, [ "mass_aedit_form.cgi?dom=".&urlize($in{'dom'}),
$text{'aliases_emass'}, 'right' ]);
if ($in{'show'}) {
push(@links, [ "list_aliases.cgi?dom=".&urlize($in{'dom'})."&show=0",
$text{'aliases_hide'}, 'right' ]);
}
else {
push(@links, [ "list_aliases.cgi?dom=".&urlize($in{'dom'})."&show=1",
$text{'aliases_show'}, 'right' ]);
}
# Show reason why aliases cannot be added
if ($mleft != 0 && $mleft != -1 && !$mhide) {
print "<b>",&text('aliases_canadd'.$mreason,$mleft),"</b><p>\n";
}
elsif ($mleft == 0) {
print "<b>",&text('aliases_noadd'.$mreason, $mmax),"</b><p>\n";
}
# Make the table data
@table = ( );
if ($can_alias_comments) {
($anycmt) = grep { $_->{'cmt'} } @aliases;
}
foreach $a (sort { $a->{'from'} cmp $b->{'from'} } @aliases) {
$name = $a->{'from'};
$name =~ s/\@\S+$//;
$name = "<i>$text{'alias_catchall'}</i>" if ($name eq "");
$alines = "";
$simple = &get_simple_alias($d, $a);
foreach $v (@{$a->{'to'}}) {
($anum, $astr) = &alias_type($v);
if ($anum == 5 && $simple) {
# Show shortened autoreply message
$msg = $simple->{'autotext'};
$msg = substr($msg, 0, 100)." ..."
if (length($msg) > 100);
$alines .= &text('aliases_reply',
"<i>".&html_escape($msg)."</i>")."<br>\n";
}
elsif ($anum == 13) {
# Show everyone domain
$ed = &get_domain($astr);
$alines .= &text("aliases_type$anum",
"<tt>".&show_domain_name($ed)."</tt>")."<br>\n";
}
else {
$alines .= &text("aliases_type$anum",
"<tt>".&html_escape(&unescape_user($astr))."</tt>")."<br>\n";
}
}
if (!@{$a->{'to'}}) {
$alines = "<i>$text{'aliases_dnone'}</i>\n";
}
push(@table, [
{ 'type' => 'checkbox', 'name' => 'd',
'value' => $a->{'from'} },
"<a href='edit_alias.cgi?dom=".&urlize($in{'dom'})."&".
"alias=".&urlize($a->{'from'})."&show=".&urlize($in{'show'})."'>$name</a>",
$alines,
$anycmt ? ( $a->{'cmt'} ) : ( ),
]);
}
# Generate the table
print &ui_form_columns_table(
"delete_aliases.cgi",
[ [ "delete", $text{'aliases_delete'} ] ],
1,
\@links,
[ [ "dom", $in{'dom'} ],
[ "show", $in{'show'} ] ],
[ "", $text{'aliases_name'},
$text{'aliases_dests'},
$anycmt ? ( $text{'aliases_cmt'} ) : ( ) ],
100,
\@table,
undef, 0, undef,
$text{'aliases_none'});
# Make sure the left menu is showing this domain
if (defined(&theme_select_domain)) {
&theme_select_domain($d);
}
if ($single_domain_mode) {
&ui_print_footer(&domain_footer_link($d),
"", $text{'index_return2'});
}
else {
&ui_print_footer(&domain_footer_link($d),
"", $text{'index_return'});
}
|