Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl
use warnings;
use strict; 

use Data::Dumper; 

# modified 20190419 RWR
# changed cleanup to remove encapsulating quotes
#
# 20200220 RWR v1.4.1
# added trim
# 20200224 RWR v1.4.2
# Added tableToHash
# 20250327 RWR v1.4.3
# Created new sub checkOS which is passed a hash with the keys containing the operating systems we need
# modified getOS to return the lower case of $^O. getOS is now deprecated in favor or checkOS, but left for 
# backwards compatibility
# modified validCommandOnSystem to be compatible with Win32


# Description: Library used by modules. Do NOT enable

our $VERSION = '1.4.3';

#use Exporter 'import';
#our @ISA = qw( Exporter );
#our @EXPORT_OK = qw ( checkOS );
#our %EXPORT_TAGS = (
#   default => [ qw(checkOS ) ]
#   );

# set of libraries to be used by these modules

# parameters
# $report - a reference to a report array (one line per row) 
# $headerRegex - optional regex to locate the first (header) line.
# $delimiter - optional delimiter used between header columns
# if $headerRegex is not defined, assumes first line is the headers
# if delimiter is not defined, assumes space is the delimitere
#
# Determines the field widths based on the header line
# processes each line in turn, returning an array ref, where each
# row is a hash ref. The hash ref has the key from the header, and
# the value found in the row.

sub tableToHash {
   my ($report, $headerRegex, $delimiter) = @_;
   my @return;
   my %headers;
   # get rid of any line returns at the end.
   chomp @{$report};
   my $lineNum = 0;
   # bypass all the header information, if $headerRegex is defined
   if ( $headerRegex ) {
      for ( $lineNum = 0; $lineNum < @{$report} && ${$report}[$lineNum] !~ m/$headerRegex/; $lineNum++ ) {}
   }
   if ( $lineNum < @{$report} ) { # did we get an actual report? some drives will not give us one
      # first, process the header line and get the start position and the length
      my $char = 0;
      while ( $char < length(${$report}[$lineNum]) ) {
         substr( ${$report}[$lineNum],$char ) =~ m/^([^ ]+\s*)/;
         my $header = $1;
         my $start = $char;
         my $length = length($header);
         if ( $header = &trim( $header ) ) {
            $headers{$header}{'start'} = $start;
            # note that if this is the last header, we do NOT want a lenght attribute
            $headers{$header}{'length'} = $length-1 if $length + $char < length(${$report}[$lineNum]);
         }
         $char += $length;
      }
      # now, get the data from all the following lines
      while ( ++$lineNum < @{$report} ) {
         last unless ${$report}[$lineNum]; # first blank line bails
         my %thisLine;
         foreach my $thisHeader (keys %headers) {
            $thisLine{$thisHeader} = &trim( 
               defined( $headers{$thisHeader}{'length'} ) ? 
                  substr( ${$report}[$lineNum], $headers{$thisHeader}{'start'}, $headers{$thisHeader}{'length'} )
                  : # if no length defined, grab everything to the end of the line
                  substr( ${$report}[$lineNum], $headers{$thisHeader}{'start'} )
               );
         }
         push @return, \%thisLine;
      }
   }
   return \@return;
}




# cleanUp - passed a delimiter and a string, does the following (delimiter can be '')
#           chomps the string (removes trailing newlines)
#           removes all text BEFORE the delimiter, the delimiter, and any whitespace
#           thus, the string 'xxI Am x  a weird string' with a newline will become
#           'a weird string' with no newline
# will also look for single and double quotes surrounding entire string and remove them
# if they exist

sub cleanUp {
   my ($delimiter, $text) = @_;
   chomp $text;
   if ( $delimiter && $text =~ m/[^$delimiter]*$delimiter\s*(.*)/ ) {
      $text = $1;
   }
   if ( $text =~ m/^'(.*)'$/ ) {
      $text = $1;
   }
   if ( $text =~ m/^"(.*)"$/ ) {
      $text = $1;
   }
   return $text;
}

# remove leading and trailing spaces from string
sub trim {
 my $value = shift;
 $value =~ s/^\s+|\s+$//g if $value;
 return $value;
}

# checks if a command is valid on this system. If so, returns the full path to it
# else, returns empty string. Theoretically valid for Unix and Windows systems (tested Win10, Server 2019)
sub validCommandOnSystem {
   my $commandList = shift;
   my $ok = 1;
   foreach my $command (keys %$commandList ) {
      # Windows uses 'where' while Unix uses which. Tested only on Windows Server
      $commandList->{$command} = lc $^O eq 'mswin32' ? `where $command 2> nul` : `which $command 2> /dev/null`;
      chomp $commandList->{$command};
      $ok = 0 unless $commandList->{$command};
   }
   return $ok;
   #chomp $command;
   #return -x $command ? $command : '';
}

# when passed a hashref containing the lower case of operating systems
# which can be used as keys, will return true if the operating system
# we are on is there.
#
# exit unless &checkOS( { 'linux' => undef, 'freebsd' => 1, 'mswin32' => undef } );
# the value can be anything, defined only checks for the key. For maximum 
# efficiency, use undef as it uses a lot less space than any value
sub checkOS {
   my $valid = shift;
   return exists $valid->{lc $^O};
}

sub getOS {
   return lc $^O;
}

sub getSysctlParameter {
   my ( $sysctl, $parameter ) = @_;
   my $result = qx( $sysctl $parameter );
   chomp $result;
   $result =~ s/$parameter:\s*//;
   return $result;
}

# simple function to return true if the current date is the first of the week, month or year
# parameter passed in is 'w' (weekly), 'm' (monthly) or 'y' (yearly)
# to have a test run only weekly, place
# exit 1 unless &checkDate( 'w' );
sub checkDate {
   return 1 if -e '/tmp/sysinfo.firstrun';
   my $frequency = lc shift;
   my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
   return $mday == 1 if $frequency eq 'm'; # monthly
   return $wday == 1 if $frequency eq 'w'; # weekly
   return $yday == 1 if $frequency eq 'y'; # yearly
   return 0; # we failed
}
      

1;