--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/SI/ptable.pm	Wed Jan 20 21:52:01 2010 +0100
@@ -0,0 +1,70 @@
+package SI::ptable;
+
+use if $ENV{DEBUG} ~~ /ptable|all/ => qw(Smart::Comments);
+
+use strict;
+use warnings;
+use File::Find;
+use File::Basename;
+use IO::File;
+
+use SI::tools;
+$ENV{LC_ALL} = "C";
+
+sub volumes($\%) {
+    my ($file, $devs) = @_;
+
+    # find the partition tables of all
+    # non-removable block devices (this may include
+    # LVs (used as disk itself) too)
+    foreach (glob("/sys/block/*")) {
+        my $name = basename($_);
+        my $dev  = "/dev/$name";
+
+        next if !-e "$_/device";
+        next
+          if (grep { /ATTR{removable}/ }
+            `udevadm info --attribute-walk --name $name`)[0] !~ /==.0./;
+        next if (stat $dev)[0] == (stat $0)[0];
+
+        # exclude the device (stick) we're part of - this HACK is
+        # only useful on KVM - the usb stick doesn't appear as a removeable
+        # device
+        next
+          if (stat $0)[0] ~~ [
+            map   { (stat)[6] }
+              map { "/dev/" . basename(dirname $_) } glob("$_/*/partition")
+          ];
+
+        verbose("\n");
+        verbose("device $dev\n");
+
+        die "ERR: $dev does not exist. (should not happen): $!"
+          if !-b $dev;
+
+        # now the physical disk -- let's ask for the partition table
+
+        my @sfdisk = `sfdisk -d /dev/$name 2>/dev/null`;
+
+        my $of = sprintf $file, $name;
+        my $oh = new IO::File ">$of" or die "Can't open >$of: $!\n";
+        print $oh @sfdisk;
+
+        $devs->{disk}{"/dev/$name"} = { pt => \@sfdisk };
+
+        # and let's prepare the volume entries
+        foreach (@sfdisk) {
+            /^(\S+)\s*:.*Id=\s*([[:xdigit:]]+)/ or next;
+            $devs->{volume}{$1} = {
+                origin      => "ptable",
+                ptable_type => $2,
+            };
+            push @{ $devs->{volumes} }, $1;
+        }
+    }
+
+    return;
+}
+1;
+
+# vim:sts=4 sw=4 aw ai si: