Subversion Repositories camp_sysinfo_client_3

Rev

Rev 250 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 250 Rev 251
Line 1... Line 1...
1 
#!/usr/bin/env perl
 1 
#!/usr/bin/env perl
2 
use warnings;
 2 
use warnings;
3 
use strict;
3 
use strict;
- 
 
 4 
 
- 
 
 5 
use Data::Dumper;
4 
 
 6 
 
5 
# modified 20190419 RWR
 7 
# modified 20190419 RWR
6 
# changed cleanup to remove encapsulating quotes
 8 
# changed cleanup to remove encapsulating quotes
7 
#
 9 
#
8 
# 20200220 RWR v1.4.1
 10 
# 20200220 RWR v1.4.1
9 
# added trim
 11 
# added trim
10 
# 20200224 RWR v1.4.2
 12 
# 20200224 RWR v1.4.2
11 
# Added tableToHash
 13 
# Added tableToHash
12 
# 20250327 RWR v1.4.3
 14 
# 20250327 RWR v1.4.3
- 
 
 15 
# Created new sub checkOS which is passed a hash with the keys containing the operating systems we need
13 
# modified getOS to return the lower case of the Perl variable $^O
 16 
# modified getOS to return the lower case of $^O. getOS is now deprecated in favor or checkOS, but left for
- 
 
 17 
# backwards compatibility
14 
# This will return things like freebsd, linux and mswin32
 18 
# modified validCommandOnSystem to be compatible with Win32
15 
 
 19 
 
16 
 
 20 
 
17 
# Description: Library used by modules. Do NOT enable
 21 
# Description: Library used by modules. Do NOT enable
18 
 
 22 
 
19 
our $VERSION = '1.4.3';
 23 
our $VERSION = '1.4.3';
Line 108... Line 112...
108 
 $value =~ s/^\s+|\s+$//g if $value;
 112 
 $value =~ s/^\s+|\s+$//g if $value;
109 
 return $value;
 113 
 return $value;
110 
}
 114 
}
111 
 
 115 
 
112 
# checks if a command is valid on this system. If so, returns the full path to it
 116 
# checks if a command is valid on this system. If so, returns the full path to it
113 
# else, returns empty string.
 117 
# else, returns empty string. Theoretically valid for Unix and Windows systems (tested Win10, Server 2019)
114 
sub validCommandOnSystem {
 118 
sub validCommandOnSystem {
115 
   my $command = shift;
 119 
   my $command = shift;
- 
 
 120 
   # Windows uses 'where' while Unix uses which. Tested only on Windows Server
116 
   $command = `which $command 2> /dev/null`;
 121 
   $command = lc $^O eq 'mswin32' ? `where $command 2> /dev/null` : `which $command 2> /dev/null`;
117 
   chomp $command;
 122 
   chomp $command;
118 
   return -x $command ? $command : '';
 123 
   return -x $command ? $command : '';
119 
}
 124 
}
120 
 
 125 
 
- 
 
 126 
# when passed a hashref containing the lower case of operating systems
- 
 
 127 
# which can be used as keys, will return true if the operating system
- 
 
 128 
# we are on is there.
- 
 
 129 
#
- 
 
 130 
# exit unless &checkOS( { 'linux' => undef, 'freebsd' => 1, 'mswin32' => undef } );
- 
 
 131 
# the value can be anything, defined only checks for the key. For maximum
121 
# get operating system from Perl special variable
 132 
# efficiency, use undef as it uses a lot less space than any value
122 
sub getOperatingSystem {
 133 
sub checkOS {
- 
 
 134 
   my $valid = shift;
123 
   return lc &cleanUp( '', $^O );
 135 
   return exists $valid->{lc $^O};
- 
 
 136 
}
- 
 
 137 
 
- 
 
 138 
sub getOS {
124 
   # return &cleanUp('', qx(uname -s));
 139 
   return lc $^O;
125 
}
140 
}
126 
 
 141 
 
127 
sub getSysctlParameter {
 142 
sub getSysctlParameter {
128 
   my ( $sysctl, $parameter ) = @_;
 143 
   my ( $sysctl, $parameter ) = @_;
129 
   my $result = qx( $sysctl $parameter );
 144 
   my $result = qx( $sysctl $parameter );
130 
   chomp $result;
 145 
   chomp $result;