Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl

use strict;
use warnings;
use Cwd 'abs_path';
use File::Basename;

our $VERSION = '1.2';

# sysinfo module for sysinfo client
# Author: R. W. Rodolico
# Date:   2016-04-08
# Grabs the version of the installed sysinfo-client
#
# 20171124 RWR
# Modified for FreeBSD
#
# 20240519 RWR v1.2
# Assume sysinfo-client in parent directory, so just run it and have it tell us it's version
#
# 20250330 RWR v1.2.1
# For Windows compatility, added 'perl' before calling perl script

# assume sysinfo-client is in our parent directory
my $sysinfo = dirname( abs_path( __FILE__ ) ) . '/../';
$sysinfo =  abs_path( $sysinfo ) . '/sysinfo-client';
# exit failure unless we can run it. Should never happen
exit 1 unless ( -f $sysinfo );
# run it with the --version flag
my $output = `perl $sysinfo --version`;
chomp $output;

my $CATEGORY = 'software';

my ($install, $version ) = split ' ', $output;
print "$CATEGORY\t$install\tversion\t$version\n" if $install eq 'sysinfo-client';

exit 0;