#!/usr/bin/perl

use lib qw(. /home/pixel/gi/perl-install);
#use common;
#use install_any;

use interactive_gtk;
#use network::nfs;
use fs;
use c;

use help;
use keyboard;
use Xconfig;
use Xconfigurator;
use common;
use modules;
use detect_devices;

my ($all_hds) = fsedit::hds([ detect_devices::hds() ], {});

fs::get_raw_hds('', $all_hds);

my $l = [ 
#		      { mntpoint => '/myfloppy', device => 'fd0' },
		      {
		       'device' => 'kenobi:/export/home',
		       'mntpoint' => '/mnt/zznfs',
		       'type' => 'nfs',
		       'options' => 'noauto,nosuid,rsize=8192,wsize=8192'
		      },
		     ];
fs::add2all_hds($all_hds, @$l);

use Data::Dumper;
print Dumper($all_hds);