QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-05 15:50:25 +00:00
Code Releases Wiki Activity

Swap qb64.net and qb64.org as wiki page source.

Browse source 
QB64.net is kept as alternative source for now.

Closes #62.
This commit is contained in:
Fellippe Heitor 2018-08-17 18:15:40 -03:00 committed by GitHub
parent 9ff026bd5d
commit 1a5a8b97cc
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
source/ide/wiki/wiki_methods.bas
View file

@ -47,20 +47,20 @@ FUNCTION Wiki$ (PageName$)
PCOPY 3, 0
END IF
url$ = "www.qb64.net/wiki/index.php?title=" + PageName2$ + "&action=edit"
s1$ = "readonly=" + CHR$(34) + "readonly" + CHR$(34) + ">"
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) + ">"
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) + ">"
url$ = "www.qb64.net/wiki/index.php?title=" + PageName2$ + "&action=edit"
s1$ = "readonly=" + CHR$(34) + "readonly" + 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
IF INSTR(url$, ".org") = 0 THEN
IF INSTR(url$, ".net") = 0 THEN
AlternativeServer = -1
IF Help_Recaching = 0 THEN
a$ = "Downloading '" + PageName$ + "' page from alternative server..."