40 lines
882 B
Plaintext
40 lines
882 B
Plaintext
use str
|
|
|
|
fn -check {|f|
|
|
var @missings = (try {
|
|
sudo ldd $f 2>/dev/null | grep 'not found' | eawk {|_ m @_| put $m }
|
|
} except e {
|
|
})
|
|
if (> (count $missings) 1) {
|
|
var p = (LC_ALL=C pacman -Qo $f)
|
|
echo $p' seem broken: missing '(str:join ', ' $missings)
|
|
}
|
|
}
|
|
|
|
fn -check-executable {|f|
|
|
if ?(test -x $f) {
|
|
-check $f
|
|
}
|
|
}
|
|
|
|
fn -cbin {||
|
|
echo (styled 'Searching broken binaries…' bold bright-yellow)
|
|
sudo find /usr/bin -maxdepth 1 -type f 2>/dev/null | each $-check~
|
|
}
|
|
|
|
fn -clib {||
|
|
echo (styled 'Searching broken libs…' bold bright-yellow)
|
|
sudo find /usr/lib/*.so* -maxdepth 1 -type f 2>/dev/null | each $-check-executable~
|
|
}
|
|
|
|
fn -copt {||
|
|
echo (styled 'Searching broken binariess in opt…' bold bright-yellow)
|
|
sudo find /opt -maxdepth 3 -type f 2>/dev/null | each $-check-executable~
|
|
}
|
|
|
|
edit:add-var checklinks~ {||
|
|
-cbin
|
|
-clib
|
|
-copt
|
|
}
|