#!/bin/sh  
# \
exec oagtclsh "$0" "$@"

proc CheckLogOnChangeInputs {system} {
    set reqDir /home/helios/oagData/SCR/requestFiles
    set outDir [file join /home/helios/oagData/logonchange $system]
    set copy 0
    set f1 [file join $outDir ${system}.loc]
    set f2 [file join $reqDir ${system}.req]
    if {[file exists $f1]} {
	if {[file exists $f2]} {
	    set t1 [file mtime $f1]
	    set t2 [file mtime $f2]
	    if {$t2 > $t1} {
		set copy 1
	    }
	}
    } else {
	set copy 1
    }
    
    if {$copy} {
        if {$system == "LPL"} {
            catch {exec sddsprocess $f2 $f1 \
                     "-match=column,IsReadOnly=+n,ControlName=L1:RG1:KIK:DacAI,|,ControlName=L1:RG2:KIK:DacAI,|,ControlName=L1:RG1:KIK:PFNVoltageAI,|,ControlName=L1:RG2:KIK:PFNVoltageAI,|" }
        } elseif {$system == "P0Feedback"} {
            catch {exec sddsprocess $f2 $f1 \
                     "-match=column,IsReadOnly=+n,ControlName=S:P0FB:ClockFaultMI.BA,|,ControlName=S:P0FB:ClockFaultMI.B0,|,ControlName=S:P0FB:ClockFaultMI.B1,|,ControlName=S:P0FB:ClockFaultMI.B2,|,ControlName=S:P0FB:ClockFaultMI.B8,|,ControlName=S:P0FB:ClockFaultMI.B9,|" }
        } else {
            catch {exec sddsprocess $f2 $f1 \
                     "-match=column,IsReadOnly=+n" }
        }
    }
    
}

proc CheckLogOnChangeInputs2 {f1 f2} {
    set copy 0
    if {[file exists $f1]} {
	if {[file exists $f2]} {
	    set t1 [file mtime $f1]
	    set t2 [file mtime $f2]
	    if {$t2 > $t1} {
		set copy 1
	    }
	}
    } else {
	set copy 1
    }
    
    if {$copy} {
	catch {exec sddsprocess $f2 $f1  }
    }
    
}

CheckLogOnChangeInputs SRNASA
CheckLogOnChangeInputs P0Feedback
CheckLogOnChangeInputs LPL
CheckLogOnChangeInputs Booster
CheckLogOnChangeInputs SR
CheckLogOnChangeInputs SBPMs
CheckLogOnChangeInputs BRF
CheckLogOnChangeInputs SRF

CheckLogOnChangeInputs2 /home/helios/oagData/logonchange/RunControl/RunControl.loc /home/helios/oagData/monitoring/RunControl/RunControl.mon
