[Doc_Dynamic] [global env; source [file join $env(MIDASBASE) TclHttpd Html settings.tml]] VME: Control @ [global env; set env(ComputerName)]

VME Service @ [set MyInfo] client address is [set ClientIPAddress]

[namespace eval VME { if {![info exists TestMode]} {set rc [catch {set TestMode 0} m]} if {$TestMode == 1} {SetFooter "VME running in Test Mode"} }]

VME: Control

[namespace eval VME { global MIDAS_VMEAccessClient_Exists if {[info exists MIDAS_VMEAccessClient_Exists]} then { variable VMECrateMenu variable VMECrate set html "" append html "

" append html "" append html "" append html "" append html "" append html "" append html "
" append html "Select Hardware" append html "" append html "" append html "VME Crate Server" append html "" append html "" append html "Act on ALL VME crates?<" append html "input type=checkbox name=ALLMODULES" if {$allmodules == 1} {append html " checked"} append html " onClick=click_ALLMODULES(document.VME)>" append html "
" set html } }]

[namespace eval VMEConfig { if {![info exists ConfigBase]} { variable ConfigBase set ConfigBase [file join $env(MIDASBASE) config TclHttpd Samples] } if {![info exists ModuleMenu]} { variable ModuleMenu set ModuleMenu {"CAEN_V785" "CAEN_V785N" "CAEN_V775" "CAEN_V792" "CAEN_V792N" "CAEN_V812" "CAEN_V830" "CAEN_V560" "CAEN_V1720" "CAEN_V1724" "CAEN_V1724PHA" "CAEN_V1725" "CAEN_V1725PSD" "CAEN_V1725PHA" "CAEN_V1730" "CAEN_V1730PSD" "CAEN_V1730PHA" "CAEN_V1740" "CAEN_V1742" "CAEN_V1751" "CAEN_V1751PSD" "CAEN_V1190" "CAEN_V1290" "CAEN_V1495" "CAEN_V1495DPP "CAEN_V1495V2" "CAEN_DT5780" "S9418" "SAC" "PatternGen" "MyRIAD" MSDA12 MAXV6000 XVME240 XVME560} } set html "" }] [namespace eval VMEControl { set html "" foreach item $::VMEConfig::ModuleMenu { switch $item { CAEN_V785 {append html ""} CAEN_V785N {append html ""} CAEN_V775 {append html ""} CAEN_V792 {append html ""} CAEN_V792N {append html ""} CAEN_V560 {append html ""} CAEN_V812 {append html ""} CAEN_V830 {append html ""} CAEN_V1724 {append html ""} CAEN_V1724PHA {append html ""} CAEN_DT5780 {append html ""} CAEN_V1720 {append html ""} CAEN_V1725 {append html ""} CAEN_V1725PHA {append html ""} CAEN_V1725PSD {append html ""} CAEN_V1730 {append html ""} CAEN_V1730PSD {append html ""} CAEN_V1730PHA {append html ""} CAEN_V1740 {append html ""} CAEN_V1742 {append html ""} CAEN_V1751 {append html ""} CAEN_V1751PSD {append html ""} CAEN_V1190 {append html ""} CAEN_V1290 {append html ""} CAEN_V1495 {append html ""} CAEN_V1495V2 {append html ""} CAEN_V1495DPP {append html ""} S9418 {append html ""} SAC {append html ""} PatternGen {append html ""} MyRIAD {append html ""} MSDA12 {append html ""} MAXV6000 {append html ""} XVME240 {append html ""} XVME560 {append html ""} } } set html }]

Last Updated: [clock format [clock seconds] -format "%B %d, %Y %H:%M:%S"]

[namespace eval VMEControl { variable started set started 0 set item "" proc do_preload {m} { set ::VMEControl::item $m namespace eval ::$m { global env set f [file join $env(MIDASBASE) TclHttpd tcl Common common.tcl] set z [catch {source $f} m] if {$z != 0} {puts "$f > $m"} set f [file join $env(MIDASBASE) TclHttpd tcl Common vme.tcl] set z [catch {source $f} m] if {$z != 0} {puts "$f > $m"} set f [file join $env(MIDASBASE) TclHttpd tcl Common db.tcl] set z [catch {source $f} m] if {$z != 0} {puts "$f > $m"} set f [file join $env(MIDASBASE) TclHttpd Html VME Common.tcl] set z [catch {source $f} m] if {$z != 0} {puts "$f > $m"} cd [file join $env(MIDASBASE) TclHttpd Html VME] if {$::VMEControl::item != "VMEConfig"} {set started 0} set f [file join $::VMEControl::item $::VMEControl::item.tcl] set z [catch {source $f} m] if {$z != 0} {puts "$f > $m"} } } proc preloads {} { do_preload VMEConfig do_preload VMEData namespace eval ::OPTION { ;# preload OPTION global env set started 0 set f [file join $env(MIDASBASE) TclHttpd Html CAEN Options Options.tcl] set z [catch {source $f} m] if {$z != 0} {puts "$f > $m"} } do_preload VMESaveRestore foreach i $::VMEConfig::ModuleMenu { switch $i { CAEN_V785 {do_preload V785} CAEN_V785N {do_preload V785N} CAEN_V792 {} CAEN_V792N {} CAEN_V775 {do_preload V775} CAEN_V560 {do_preload V560} CAEN_V830 {do_preload V830} CAEN_V812 {do_preload V812} CAEN_V1720 {do_preload V1720} CAEN_V1730 {do_preload V1730} CAEN_V1730PSD {do_preload V1730PSD} CAEN_V1730PHA {do_preload V1730PHA} CAEN_V1740 {do_preload V1740} CAEN_V1751 {do_preload V1751} CAEN_V1751PSD {do_preload V1751PSD} CAEN_V1742 {do_preload V1742} CAEN_V1724 {do_preload V1724} CAEN_V1724PHA {do_preload V1724PHA} CAEN_DT5780 {do_preload DT5780} CAEN_V1725 {do_preload V1725} CAEN_V1725PSD {do_preload V1725PSD} CAEN_V1725PHA {do_preload V1725PHA} CAEN_V1190 {do_preload V1190} CAEN_V1290 {do_preload V1290} CAEN_V1495 {do_preload V1495} CAEN_V1495V2 {do_preload V1495V2} CAEN_V1495DPP {do_preload V1495DPP} S9418 - SAC - PatternGen - MyRIAD - MSDA12 - MAXV6000 - XVME240 - XVME560 {do_preload $i} } } } preloads }] [namespace eval VME { if {$JS != ""} { set html "" } }]