couldn't read file "../src/ordali_web.tcl": no such file or directory
    while executing
"source ../src/ordali_web.tcl"
    (in namespace eval "::request" script line 7)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/tclsh


package require http
package require tdom

source ../src/ordali_web.tcl

set BaseUrl "http://www.ebi.ac.uk/das-srv/uniprot/das/"

set BaseUrl "http://das.sanger.ac.uk/das/"
set BaseUrl "http://www.dasregistry.org/das1"

# servers
set url ${BaseUrl}/sources
set rep [HttpCopy $url]
puts "dsn :"
puts $url
#puts $rep
#exit

# data sources
set url ${BaseUrl}/dsn
set rep [HttpCopy $url]
puts "sources :"
puts $url
puts $rep
exit
set DocDSN [dom parse $rep]
set NoeudDAS [$DocDSN documentElement]
puts "asXML"
puts "[$NoeudDas asXML]"
exit
foreach nd [$NoeudDAS childNodes] {
    set id  unk
    set des unk
    foreach nm [$nd childNodes] {
	set v [$nm selectNodes string()]
	switch $nm {
	    "SOURCE" {
		set id [$nm getAttribute id]
	    }
	    "DESCRIPTION" {
		set des $v
	    }
	}
    }
    lappend Lres $id $des
}


exit






http://www.ncbi.nlm.nih.gov/projects/SNP/