Viewing file:  mailusers.cgi (1.44 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Actually email mailboxes in a domain
require './virtual-server-lib.pl';
&ReadParseMime();
$d = &get_domain($in{'dom'});
&can_edit_domain($d) || &error($text{'users_ecannot'});
&can_edit_users() || &error($text{'users_ecannot'});
&foreign_require("mailboxes");
# Validate inputs
&error_setup($text{'mailusers_err'});
if ($in{'to_def'}) {
@users = grep { $_->{'email'} || $_->{'user'} eq $d->{'user'} }
&list_domain_users($d, 0, 0, 0, 0);
}
else {
%to = map { $_, 1 } split(/\0/, $in{'to'});
@users = grep { $to{$_->{'user'}} } &list_domain_users($d, 0, 0, 0, 0);
}
@users || &error($text{'mailusers_eto'});
$in{'subject'} =~ /\S/ || &error($text{'newnotify_esubject'});
$in{'from'} =~ /^\S+\@\S+$/ || &error($text{'newnotify_efrom'});
$in{'body'} =~ s/\r//g;
$in{'body'} =~ /\S/ || &error($text{'newnotify_ebody'});
# Construct and send the email
&send_notify_email($in{'from'}, \@users, $d, $in{'subject'}, $in{'body'},
$in{'attach'}, $in{"attach_filename"},
$in{"attach_content_type"}, undef, 0, &get_charset());
# Tell the user
&ui_print_header(&domain_in($d), $text{'mailusers_title'}, "");
print $text{'newnotify_done'},"<p>\n";
@to = map { $_->{'email'} || $_->{'user'} } @users;
foreach $t (@to) {
print "<tt>$t</tt><br>\n";
}
&run_post_actions();
&webmin_log("mailusers", undef, undef, { 'to' => join("\0", @to) });
&ui_print_footer("list_users.cgi?dom=$in{'dom'}", $text{'users_return'},
"", $text{'index_return'});
|