#!/usr/bin/perl

#This script creates the user
#Created by Mark Mierau, June 17,2005


choice();



exit;


#############################
#Create the PassWord Fuction#
#############################
sub pass{
system "cls";

$flag = 0;

while($flag == 0 or $pass eq "")
         {printf "\n\nEnter Password: ";
                 $pass = <STDIN>;
                 chomp($pass);
                 printf "\n\nRe-enter Password: ";
                 $repass = <STDIN>;
                 chomp($repass);

if ($pass eq $repass){
         $flag = 1;
         print"\nPassword Confirmed.\n";}
         else{print"\nPasswords Do not match try again.\n";}

}

########################################
# Create the Create,delete Menu Fuction#
########################################

sub choice{

system "clear";
print "Palliser Regional Schools\n";
print "iT for Dominica Database\n";
print "--------------------------\n\n";
print "1. Create a user\n";
print "2. Delete a user\n";
print "3. Change a Password\n";
print "4. Mass User Creation\n";
print "5. Exit\n";
        
#Get input
print "Your choice: ";
$input2 = <STDIN>;
chomp($input2);

#----------If user picks 1 for Choice Function--------------#
if($input2 == int 1)
{
         system "clear";
         adduser();
}#end of if();

#----------If user picks 2 for Choice Function--------------#
if($input2 == int 2)
 {
         system "clear";
        
           deluser();
 
        
 }#end of if();

#----------If user picks 3 for Choice Function--------------#
#if($input2 == int 3)
# {
#         system "clear";
#        
#         #do this;
#        
# }#end of if();
#
#----------If user picks 4 for Choice Function--------------#
#if($input2 == int 3)
# {
#         system "clear";
#        
#         #do this;
#        
# }#end of if();
#
#
#----------If user picks 5 for Choice Function--------------#
if($input2 == int 5)
{
         system "clear";
         print "Exiting...\n\n\n";
         exit;
        
}#end of if();


#----------If user picks 0 for Choice Function--------------#
if($input2 ne NULL || $input2 ne " ")
{
         system "clear";
        
         print "\a";
         &choice;
        
}#end of if();

}#end of loop

}#end of sub
################################################
################ ADD THE USER ##################
################################################

my $number  = "";

sub adduser{
    
#create the array
my @data = (
  { query => 'First Name',},
  { query => 'Last Name', },
  { query => 'School', },
  { query => 'Phone', },
  { query => 'Position', },
  { query => 'Role', },
);


MAIN_LOOP:
while (1) {

#greeting
  system("cls");
  
  print "iT For Dominica User Database:\n",
        "Enter the Number then enter the value.\n";
        
#number the amt of items in list
  # !!!! Much easier to read:
  for my $i (0 .. $#data)
  {
    print "\t",
          $i+1, ". ",
          $data[$i]{query}, ": ",
          $data[$i]{value} || "",
          "\n";
  }#END OF FOR();
  print "\t0. Commit\n";

  # !!!! Added loop to simply error handling.
  foreach ('once') {
    # !!!! Added instructions on how to exit:
    print "Type a number to choose to change: (0 to commit)";
    $number  = "";
    $number = <STDIN>;
    chomp($number);
    

    if ($number eq "" || $number eq "0") {
       goto BLOG;
    }#EO iF();
        
# !!!! Make sure it's a number!
    if ($number =~ /[^0-9]/ || $number > @data) {
      print "Bad input!";
      redo; # Ask again.
    }#EO IF();
  }#EO FOR();

  --$number;
  print "\n\nPlease enter your ", $data[$number]{query}, ": ";
  chomp($data[$number]{value} = <STDIN>);
  
}#END OF WHILE LOOP
if(scalar @data{value} eq  "" || null){
        print "You have not entered all the values. Please try again";
        &adduser;#goes back to asking for array members
        sleep 5;
};#end of if{};
BLOG:
# !!!! Cleaned up this loop a lot.
foreach my $field (@data) {
  my $query = $field->{query};
  my $value = $field->{value};
      if (defined($field->{value}) && $field->{value} ne "") {
         print("$query: $value\n");
         sleep 1;
      }#EO IF();
}#EO FOREACH



    print "Are you sure ? ";
    my $answer = <STDIN>;
    chomp($answer);
    $answer = uc($answer);
    if ($answer ne "YES"){
        
        print "Aborting user creation. No user has been added to the s
+ystem!\n";
        sleep 5;
        last;
    }

    ## Add the user
    $finitial = substr($data[0]{value},0,1);
    $lastname = $data[1]{value};    
    $newuid = $finitial . $lastname;    
    $newuid =~ s/\s+//g;                 # remove whitespace
        $newuid =~ s/\.//g;                 # remove periods (if any)t
+he g removes whitespace globally
    $newuid = lc($newuid);

    print "the user id will be $newuid\n";
    sleep 20; 
    
    last;
 # }#END OF IF


  --$number;
  print "\n\nPlease enter your ", $data[$number]{query}, ": ";
  $data[$number]{value} = <STDIN>;
    chomp($data[$number]{value});
    

  



}# END OF SUB


#------------------------------------------#
#          DELETE THE USER                 #
#------------------------------------------#
sub deluser{

    my $deluid;
    my $answer;

    system("clear");
    print "Enter the uid of the user you would like to delete:";
    $deluid = <STDIN>;
    chomp($deluid);
    print "Are you sure you want to delete user $deluid (Yes/No) ? ";
    $answer = <STDIN>;
    chomp($answer);
    $answer = uc($answer);
    
    if ($answer ne "YES"){
        print "Deletion Aborted, no users have been deleted.\n";
        return;
    } 

    if(-e "/home/$deluid"){


         #First tar the users home directory in case we need to restor
+e
        if ( -e "/home/olduserdata/$deluid.tar"){

            print "There is already an archived folder with this uid\n
+";
            print "Check the folder /homeolduserdata\n\n";
            sleep 5;
            return;
        } 
        print "Deleting user..";    
        system("tar cvf /home/olduserdata/$deluid.tar /home/$deluid");
        system("gzip /home/olduserdata/$deluid.tar");
        system("userdel -r $deluid");
        print "A copy of the users folder has been placed in /home/old
+usersdata\n";
        sleep 10;

    } else {

        print"ERROR---USER DOES NOT EXIST\n\n";
        sleep 5;
        return;

    }
    

}# END SUB
[download]