Apple script to rename EML files

--emlname.applescript -- Process exported .eml files from selected folder and construct new filename -- format from captured Return-Path and Date fields. Rename each file to new -- filename construction. Original TZ offset will be omitted if not in Date field: -- [YYYYmmdd-HHMMSS][original TZ offset][contents of return path].eml -- Version 5, Multiple, folded Return-Path lines are now handled with improved RE syntax. -- VikingOSX, 2017-12-12, Apple Support Communities property isDesktop : (path to desktop as text) as alias set dow to {"Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun"} -- use pm characters to see if timezone offset is in captured Date string set pm to {"+", "-"} -- Perl regular expressions -- allow for RFC2822 folded return paths if present -- set rpath_re to "/^Return-[Pp]ath:\\R?\\s*/m;' " set rpath_re to " /^Return-[Pp]ath:\\R?\\s*/ms;' -ne '$val = $1;$val =~ s/\\R\\s*?//g;print \"$val\";' " -- capture date through +- timezone offset, but exclude trailing (ZONE) if present set fdate_re to "/^Date:\\s*([A-Za-z0-9,+-: ]+)\\s?.*$/;' " -- UNIX BSD Date strftime settings for parsing the captured Date string -- legend: dow = day of week, tz = time zone, n = no -- Reference: strftime(3) : https://www.freebsd.org/cgi/man.cgi?query=strftime&sektion=3 set date_parse_dow_ntz to quoted form of "%a, %d %b %Y %X " -- Mon, 30 Oct 2017 06:43:23 set date_parse_dow_tz to quoted form of "%a, %d %b %Y %X %z " -- Mon, 30 Oct 2017 06:43:23 -0500 set date_parse_ndow_tz to quoted form of "%d %b %Y %X %z " -- 30 Oct 2017 06:43:23 -0500 set date_parse_ndow_ntz to quoted form of "%d %b %Y %X " -- 30 Oct 2017 06:43:23 set date_format to quoted form of "+[%Y%m%d-%H%M%S]" set emlFolder to (choose folder with prompt "Choose a folder containing raw email (.elm) files:" default location isDesktop without invisibles, multiple selections allowed and showing package contents) try tell application "Finder" set eml_list to (every item in folder emlFolder whose kind contains "Email Message" and name extension contains "eml") as alias list end tell if length of eml_list = 0 then return -- scan body of email looking for return path and Date fields to capture repeat with anItem in eml_list set x to (POSIX path of (anItem as alias))'s quoted form set rpath to (do shell script "perl -0777 -ne '$_ =~ " & rpath_re & x) set fdate to (do shell script "perl -ne 'print \"$1\" if " & fdate_re & x) -- store the original TZ offset in variable pzf for later filename inclusion -- Does this fdate capture have the +- TZ prefix offset? If so, return the -- starting character location in the fdate string. set ispm to (do shell script "ruby -e 'puts ARGV.first =~ /\\+|\\-/' " & fdate's quoted form) as integer -- snap out the timezone offset if it is present if ispm > 0 then set pz to text (ispm + 1) thru -1 of (fdate as text) -- trim leading/trailing white-space of the timezone offset set pzf to do shell script "xargs <<< " & pz else set pzf to "" end if -- we want to convert the output date string with the correct parser -- so make determination in this decision tree. if plus_minus(fdate, pm) and dow contains word 1 of fdate then -- have dow and TZ set parser to date_parse_dow_tz else if plus_minus(fdate, pm) and dow does not contain word 1 of fdate then -- no dow but TZ set parser to date_parse_ndow_tz else if not plus_minus(fdate, pm) and dow contains word 1 of fdate then -- have dow but no TZ set parser to date_parse_dow_ntz else if not plus_minus(fdate, pm) and dow does not contain word 1 of fdate then -- have no dow or Tz set parser to date_parse_ndow_ntz end if -- automatically convert the captured date into users localtime, and output in -- specified formatting. set ndformat to (do shell script "date -j -f " & parser & space & fdate's quoted form & space & date_format) set RP to "" -- return path if not rpath = "" then set RP to " [" & rpath & "]" end if set TZOFFSET to "" -- TZ offset if any if not pzf = "" then set TZOFFSET to " [" & pzf & "]" end if set newfilename to ndformat & TZOFFSET & RP & ".eml" if length of newfilename > 255 then display alert "Filename exceeds 255 character maximum for filesystem" giving up after 10 end if -- rename original filename to new -- log (emlFolder & newfilename) as text as alias tell application "Finder" if not (exists item ((emlFolder as text) & newfilename)) = true then set anItem's name to newfilename end if end tell end repeat on error errmsg number errnbr my error_handler(errnbr, errmsg) end try return on plus_minus(adatestr, alist) -- loop through Date string to see if +- characters indicate timezone offset repeat with achar in adatestr if achar is in alist then return true end repeat return false end plus_minus on error_handler(nbr, msg) return display alert "[ " & nbr & " ] " & msg as critical giving up after 10 end error_handler