#!/usr/bin/env perl
use strict;
use warnings;

my (%adds, $user, $muser,);

LOOP:while (<>) {
   chomp;
   ($user, $muser) = map lc, split;
   if ( s/[a-z]//g <= 5 ) {
      print uc("\nyou must enter at least 6 characters, try again!!!???\n\n");
      goto LOOP;
   }
   else {

      if ( -d "/users/$muser" ) {
         $adds{$user} = qx(ls /users/$muser/.profile);
      }
      elsif ( -d "/home/$muser" ) {
         $adds{$user} = qx(ls /home/$muser/.profile);
      }
      else {
         print "\n$muser does not have a /users subdir,
         exiting!\n\n";
         exit 0;
      }

      print uc("\nnow building user associations for your
      user-adds!\n");
     
      while ( my ($key, $val) = each(%adds) ) {
         print "\n$key will have a profile of $val\n";
         chomp ($key,$val);
         if ( ! -d "/users/$key" ) {
            system("mkdir /users/$key");
            system("chown $key:users /users/$key");
            system("ln -sf $val /users/$key/.profile");
         }
      }
}