# Write by Simon CLARA 2010-01-25
#
# The complete name of the package
# the path MUST be valid or the package won't be loaded
use strict;
# I need to declare $runAfter because of the strict mode
use vars qw($runAfter);
# The package must be run after OS::Generic
$runAfter = ["FusionInventory::Agent::Backend::OS::Generic"];
# This is the check function. The agent runs it just once the module is loaded.
# If the function return false, the module and its children are not executed
# eg: OS::Linux and OS::Linux::* won't executed if this run() function return
# false
# Check if we are on a linux server
sub check { $^O =~ /^linux$/ }
# uncomment this if you want check for FreeBSD server
# sub check {can_run("pkg_info")}
# its the main function of the script, it's called during the hardware inventory
sub run {
my $params = shift;
# I need to get the inventory object to update it
my $inventory = $params->{inventory};
# our software are in /usr/local/src/
foreach (`ls /usr/local/src/*.{bz2,tar.gz}`){
/^(\/.*\/)(\S+)-(\d+\S*)(\.tar.gz|\.bz2)$/i;
my $name = $2;
my $version = $3;
my $comments = "Software in /usr/local/src/ \n".`$2 --version`;
# and I updated the information collected
$inventory->addSoftwares({
COMMENTS => $comments,
NAME => $name,
VERSION => $version
});
}
}
1;