Deb.pm

   1 package Ocsinventory::Agent::Backend::OS::Generic::Packaging::Deb;
   2
   3 use strict;
   4 use warnings;
   5
   6 sub check { can_run("dpkg") }
   7
   8 sub run {
   9   my $params = shift;
  10   my $common = $params->{common};
  11
  12 # use dpkg-query --show --showformat='${Package}|||${Version}\n'
  13   foreach(`dpkg-query --show --showformat='\${Status}---\${Package}---\${Version}---\${Installed-Size}---\${Description}\n' | grep ^'install ok installed'`) {
  14      if (/^(\S+)---(\S+)---(\S+)---(\S+)---(.*)/) {
  15        $common->addSoftware ({
  16          'NAME'          => $2,
  17          'VERSION'       => $3,
  18          'FILESIZE'      => $4,
  19          'COMMENTS'      => $5,
  20          'FROM'          => 'deb'
  21        });
  22     }
  23   }
  24 }
  25
  26 1;