moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 01:02:17 -05:00
Code Issues Releases Wiki Activity

Removed a debug WriteLn.

Browse Source
This commit is contained in:
Dgby714 2010-09-26 17:16:56 -04:00
parent 12c9bb5862
commit 66c94e1fe7
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Extensions/paster.sex
View File

@ -99,7 +99,6 @@ begin
if (MessageDlg(GetName + ' ' + GetVersion + ' Extension', 'Upload this script to ' + HOST + '?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then if (MessageDlg(GetName + ' ' + GetVersion + ' Extension', 'Upload this script to ' + HOST + '?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
begin begin
Data := EncodeJSON([CreateJSON('language', 'delphi'), CreateJSON('code', ScriptText), CreateJSON('private', (Lowercase(Settings.getKeyValueDef('Private', 'true')) = 'true'))]) Data := EncodeJSON([CreateJSON('language', 'delphi'), CreateJSON('code', ScriptText), CreateJSON('private', (Lowercase(Settings.getKeyValueDef('Private', 'true')) = 'true'))])
WriteLn(Data);
Data := GetPageEx('http://' + HOST + '/json/?method=pastes.newPaste', Data, 'application/json'); Data := GetPageEx('http://' + HOST + '/json/?method=pastes.newPaste', Data, 'application/json');
JSONArray := DecodeJSON(Data); //Should be 0 = id and 1 = error JSONArray := DecodeJSON(Data); //Should be 0 = id and 1 = error
if (JSONArray[0].value_string = '') then if (JSONArray[0].value_string = '') then