Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl
use warnings;
use strict;  

# Description: Get software packages installed on IPFire router

our $VERSION = '1.3';

# IPFire software module for sysinfo client
# Author: R. W. Rodolico
# Date:   2016-04-08

# gets information on software on systems with dpkg on them (Debian)

# find our location and use it for searching for libraries
BEGIN {
   use FindBin;
   use File::Spec;
   use lib File::Spec->catdir($FindBin::Bin);
   eval( 'use library;' ); die "Could not find library.pm in the code directory\n" if $@;
   eval( 'use Data::Dumper;' );
}

# check for valid OS. 
exit 1 unless &checkOS( { 'linux' => undef );

# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
# script returns a 2
#foreach my $command ( 'sysctl', 'df' ) {
#   exit 2 unless &validCommandOnSystem( $command );
#}



exit unless -d '/opt/pakfire';
my $CATEGORY = 'software';
my $pakfireInstallInfo = '/opt/pakfire/db/installed';
my $updates = 'meta-core-upgrade-' . `cat /opt/pakfire/db/core/mine`;
chomp $updates;

opendir( my $installsDir, $pakfireInstallInfo ) or die "could not open pakFire installs dir $pakfireInstallInfo: $!\n";
my @files = grep { ! /^\./ && -f "$pakfireInstallInfo/$_" } readdir( $installsDir );
closedir $installsDir;

foreach my $thisPackage ( @files ) {
   next if $thisPackage =~ m/meta-core-upgrade/ && $thisPackage ne $updates;
   open PACKAGE, "<$pakfireInstallInfo/$thisPackage" or die "could not open package file $pakfireInstallInfo/$thisPackage: $!\n";
   my %packageInfo;
   while ( my $line = <PACKAGE> ) {
      next unless $line =~ m/:/;
      chomp $line;
      my ( $key, $value ) = split( ':', $line );
      $packageInfo{$key} = $value;
   }
   print "$CATEGORY\t$packageInfo{'Name'}\tversion\t$packageInfo{'ProgVersion'}\n";
   print "$CATEGORY\t$packageInfo{'Name'}\trelease\t$packageInfo{'Release'}\n";
}
1;