mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +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
1 changed files with 6 additions and 6 deletions
|
@ -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..."
|
||||
|
|
Loading…
Reference in a new issue