Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl

use strict;
use warnings;

our $VERSION = '1.1';

# 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

my @install = ( '/opt/camp/sysinfo-client', '/usr/local/opt/camp/sysinfo-client' );

my $installed;

my $versionsFile = 'VERSION';

foreach $installed ( @install ) {
   if ( -d $installed ) {
      $versionsFile = $installed . '/' . $versionsFile;
   }
}
   

exit 1 unless -e $versionsFile;

my $CATEGORY = 'software';

open FILE,"<$versionsFile" or exit 1;
my @line =  grep { /sysinfo-client/ } <FILE>;
close FILE;

chomp @line;

for ( my $i = 0; $i < @line; $i++ ) {
   my ($install, $version ) = split ' ', $line[$i];
   if ( $install =~ m|.*/(.*)| ) { $install = $1; }
   print "$CATEGORY\t$install\tversion\t$version\n" if $install eq 'sysinfo-client';
}