• 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Scripts personnalisés (remontée logiciel)
#6
Je n'ai jamais utilisé perl auparavant ni fait de grosse programmation donc c'est nouveau pour moi. J'ai fait quelques modifications au fichier et j'ai une erreur log que je ne comprends pas.

Voici le script :
package FusionInventory::Agent::Task::Inventory::Win32::MySoftwares;

use strict;
use warnings;



sub isEnabled {
return 1;
}

sub doInventory {

my $params = shift;
my $inventory = $params->{inventory};


if (-f 'c:\logiciel_1\Logiciel_1.txt'){

$inventory->addSoftware ({
'NAME' => 'logiciel_1',
'VERSION' => '1.0',
'COMMENTS' => 'Application Metier',
'FROM' => 'MyCompany'
});

}

}
1;

Et l'erreur log est :
[Wed Apr 30 15:57:16 2014][debug] unexpected error in FusionInventory::Agent::Task::Inventory::Win32::MySoftwares: Can't use string ("datadir") as a HASH ref while "strict refs" in use at ../agent/FusionInventory/Agent/Task/Inventory/Win32/MySoftwares.pm line 15.
  Reply


Messages In This Thread

Forum Jump:


Users browsing this thread: 1 Guest(s)