mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-20 10:25:15 +00:00
Swap qb64.net and qb64.org as wiki page source.
QB64.net is kept as alternative source for now. Closes #62.
This commit is contained in:
parent
9ff026bd5d
commit
1a5a8b97cc
|
@ -47,20 +47,20 @@ FUNCTION Wiki$ (PageName$)
|
||||||
PCOPY 3, 0
|
PCOPY 3, 0
|
||||||
END IF
|
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"
|
url$ = "www.qb64.org/wiki/index.php?title=" + PageName2$ + "&action=edit"
|
||||||
'when fetching from .org, look for name="wpTextbox1">
|
'when fetching from .org, look for name="wpTextbox1">
|
||||||
s1$ = "name=" + CHR$(34) + "wpTextbox1" + CHR$(34) + ">"
|
s1$ = "name=" + CHR$(34) + "wpTextbox1" + CHR$(34) + ">"
|
||||||
|
try:
|
||||||
|
IF AlternativeServer THEN
|
||||||
|
url$ = "www.qb64.net/wiki/index.php?title=" + PageName2$ + "&action=edit"
|
||||||
|
s1$ = "readonly=" + CHR$(34) + "readonly" + CHR$(34) + ">"
|
||||||
END IF
|
END IF
|
||||||
url2$ = url$
|
url2$ = url$
|
||||||
x = INSTR(url2$, "/")
|
x = INSTR(url2$, "/")
|
||||||
IF x THEN url2$ = LEFT$(url$, x - 1)
|
IF x THEN url2$ = LEFT$(url$, x - 1)
|
||||||
c = _OPENCLIENT("TCP/IP:80:" + url2$)
|
c = _OPENCLIENT("TCP/IP:80:" + url2$)
|
||||||
IF c = 0 THEN
|
IF c = 0 THEN
|
||||||
IF INSTR(url$, ".org") = 0 THEN
|
IF INSTR(url$, ".net") = 0 THEN
|
||||||
AlternativeServer = -1
|
AlternativeServer = -1
|
||||||
IF Help_Recaching = 0 THEN
|
IF Help_Recaching = 0 THEN
|
||||||
a$ = "Downloading '" + PageName$ + "' page from alternative server..."
|
a$ = "Downloading '" + PageName$ + "' page from alternative server..."
|
||||||
|
|
Loading…
Reference in a new issue