#!/usr/bin/perl

use strict;
use warnings;

my ($first, $middle, $last, $office, $phone, $department, @line, $fullname, $username, $gecos, $homedir);
my $password = "\$1\$TuPOd4ry\$joEsOwywtiyhb3wjAPOT60";

scalar(@ARGV) == 1 or die("No file specified, usage: perl lab4.pl file\n");
open(FILE, "< $ARGV[0]") or die("File open error!\n");


while(<FILE>) {

    chomp($_);
    $_ =~ s/\"||\,//g;
    @line = split("\t+",$_);

    #Format Full Name
    my @name = split(/\s/, $line[0]);

    for(my $i=0; $i < scalar(@name); $i++) {

        # if $i is 0, format last name
        # if $i is 1, format first name
        # if $i is 2, format middle name
        if($i == 0) {

            $last = $name[$i];
            $last = ucfirst lc $last;

        } elsif($i == 1) {

            $first = ucfirst lc $name[$i];

        } elsif($i == 2) {

            $middle = $name[$i];
            $middle = ucfirst lc $middle;

            if(length($middle) == 1) {

                $middle = $middle . ".";
            }

        }

    }

    if(length($middle) > 0) {

        $fullname = $first . " " . $middle . " " . $last;
        $username = substr($first,0,1) . substr($middle,0,1) . substr($last,0,1);

    } else {

        $fullname = $first . " " . $last;
        $username = substr($first,0,1) . 'x' . substr($last,0,1);

    }

    #End Format Full name

    #Get Location, extension, department
    $office = $line[1];
    $phone = $line[2];
    $department = $line[3];
    #End Get

    $username =  lc $username . substr($department,0,3);

    $gecos = $fullname . ',' . $office . ',' . $phone . ',' . $department;

    $homedir = "/home/". lc $department;

    $middle = "";

    system("useradd -c \"$gecos\" -d $homedir -G $department $username ");
}

close(FILE);