#    MIDAS Httpd Service to provide Time Server

global env
source [file join $env(MIDASBASE) TclHttpd tcl MIDASDomainHandler.tcl]       ;#  load default support procedures

# Use namespaces to isolate our methods
namespace eval urn:TimeServer {

    proc Get-Time {args} {
        set vl [do_Get-Time]
        return [list [list ResponseCode int 0] [list Time string "$vl"] ]
    }

    proc do_Get-Time {} {

       return "[date]"
    }

    # We have to publish the public methods...

     SOAP::export Get-Time
}

# register this service with tclhttpd
puts [SOAP::Domain::register  -prefix  /TimeServer -namespace urn:TimeServer -uri urn:TimeServer]

proc ::SOAP::Domain::MIDAS_SOAPDomainHandler_/TimeServer {optsname sock args} {   \
    ::SOAP::Domain::MIDAS_SOAPDomainHandler_/DefaultAccessService $optsname $sock $args}