| line |
l |
!l |
condition |
|
22
|
0 |
0 |
$o->{'schema'}{'savedSearchAlertMaxRecs'} ||= 1000 |
|
23
|
0 |
0 |
$o->{'schema'}{'savedSearchAlertEmailCharLimit'} ||= 500000 |
|
67
|
0 |
0 |
$o->{'q'}->param('save_search_default') || 0 |
|
75
|
0 |
0 |
$o->{'q'}->param('alert_mask') || 0 |
|
183
|
0 |
0 |
$rec ||= {} |
|
185
|
0 |
0 |
$rec->{'ALERT_MASK'} ||= 1 |
|
186
|
0 |
0 |
$rec->{'ALERT_INTERVAL_MIN'} ||= 1440 |
|
187
|
0 |
0 |
$rec->{'ALERT_DOW'} ||= '12345' |
|
188
|
0 |
0 |
$rec->{'ALERT_START_HOUR'} ||= 8 |
|
189
|
0 |
0 |
$rec->{'ALERT_END_HOUR'} ||= 17 |
|
237
|
0 |
0 |
$rec ||= {} |
|
258
|
0 |
0 |
$o->{'schema'}{'tools'}{'savereport'} ||= {'title', 'Save Report', 'on_init', \&CGI::OptimalQuery::SaveSearchTool::on_init, 'on_open', \&CGI::OptimalQuery::SaveSearchTool::on_open} |
|
403
|
0 |
0 |
$ENV{'USER'} || 'root' |
|
|
0 |
0 |
$ENV{'HOSTNAME'} || 'localhost' |
|
430
|
0 |
0 |
$opts{'sendmail_handler'} ||= \&CGI::OptimalQuery::SaveSearchTool::sendmail_handler |
|
444
|
0 |
0 |
$opts{'error_handler'} ||= sub {
my($type, @msg) = @_;
my $dt = strftime('%F %T', localtime $^T);
my $msg = join(' ', $dt, lc $type, @msg) . "\n";
if ($type =~ /^(err|debug)$/i) {
print STDERR $msg;
}
else {
print $msg;
} ;
}
|
|
537
|
0 |
0 |
local $ENV{'REQUEST_METHOD'} ||= 'GET' |
|
538
|
0 |
0 |
local $ENV{'REMOTE_ADDR'} ||= '127.0.0.1' |
|
738
|
0 |
0 |
$func ||= 'handler' |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
38
|
0 |
0 |
0 |
$data{'rows_page'} eq 'All' or $data{'rows_page'} > 25 |
|
145
|
0 |
0 |
0 |
$rec{'id'} ||= $o->{'dbh'}->last_insert_id('', '', '', '') |
|
153
|
0 |
0 |
0 |
$err =~ /unique\ constraint/i or $err =~ /are not unique/ |
|
|
0 |
0 |
0 |
$err =~ /unique\ constraint/i or $err =~ /are not unique/ or $err =~ /duplicate\ entry/i |
|
|
0 |
0 |
0 |
$err =~ /unique\ constraint/i or $err =~ /are not unique/ or $err =~ /duplicate\ entry/i or $err =~ /unique\_violation/i |
|
|
0 |
0 |
0 |
$err =~ /unique\ constraint/i or $err =~ /are not unique/ or $err =~ /duplicate\ entry/i or $err =~ /unique\_violation/i or $err =~ /unique\ key/i |
|
|
0 |
0 |
0 |
$err =~ /unique\ constraint/i or $err =~ /are not unique/ or $err =~ /duplicate\ entry/i or $err =~ /unique\_violation/i or $err =~ /unique\ key/i or $err =~ /duplicate\ key/i |
|
|
0 |
0 |
0 |
$err =~ /unique\ constraint/i or $err =~ /are not unique/ or $err =~ /duplicate\ entry/i or $err =~ /unique\_violation/i or $err =~ /unique\ key/i or $err =~ /duplicate\ key/i or $err =~ /constraint\_unique/i |
|
334
|
0 |
0 |
0 |
$CGI::OptimalQuery::SaveSearchTool::current_saved_search->{'ALERT_MASK'} & 4 || $CGI::OptimalQuery::SaveSearchTool::current_saved_search->{'ALERT_MASK'} & 1 && $CGI::OptimalQuery::SaveSearchTool::current_saved_search->{'uids'}{$rec->{'U_ID'}} == 3 |
|
403
|
0 |
0 |
0 |
$email{'from'} ||= ($ENV{'USER'} || 'root') . '@' . ($ENV{'HOSTNAME'} || 'localhost') |
|
410
|
0 |
0 |
0 |
$dbh->{'Driver'}{'Name'} eq 'Pg' or $dbh->{'Driver'}{'Name'} eq 'Microsoft SQL Server' |
|
544
|
0 |
0 |
0 |
local $ENV{'HTTP_HOST'} ||= $opts{'base_url'} =~ m[https?\://([^/]+)] ? $1 : 'localhost' |
|
545
|
0 |
0 |
0 |
local $ENV{'SERVER_NAME'} ||= $ENV{'HTTP_HOST'} |
|
582
|
0 |
0 |
0 |
$rec->{'email_from'} || $opts{'email_from'} |
|
|
0 |
0 |
0 |
$rec->{'email_Reply-To'} || $opts{'email_Reply-To'} |
|
621
|
0 |
0 |
0 |
$rec->{'ALERT_MASK'} & 1 and $total_new > 0 or $rec->{'ALERT_MASK'} & 2 and $total_deleted > 0 |
|
|
0 |
0 |
0 |
$rec->{'ALERT_MASK'} & 1 and $total_new > 0 or $rec->{'ALERT_MASK'} & 2 and $total_deleted > 0 or $rec->{'ALERT_MASK'} & 4 and $total_count > 0 |
|
628
|
0 |
0 |
0 |
$rec->{'email_from'} || $opts{'email_from'} |
|
|
0 |
0 |
0 |
$rec->{'email_Reply-To'} || $opts{'email_Reply-To'} |