/usr/local/CPAN/Ocsinventory-Agent/Ocsinventory/Agent/Backend/OS/Generic/Packaging/ByHand.pm

• package Ocsinventory::Agent::Backend::OS::Generic::Packaging::ByHand
  • check
  • run
• EOF

package Ocsinventory::Agent::Backend::OS::Generic::Packaging::ByHand;
#How does it work ?
#
#Create a directory called software in place where you have your
#"modules.conf" file.
#Put your scripts in this directory.
#The scripts have to write on the STDIO with the following format :
#publisher#software#version#comment
#

use strict;
use warnings;


sub check { 
    return(1);
    1;
}
sub run()
{
    my $params = shift;
    my $inventory = $params->{inventory};
    my $ligne;
    my $soft;
    my $comm;
    my $version;
    my $file;
    my $vendor;
    my $commentaire;
    my @dots;

    if (!$file || !-d $file) {
        foreach (@{$inventory->{config}{etcdir}}) {
            $file = $_.'/softwares';
            last if -d $file;
        }
    }
    my $logger = $params->{logger};

    if ( opendir(my $dh, $file) )
    {
        @dots = readdir($dh);
        foreach (@dots) { 
            if ( -f $file."/".$_ )
            {
                $comm = $file."/".$_;
                $logger->debug("Running appli detection scripts from ".$comm);
                foreach (`$comm`)
                {
                    $ligne = $_;
                    chomp($ligne);
                    ($vendor,$soft,$version,$commentaire) = split(/\#/,$ligne);
                    $inventory->addSoftware ({
                            'PUBLISHER' => $vendor,
                            'NAME'          => $soft,
                            'VERSION'       => $version,
                            'FILESIZE'      => "",
                            'COMMENTS'      => $commentaire,
                            'FROM'          => 'ByHand'
                        });
                }	
            }

        }	  	



        closedir $dh;
    }
    1;
}
1;