michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-05-04 22:30:33 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Improve missing package detection on Debian

Browse Source
This commit is contained in:
Jamie Cameron
2008-01-13 21:03:23 +00:00
parent 3fcae66881
commit 8dc1f27b44
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
software/debian-lib.pl
View File

@@ -41,6 +41,16 @@ return lc($_[0]) =~ /^[a-e]/ ? "A-E" :
sub package_info
{
local $qm = quotemeta($_[0]);
# First check if it is really installed, and not just known to the package
# system in some way
local $out = &backquote_command("dpkg --list $qm 2>&1", 1);
local @lines = split(/\r?\n/, $out);
if ($lines[$#lines] !~ /^.[ih]/) {
return ( );
}
# Get full status
local $out = &backquote_command("dpkg --print-avail $qm 2>&1", 1);
return () if ($? || $out =~ /Package .* is not available/i);
local @rv = ( $_[0], &alphabet_name($_[0]) );