view release on metacpan or  search on metacpan

lib/RRD/Daemon/Plugin/HDDTemp.pm  view on Meta::CPAN

# methods --------------------------------------------------------------------

sub new {
  $_[0]->SUPER::new(@_[1..$#_]);
}

my $rootcheck = 0;
sub read_values {
  die "HDDTemp plugin uses hdparm, you need to be root to run\n"
    unless $rootcheck or 'root' eq getpwuid $>;

  $rootcheck = 1;

  my @devs = sort uniq map m!^/dev/([a-z]+)\d+\s! ? $1 : (), capturex 'mount';
  my @hdparm = capturex('hdparm', -C => map "/dev/$_", @devs);

  my %devstate = map +($_=>1), @devs;
  my $device;
 LINE:
  for my $i (0..$#hdparm) {

lib/RRD/Daemon/Util.pm  view on Meta::CPAN

log4perl.rootLogger=WARN, SCREEN, LOGFILE
log4perl.category.Placeholder.For.ScreenD.Appender=NONE, SCREEND, LOGFILED

log4perl.appender.SCREEN=Log::Log4perl::Appender::Screen
log4perl.appender.SCREEN.layout=PatternLayout::Multiline
log4perl.appender.SCREEN.layout.ConversionPattern=[%d{EEEdd}Z%d{HH:mm:ss}] %5p> %m%n
log4perl.appender.SCREEN.Threshold=INFO

log4perl.appender.LOGFILE=Log::Dispatch::FileRotate
log4perl.appender.LOGFILE.DatePattern=yyyy-MM-dd
log4perl.appender.LOGFILE.filename=sub { use FindBin '$Script'; join '/', ($ENV{join '_', $Script, 'LOGDIR'} // join('/', '/tmp', (getpwuid $<)[0], 'logs')), "$Script.log" }
log4perl.appender.LOGFILE.max=10
log4perl.appender.LOGFILE.mode=append
log4perl.appender.LOGFILE.TZ=UTC
log4perl.appender.LOGFILE.layout=PatternLayout::Multiline
log4perl.appender.LOGFILE.layout.ConversionPattern=[%D] %5p> %m%n
log4perl.appender.LOGFILE.Threshold=INFO


log4perl.appender.SCREEND=Log::Log4perl::Appender::Screen
log4perl.appender.SCREEND.layout=PatternLayout::Multiline
log4perl.appender.SCREEND.layout.ConversionPattern=[%d{EEEdd}Z%d{hh:mm:ss}] %5p> %M(%L) - %m%n
# log4perl.appender.SCREEND.Threshold=NONE

log4perl.appender.LOGFILED=Log::Dispatch::FileRotate
log4perl.appender.LOGFILED.DatePattern=yyyy-MM-dd
log4perl.appender.LOGFILED.filename=sub { use FindBin '$Script'; join '/', ($ENV{join '_', $Script, 'LOGDIR'} // join('/', '/tmp', (getpwuid $<)[0], 'logs')), "$Script.log" }
log4perl.appender.LOGFILED.max=10
log4perl.appender.LOGFILED.mode=append
log4perl.appender.LOGFILED.TZ=UTC
log4perl.appender.LOGFILED.layout=PatternLayout::Multiline
log4perl.appender.LOGFILED.layout.ConversionPattern=[%D] %5p> %M(%L) - %m%n
LOG4PERL

# ----------------------------------------------------------------------------

sub ff (@) {