
# Setup For User Config - DO NOT EDIT!
if ($< ne '0')  {
	print STDERR "Must be executed by root.\n";
	exit 1;
}
chop ( $myname = `whoami` );
chop ( $date = `date` );

print "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n[2J[30;47mUser Congifuration Setup. $date.[0m [1;24r[0m
[30;47mWelcome $myname to the setup of User Configuration.  Enjoy IT![0m\n\n\n";
PASS:
if (-C "/etc/passwd")  {
print "Passwd File [/etc/passwd] : ";
$passwd = <STDIN>;
chop $passwd;
if ($passwd eq '')  {
$passwd = "/etc/passwd";
}
else
{
if (-C $passwd)  {
}
else
{
print "That does file does not exist.\n";
goto PASS;
}
}
}
else
{
print "[30;47mPasswd File [ ? ] :[0m ";
$passwd = <STDIN>;
chop $passwd;
if (-C $passwd)  {
}
else
{
print "That file does not exist.\n";
goto PASS
}
}
GROUP:
if (-C "/etc/group")  {
print "Group File [/etc/group] : ";
$group = <STDIN>;
chop $group;
if ($group eq '')  {
$group = "/etc/group";
}
else
{
if (-C $group)   {
}
else
{
print "That file does not exist.\n";
goto GROUP;
}
}
}
else
{
print "Group File [ ? ] : ";
$group = <STDIN>;
chop $group;
if (-C $group)  {
}
else
{
print "That file does not exist.\n";
goto GROUP;
}
}
SHADOW:
if (-C "/etc/shadow")   {
print "Shadow File (enter none if none ) [/etc/shadow] : ";
$shadow = <STDIN>;
chop $shadow;
if ($shadow eq '')  {
$shadow = "/etc/shadow";
}
elsif ($shadow eq 'none')  {
}
else
{
if (-C $shadow)  {
}
else
{
print "That file does not exist.\n";
goto SHADOW;
}
}
}
else
{
print "Shadow file [ none ] : ";
$shadow = <STDIN>;
chop $shadow;
if ($shadow eq '')  {
$shadow = "none";
}
else
{
if (-C $shadow)  {
}
else
{
print "That file does not exist.\n";
goto SHADOW;
}
}
}
HOME:
if (-C "/home")  {
print "Enter Users home directory [/home] : ";
$home = <STDIN>;
chop $home;
if ($home eq '')  {
$home = "/home";
}
else
{
if (-C $home)  {
}
else
{
print "That is not a valid directory.\n";
goto HOME;
}
}
}
else
{
print "Enter users home directory (example:/usr/home) [ ? ] : ";
$home = <STDIN>;
chop $home;
if ($home eq '')  {
goto HOME;
}
if (-C $home)  {
}
else
{
print "That is not a valid directory.\n";
goto HOME;
}
}
$check = $home;
$see = chop $check;
if ($see ne '/')  {
$home = "$home/";
}
print "\nContinue [Y/n] ? ";
$con = <STDIN>;
chop $con;
if (($con =~ "n")||($con =~ "N"))  {
print "[0m[r[2J[0mRun /tmp/.uc/setup some other time.\n";
exit 0;
}
print "\n[30;47mMaking setup file . . . ";
if (-C "/tmp/.uc/config")  {
system "rm /tmp/.uc/config";
}
open (FILE, ">/tmp/.uc/config") || die "Can't open /tmp/.uc/config";
print FILE "$passwd\:$shadow\:$group\:$home\:$version";
close (FILE);
print "Done.\n";
print "[30;47mPress enter to continue.[0m";
$wait = <STDIN>;
print "[0m[r[2J[0mType usrconfig to run. Have fun!\n";

