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 Height = 13
Align = alBottom Align = alBottom
Alignment = taCenter Alignment = taCenter
Caption = #169' 2002-2022 Eric Fredricksen - v6.4.1' Caption = #169' 2002-2022 Eric Fredricksen - v6.4.2'
Color = clWhite Color = clWhite
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = 11382189 Font.Color = 11382189
Main.pas
+1 -1
View File
@@ -1680,7 +1680,7 @@ end;
function TMainForm.AuthenticateUrl(url: String): String; function TMainForm.AuthenticateUrl(url: String): String;
begin begin
if (GetLogin <> '') or (GetPassword <> '') then if (GetLogin <> '') or (GetPassword <> '') then
Result := StuffString(url, 8, 0, GetLogin+':'+GetPassword+'@') Result := StuffString(url, 8, 0, UrlEncode(GetLogin)+':'+UrlEncode(GetPassword)+'@')
else else
Result := url; Result := url;
end; end;
NewGuy.pas
+3 -3
View File
@@ -184,15 +184,15 @@ begin
else url := 'http://www.progressquest.com/create.php?'; else url := 'http://www.progressquest.com/create.php?';
// url := StringReplace(url, '.com/', '.com/dev/', []); // url := StringReplace(url, '.com/', '.com/dev/', []);
if (GetAccount <> '') or (GetPassword <> '') then if (GetAccount <> '') or (GetPassword <> '') then
url := StuffString(url, 8, 0, GetAccount+':'+GetPassword+'@'); url := StuffString(url, 8, 0, UrlEncode(GetAccount)+':'+UrlEncode(GetPassword)+'@');
args := 'cmd=create' + args := 'cmd=create' +
'&name=' + UrlEncode(Name.Text) + '&name=' + UrlEncode(Name.Text) +
'&realm=' + UrlEncode(MainForm.GetHostName) + '&realm=' + UrlEncode(MainForm.GetHostName) +
RevString; RevString;
ParseSoldResponse(DownloadString(url + args)); ParseSoldResponse(DownloadString(url + args));
except except
on EWebError do begin on E: EWebError do begin
ShowMessage('Error connecting to server'); ShowMessage('Error connecting to server')//: ' + StringReplace(E.Message, '&', '&&', [rfReplaceAll]));
end; end;
end; end;
finally finally