wok view ocsinventory-agent/stuff/Slitaz.pm @ rev 19497
Up SliTaz projects: cookutils (838), slitaz-base-files (314), tazlito (439 again, seems failure isn't here).
| author | Aleksej Bobylev <al.bobylev@gmail.com> |
|---|---|
| date | Thu Nov 17 01:33:43 2016 +0200 (2016-11-17) |
| parents | |
| children |
line source
1 package Ocsinventory::Agent::Backend::OS::Linux::Distro::NonLSB::Slitaz;
2 use strict;
4 sub check {-f "/etc/slitaz-release"}
6 #####
7 sub findRelease {
8 my $v;
10 open V, "</etc/slitaz-release" or warn;
11 chomp ($v=<V>);
12 close V;
13 return "SliTaz GNU/Linux $v";
14 }
16 sub run {
17 my $params = shift;
18 my $inventory = $params->{inventory};
20 my $OSComment;
21 chomp($OSComment =`uname -v`);
23 $inventory->setHardware({
24 OSNAME => findRelease(),
25 OSCOMMENTS => "$OSComment"
26 });
27 }
29 1;