# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1264721746 -3600
# Node ID 1c7e99693439ae8c5004fae8a5658132c6550dcf
# Parent  95fb6be2115733afd01b5c7ef7fc149acf8f73e9
(savepoint)

diff -r 95fb6be21157 -r 1c7e99693439 is
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/is	Fri Jan 29 00:35:46 2010 +0100
@@ -0,0 +1,40 @@
+#! /usr/bin/perl
+# system imager - proof of concept
+# (c) 2010 Heiko Schlittermann <hs@schlittermann.de>
+# see http://keller.schlittermann.de/hg/ius/si
+
+use strict;
+use warnings;
+use Getopt::Long;
+use Pod::Usage;
+use File::Basename;
+
+use lib "lib";
+use SI::system;
+
+my $ME = basename $0;
+my $opt_base = "..";
+my $opt_src = undef;
+
+
+MAIN: {
+
+    GetOptions(
+	"base=s" => \$opt_base,
+	"src=s"	=> \$opt_src,
+    ) or pod2usage;
+		
+    my $id = SI::system::id();
+
+    # now check if we find a suitable image
+    my $src = defined $opt_src ? $opt_src : "$opt_base/image-$id";
+    -d $src or die "$ME: $src: $!\n";
+
+    our $VAR1;
+    do "$src/info/devices";
+    my %devices = %$VAR1;
+
+    die %devices;
+
+}
+# vim:sts=4 sw=4 aw ai si: