on RecordingDone(RecordingID)
tell application "System Events" to sleep
end RecordingDone

on RecordingDone(RecordingID)
tell application "System Events" to shut down
end RecordingDone

on RecordingDone(RecordingID)
set myapp to "EyeTV"
tell application myapp to quit
delay 10
with timeout of 300 seconds
display dialog "This mac will shut down in 3 minutes unless you click Stop!" with icon 0 buttons {"Stop!"} giving up after 180 default button "Stop!"
set theresults to the result
if gave up of theresults is true then
tell application "System Events" to shut down
end if
end timeout
end RecordingDone

on RecordingDone(RecordingID)
tell application "EyeTV"
set newrecording to (RecordingID as integer)
set isshow to get the title of recording id newrecording
--mysearch should be specified to the particular show you are selectively renaming.
set mysearch to "happy"
if isshow contains mysearch then
--replace "myshortname" with the short name of your choice.
set the title of recording id newrecording to ((year of (current date) as number) & "-" & (month of (current date) as number) & "-" & (day of (current date) as number) & "-" & "myshortname" as text)
end if
end tell
end RecordingDone

on ExportDone(RecordingID)
tell application "System Events" to sleep
end ExportDone

on ExportDone(RecordingID)
tell application "System Events" to shut down
end ExportDone

on ExportDone(recordingID)
set myid to recordingID as integer
tell application "EyeTV"
set origdur to get the actual duration of recording id myid
set myshortname to get the name of recording id myid
end tell
delay 5 -if the script does not seem to work, try increasing this delay slightly.
tell application "iTunes"
tell playlist "TV Shows"
set mytv to (get the location of every track whose name is myshortname)
if the (count of mytv) is 1 then
set mylocation to item 1 of mytv as string
else
display dialog "There were multiple iTunes tracks named " & myshortname & ". No EyeTV recordings were deleted."
end if
end tell
end tell
 
tell application "QuickTime Player"
if mylocation is not {} then
open file mylocation
set exportdur to get the (duration of document myshortname) / (get the time scale of document myshortname)
quit
end if
end tell
 
if origdur > exportdur then
set thediff to (origdur - exportdur)
else
set thediff to (exportdur - origdur)
end if
--Small discrepancies between the original file duration and the exported file duration can occur during exports. To compensate for this, the script assumes that if the difference in file duration is less than 1% of the total duration, then the export was successful.
if thediff < origdur * (0.01) then
--uncomment the line below to enable file deleting.
--tell application "EyeTV" to delete recording id myid
end if
end ExportDone

on ScheduleCreated(programID)
tell application "EyeTV"
get the name of program id programID
set mydur to (get the duration of program id programID) / 3600
--MyQual is the approximate GB/hour of your current recording quality. Adjust this value as necessary. For standard resolution recordings, this will be about 1.8 - 2.7. For 720p recordings, it is about 6. For 1080i, about 8.
set myqual to 2
set mysize to mydur * myqual
set AppleScript's text item delimiters to {":"}
set mydrive to (text items 1 thru 1 of (get the repository url as string)) as alias
end tell
tell application "Finder"
set myspace to (get free space of disk mydrive) / (1024 * 1024 * 1024)
if mysize > (myspace - 2) then
display dialog "This schedule will take approximately " & mysize & "GB of space. This may cause your EyeTV Archive drive to run out of space." buttons {"Ok"}
end if
end tell
end ScheduleCreated