Changeset c325af8 in tol

Timestamp:

Mar 22, 2009, 6:41:55 PM (18 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

18e1521

Parents:

1a21056e

Message:

Upgrading to new tol-project web

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

File:

• tol/stdlib/general/grammars/_real.tol (modified) (3 diffs)

tol/stdlib/general/grammars/_real.tol

@@ -998 +998 @@
 
 proc ::get_win_release { {branch {official}} } {
-  set name last_${branch}_tol_release_win.txt
-  set url \"http://www.tol-project.org/pub/bin/win/${name}\"
+  set name ${branch}_tol_release_win.txt
+  set url \"http://packages.tol-project.org/win32/${name}\"
   
   set data [http::data [http::geturl $url]]
@@ -1028 +1028 @@
   If(Or(OSUnix,ToLower(GetFilePrefix(TOLSessionPath))!="tolbase"),1,
   {
-    Date last_tol_release_check = If(FileExist("last_tol_release_check.tol"),
-    {
-      Include("last_tol_release_check.tol")[1]
+    Date tol_release_check = If(FileExist("tol_release_check.tol"),
+    {
+      Include("tol_release_check.tol")[1]
     },
     {
       y1583
     });
-    Real delay = DateToIndex(Now)-DateToIndex(last_tol_release_check);
+    Real delay = DateToIndex(Now)-DateToIndex(tol_release_check);
     Real If(delay < maxDaysOfDelay, 
     {
       WriteLn(I2("Last TOL updating check TOL was made at ",
                  "La última comprobación de la actualización de TOL se hizo en ")
-              <<last_tol_release_check);
+              <<tol_release_check);
       -1
     },
@@ -1046 +1046 @@
       WriteLn(I2("Checking if TOL is updated.",
                  "Comprobando si TOL está actualizado."));
-      Text WriteFile("last_tol_release_check.tol", 
-                     "Date last_tol_release_check = "+
+      Text WriteFile("tol_release_check.tol", 
+                     "Date tol_release_check = "+
                      FormatDate(Now,"%cy%Ym%md%dh%hi%is%s")+";\n");
-      Text tol_site = "http://www.tol-project.org";
+      Text tol_site = "https://www.tol-project.org/wiki/DownloadTol";
       Text lastOldStableWin = GetVersionFromTolProject("oldstable");
       Text lastOfficialWin  = GetVersionFromTolProject("official");