1 #! /usr/bin/perl

     2 # system imager - proof of concept

     3 # (c) 2010 Heiko Schlittermann <hs@schlittermann.de>

     4 # see http://keller.schlittermann.de/hg/ius/si

     5 

     6 use strict;

     7 use warnings;

     8 use Getopt::Long;

     9 use Pod::Usage;

    10 use File::Basename;

    11 

    12 use lib "lib";

    13 use SI::system;

    14 

    15 my $ME = basename $0;

    16 my $opt_base = "..";

    17 my $opt_src = undef;

    18 

    19 

    20 MAIN: {

    21 

    22     GetOptions(

    23 	"base=s" => \$opt_base,

    24 	"src=s"	=> \$opt_src,

    25     ) or pod2usage;

    26 		

    27     my $id = SI::system::id();

    28 

    29     # now check if we find a suitable image

    30     my $src = defined $opt_src ? $opt_src : "$opt_base/image-$id";

    31     -d $src or die "$ME: $src: $!\n";

    32 

    33     our $VAR1;

    34     do "$src/info/devices";

    35     my %devices = %$VAR1;

    36 

    37     die %devices;

    38 

    39 }

    40 # vim:sts=4 sw=4 aw ai si: