#!/bin/bash 
# 
# mailarchiver.sh 
# 
# Nimmt per Drag&Drop Ordner mit eml[x]-Dateien aus Outlook, 
# Entourage oder Mail.app entgegen, sortiert diese der Reihe 
# nach (natural sort order), und benennt sie im Fall von Mail.app 
# um anhand der Betreffzeile der Mail. Bei allen Dateien wird 
# das Datum auf den Date-Header der Mail gesetzt. 
# 
# Benutzt wird dazu Spotlight-Technologie, d.h. das Parsen der 
# Mail-Source übernimmt nicht das Skript sondern entsprechende 
# im System existente MDImporter. 
# 
# v0.1.1 (c) 2007-2013 Thomas Kaiser / Kaiser-EDV GmbH <info@kaiser-edv.de> 
 
Main() { 
	# setup sane environment 
	export PATH=/bin:/sbin:/usr/bin 
	 
	# process all arguments 
	while [ $# -gt 0 ]; do 
		if [ -f "$1" ]; then 
			ProcessMessage "$1" 
		elif [ -d "$1" ]; then 
			# Scrollbalken vorbereiten 
			CountOfItems=$(ls "$1" | wc -l | tr -d " ") 
			ActualItem=0 
			# Dateien verarbeiten 
			cd "$1" || exit 1 
			ls | sort -g | while read ; do 
				ProcessMessage "${1}/${REPLY}" 
				ActualItem=$(( ${ActualItem} + 1 )) 
				Percentage=$(echo "${ActualItem} / ${CountOfItems} * 100 " | bc -l | cut -d. -f1) 
				echo "PROGRESS:${Percentage}" 
			done 
		fi 
		shift 
	done 
} # Main 
 
ProcessMessage() { 
	# Pruefen, ob ueberhaupt eine .eml[x]-Datei 
	case $1 in 
		*.eml|*.emlx) 
			# Suffix auslesen 
			TargetSuffix=".$(echo "${1}" | sed 's/^.*\.\([^.]\{0,5\}\)$/\1/g')" 
			# Zeit anpassen gemaess Header bzw. kMDItemContentCreationDate 
			TimeStamp="$(mdls "$1" | awk -F" " '/^kMDItemContentCreationDate/ {print $3$4}' | tr -d "-" | sed -e 's/://' -e 's/:/./')" 
			if [ "X${TimeStamp}" != "X" ]; then 
				touch -t "${TimeStamp}" "$1" 
			fi 
			 
			# Benamung anpassen gemaess Subject-Header bzw. kMDItemSubject wenn Mail.app 
			# im Spiel 
			case $1 in 
				*.emlx) 
					SubjectLine=$(mdls "$1" | awk -F"= " '/^kMDItemSubject/ {print $2}' | sed -e 's/^"//' -e 's/"$//' -e 's/:/-/g' -e 's|/|:|g' -e 's|"|\\"|g' -e 's| |\\ |g' -e 's|(|\\(|g' -e 's|)|\\)|g' -e 's|\[|\\[|g' -e 's|\]|\\]|g') 
					if [ "X${SubjectLine}" = "X" ]; then 
						SubjectLine="\"Kein Betreff\"" 
					fi 
					NewPath="$(GetUniqueFile "${1%/*}" "${SubjectLine}${TargetSuffix}")" 
					 
					echo "Benenne ${1##*/} um in ${NewPath##*/}" 
					mv "$1" "${NewPath}" 
				;; 
			esac 
			;; 
	esac 
} # ProcessMessage 
 
GetUniqueFile() { 
	# Funktion, die einen eindeutigen Dateinamen mittels numerischem Suffix 
	# herstellt, damit keine Dateien ueberschrieben werden 
	# Erwartet 2 Parameter: 
	# $1 --> Zielpfad 
	# $2 --> Zieldateiname 
	# 
	# Ein an der Datei haengendes max. 5-stelliges Suffix wird erhalten 
 
	MAX_LENGTH=85   # Maximale Dateinamenslaenge wegen UTF-8 (85-255 Zeichen) 
	COUNTER=0 
	SUFFIX="" 
	TARGET_DIR="$1" 
	TITLE="$2" 
	 
	# Test whether Suffix is available 
	FNameWOSuffix="$(echo "${TITLE}" | sed 's/\.[^.]\{0,5\}$//g')" 
	if [ "X${FNameWOSuffix}" = "X${TITLE}" ]; then 
		FNameSuffix="" 
	else 
		FNameSuffix=".$(echo "${TITLE}" | sed 's/^.*\.\([^.]\{0,5\}\)$/\1/g')" 
		TITLE="${FNameWOSuffix}" 
	fi 
	 
	while true; do 
		eval TARGET_FILE=${TARGET_DIR}/$(echo -e ${TITLE} | cut -c-${MAX_LENGTH})${SUFFIX}${FNameSuffix} 
		if [ -f "${TARGET_FILE}" -o -d "${TARGET_FILE}" ] ; then 
			COUNTER=$(expr ${COUNTER} + 1) 
			SUFFIX="-${COUNTER}" 
		else 
			echo "${TARGET_FILE}" 
			break 
		fi 
	done 
} # GetUniqueFile 
 
Main "$@"