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 3)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
package require tdom
package require http
source ../src/ordali_web.tcl





proc eFetchREST {db Lid what} {
    set url "http://eutils.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi"
    
    switch $db {
	"protein" {
	    set rettype gp
	    set retmode xml
	}
	"nucleotide" {
	    set rettype gb
	    set retmode xml
	}
    }
    set query [::http::formatQuery \
	    db $db \
	    id [join $Lid ,] \
	    rettype $rettype \
	    retmode $retmode]
    set ddb [HttpCopy $url "" $query]

    return $ddb
}

set Lic [info procs]
lappend Lic {*}[info commands]
set nm YP_003140931
set nm NC_012860.1
set xml [eFetchREST nucleotide $nm toto]
for {set i 0} {$i < 1000} {incr i} {
    if {! ($i % 100)} {puts $i}

    set Id [dom parse $xml]
    set doc [$Id documentElement]
    set nd [$doc selectNodes //GBQualifier_name]
    foreach n $nd {
	set nv [$n nextSibling]
	if {$nv ne ""} {
	    set v [$nv selectNode string(.)]
	}
    }

    $Id delete
    update
}

set ver [concat [info procs] [info commands]]
foreach c $ver {
    if {$c ni $Lic} {
	puts $c
    }
}

exit