wok annotate ocsinventory-agent/stuff/Slitaz.pm @ rev 23397
updated perl-test-mockmodule (0.170.0 -> 0.172.0)
author | Hans-G?nter Theisgen |
---|---|
date | Tue Mar 31 17:19:23 2020 +0100 (2020-03-31) |
parents | |
children |
rev | line source |
---|---|
erjo@3675 | 1 package Ocsinventory::Agent::Backend::OS::Linux::Distro::NonLSB::Slitaz; |
erjo@3675 | 2 use strict; |
erjo@3675 | 3 |
erjo@3675 | 4 sub check {-f "/etc/slitaz-release"} |
erjo@3675 | 5 |
erjo@3675 | 6 ##### |
erjo@3675 | 7 sub findRelease { |
erjo@3675 | 8 my $v; |
erjo@3675 | 9 |
erjo@3675 | 10 open V, "</etc/slitaz-release" or warn; |
erjo@3675 | 11 chomp ($v=<V>); |
erjo@3675 | 12 close V; |
erjo@3675 | 13 return "SliTaz GNU/Linux $v"; |
erjo@3675 | 14 } |
erjo@3675 | 15 |
erjo@3675 | 16 sub run { |
erjo@3675 | 17 my $params = shift; |
erjo@3675 | 18 my $inventory = $params->{inventory}; |
erjo@3675 | 19 |
erjo@3675 | 20 my $OSComment; |
erjo@3675 | 21 chomp($OSComment =`uname -v`); |
erjo@3675 | 22 |
erjo@3675 | 23 $inventory->setHardware({ |
erjo@3675 | 24 OSNAME => findRelease(), |
erjo@3675 | 25 OSCOMMENTS => "$OSComment" |
erjo@3675 | 26 }); |
erjo@3675 | 27 } |
erjo@3675 | 28 |
erjo@3675 | 29 1; |