From 90b3e7c14dd4d01383e26c55c5e0af8d9325d2c8 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Wed, 28 Feb 2018 08:47:53 -0300
Subject: [PATCH] Update build number to incorporate development into master.
 Also:

- Add www.qb64.org/wiki as an alternative server for the help system when .net is down or temporarily unreachable.
---
 source/global/version.bas        |  2 +-
 source/ide/wiki/wiki_methods.bas | 29 ++++++++++++++++++++++++++---
 2 files changed, 27 insertions(+), 4 deletions(-)

diff --git a/source/global/version.bas b/source/global/version.bas
index d8296aa12..efff91fdd 100644
--- a/source/global/version.bas
+++ b/source/global/version.bas
@@ -4,5 +4,5 @@ DIM SHARED AutoBuildMsg AS STRING
 Version$ = "1.2"
 'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
 'integer. If you make a change, update the date and increase the id!
-BuildNum$ = "20180202/85"
+BuildNum$ = "20180228/86"
 
diff --git a/source/ide/wiki/wiki_methods.bas b/source/ide/wiki/wiki_methods.bas
index eb1ceb39e..f687dc14f 100644
--- a/source/ide/wiki/wiki_methods.bas
+++ b/source/ide/wiki/wiki_methods.bas
@@ -7,6 +7,7 @@ Back2BackName$ = a$
 END FUNCTION
 
 FUNCTION Wiki$ (PageName$)
+STATIC AlternativeServer AS _BYTE
 Help_PageLoaded$ = PageName$
 PageName2$ = PageName$
 
@@ -47,12 +48,35 @@ IF Help_Recaching = 0 THEN
 END IF
 
 url$ = "www.qb64.net/wiki/index.php?title=" + PageName2$ + "&action=edit"
-
+s1$ = "readonly=" + CHR$(34) + "readonly" + CHR$(34) + ">"
+try:
+IF AlternativeServer THEN
+    url$ = "www.qb64.org/wiki/index.php?title=" + PageName2$ + "&action=edit"
+    'when fetching from .org, look for name="wpTextbox1">
+    s1$ = "name=" + CHR$(34) + "wpTextbox1" + CHR$(34) + ">"
+END IF
 url2$ = url$
 x = INSTR(url2$, "/")
 IF x THEN url2$ = LEFT$(url$, x - 1)
 c = _OPENCLIENT("TCP/IP:80:" + url2$)
-IF c = 0 THEN EXIT FUNCTION
+IF c = 0 THEN
+    IF INSTR(url$, ".org") = 0 THEN
+        AlternativeServer = -1
+        IF Help_Recaching = 0 THEN
+            a$ = "Downloading '" + PageName$ + "' page from alternative server..."
+            IF LEN(a$) > 60 THEN a$ = LEFT$(a$, 57) + STRING$(3, 250)
+            IF LEN(a$) < 60 THEN a$ = a$ + SPACE$(60 - LEN(a$))
+
+            COLOR 0, 3: LOCATE idewy + idesubwindow, 2
+            PRINT a$;
+
+            PCOPY 3, 0
+        END IF
+        GOTO try
+    ELSE
+        EXIT FUNCTION
+    END IF
+END IF
 e$ = CHR$(13) + CHR$(10)
 url3$ = RIGHT$(url$, LEN(url$) - x + 1)
 x$ = "GET " + url3$ + " HTTP/1.1" + e$
@@ -67,7 +91,6 @@ DO
         a$ = a$ + a2$
         IF INSTR(a$, "</body>") THEN
             CLOSE #c
-            s1$ = "readonly=" + CHR$(34) + "readonly" + CHR$(34) + ">"
             s2$ = "</textarea>"
             s1 = INSTR(a$, s1$): IF s1 = 0 THEN EXIT FUNCTION
             s1 = s1 + LEN(s1$)