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

my $versionsFile = '/opt/camp/sysinfo-client/VERSION';

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';
}