From: Mike McCallum (mmccallum_at_PACIFIC.EDU)
Date: Wed Jul 26 2017 - 01:51:58 CDT

Thanks, that worked like a charm(m). Really appreciate the help!


On Jul 25, 2017, at 10:35 PM, Ashar Malik <<>> wrote:

puts -nonewline "Enter PDB code: "
flush stdout
set name [gets stdin]
puts "Getting $name"
package require http
set handle [::http::geturl]
set pdb_file [open $name.pdb a]
puts $pdb_file [::http::data $handle]
mol load pdb $name.pdb

C. Michael McCallum
Department of Chemistry, UOP
mmccallum .at. pacific .dot. edu                (209) 946-2636 v  / (209) 946-2607 fax