projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT#38217: Send email when logging conditions are met [removed unwanted log levels...
[freeside.git]
/
rt
/
sbin
/
rt-email-dashboards.in
diff --git
a/rt/sbin/rt-email-dashboards.in
b/rt/sbin/rt-email-dashboards.in
index
aa5ce64
..
1daba86
100644
(file)
--- a/
rt/sbin/rt-email-dashboards.in
+++ b/
rt/sbin/rt-email-dashboards.in
@@
-3,7
+3,7
@@
#
# COPYRIGHT:
#
#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-201
2
Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-201
5
Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
@@
-50,23
+50,15
@@
use strict;
use warnings;
# fix lib paths, some may be relative
use warnings;
# fix lib paths, some may be relative
-BEGIN {
+BEGIN {
# BEGIN RT CMD BOILERPLATE
require File::Spec;
require File::Spec;
+ require Cwd;
my @libs = ("@RT_LIB_PATH@", "@LOCAL_LIB_PATH@");
my $bin_path;
for my $lib (@libs) {
unless ( File::Spec->file_name_is_absolute($lib) ) {
my @libs = ("@RT_LIB_PATH@", "@LOCAL_LIB_PATH@");
my $bin_path;
for my $lib (@libs) {
unless ( File::Spec->file_name_is_absolute($lib) ) {
- unless ($bin_path) {
- if ( File::Spec->file_name_is_absolute(__FILE__) ) {
- $bin_path = ( File::Spec->splitpath(__FILE__) )[1];
- }
- else {
- require FindBin;
- no warnings "once";
- $bin_path = $FindBin::Bin;
- }
- }
+ $bin_path ||= ( File::Spec->splitpath(Cwd::abs_path(__FILE__)) )[1];
$lib = File::Spec->catfile( $bin_path, File::Spec->updir, $lib );
}
unshift @INC, $lib;
$lib = File::Spec->catfile( $bin_path, File::Spec->updir, $lib );
}
unshift @INC, $lib;
@@
-89,10
+81,7
@@
if ($opts{'help'}) {
require RT;
require RT::Interface::CLI;
require RT;
require RT::Interface::CLI;
-RT::Interface::CLI->import(qw{ CleanEnv loc });
-
-# Clean out all the nasties from the environment
-CleanEnv();
+RT::Interface::CLI->import(qw{ loc });
# Load the config file
RT::LoadConfig();
# Load the config file
RT::LoadConfig();
@@
-130,7
+119,7
@@
are taken to be in the user's timezone if available, UTC otherwise.
You'll need to have cron run this script every hour. Here's an example crontab
entry to do this.
You'll need to have cron run this script every hour. Here's an example crontab
entry to do this.
- 0 * * * * @
PERL@ /opt/rt4/local/sbin
/rt-email-dashboards
+ 0 * * * * @
RT_SBIN_PATH_R@
/rt-email-dashboards
This will run the script every hour on the hour. This may need some further
tweaking to be run as the correct user.
This will run the script every hour on the hour. This may need some further
tweaking to be run as the correct user.