mirrors/ProgressQuest
1
0
Fork 0
mirror of https://bitbucket.org/grumdrig/pq.git synced 2026-09-29 00:33:59 -06:00
Code Issues Packages Projects Releases Wiki Activity

Fixed: can't create a character using email, only nickname

Browse Source
This commit is contained in:
Eric Fredricksen
2022-01-13 20:08:55 -08:00
parent 5fa415a542
commit a2ae462d30
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Front.dfm
+1 -1
View File
@@ -105,7 +105,7 @@ object FrontForm: TFrontForm
Height = 13
Align = alBottom
Alignment = taCenter
Caption = #169' 2002-2022 Eric Fredricksen - v6.4.1'
Caption = #169' 2002-2022 Eric Fredricksen - v6.4.2'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = 11382189
Main.pas
+1 -1
View File
@@ -1680,7 +1680,7 @@ end;
function TMainForm.AuthenticateUrl(url: String): String;
begin
if (GetLogin <> '') or (GetPassword <> '') then
Result := StuffString(url, 8, 0, GetLogin+':'+GetPassword+'@')
Result := StuffString(url, 8, 0, UrlEncode(GetLogin)+':'+UrlEncode(GetPassword)+'@')
else
Result := url;
end;
NewGuy.pas
+3 -3
View File
@@ -184,15 +184,15 @@ begin
else url := 'http://www.progressquest.com/create.php?';
// url := StringReplace(url, '.com/', '.com/dev/', []);
if (GetAccount <> '') or (GetPassword <> '') then
url := StuffString(url, 8, 0, GetAccount+':'+GetPassword+'@');
url := StuffString(url, 8, 0, UrlEncode(GetAccount)+':'+UrlEncode(GetPassword)+'@');
args := 'cmd=create' +
'&name=' + UrlEncode(Name.Text) +
'&realm=' + UrlEncode(MainForm.GetHostName) +
RevString;
ParseSoldResponse(DownloadString(url + args));
except
on EWebError do begin
ShowMessage('Error connecting to server');
on E: EWebError do begin
ShowMessage('Error connecting to server')//: ' + StringReplace(E.Message, '&', '&&', [rfReplaceAll]));
end;
end;
finally