Hi Treetop,
My script follows. Sorry its so long.
I've tried to describe what each section does but if you don't understand anything just let me know and I'll explain.
-- the first section of this program defines all the necessary functions
-- TimerKill function is used to obliterate timers. With this, when you cancel
-- a timer, Timer variable will no longer exist. Useful to make sure you don't
-- try to cancel a timer that does not exist such as in the RecordStart function.
function TimerKill ()
Timer.Cancel ()
Timer = nil
end
-- CurrentDate function returns today's date and time
-- "%A" = Day of week, full text format
-- "%w" = Day of week as numeric (Sunday = 0)
-- "%m" = Month (numeric)
-- "%d" = Day of Month
-- "%y" = Year
function CurrentDate ()
local err
Timer = TIMER_CreateObject ()
err = Timer.Create ("","TimerDate ()","",1)
curday = date("%A")
curdaynum = date ("%w")
curdaynum = tonumber(curdaynum)
curmonth = date ("%m")
curdate = date ("%d")
curhour = date("%H")
curmin = date("%M")
curyear = date("%y")
todaydate = curmonth .. "/" .. curdate .. "/" .. curyear
TimerKill ()
timerday=curday
end
-- Function Datareader reads the timer file, looks for date matches and if finds a match,
-- adds to watch list for today. Also looks for daily matches (i.e. every Monday)
-- or weekday match (M-F). If any of these match, the progam is added to the
-- watch list.
--
-- The timer file is just a text file that looks like this:
--
-- <program start>
-- station: 340
-- date: 07/30/04
-- start: 08:58
-- end: 10:02
-- program_title: The Screen Savers
-- program_subtitle: '' - (Computers/Technology)
-- frequency: Weekday
--
-- The first line tells Girder to load the following seven lines as one event.
-- You can repeat as many events as you want in the file by repeating this format.
-- The time is in military time. And you can schedule events to repeat by using
-- "Weekday", "Daily", "Sunday" (or another day of the week) in the last line.
-- If the event is only once, use "Once"
function Datareader ()
CurrentDate () -- this gets the current date
header = {"station: ","date: ","start: ","end: ","program_title: ","program_subtitle: ","frequency: "}
startmarker = "<program start>"
readline = {}
progstation = {}
progdate = {}
progstart = {}
progend = {}
progtitle = {}
progdescription = {}
tempf = readfrom(openfilename)
progtotal = 0
while 1 do
templine = read(tempf)
if not templine then break end
if strfind(templine, startmarker) then -- if line contains program start marker,
set = 0
for tempi = 1, 7 do
templine = read(tempf) -- read next line
readline[tempi] = gsub(templine, header[tempi],"")
end
starthour = tonumber(strsub(readline[3],1,2))
startmin = tonumber(strsub(readline[3],4,5))
if readline[2] == todaydate or readline[7] == "Daily" or readline[7] == curday then set = 1 end
if readline[7] == "Weekday" and curdaynum>0 and curdaynum<6 then set = 1 end
if starthour<tonumber(curhour) then set = 0 end
if starthour==tonumber(curhour) and startmin<tonumber(curmin)then set = 0 end
if set == 1 then
progtotal=progtotal+1
progstation[progtotal] = readline[1]
progdate[progtotal] = readline[2]
progstart[progtotal] = readline[3]
progend[progtotal] = readline[4]
progtitle[progtotal] = readline[5]
progdescription[progtotal] = readline[6]
if tonumber(readline[1])>= DIGITAL_START then needcablebox = 1 end
end
end
end
readfrom()
if needcablebox and firstpass then
messagetype = "A scheduled recording requires use of the cable box.".."\n\n"
messagetype = messagetype.."Will the cable box be left on for the recording?".."\n\n"
messagetype = messagetype.."(If the box will be off, please click NO)"
RETVAL = WINDOWS_MessageBox(messagetype,"GTimer Recording Manager",292)
if RETVAL == 6 then -- if the person said yes, note that the box will be on
cableboxon = 1
end
end
firstpass = nil
TimerMonitor (wait)
end
-- TimerMonitor function checks the time against timers and repeats until finds match
function TimerMonitor (interval)
local err
Timer = TIMER_CreateObject ()
err = Timer.Create ("","TimerHandler ()","",1)
err = Timer.Arm (interval)
end
-- TimerHandler function is the second part of the TimerMonitor function
-- This does the actual time check versus timers. When finds timer match, it returns
-- the table position of the match as "prog" and moves to recorder function.
function TimerHandler ()
hour = date ("%H")
minute = date ("%M")
second = date("%S")
curday = date("%A")
luanum = progtotal
luaosd = "Waiting "..progtotal.." Programs - "..hour..":"..minute..":"..second -- displays timers waiting and current time
TriggerEvent ("LUAOSD",18)
time = hour ..":".. minute
if timerday~=curday then -- if the day has changed (in other words if it's midnight) get new data
RestartReader ()
timerday=curday
end
for tempi = 1, progtotal do
if time == progstart[tempi] then
luaosd3 = "Recording "..tempi.." starting."
TriggerEvent ("LUAOSD",18)
prog = tempi
RecordStart (wait)
end
end
end
-- RecordStart function starts the record timer and checks current time against
-- recorder stop for this program.
function RecordStart (interval)
TimerKill ()
TriggerEvent("GP_START",18) -- Start my PVR program, Gigapocket
TriggerEvent("WAIT_3_SEC",18)
TriggerEvent("WAIT_2_SEC",18)
CHANNEL = progstation[prog]
TriggerEvent("GP_START",18) -- Call Gigapocket again to make sure have focus
if tonumber(CHANNEL)< DIGITAL_START then
-- if the channel it will record is an analog channel (which my PVR can
-- record on its own) then it tunes my PVR to the right channel
for tempi = 1,strlen(CHANNEL)do
TriggerEvent("GPC" .. strsub(CHANNEL,tempi,tempi),18)
end
TriggerEvent("GPENTER",18)
else
-- if the channel needs to be tuned through the cable box, it will set
-- my PVR to record Video 1, and tune the cable box through USB-UIRT
if not cableboxon then -- if user said the cable box is off
TriggerEvent("CABLE_POWER",18) -- turn on the cable box
TriggerEvent("WAIT_2_SEC",18)
end
for tempi = 1,strlen(CHANNEL)do
TriggerEvent("CABLE_NUM" .. strsub(CHANNEL,tempi,tempi),18)
end
TriggerEvent("GP_START",18) -- Start Gigapocket
TriggerEvent("GPV1",18) -- trigger Video 1 source
end
TriggerEvent("WAIT_2_SEC",18)
TriggerEvent("WAIT_2_SEC",18)
TriggerEvent("GPRECSTART",18) -- trigger record command
TriggerEvent("WAIT_3_SEC",18)
TriggerEvent("GP_MINIMIZE",18) -- Hide Gigapocket
local err
Timer = TIMER_CreateObject ()
err = Timer.Create ("","RecorderHandler ()","",1)
err = Timer.Arm (interval)
end
-- RecorderHandler function is the second part of the RecordStart function. This
-- checks the time against the program end time and calls function to end recording
-- when it finds a match.
function RecorderHandler ()
hour = date ("%H")
minute = date ("%M")
second = date("%S")
luanum = prog
luaosd = "Recording "..prog.." "..hour..":"..minute..":"..second.." - "..progtitle[prog]..progdescription[prog]
TriggerEvent ("LUAOSD_REC",18)
time = hour ..":".. minute
if time == progend[prog] then
RecorderStop ()
end
end
-- RecorderStop function ends the recording timer, stops the recording, and
-- calls the TimerMonitor function to wait for the next timer.
function RecorderStop ()
TimerKill ()
TriggerEvent("GP_START",18)
TriggerEvent("GPRECSTOP",18) -- Stop Recorder
TriggerEvent("GPRECSTOP",18) -- Stop Recorder 2nd time to make sure
TriggerEvent("WAIT_3_SEC",18)
TriggerEvent("GP_CLOSE",18) -- Close Gigapocket
print ("Recorder Stopped")
recorderon = nil
if tonumber(CHANNEL) >= DIGITAL_START then
if not cableboxon then -- if user said the cable box was off
TriggerEvent("CABLE_POWER",18) -- turn off the cable box
else
TriggerEvent("CABLE_LASTCH",18)
end
end
Datareader () -- re-read schedule file
end
-- RestartReader is used at midnight to check for new schedule data
function RestartReader ()
TimerKill ()
luaosd = "Checking for new data"
TriggerEvent ("LUAOSD",18)
Datareader () -- re-read schedule file
end
-- required variables - DO NOT DELETE
opendirectory = "C:\\Program Files\\girder\\Schedule\\" -- directory where the timer file data resides
openfilename2 = "programs.txt" -- timer file name
openfilename = opendirectory .. openfilename2
DIGITAL_START = 75 -- First digital channel -beyond this will use cable box and set Gigapocket to Video1
wait = 5000 -- this is how frequently the timer will check the current time, in miliseconds (5 seconds here)
-- need the following for the cable box notification and triggering
firstpass = 1
needcablebox = nil
cableboxon = nil
-- The following code starts the timer functions if the recorder is not running
if not recorderon then
if Timer then
TimerKill () -- cancels timer, if running
end
Datareader () -- this calls the function to read the data file & start timer
end
for tempi = 1,progtotal do -- for debugging
print (progstation[tempi])
print (progdate[tempi])
print (progstart[tempi])
print (progend[tempi])
print (progtitle[tempi])
print (progdescription[tempi])
end
print ("Date is ",curmonth,"/",curdate,"/",curyear)
Chris