#!/usr/bin/perl
#
# This will help create a client.dat file
#
#	$Revision: 1.8 $
#
#

require 5.003;
require (".dl_setup");	#Include file with functions
local (*data);

#Assert usage

if (scalar@ARGV != 0)
{
	print STDERR "Usage: client_setup\n";
	exit(1);
}

# Get supported platform information for .dl_classes
# It stores the array in an array of hashes

get_arch();
system(clear);
print "This program will help you create a client tree configuration file for the\n client you would ";
print "like to install.\n\n\n";
pick_info();
print "\nSpecify a size in MB for swap.\n";

again:

print "Swap size (Default is 64m - <Enter> for default):";
chomp($choice = <STDIN>);

#Check if swap is NULL or is all numbers
$_ = $choice;
if (($choice eq "") || (!(/\D+/)))
{
	if ($choice ne "")
	{
		$SWAP = $choice;
	}
	else 
	{
		$SWAP = "64";
	}

}
else 
{
	print "\a$choice is invalid\n";
	goto again;
}
if ($SWAP ne "")
{
	$SWAP .= "m";
}

print "Enter your NIS domain name (hit <Enter> for no domainname): ";
chomp($choice = <STDIN>);
$NISDOMAIN = $choice;

a:

print "Specify a name for your client tree configuration file (no extension \nplease): ";
chomp($choice = <STDIN>);
$choice .= ".dat";
if ( -e $choice )
{
        print "$choice exists: Overwrite (y/n)? ";
        eb:
	chomp($c = <STDIN>);
        if ($c eq "y")
        {
                goto ok;
        }
        elsif ($c eq "n")
        {
                goto a;
        }
        else
        {
                print "\aPlease enter y or n: ";
                goto eb;
        }
}

ok:

print "Creating file $choice\n";
open (OUT,">$choice") || die "client_setup: Cannot create $choice - $!\n";
print OUT "# Created by client_setup script!\n#\n";
print OUT "CLROOT=\"\$DISKLESS\/client\/\$HOST\"\n";
print OUT "SWAP=\"\$DISKLESS\/swap\/\$HOST\"\n";
print OUT "NISDOMAIN=\"$NISDOMAIN\"\n";
print OUT "SWAPSIZE=\"$SWAP\"\n";
print OUT "\n#Client architecture information\n";
print OUT "CPUBOARD=\"$CPUBOARD\"\n";
print OUT "CPUARCH=\"$CPUARCH\"\n";
print OUT "GFXBOARD=\"$GFXBOARD\"\n";
print OUT "VIDEO=\"$VIDEO\"\n";
print OUT "MODE=\"$MODE\"\n";
close OUT;