# Function to read directories recursively
function get_file_array {
	for f in $1/*;	do
		if [ -d "$f" ]; then
			get_file_array $file;
		else
			# Skip files with extensions .dat .msf
			fnam=$(basename "$f");
			fext="${fnam##*.}";
			fnam="${fnam%.*}";
			if [ -z "$fext" ]; then
				fil_ray+=("$fnam");
			fi
		fi	# end if -d $f
	done	# end do
}			# end function

# Declare the Local Folders dir for Thunderbird
ptdir="/home/$myuser/.thunderbird";                    # Parent dir
prfln=$( cat "$ptdir/profiles.ini" | grep "Path=" );   # Read profile
profn="${prfln:5}";                                    # Substring profile name
tbrot="$ptdir/$profn";                                 # TBird root dir
flray=("Mail/Local Folders" "ImapMail");               # Default Mail Folders
for i in "${flray[@]}"; do                             # Loop for each Folder set
	tbdir="$tbrot/$i/";                            # Set processing Folder
	get_file_array "$tbdir";                       # Run file array process
	echo "FR=> $fil_ray";                          # Show results
done	# end for i loop
exit;

function get_file_array () {
	echo "1=> $1";
	for f in $1/*;	do
		echo "F=> $f";
		if [ -d "$f" ]; then
			get_file_array $file;
		else
			fnam=$(basename "$f");
			fext="${fnam##*.}";
			fnam="${fnam%.*}";
			# Skip files with extensions .dat .msf
			if [ -z "$fext" ]; then
				fil_ray+=("$fnam");
			fi
		fi	# end if -d $f
	done	# end do
}			# end function

function get_file_array () {
	echo "1=> $1";
	fil_ray=$( IFS=$'\n'; find "$1" -type f -follow | grep --exclude=\*.{dat,msf} );
	dir_str=$( IFS=$'\n'; find "$1" -type f -follow );
	IFS=' ' read -r -a fil_ray <<< "$dir_str";
	for i in "${fil_ray[@]}"; do
		echo "I=> $i";
		fnam=$(basename "$i");
		fext="${fnam##*.}";
		fnam="${fnam%.*}";
		# Skip files with extensions
		if [ -z "$fext" ]; then
			new_ray+=("$fnam");
		fi	# end if -z $fext
	done	# end do
}			# end function

function get_file_array () {
	echo "1=> $1";
	#fil_ray=$( IFS=$'\n'; find "$1" -type f -follow | grep --exclude=\*.{dat,msf} );
	#dir_str=$( IFS=$'\n'; find "$1" -type f -follow );
	fil_ray=$( IFS=$'\n'; find "$1" -type f -follow );
	#IFS=' ' read -r -a fil_ray <<< "$dir_str";
	for i in "${fil_ray[@]}"; do
		echo "I=> $i";
		fnam=$(basename "$i");
		fext="${fnam##*.}";
		fnam="${fnam%.*}";
		# Skip files with extensions
		if [ -z "$fext" ]; then
			new_ray+=("$fnam");
		fi	# end if -z $fext
	done	# end do
}			# end function

find dirname -type f !-name '*.dat' ! -name '*.msf' --follow -exec sh -c ' 
  for f; do # here is the array, ready for some loving
    echo "$f"
    # do more stuff
  done' _ {} +

	# Function to read directories recursively
	function get_file_array () {
		fil_ray=$( IFS=$'\n'; find "$1" -type f -follow '!' -regex '^.*\.\(\dat\|\msf\)$' );
		echo "$fil_ray" >> $tbfiles;  # Save "find" string to file
	}			# end function

	# Function to read file string and parse to array
	function parse_f2_array () {
		echo "1=> $1";
		#IFS=$( -regex '\r\n' ); read 
		IFS=$'\r\n' GLOBIGNORE='*' command eval  'fil_ray=($(cat $1))';
		#echo "$fil_ray";
		echo "FR=> $fil_ray";
	}			# end function

	# Get current directory
	DIR="$( cd -P "$( dirname "$0" )" && pwd )"
	curdir="$DIR";
	myuser='youruserID';
	#echo "C=>$curdir";

	# Declare the Local Folders dir for Thunderbird
	ptdir="/home/$myuser/.thunderbird";                  #TBird Parent directory
	prfln=$( cat "$ptdir/profiles.ini" | grep "Path=" ); #Cet profile path name
	profn="${prfln:5}";											  #Get profile name
	tbrot="$ptdir/$profn";                               #Set the profile root dir
	flray=("Mail/Local Folders" "ImapMail");				  #Declare the processing dirs
	g_opts="grep -o -E '[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,4}'";
	s_opts="sort -f | uniq -i";
	tbfiles="/home/$myuser/myfiles/TBird_Files.txt";     #Declare the output file
	tbarray="/home/$myuser/myfiles/TB_rayout.txt";       #Declare the trap file
	tbaddrs="/home/$myuser/myfiles/all-addresses.txt";   #Declare the output file
	rm -f $tbfiles && touch $tbfiles;                    #Clear the output file
	rm -f $tbarray && touch $tbarray;                    #Clear the trap file
	for i in "${flray[@]}"; do                           #Process the dirs
		tbdir="$tbrot/$i/";                               #Set the dir path
		get_file_array "$tbdir";                          #Get the files to process
		echo "TF=> $tbfiles";
		parse_f2_array "$tbfiles";                        #Parse the string into an array
		for f in "${fil_ray[@]}"; do							  #Process each file
			echo "FL=> $f";
			# Run the grep statement to get the addresses
			#grep '^\(From\|To\|Cc\|CC\Bcc\|BCC\):' "$f" | "$g_opts" | "$s_opts" >> $tbaddrs;
		done	# end for f loop
	done		# end for i loop
	#nano $tbarray;
	#nano $tbfiles;
	exit;