Changeset 2980bc6 in tol

Timestamp:

Oct 20, 2009, 4:08:50 PM (17 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

40de24b

Parents:

3edd248

Message:

fixes #761

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@1542 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/stdlib/general/grammars/_text.tol (modified) (1 diff)

tol/stdlib/general/grammars/_text.tol

@@ -1165 +1165 @@
   WriteLn("Downloading from \""+url+"\" ...");
   Text tcl_helper = "
-package require http
-
-proc ::get_url_contens { {url} } {
-  
-  set data [http::data [http::geturl $url]]
-  set data
+package require uri
+
+proc ::get_url_contens { url } {
+
+  array set uri_info [ uri::split $url ]
+  if { $uri_info(scheme) eq \"http\" } {
+    set url_content [ uri::geturl $url ]
+    set ${url_content}(body)
+  } elseif { $uri_info(scheme) eq \"ftp\" } {
+    uri::geturl $url
+  }
 }";