Subversion Repositories camp_sysinfo_client_3

# paths to search for configuration file

my @confFileSearchPath = ( '.', '/etc/camp/sysinfo-client', '/etc/camp', '/usr/local/etc/camp/sysinfo-client' );

my $configurationFile = 'sysinfo-client.yaml'; # name of the configuration file

# timeStamp

#

# return current system date as YYYY-MM-DD HH:MM:SS

#

#######################################################

sub timeStamp {

   my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

   return sprintf "%4d-%02d-%02d %02d:%02d:%02d",$year+1900,$mon+1,$mday,$hour,$min,$sec;

}

#######################################################

# function to simply log things

# first parameter is the priority, if <= $logDef->{'log level'} will print

# all subsequent parameters assumed to be strings to sent to the log

# returns 0 on failure

#         1 on success

#         2 if priority > log level

#        -1 if $logDef is unset

# currently, only logs to a file

#######################################################

sub logIt {

   my $priority = shift;

   return -1 unless exists $configuration{'logging'};

   return 2 unless $priority <= $configuration{'logging'}{'log level'};

   if ( $configuration{'logging'}{'log type'} eq 'cache' ) {

      push @{ $configuration{'logging'}{'cache'} }, @_;

      return;

   } elsif ( defined( $configuration{'logging'}{'cache'} ) ) {

      unshift @_, @{ $configuration{'logging'}{'cache'} };

      delete $configuration{'logging'}{'cache'};

   }

   if ( $configuration{'logging'}{'log type'} eq 'file' ) {

      if ( open LOG, '>>' . $configuration{'logging'}{'log path'} ) {

         while ( my $t = shift ) {

            print LOG &timeStamp() . "\t$t\n";

         }

         close LOG;

      }

   } elsif ( $configuration{'logging'}{'log type'} eq 'syslog' ) {

      use Sys::Syslog;                        # all except setlogsock()

      use Sys::Syslog qw(:standard :macros);  # standard functions & macros

      my $syslogName = 'sysinfo-client';

      my $logopt = 'nofatal';

      my $facility = 'LOG_LOCAL0';

      my $priority = 'LOG_NOTICE';

      openlog( $syslogName, $logopt, $facility);

      syslog($priority, '%s', @_ );

      closelog();

   } else {

      warn "Log type $configuration{'logging'} incorrectly configured\n";

      return 0;

   }

   return 1;

}

#######################################################

#

# findFile( $filename, @directories )

#

# Locates a file by searching sequentially in one or more

# directories, returning the first one found

# 

# Returns '' if not found

#

#######################################################

sub findFile {

   my ( $filename, $directories ) = @_;

   &logIt( 3, "Looking for $filename in findFile" );

   for ( my $i = 0; $i < scalar( @{$directories} ); $i++ ) {

      my $confFile = $$directories[$i] . '/' . $filename;

      &logIt( 4, "Looking for $filename in $confFile" );

      return $confFile if ( -f $confFile );

   }

   return '';

}

#######################################################

#

# loadConfigurationFile($confFile)

#

# Loads configuration file defined by $configurationFile, and dies if not available

# This is a YAML file containing serialized contents of 

# Parameters:

#    $fileName - name of file to look for

#    @searchPath - array of paths to find $filename

#

#######################################################

sub loadConfigurationFile {   

   my ( $fileName, @searchPath ) = @_;

   &logIt( 2, "Looking for config file $fileName in " . join( ', ', @searchPath ) );

   my $confFile;

   if ( $confFile = &findFile( $fileName, \@searchPath ) ) {

      &logIt( 3, "Opening configuration from $confFile" );

      my $yaml = YAML::Tiny->read( $confFile );

      &logIt( 4, "Configuration file contents\n$yaml" );

      return $yaml->[0];

   }

   die "Can not find $fileName in any of " . join( "\n\t", @searchPath ) . "\n";

}

#######################################################

#