<%doc>
Allows emailing one or more customers, based on a search for customers.
Search can be specified either through cust_main fields as cgi params, or
through a base64 encoded frozen hash in the 'search' cgi param. Form allows
selecting an existing msg_template, or creating a custom message, and shows a
preview of the message before sending. If linked to as a popup, include the
cgi parameter 'popup' for proper header handling.
This may also be used as an element in other pages, enabling you to provide
an alternate initial form while using this for search freezing/thawing and
preview/send actions, with the following options:
acl - the access right to use (defaults to 'Bulk send customer notices')
form_action - the URL to submit the form to
process_url - the URL for starting the JSRPC process
title - the title of the page
no_search_fields - arrayref of additional fields that are not search parameters
alternate_form - subroutine that returns alternate html for the initial form,
replaces msgnum/from/subject/body/action inputs and submit button, not
used if an action is specified
post_search_hook - sub hook for additional processing after search has been
processed from cgi, gets passed options 'conf' and 'search' (a reference to
the unfrozen %search hash), should be used to set msgnum or
from/subject/body cgi params
% if ($popup) {
<& /elements/header-popup.html, $title &>
% } else {
<& /elements/header.html, $title &>
% }
<& /elements/error.html &>
<& /elements/footer.html &>
<%init>
my %opt = @_;
$opt{'acl'} ||= 'Bulk send customer notices';
my $email_to;
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right($opt{'acl'});
my $conf = FS::Conf->new;
my @no_search_fields = qw( table from subject html_body text_body popup url );
my $send_to_domain = $conf->config('email-to-voice_domain');
my $form_action = $opt{'form_action'} || 'email-customers.html';
my $process_url = $opt{'process_url'} || 'process/email-customers.html';
my $title = $opt{'title'} || 'Send customer notices';
push( @no_search_fields, @{$opt{'no_search_fields'}} ) if $opt{'no_search_fields'};
my $table = $cgi->param('table') or die "'table' required";
my $agent_virt_agentnum = $cgi->param('agent_virt_agentnum') || '';
my $popup = $cgi->param('popup');
my $url = $cgi->param('url');
my $pdest = { 'message' => "Notice sent" };
$pdest->{'url'} = $cgi->param('url') if $url;
my %search;
if ( $cgi->param('search') ) {
%search = %{ thaw(decode_base64( $cgi->param('search') )) };
}
else {
%search = $cgi->Vars;
delete $search{$_} for @no_search_fields;
# FS::$table->search is expected to know which parameters might be
# multi-valued, and to accept scalar values for them also. No good
# solution to this since CGI can't tell whether a parameter _might_
# have had multiple values, only whether it does.
@search{keys %search} = map { /\0/ ? [ split /\0/, $_ ] : $_ } values %search;
}
&{$opt{'post_search_hook'}}(
'conf' => $conf,
'search' => \%search,
) if $opt{'post_search_hook'};
my $num_cust;
my $from = '';
if ( $cgi->param('from') ) {
$from = $cgi->param('from');
} elsif ( $cgi->param('from_name') ) {
$from = ($cgi->param('from_name') . ' <' . $cgi->param('from_addr') . '>');
} elsif ( $cgi->param('from_addr') ) {
$from = $cgi->param('from_addr');
}
my $msg_template = '';
if ( $cgi->param('msgnum') =~ /^(\d+)$/ ) {
$msg_template = FS::msg_template->by_key($1)
or die "template not found: ".$cgi->param('msgnum');
}
my @contact_classnum;
my @contact_classname;
my $subject = $cgi->param('subject');
my $body = $cgi->param('body');
my ($html_body, $text_body);
if ( !$cgi->param('preview') ) {
# edit mode: initialize the fields from the saved draft, if there is one
if ( $msg_template and $msg_template->disabled eq 'D' ) {
my $content = $msg_template->content(''); # no localization on these yet
$subject ||= $content->subject;
$body ||= $content->body;
}
} else {
my $sql_query = "FS::$table"->search(\%search);
my $count_query = delete($sql_query->{'count_query'});
my $count_sth = dbh->prepare($count_query)
or die "Error preparing $count_query: ". dbh->errstr;
$count_sth->execute
or die "Error executing $count_query: ". $count_sth->errstr;
my $count_arrayref = $count_sth->fetchrow_arrayref;
$num_cust = $count_arrayref->[0];
if ( !$msg_template or $msg_template->disabled eq 'D' ) {
# then this is a one-off template; edit it in place
my $subject = $cgi->param('subject') || '';
my $body = $cgi->param('body') || '';
# create a draft template
$msg_template ||= FS::msg_template->new({
msgclass => 'email',
disabled => 'D',
});
# anyone have a better idea for msgname?
$msg_template->set('msgname' => "Notice " . DateTime->now->iso8601);
$msg_template->set('from_addr' => $from);
my %content = (
subject => $subject,
body => $body,
);
my $error;
if ( $msg_template->msgnum ) {
$error = $msg_template->replace(%content);
} else {
$error = $msg_template->insert(%content);
}
if ( $error ) {
$cgi->param('error', $error);
$cgi->delete('preview'); # don't go on to preview stage yet
undef $msg_template;
}
}
# unless creating the msg_template failed, we now have one, so construct a
# preview message from the first customer/whatever in the search results
my $cust;
if ( $msg_template ) {
$sql_query->{'extra_sql'} .= ' LIMIT 1';
$sql_query->{'select'} = "$table.*";
$sql_query->{'order_by'} = '';
my $object = qsearchs($sql_query);
$cust = $object->cust_main;
my %msgopts = (
'cust_main' => $cust,
'object' => $object,
);
my $cust_msg = $msg_template->prepare(%msgopts);
$from = $cust_msg->env_from;
$html_body = $cust_msg->preview;
#hmm. this came in with the #37098 rewrite, but isn't on v3 :/
# causing problems with mangling subject of unrelated things
# should probably decode instead of ignore the UTF-8 thing, but
# this at least masks the ugliness for now :/
if ( $cust_msg->header =~ /^subject: (.*)/mi && $1 !~ /^\=\?UTF-8/ ) {
$subject = $1;
}
}
# contact_class_X params
#we can't switch to multi_param until we're done supporting deb 7
local($CGI::LIST_CONTEXT_WARN) = 0;
if ($cgi->param('emailtovoice_contact')) {
$email_to = $cgi->param('emailtovoice_contact') . '@' . $send_to_domain;
push @contact_classnum, 'emailtovoice';
push @contact_classname, $email_to;
}
else {
foreach my $param ( $cgi->param ) {
if ( $param =~ /^contact_class_(\w+)$/ ) {
push @contact_classnum, $1;
if ( $1 eq 'invoice' ) {
push @contact_classname, 'Invoice recipients';
} else {
my $contact_class = FS::contact_class->by_key($1);
push @contact_classname, encode_entities($contact_class->classname);
}
}
}
}
}
my @contact_checkboxes = (
[ 'invoice' => { label => 'Invoice recipients' } ]
);
foreach my $class (qsearch('contact_class', { disabled => '' })) {
push @contact_checkboxes, [
$class->classnum,
{ label => $class->classname }
];
}