2010-09-26 14:30:53 -04:00
|
|
|
program Paster;
|
2010-09-29 06:07:55 -04:00
|
|
|
//{$DEFINE DEV}
|
2010-10-04 05:06:49 -04:00
|
|
|
const
|
|
|
|
HOSTDef = 'paste.sheeva.villavu.com';
|
|
|
|
|
|
|
|
function GetName: string;
|
|
|
|
begin;
|
|
|
|
Result := 'Paster';
|
|
|
|
end;
|
|
|
|
|
|
|
|
function GetVersion: string;
|
|
|
|
begin;
|
|
|
|
Result := '0.3a';
|
|
|
|
end;
|
|
|
|
|
2010-09-29 06:07:55 -04:00
|
|
|
{$IFDEF EXTENSION}
|
2010-10-04 05:06:49 -04:00
|
|
|
|
2010-09-26 14:30:53 -04:00
|
|
|
var
|
2010-10-04 05:06:49 -04:00
|
|
|
Paster_Menu, GetPaste_MenuItem, Private_MenuItem,
|
2010-09-30 08:50:04 -04:00
|
|
|
Browser_MenuItem, Paster_MenuItem, AltHost_Menu: TMenuItem;
|
2010-09-29 06:07:55 -04:00
|
|
|
Divider_MenuItems: array[1..2] of TMenuItem;
|
2010-09-26 16:44:04 -04:00
|
|
|
AltHost_Menus: array[1..5] of TMenuItem;
|
2010-09-29 06:07:55 -04:00
|
|
|
AltHost_MenuItems: array[1..5] of array[1..4] of TMenuItem;
|
2010-09-26 14:30:53 -04:00
|
|
|
|
2010-09-26 16:44:04 -04:00
|
|
|
function EncodeString(Data: string): string;
|
2010-09-26 14:30:53 -04:00
|
|
|
var
|
|
|
|
Pattern, Replacement: TStringArray;
|
|
|
|
I: integer;
|
|
|
|
begin
|
|
|
|
Pattern := ['\', #8, #9, #10, #11, #12, #13, '"', {#39,} '/'];
|
|
|
|
Replacement := ['\\', '\b', '\t', '\n', '\v', '\f', '\r', '\"', {'\'#39,} '\/'];
|
2010-09-26 16:44:04 -04:00
|
|
|
Result := Data;
|
2010-09-26 14:30:53 -04:00
|
|
|
if (Length(Pattern) = Length(Replacement)) then
|
2010-09-26 16:44:04 -04:00
|
|
|
for I := Low(Pattern) to High(Pattern) do
|
2010-09-26 14:30:53 -04:00
|
|
|
Result := Replace(Result, Pattern[I], Replacement[I], [rfIgnoreCase, rfReplaceAll]);
|
|
|
|
end;
|
|
|
|
|
2010-09-29 06:07:55 -04:00
|
|
|
function JSONRequest(var Data: string; const HOST, Method: string): boolean;
|
|
|
|
begin
|
|
|
|
{$IFDEF DEV}
|
|
|
|
WriteLn('(HOST, Method) := ('#39 + HOST + #39', '#39 + Method + #39');');
|
|
|
|
WriteLn('Data := '#39 + Data + #39';');
|
|
|
|
{$ENDIF}
|
|
|
|
Data := GetPageEx('http://' + HOST + '/json/?method=' + Method, Data, 'application/json');
|
|
|
|
{$IFDEF DEV}WriteLn('Data := '#39 + Data + #39';');{$ENDIF}
|
|
|
|
if (Data = '') then
|
|
|
|
begin
|
|
|
|
Data := '{"data": null, "error": "Server unresponsive!"}';
|
|
|
|
Result := False;
|
|
|
|
Exit;
|
|
|
|
end;
|
|
|
|
|
|
|
|
if (Method = 'pastes.getPaste') then
|
|
|
|
begin
|
|
|
|
//Little hack for getPaste too work....
|
|
|
|
Data := Replace(Data, '{"data": {', '{', []);
|
|
|
|
Data := Replace(Data, '}, "error": ', ', "error": ', []);
|
|
|
|
end;
|
|
|
|
|
|
|
|
Result := True;
|
|
|
|
end;
|
|
|
|
|
|
|
|
function GetPaste(HOST: string): boolean;
|
2010-09-26 14:30:53 -04:00
|
|
|
var
|
2010-09-29 06:07:55 -04:00
|
|
|
Data: string;
|
2010-09-26 14:30:53 -04:00
|
|
|
begin
|
2010-09-26 16:44:04 -04:00
|
|
|
if (HOST = '') then
|
2010-10-04 05:06:49 -04:00
|
|
|
HOST := HOSTDef;
|
2010-09-29 06:07:55 -04:00
|
|
|
if (InputQuery(GetName + ' ' + GetVersion + ' Extension', 'Which ID would you like too grab?', Data)) then
|
2010-09-26 14:30:53 -04:00
|
|
|
begin
|
2010-09-29 06:07:55 -04:00
|
|
|
if IntToStr(StrToInt(Data)) = Data then
|
|
|
|
Data := '{"paste_id": ' + Data + '}'
|
|
|
|
else
|
|
|
|
Data := '{"paste_id": "' + Data + '"}';
|
|
|
|
|
|
|
|
if (not (JSONRequest(Data, HOST, 'pastes.getPaste'))) then
|
2010-09-26 16:44:04 -04:00
|
|
|
begin
|
2010-09-29 06:07:55 -04:00
|
|
|
WriteLn('[Paster]Error: ' + GetJSONValue(Data, 'error'));
|
2010-09-26 16:44:04 -04:00
|
|
|
Result := False;
|
2010-09-29 06:07:55 -04:00
|
|
|
Exit;
|
|
|
|
end;
|
|
|
|
|
2010-10-01 09:48:24 -04:00
|
|
|
if ((GetJSONValue(Data, 'data') = 'null') and (GetJSONValue(Data, 'error') = 'null')) then
|
2010-09-26 16:44:04 -04:00
|
|
|
begin
|
2010-09-29 06:07:55 -04:00
|
|
|
WriteLn('[Paster]Error: Invalid Paste ID!');
|
|
|
|
Result := False;
|
|
|
|
Exit;
|
2010-09-26 16:44:04 -04:00
|
|
|
end;
|
2010-09-29 06:07:55 -04:00
|
|
|
|
2010-10-01 09:48:24 -04:00
|
|
|
WriteLn('Opening Paste #' + GetJSONValue(Data, 'paste_id') + ' in a new tab!');
|
2010-09-30 08:50:04 -04:00
|
|
|
OpenScript('Paste #' + GetJSONValue(Data, 'paste_id'), GetJSONValue(Data, 'code'));
|
2010-09-29 06:07:55 -04:00
|
|
|
Result := True;
|
|
|
|
end;
|
|
|
|
end;
|
|
|
|
|
|
|
|
function PasteIt(out Data: string; HOST: string): boolean;
|
|
|
|
begin
|
|
|
|
if (HOST = '') then
|
2010-10-04 05:06:49 -04:00
|
|
|
HOST := HOSTDef;
|
2010-09-29 06:07:55 -04:00
|
|
|
if (MessageDlg(GetName + ' ' + GetVersion + ' Extension', 'Upload this script to ' + HOST + '?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
|
|
|
|
begin
|
2010-09-30 08:50:04 -04:00
|
|
|
Data := '{"language": "delphi", "code": "' + EncodeString(ScriptText) + '", "private": ' + Lowercase(BoolToStr(Private_MenuItem.Checked)) + '}';
|
2010-09-29 06:07:55 -04:00
|
|
|
JSONRequest(Data, HOST, 'pastes.newPaste');
|
|
|
|
if (GetJSONValue(Data, 'error') = 'null') then
|
|
|
|
begin
|
2010-09-30 08:50:04 -04:00
|
|
|
Data := GetJSONValue(Data, 'data');
|
2010-09-29 06:07:55 -04:00
|
|
|
Result := True;
|
|
|
|
end else
|
|
|
|
Data := '[Paster]Error: ' + GetJSONValue(Data, 'error');
|
2010-09-26 14:30:53 -04:00
|
|
|
end;
|
|
|
|
end;
|
|
|
|
|
2010-09-26 16:44:04 -04:00
|
|
|
procedure Paste(Host: string);
|
2010-09-26 14:30:53 -04:00
|
|
|
var
|
|
|
|
Data: string;
|
2010-09-26 16:44:04 -04:00
|
|
|
begin
|
|
|
|
if PasteIt(Data, Host) then
|
2010-09-26 14:30:53 -04:00
|
|
|
begin
|
2010-09-30 08:50:04 -04:00
|
|
|
if (Browser_MenuItem.Checked) then
|
|
|
|
begin
|
|
|
|
WriteLn('Opening pasted script at "http://' + HOST + '/show/' + Data + '/"!');
|
|
|
|
OpenWebPage('http://' + HOST + '/show/' + Data + '/');
|
|
|
|
end else
|
|
|
|
WriteLn('Script pasted at id "' + Data + '"');
|
2010-09-26 14:30:53 -04:00
|
|
|
end else
|
|
|
|
WriteLn(Data);
|
|
|
|
end;
|
|
|
|
|
2010-09-26 16:44:04 -04:00
|
|
|
procedure UpdateHost(I: integer);
|
|
|
|
var
|
|
|
|
Data: string;
|
|
|
|
begin
|
|
|
|
if InputQuery(GetName + ' ' + GetVersion + ' Extension', 'Please input the LodgeIt Host! (Ex: paste.pocoo.org)', Data) then
|
|
|
|
begin
|
2010-09-29 06:07:55 -04:00
|
|
|
{$IFDEF DEV}WriteLn('Data := '#39 + Data + #39';');{$ENDIF}
|
|
|
|
if (Data = '') then
|
2010-10-01 09:48:24 -04:00
|
|
|
if (AltHost_Menus[I].Caption = 'Host ' + IntToStr(I)) then
|
|
|
|
begin
|
|
|
|
WriteLn('[Paster]Error: The host cannot be blank!');
|
|
|
|
Exit;
|
|
|
|
end else
|
|
|
|
begin
|
|
|
|
AltHost_Menus[I].Caption := 'Host ' + IntToStr(I);
|
|
|
|
AltHost_MenuItems[I][1].Enabled := False;
|
|
|
|
AltHost_MenuItems[I][2].Enabled := False;
|
|
|
|
Settings.setKeyValue('Host' + IntToStr(I), 'Host ' + IntToStr(I));
|
|
|
|
Exit;
|
|
|
|
end;
|
2010-09-26 16:44:04 -04:00
|
|
|
AltHost_Menus[I].Caption := Data;
|
|
|
|
AltHost_MenuItems[I][1].Enabled := True;
|
2010-09-29 06:07:55 -04:00
|
|
|
AltHost_MenuItems[I][2].Enabled := True;
|
2010-09-26 16:44:04 -04:00
|
|
|
Settings.setKeyValue('Host' + IntToStr(I), Data);
|
|
|
|
end;
|
|
|
|
end;
|
|
|
|
|
|
|
|
procedure OnClick(Sender: TObject);
|
|
|
|
var
|
2010-09-29 06:07:55 -04:00
|
|
|
I, K: integer;
|
2010-09-26 14:30:53 -04:00
|
|
|
begin;
|
2010-09-26 16:44:04 -04:00
|
|
|
case Sender of
|
|
|
|
Paster_MenuItem: Paste('');
|
2010-09-29 06:07:55 -04:00
|
|
|
GetPaste_MenuItem: GetPaste('');
|
2010-09-26 16:44:04 -04:00
|
|
|
Private_MenuItem: begin
|
|
|
|
Private_MenuItem.Checked := (not (Private_MenuItem.Checked));
|
2010-09-29 06:07:55 -04:00
|
|
|
Settings.setKeyValue('Private', Lowercase(BoolToStr(Private_MenuItem.Checked)));
|
|
|
|
{$IFDEF DEV}WriteLn('Private = ' + Lowercase(BoolToStr(Private_MenuItem.Checked)));{$ENDIF}
|
2010-09-26 16:44:04 -04:00
|
|
|
end;
|
2010-09-30 08:50:04 -04:00
|
|
|
Browser_MenuItem: begin
|
|
|
|
Browser_MenuItem.Checked := (not (Browser_MenuItem.Checked));
|
|
|
|
Settings.setKeyValue('OpenBrowser', Lowercase(BoolToStr(Browser_MenuItem.Checked)));
|
|
|
|
{$IFDEF DEV}WriteLn('OpenBrowser = ' + Lowercase(BoolToStr(Browser_MenuItem.Checked)));{$ENDIF}
|
|
|
|
end;
|
2010-09-26 16:44:04 -04:00
|
|
|
end;
|
2010-09-29 06:07:55 -04:00
|
|
|
for I := 1 to 5 do
|
|
|
|
for K := 1 to 4 do
|
|
|
|
if (Sender = AltHost_MenuItems[I][K]) then
|
|
|
|
begin
|
|
|
|
{$IFDEF DEV}WriteLn('Sender = ' + IntToStr(I) + ', ' + IntToStr(K));{$ENDIF}
|
|
|
|
if (K = 4) then
|
|
|
|
UpdateHost(I);
|
|
|
|
if (K = 2) then
|
|
|
|
GetPaste(Settings.getKeyValue('Host' + IntToStr(I)));
|
|
|
|
if (K = 1) then
|
|
|
|
Paste(Settings.getKeyValue('Host' + IntToStr(I)));
|
|
|
|
Break;
|
|
|
|
end;
|
2010-09-26 14:30:53 -04:00
|
|
|
end;
|
|
|
|
|
2010-09-26 16:44:04 -04:00
|
|
|
procedure Attach;
|
2010-09-26 14:30:53 -04:00
|
|
|
begin;
|
2010-10-04 05:06:49 -04:00
|
|
|
WriteLn(GetName + ' v' + GetVersion + ' by Dgby714 Loaded!');
|
2010-09-26 16:44:04 -04:00
|
|
|
Paster_Menu.Visible := True;
|
|
|
|
end;
|
|
|
|
|
2010-09-29 06:07:55 -04:00
|
|
|
procedure Detach;
|
2010-09-26 16:44:04 -04:00
|
|
|
begin
|
|
|
|
Paster_Menu.Visible := False;
|
2010-09-26 14:30:53 -04:00
|
|
|
end;
|
|
|
|
|
2010-09-29 06:07:55 -04:00
|
|
|
procedure Free;
|
2010-10-04 05:06:49 -04:00
|
|
|
{var
|
|
|
|
I, K: integer;}
|
2010-09-29 06:07:55 -04:00
|
|
|
begin
|
2010-10-04 05:06:49 -04:00
|
|
|
{for I := 5 downto 1 do
|
2010-09-29 06:07:55 -04:00
|
|
|
begin
|
|
|
|
for K := 4 downto 1 do
|
|
|
|
AltHost_MenuItems[I][K].Free;
|
|
|
|
AltHost_Menus[I].Free;
|
|
|
|
end;
|
|
|
|
AltHost_Menu.Free;
|
|
|
|
Private_MenuItem.Free;
|
|
|
|
for I := 2 downto 1 do
|
|
|
|
Divider_MenuItems[I].Free;
|
|
|
|
Paster_MenuItem.Free;
|
2010-10-04 05:06:49 -04:00
|
|
|
Paster_Menu.Free;}
|
2010-09-29 06:07:55 -04:00
|
|
|
end;
|
|
|
|
|
|
|
|
procedure init;
|
2010-09-26 16:44:04 -04:00
|
|
|
var
|
|
|
|
I, K: integer;
|
2010-09-26 14:30:53 -04:00
|
|
|
begin;
|
2010-09-26 16:44:04 -04:00
|
|
|
Paster_Menu := TMenuItem.Create(Simba_MainMenu);
|
|
|
|
Paster_Menu.Caption := GetName;
|
|
|
|
Simba_MainMenu.Items.Add(Paster_Menu);
|
|
|
|
|
|
|
|
Paster_MenuItem := TMenuItem.Create(Paster_Menu);
|
|
|
|
with Paster_MenuItem do
|
|
|
|
begin
|
|
|
|
Caption := 'Paste It!';
|
|
|
|
OnClick := @OnClick;
|
|
|
|
end;
|
|
|
|
Paster_Menu.Add(Paster_MenuItem);
|
2010-09-29 06:07:55 -04:00
|
|
|
|
|
|
|
GetPaste_MenuItem := TMenuItem.Create(Paster_Menu);
|
|
|
|
with GetPaste_MenuItem do
|
|
|
|
begin
|
|
|
|
Caption := 'Get Paste!';
|
|
|
|
OnClick := @OnClick;
|
|
|
|
end;
|
|
|
|
Paster_Menu.Add(GetPaste_MenuItem);
|
|
|
|
|
|
|
|
for I := 1 to 2 do
|
|
|
|
begin
|
|
|
|
Divider_MenuItems[I] := TMenuItem.Create(Paster_Menu);
|
|
|
|
Divider_MenuItems[I].Caption := '-';
|
|
|
|
end;
|
|
|
|
|
|
|
|
Paster_Menu.Add(Divider_MenuItems[1]);
|
|
|
|
|
2010-09-26 16:44:04 -04:00
|
|
|
Private_MenuItem := TMenuItem.Create(Paster_Menu);
|
|
|
|
with Private_MenuItem do
|
|
|
|
begin
|
|
|
|
Caption := 'Private';
|
|
|
|
OnClick := @OnClick;
|
|
|
|
Checked := (Lowercase(Settings.getKeyValueDef('Private', 'true')) = 'true');
|
|
|
|
end;
|
|
|
|
Paster_Menu.Add(Private_MenuItem);
|
2010-09-29 06:07:55 -04:00
|
|
|
|
2010-09-30 08:50:04 -04:00
|
|
|
Browser_MenuItem := TMenuItem.Create(Paster_Menu);
|
|
|
|
with Browser_MenuItem do
|
|
|
|
begin
|
|
|
|
Caption := 'Open in Browser';
|
|
|
|
OnClick := @OnClick;
|
|
|
|
Checked := (Lowercase(Settings.getKeyValueDef('OpenBrowser', 'true')) = 'true');
|
|
|
|
end;
|
|
|
|
Paster_Menu.Add(Browser_MenuItem);
|
|
|
|
|
2010-09-29 06:07:55 -04:00
|
|
|
Paster_Menu.Add(Divider_MenuItems[2]);
|
2010-09-26 16:44:04 -04:00
|
|
|
|
|
|
|
AltHost_Menu := TMenuItem.Create(Paster_Menu);
|
|
|
|
AltHost_Menu.Caption := 'Alternate Hosts';
|
|
|
|
Paster_Menu.Add(AltHost_Menu);
|
|
|
|
|
|
|
|
for I := 1 to 5 do
|
|
|
|
begin
|
|
|
|
AltHost_Menus[I] := TMenuItem.Create(AltHost_Menu);
|
|
|
|
AltHost_Menus[I].Caption := Settings.getKeyValueDef('Host' + IntToStr(I), 'Host ' + IntToStr(I));
|
|
|
|
AltHost_Menu.Add(AltHost_Menus[I]);
|
|
|
|
|
2010-09-29 06:07:55 -04:00
|
|
|
for K := 1 to 4 do
|
2010-09-26 16:44:04 -04:00
|
|
|
begin
|
|
|
|
AltHost_MenuItems[I][K] := TMenuItem.Create(AltHost_Menus[I]);
|
|
|
|
case K of
|
|
|
|
1: AltHost_MenuItems[I][1].Caption := 'Paste It!';
|
2010-09-29 06:07:55 -04:00
|
|
|
2: AltHost_MenuItems[I][2].Caption := 'Get Paste!';
|
|
|
|
3: AltHost_MenuItems[I][3].Caption := '-';
|
|
|
|
4: AltHost_MenuItems[I][4].Caption := 'Update Host';
|
2010-09-26 16:44:04 -04:00
|
|
|
end;
|
|
|
|
AltHost_MenuItems[I][K].OnClick := @OnClick;
|
2010-09-29 06:07:55 -04:00
|
|
|
if ((not ((K = 3) or (K = 4))) and (AltHost_Menus[I].Caption = 'Host ' + IntToStr(I))) then
|
|
|
|
AltHost_MenuItems[I][K].Enabled := False;
|
|
|
|
|
2010-09-26 16:44:04 -04:00
|
|
|
AltHost_Menus[I].Add(AltHost_MenuItems[I][K]);
|
|
|
|
end;
|
|
|
|
end;
|
2010-09-26 14:30:53 -04:00
|
|
|
end;
|
2010-09-29 06:07:55 -04:00
|
|
|
{$ENDIF}
|
2010-10-04 05:06:49 -04:00
|
|
|
|
2010-09-26 14:30:53 -04:00
|
|
|
begin
|
2010-09-29 06:07:55 -04:00
|
|
|
{$IFNDEF EXTENSION}
|
2010-10-04 05:06:49 -04:00
|
|
|
MessageDlg(GetName + ' v' + GetVersion + ' by Dgby714!',
|
|
|
|
'This is a Extension for Simba.'#13#10
|
|
|
|
'If you are in Simba click View->Extensions and enable paster.sex!',
|
|
|
|
mtWarning, [mbOK]);
|
2010-09-29 06:07:55 -04:00
|
|
|
{$ENDIF}
|
2010-09-26 14:30:53 -04:00
|
|
|
end.
|
2010-09-29 06:07:55 -04:00
|
|
|
|