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!

Cheers
Mike

On Jul 25, 2017, at 10:35 PM, Ashar Malik <asharjm_at_gmail.com<mailto:asharjm_at_gmail.com>> wrote:

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

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