/***************************************************************************
 * vcr2.CMD  Klaus.Abresch@t-online.de
 * Stand: 14.06.2004
 * 
 * Aufnahme mittels ivactool und tempor„rer cnf-datei
 * adds recording shedules to the build in eComStation 1.1 taskplaner 
 * with own recording set *.cnf file
 * needs addevent.exe from eComStation v 1.1
 *
 *
 * to modify this script to your need, check the path statements  
 * in the next 4 lines 
 * don't forget the trailing backslashs */

emperoarpath   = "C:\EmperoarTV\"
emperoarcmdpath= "C:\EmperoarTV\cmds\"
recordingpath  = "F:\TVRECORD\"

addeventpath   = "C:\ECS\system\eclock\addevent.exe"   /* no backslash */

/* don't change below this line */

CALL RxFuncAdd 'SysSleep','RexxUtil','SysSleep'
CALL RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
CALL SysLoadFuncs


Say "Bitte Filename ohne Erweiterung eingeben"
Say "Please enter filename without extension"
Parse PULL fname
if fname = '' then fname = date('S')||time('M')
fnameout=emperoarcmdpath||fname".cnf"
rc=Lineout(fnameout,,1)
rc=Lineout(fnameout,"tvfmt = 2")

Say "Aufnahmeformat eingeben  [ 7 ]"
Say "enter Recordinformat     [ 7 ]"

Say "MPEG_1 352 x 288          1"
Say "MPEG_2 352 x 576          2"
Say "MPEG_2 480 x 576          3"
Say "MPEG_2 720 x 576          4"
Say ""
SAY "VCD                       5"
Say "SVCD                      6"
Say "DVD                       7"
Say "MPEG_1 4 x 3 384 x 288    8"
Parse pull vtype
if vtype = '' then vtype=7
rc=Lineout(fnameout,"vtype = "vtype)
rc=Lineout(fnameout,"vrate = 6800000")
rc=Lineout(fnameout,"vratevariance = 0")
Say "Audiobitrate  (192, [ 224 ] ,384)"

Parse pull arate
if arate = '' then arate =224
rc=Lineout(fnameout,"arate = "arate)
Say "Samplerate  (32K,44K,48K) (1, [ 2 ] ,4)"
Parse pull ssample
if ssample = '' then ssample =2
rc=Lineout(fnameout,"asamplee = "ssample)
/*Say "VidoInput eingeben (S-Video,Composite,Tuner,Scart) (1,2,4,8)"
Parse pull vinput                                                   */
vinput=4
rc=Lineout(fnameout,"input = "vinput)
Say "Max-Filesize in MB [ 1024 ]"
Parse pull maxfilesize
if maxfilesize = '' then maxfilesize = 1024
rc=Lineout(fnameout,"maxfilesize = "maxfilesize)
Say "Aufnahmezeit in Minuten  [ 90 ] "
Say "Recordingtime in minutes [ 90 ] "
parse pull recordingtime
if recordingtime = '' then recordingtime = 90
rc=Lineout(fnameout,"recordingtime = "recordingtime)
Say "TV-Kanal   [2]"
Say "TV-channel [2]"
Parse pull tvchannel
if tvchannel = '' then tvchannel = 2
rc=Lineout(fnameout,"tvchannel = "tvchannel)

rc=Lineout(fnameout)

Say "Config-datei geschrieben"
Say "wrote config-file" 
cnameout=emperoarcmdpath||fname".cmd"
ccname=emperoarpath||"ivactool.exe -d 1 -c "||recordingpath||fname||'.mpg' "@"fname".cnf"
say cnameout
say ccname
rc=lineout(cnameout,ccname)
rc=lineout(cnameout)

SAY 'Aufnahmedaten'
SAY 'date time'

recdate = date('S')
rectime = time('H')
rectime = rectime+1
rectime = LEFT(rectime,4,'0')
say recdate
say rectime
SAY 'Aufnahmedatum          FORMAT = YYYYMMDD'
SAY 'date of record         format = YYYYMMDD' 
parse pull rec2date
if rec2date= '' then rec2date = recdate
SAY 'Uhrzeit eingeben FORMAT = HHMM'
SAY 'time of record   format = HHMM' 
parse pull rec2time
if rec2time = '' then rec2time = rectime

if rectime = '2400' then rectime ='2359'
timeout=addeventpath||' /dt:'||rec2date||'.'||rec2time||' /tp:p'||' /pr:'||cnameout
say timeout

address cmd timeout
pull nix