3 # sysdump - dump /sys to a textformat
5 # Copyright 2005 David Schmitt <david@schmitt.edv-bus.at>
7 # This program is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 2 of the License, or
10 # (at your option) any later version.
12 # This program is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with this program; if not, write to the Free Software
19 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 # Version 0.1: Initial prototype
29 #my $basedir = `systool -m`;
38 opendir(DIR, $dir) || die "can't opendir $dir: $!";
39 my @entries = grep { !/^\.\.?/ } readdir(DIR);
45 foreach my $entry (sort @entries)
47 dump_entry($level + 1, "$dir/$entry");
57 print $link, " -> ", readlink($link), "\n";
65 open (FILE, "<$file") || print "can't open $file: $!";
70 $value = defined($value)?$value:"undef";
76 print $file, " = '", $value, "'\n";
84 return dump_link($level, $file) if -l $file;
85 return dump_dir($level, $file) if -d $file;
86 return dump_value($level, $file) if -r $file;
89 dump_dir(0, $basedir);