find-runtime-roots.pl: Use Nix::Utils::readFile
This commit is contained in:
parent
772b70952f
commit
938092a213
|
@ -1,22 +1,21 @@
|
||||||
#! @perl@ -w
|
#! @perl@ -w @perlFlags@
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
|
use Nix::Utils;
|
||||||
my $procDir = "/proc";
|
|
||||||
|
|
||||||
|
|
||||||
sub readProc {
|
sub readProc {
|
||||||
return unless -d $procDir;
|
return unless -d "/proc";
|
||||||
|
|
||||||
|
opendir DIR, "/proc" or return;
|
||||||
|
|
||||||
opendir DIR, $procDir or return;
|
|
||||||
|
|
||||||
foreach my $name (readdir DIR) {
|
foreach my $name (readdir DIR) {
|
||||||
next unless $name =~ /^\d+$/;
|
next unless $name =~ /^\d+$/;
|
||||||
|
|
||||||
my $process = "$procDir/$name";
|
my $process = "/proc/$name";
|
||||||
|
|
||||||
#print STDERR "=== $process\n";
|
#print STDERR "=== $process\n";
|
||||||
|
|
||||||
my $target;
|
my $target;
|
||||||
print "$target\n" if $target = readlink "$process/exe";
|
print "$target\n" if $target = readlink "$process/exe";
|
||||||
print "$target\n" if $target = readlink "$process/cwd";
|
print "$target\n" if $target = readlink "$process/cwd";
|
||||||
|
@ -58,18 +57,15 @@ readProc;
|
||||||
lsof;
|
lsof;
|
||||||
|
|
||||||
|
|
||||||
sub readFile {
|
sub printFile {
|
||||||
my $path = shift;
|
my ($fn) = @_;
|
||||||
if (-e $path) {
|
if (-e $fn) {
|
||||||
if (open FILE, "$path") {
|
print Nix::Utils::readFile($fn), "\n";
|
||||||
while (<FILE>) {
|
|
||||||
print;
|
|
||||||
}
|
|
||||||
close FILE;
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
# This is rather NixOS-specific, so it probably shouldn't be here.
|
# This is rather NixOS-specific, so it probably shouldn't be here.
|
||||||
readFile "/proc/sys/kernel/modprobe";
|
printFile "/proc/sys/kernel/modprobe";
|
||||||
readFile "/proc/sys/kernel/fbsplash";
|
printFile "/proc/sys/kernel/fbsplash";
|
||||||
|
printFile "/proc/sys/kernel/poweroff_cmd";
|
||||||
|
|
Loading…
Reference in a new issue