1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
<& 'elements/search.html',
'title' => $title,
'name' => 'messages',
'query' => $query,
'count_query' => $count_query,
'header' => [
'Date',
'Template',
'Destination',
'Status',
'', #error
],
'fields' => [
sub {
my $date = $_[0]->_date;
$date ? time2str('%Y-%m-%d %T',$_[0]->_date) : ''
},
'msgname',
sub {
join('<BR>', split(/,\s*/, $_[0]->env_to) )
},
'status',
sub { encode_entities($_[0]->error) },
],
'align' => 'rllcl',
'links' => [ ],
'link_onclicks' => [
$sub_popup_link,
$sub_popup_link,
$sub_popup_link,
'',
'',
],
'color' => [ ('') x 3,
$statuscolor,
$statuscolor,
],
'html_init' => $html_init,
'really_disable_download' => 1,
&>
<%init>
#hmm...
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('View email logs');
my $conf = new FS::Conf;
my $title = 'Outgoing Message Log';
my @where;
if ( $cgi->param('status') =~ /^(\w+)$/ ) {
push @where, "status = '$1'";
}
my ($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi, '');
push @where, "(_date >= $beginning AND _date <= $ending)";
my $order_by = '_date';
if ( $cgi->param('order_by') =~ /^(\w+)$/ ) {
$order_by = $1;
}
my $where = '';
$where = ' WHERE '.join(' AND ', @where) if @where;
my $query = {
'table' => 'cust_msg',
'select' => join(', ',
'cust_msg.*',
'msg_template.msgname',
),
'addl_from' => ' LEFT JOIN msg_template USING ( msgnum )',
'hashref' => {},
'extra_sql' => $where,
'order_by' => "ORDER BY $order_by",
};
my $count_query = 'SELECT COUNT(*) FROM cust_msg'.$where;
my $sub_popup_link = sub {
my $custmsgnum = $_[0]->custmsgnum;
include('/elements/popup_link_onclick.html',
'action' => $p. 'view/cust_msg.html?' . $custmsgnum,
'actionlabel' => 'Message detail',
'width' => 600,
'height' => 500,
);
};
my %color = (
'failed' => 'FF0000',
'sent' => '',
);
my $statuscolor = sub { $color{$_[0]->status} };
my $html_init = qq!<FORM ACTION="$p/search/cust_msg.html" METHOD="GET">
<TABLE cellspacing="10">!.
'<TR><TD>From '.
include('/elements/input-date-field.html',
{ 'name' => 'beginning', 'value' => $cgi->param('beginning') }
).
'</TD><TD> To '.
include('/elements/input-date-field.html',
{ 'name' => 'ending', 'value' => ($cgi->param('ending') || ''),
'noinit' => 1, }
).
'</TD><TD> Status '.
include('/elements/select.html',
'field' => 'status',
'curr_value' => $cgi->param('status') || '',
'options' => [ '', 'failed', 'sent', ],
'labels' => { '' => '(any)',
'failed' => 'failed',
'sent' => 'sent', },
) .
'</TD>
<TD><INPUT type="submit" value="Search"></TD></TR>
</TABLE></FORM><BR>
<STYLE type="text/css">
a:link {text-decoration: none}
a:visited {text-decoration: none}
a:hover {text-decoration: underline}
</STYLE>';
</%init>
|
