[Doc_Dynamic] [global env; source [file join $env(MIDASBASE) TclHttpd Html settings.tml]] [set env(ProjectName)]

[set env(ProjectName)] @ [first [set MyInfo]] $env(ComputerName) [third [set MyInfo]]

  • Service descriptions in Web Services Description Language (WSDL) format.

  • Enter Service.

    • [ set html "" global MIDAS_MessageLoggerServer_Exists if {[info exists MIDAS_MessageLoggerServer_Exists]} { append html "" } global MIDAS_RshServer_Exists if {[info exists MIDAS_RshServer_Exists]} { append html "" } global MIDAS_TimeServer_Exists if {[info exists MIDAS_TimeServer_Exists]} { append html "" } global MIDAS_NetVarServer_Exists if {[info exists MIDAS_NetVarServer_Exists]} { append html "" } global MIDAS_SigTaskServer_Exists if {[info exists MIDAS_SigTaskServer_Exists]} { append html "" } global MIDAS_SpectrumAccessServer_Exists if {[info exists MIDAS_SpectrumAccessServer_Exists]} { append html "" } global MIDAS_VMEAccessServer_Exists if {[info exists MIDAS_VMEAccessServer_Exists]} { append html "" } global MIDAS_CAMACAccessServer_Exists if {[info exists MIDAS_CAMACAccessServer_Exists]} { append html "" } global MIDAS_DataBaseAccessServer_Exists if {[info exists MIDAS_DataBaseAccessServer_Exists]} { append html "" } global MIDAS_DataAcquisitionControlServer_Exists if {[info exists MIDAS_DataAcquisitionControlServer_Exists]} { append html "" } global MIDAS_DataAcquisitionControlClient_Exists global MIDAS_RunControlClient_Exists if {[info exists MIDAS_DataAcquisitionControlClient_Exists] || [info exists MIDAS_RunControlClient_Exists]} { append html "" } global MIDAS_RegisterAccessServer_Exists if {[info exists MIDAS_RegisterAccessServer_Exists]} { append html "" } global MIDAS_TapeServer_Exists if {[info exists MIDAS_TapeServer_Exists]} { append html "" } global MIDAS_XAIDAAccessServer_Exists global MIDAS_XAIDAAccessClient_Exists global MIDAS_XAD9252AccessServer_Exists global MIDAS_XAD9252AccessClient_Exists if {[info exists MIDAS_XAIDAAccessServer_Exists] || [info exists MIDAS_XAIDAAccessClient_Exists]} { append html "" } else { if {[info exists MIDAS_XAD9252AccessServer_Exists] || [info exists MIDAS_XAD9252AccessClient_Exists]} { append html "" } } global MIDAS_XR3BAccessServer_Exists global MIDAS_XR3BAccessClient_Exists if {[info exists MIDAS_XR3BAccessServer_Exists] || [info exists MIDAS_XR3BAccessClient_Exists]} { append html "" } global MIDAS_XPRAYSNUCAMAccessServer_Exists global MIDAS_XPRAYSNUCAMAccessClient_Exists if {[info exists MIDAS_XPRAYSNUCAMAccessServer_Exists] || [info exists MIDAS_XPRAYSNUCAMAccessClient_Exists]} { append html "" } global MIDAS_XPGRISAccessServer_Exists global MIDAS_XPGRISAccessClient_Exists if {[info exists MIDAS_XPGRISAccessServer_Exists] || [info exists MIDAS_XPGRISAccessClient_Exists]} { append html "" } global MIDAS_LYRTECHAccessServer_Exists global MIDAS_XLYRTECHAccessClient_Exists if {[info exists MIDAS_XLYRTECHAccessServer_Exists] || [info exists MIDAS_XLYRTECHAccessClient_Exists]} { append html "" } append html "

    " global MIDAS_AGATADigitizerAccessServer_Exists if {[info exists MIDAS_AGATADigitizerAccessServer_Exists]} { global MIDAS_AGATADigitizerRunControl_Exists set MIDAS_AGATADigitizerRunControl_Exists 1 global MIDAS_DataAcquisitionControlServer_Exists if {[info exists MIDAS_DataAcquisitionControlServer_Exists]} {unset MIDAS_DataAcquisitionControlServer_Exists} upvar #0 AGATADigitizerAccessServer_Server AGATADigitizerServer if {![info exists AGATADigitizerServer]} {set AGATADigitizerServer "localhost"} upvar #0 AGATADigitizerAccessServer_DBRootName RootName upvar #0 AGATADigitizerAccessServer_DBNodeBase NodeBase if {![info exists RootName]} {set RootName EXPERIMENTS} if {![info exists NodeBase]} {set NodeBase AGATA/Digitizers} upvar #0 AGATADigitizerAccessServer_ConfigFile ConfigFile upvar #0 AGATADigitizerAccessServer_LayoutFile LayoutFile if {![info exists ConfigFile]} \ {set ConfigFile [file join $env(MIDASBASE) config TclHttpd $AGATADigitizerServer AGATADigitizerConfig.tcl]} if {![info exists LayoutFile]} \ {set LayoutFile [file join $env(MIDASBASE) config TclHttpd $AGATADigitizerServer AGATADigitizerLayout.tcl]} append html "" append html "" } global MIDAS_MERGERunControl_Exists if {[info exists MIDAS_MERGERunControl_Exists]} { append html "" } global MIDAS_AIDARunControl_Exists if {[info exists MIDAS_AIDARunControl_Exists]} { append html "" } global MIDAS_LYCCARunControl_Exists if {[info exists MIDAS_LYCCARunControl_Exists]} { append html "" } global MIDAS_R3BRunControl_Exists if {[info exists MIDAS_R3BRunControl_Exists]} { append html "" } global MIDAS_CAENRunControl_Exists if {[info exists MIDAS_CAENRunControl_Exists]} { append html "" } global MIDAS_PGRISRunControl_Exists if {[info exists MIDAS_PGRISRunControl_Exists]} { append html "" } global MIDAS_LYRTECHRunControl_Exists if {[info exists MIDAS_LYRTECHRunControl_Exists]} { append html "" } global MIDAS_PULSERRunControl_Exists if {[info exists MIDAS_PULSERRunControl_Exists]} { append html "" } set html ]

  • Other Services.

    • [ set html "" for {set i 1} {$i <= 8} {incr i} { if {[info exists env(Option[set i]Name)]} { set Name [set env(Option[set i]Name)] if {![info exists env(Option[set i]Image)]} { append html "\n" } } } set html ]

    [ set html "" for {set i 1} {$i <= 8} {incr i} { if {[info exists env(Option[set i]Name)]} { set Name [set env(Option[set i]Name)] if {[info exists env(Option[set i]Image)]} { append html "\n" } } } set html ]

    [date]