if ($USER eq "root") { if (-e "/etc/rlsh_varlist.txt") { open (my $READVARS, "< /etc/rlsh_varlist.txt") or warn "Variables not active\n"; while (my $row = <$READVARS>) { chomp $row; my @VARS = split(/\s+/, $row); my %variables_hash = ( "@VARS[0]" => "@VARS[1]", "@VARS[2]" => "@VARS[3]", "@VARS[4]" => "@VARS[5]", ); } close $READVARS; } else{ open (CREATEVARS, "> /etc/.rlsh_history"); close CREATEVARS; } } else { $COLOR = 'bold blue' ; $SH_PATH = "/home/$USER"; if (-e "$SH_PATH/rlsh_varlist.txt") { open (my $READVARS, "< $SH_PATH/rlsh_varlist.txt") or warn "Variables not active\n"; while (my $row = <$READVARS>) { chomp $row; my @VARS = split(/\s+/, $row); my %variables_hash = ( "@VARS[0]" => "@VARS[1]", "@VARS[2]" => "@VARS[3]", "@VARS[4]" => "@VARS[5]", ); } close $READVARS; }