sysdump

   1 #!/usr/bin/perl
   2 #
   3 #    sysdump - dump /sys to a textformat
   4 #
   5 #    Copyright 2005 David Schmitt <david@schmitt.edv-bus.at>
   6 #
   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.
  11 #
  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.
  16 #
  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
  20 #
  21 #       Version 0.1: Initial prototype
  22 #
  23
  24 use warnings;
  25 use strict;
  26
  27 $| = 1;
  28
  29 #my $basedir = `systool -m`;
  30 #chomp $basedir;
  31 my $basedir = '/sys';
  32
  33 sub dump_dir($$)
  34 {
  35         my $level = shift;
  36         my $dir = shift;
  37
  38         opendir(DIR, $dir) || die "can't opendir $dir: $!";
  39         my @entries = grep { !/^\.\.?/ } readdir(DIR);
  40         closedir(DIR);
  41
  42         #print " "x$level;
  43         print $dir, ":\n";
  44
  45         foreach my $entry (sort @entries)
  46         {
  47                 dump_entry($level + 1, "$dir/$entry");
  48         }
  49 }
  50
  51 sub dump_link($$)
  52 {
  53         my $level = shift;
  54         my $link = shift;
  55
  56         #print " "x$level;
  57         print $link, " -> ", readlink($link), "\n";
  58 }
  59
  60 sub dump_value($$)
  61 {
  62         my $level = shift;
  63         my $file = shift;
  64
  65         if ($file =~ "/sys/kernel/debug/.*") {
  66                 print("ignoring file $file\n");
  67                 return 0;
  68         }
  69
  70         if (!open (FILE, "<$file")) {
  71                 print STDERR "can't open $file: '$!'\n";
  72                 return 0;
  73         }
  74
  75         my $value;
  76         {       local $/;
  77                 $value = <FILE>;
  78                 $value = defined($value)?$value:"undef";
  79         }
  80         chomp $value;
  81         close FILE;
  82
  83         #print " "x$level;
  84         print $file, " = '", $value, "'\n";
  85 }
  86
  87 sub dump_entry($$)
  88 {
  89         my $level = shift;
  90         my $file = shift;
  91
  92         return dump_link($level, $file) if -l $file;
  93         return dump_dir($level, $file) if -d $file;
  94         return dump_value($level, $file) if -r $file;
  95 }
  96
  97 dump_dir(0, $basedir);
  98