Subversion Repositories camp_sysinfo_client_3

Rev

Rev 2 | Rev 11 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed 

#! /usr/bin/perl -w

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

BEGIN {
   push @INC, shift;
}

use library;

my $dpkg = &validCommandOnSystem( 'dpkg' );
my $grep = &validCommandOnSystem( 'grep' );

exit 1 unless $dpkg && $grep;

my $CATEGORY = 'software';

my @packageList  = split( "\n", qx($dpkg -l | $grep ^i));
chomp @packageList;
for ( $i = 0; $i < @packageList; $i++ ) {
   my ($status,$package, $version, @description) = split ' ', $packageList[$i];
   print "$CATEGORY\t$package\tversion\t$version\n";
   print "$CATEGORY\t$package\tdescription\t" . join(" ", @description) . "\n";
}