wok-next annotate ocsinventory-agent/stuff/Slitaz.pm @ rev 10206
Up: libev to 4.04.
author | Christopher Rogers <slaxemulator@gmail.com> |
---|---|
date | Fri May 20 23:15:27 2011 +0000 (2011-05-20) |
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; |