#!/usr/bin/perl -w
use lib "/usr/lib/diskless";
use strict;
use diskless;
use imagedir;

my $m=0;

if ($#ARGV >= 0) 
{ 
	if ($ARGV[0] eq "--help")
	{
		print<<EOT;

No help currently available

EOT
		exit 0;
	}
}

my $imagedir="";
if ($m <= $#ARGV)
{
	$imagedir=$ARGV[$m]; $m++;
}

if ( $imagedir eq "" )
{
	$imagedir = "diskless"->input("Image directory","/var/lib/diskless/default/root");
}

my $error = undef;
my $theimagedir = "imagedir"->get($imagedir,\$error);
if (defined($error) && $error->id == "error"->notfound)
{
	print "Creating a NEW image directory\n";
	$error=undef;
	$theimagedir = "imagedir"->create($imagedir,\$error);
	die($error->msg."\n") if (defined($error));
}
elsif (defined($error))
{
	die($error->msg."\n");
}
else
{
	print "Re-configuring existing image directory\n";
	print "WARNING: this image directory must already be installed\n";
	$theimagedir->config(\$error);
}

if (defined($error))
{
	die($error->msg."\n");
}

exit 0;
