on RecordingDone(recordingID)

tell application "EyeTV"

try

set strFolderPath to "/Users/egroenen/Movies/"

set strExportExtension to ".m4v"

set rec to recordingID as integer

set theRec to recording id rec

set strTitle to title of theRec

set strEpisodeName to episode of theRec

set strDescription to description of theRec

set strChannel to station name of theRec

set theRecLocation to get the location of theRec

set strUniqueID to unique ID of theRec

set strDestination to strFolderPath & strUniqueID & strExportExtension

set strMyTask to strFolderPath & strUniqueID & ".sh"

set theUnixLocation to my posix_path(theRecLocation)

set theUnixMPGLocation to do shell script "echo " & theUnixLocation & " | sed 's/eyetvr/mpg/' "

end try

try

set logDestination to strDestination & ".log"

-- Specific ones for each HD channel

if strChannel contains "One" then

set hbcli_cmd to "nice /Users/egroenen/scratch/HandBrakeCommit/HandbrakeCLI -i \"" & theUnixMPGLocation & "\" -o \"" & strDestination & "\" -v -f mp4 -e x264 -b 2700 -r 25 -p -B 160 -R 48 --large-file -x subq=4:me=hex:cabac=0 2> \"" & logDestination & "\""

else if strChannel contains "TV 2" then

set hbcli_cmd to "nice /Users/egroenen/scratch/HandBrakeCommit/HandbrakeCLI -i \"" & theUnixMPGLocation & "\" -o \"" & strDestination & "\" -v -f mp4 -e x264 -b 2700 -r 25 -p -B 160 -R 48 --large-file -x subq=4:me=hex:cabac=0 2> \"" & logDestination & "\""

else if strChannel contains "TV 3" then

-- TV3 is 1080i so deinterlace and resize down to 720p

set hbcli_cmd to "nice /Users/egroenen/scratch/HandBrakeCommit/HandbrakeCLI -i \"" & theUnixMPGLocation & "\" -o \"" & strDestination & "\" -v -f mp4 -e x264 -b 2700 -r 25 -p -B 160 -d fast -R 48 -Y 720 --large-file -x subq=4:me=hex:cabac=0 2> \"" & logDestination & "\""

else

-- And all SD channels come here, they are all apparently interlaced

set hbcli_cmd to "nice /Users/egroenen/scratch/HandBrakeCommit/HandbrakeCLI -i \"" & theUnixMPGLocation & "\" -o \"" & strDestination & "\" -v -f mp4 -e x264 -b 1500 -r 25 -p -B 64 -R 48 -d fast --large-file -x subq=4:me=hex:cabac=0 2> \"" & logDestination & "\""

end if

end try

if strEpisodeName is "" then

set strEpisodeName to do shell script "date +'%a %R (%D)'"

end if

set strYear to do shell script "date -u +'%FT%H:%M:%SZ'"

try

set ap_cmd to "/Applications/MetaX.app/Contents/Resources/AtomicParsley64  \"" & strDestination & "\" --stik \"TV Show\" --TVShowName \"" & strTitle & "\" --TVEpisode \"" & strEpisodeName & "\" --description \"" & strDescription & "\" --title \"" & strTitle & "\" --year \"" & strYear & "\""

end try

try

set itunes_cmd to "/usr/bin/open -a /Applications/iTunes.app " & strFolderPath & "/" & strUniqueID & "-temp-*"

end try

try

set rm_cmd to "sleep 600; ls -l " & strFolderPath & strUniqueID & "*"

end try

try

-- WRITE ALL COMMANDS TO SCRIPT FILE

tell application "TextEdit"

--if it is not running then activate

activate

make new document

set (text of document 1) to hbcli_cmd & "\n\n" & ap_cmd & "\n\n" & itunes_cmd & "\n\n" & rm_cmd & "\n\n"

save document 1 in strFolderPath & strUniqueID & ".sh"

close document 1 saving no

end tell

end try

try

do shell script "chmod 755 " & strFolderPath & strUniqueID & ".sh"

do shell script strFolderPath & strUniqueID & ".sh &> /dev/null &"

end try

end tell

end RecordingDone

on posix_path(mac_path)

set mac_path to (mac_path as text)

set root to (offset of ":" in mac_path)

set rootdisk to (characters 1 thru (root - 1) of mac_path)

tell application "Finder"

if (disk (rootdisk as string) is the startup disk) then

set unixpath to "/" & (characters (root + 1) thru end of mac_path)

else

set unixpath to "/Volumes:" & mac_path

end if

end tell

set chars to every character of unixpath

repeat with i from 2 to length of chars

if item i of chars as text is equal to "/" then

set item i of chars to ":"

else if item i of chars as text is equal to ":" then

set item i of chars to "/"

else if item i of chars as text is equal to "'" then

set item i of chars to "\\'"

else if item i of chars as text is equal to "\"" then

set item i of chars to "\\" & "\""

else if item i of chars as text is equal to "*" then

set item i of chars to "\\*"

else if item i of chars as text is equal to "?" then

set item i of chars to "\\?"

else if item i of chars as text is equal to " " then

set item i of chars to "\\ "

else if item i of chars as text is equal to "\\" then

set item i of chars to "\\\\"

end if

end repeat

return every item of chars as string

end posix_path