svn commit: r559535 - in head/net-p2p/transmission-remote-gui: . files

[Jose Alonso Cardenas Marquez]

Author: acm
Date: Tue Dec 29 00:29:02 2020
New Revision: 559535
URL: https://svnweb.freebsd.org/changeset/ports/559535

Log:
  - Fix problem with new version of lazarus 2.0.10 (Error connect to the daemon)
  
  PR:		251839
  Reported by:	vgreg  at  ya.ru
  Obtained from:	https://github.com/transmission-remote-gui/transgui/issues/1325

Added:
  head/net-p2p/transmission-remote-gui/files/patch-rpc.pas   (contents, props changed)
Modified:
  head/net-p2p/transmission-remote-gui/Makefile

Modified: head/net-p2p/transmission-remote-gui/Makefile
==============================================================================
--- head/net-p2p/transmission-remote-gui/Makefile	Mon Dec 28 23:54:08 2020	(r559534)
+++ head/net-p2p/transmission-remote-gui/Makefile	Tue Dec 29 00:29:02 2020	(r559535)
@@ -2,7 +2,7 @@
 
 PORTNAME=	transmission-remote-gui
 PORTVERSION=	5.18.0
-PORTREVISION=	3
+PORTREVISION=	4
 DISTVERSIONPREFIX=	v
 CATEGORIES=	net-p2p
 PKGNAMESUFFIX=	${LAZARUS_PKGNAMESUFFIX}

Added: head/net-p2p/transmission-remote-gui/files/patch-rpc.pas
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/net-p2p/transmission-remote-gui/files/patch-rpc.pas	Tue Dec 29 00:29:02 2020	(r559535)
@@ -0,0 +1,36 @@
+--- rpc.pas.orig	2020-12-27 23:03:22.112873000 -0500
++++ rpc.pas	2020-12-27 23:05:37.172555000 -0500
+@@ -805,6 +805,7 @@
+   req, args: TJSONObject;
+   _fields: TJSONArray;
+   i: integer;
++  sl: TStringList;
+ begin
+   Result:=nil;
+   req:=TJSONObject.Create;
+@@ -813,13 +814,22 @@
+     args:=TJSONObject.Create;
+     if TorrentId <> 0 then
+       args.Add('ids', TJSONArray.Create([TorrentId]));
+-    _fields:=TJSONArray.Create(Fields);
+-    for i:=Low(ExtraFields) to High(ExtraFields) do
+-      _fields.Add(ExtraFields[i]);
++    _fields:=TJSONArray.Create;
++    for i:=Low(Fields) to High(Fields) do
++      if (Fields[i].VType=vtAnsiString) then
++         sl.Add(String(Fields[i].VAnsiString));
++    sl.AddStrings(ExtraFields);
++    sl.Sort;
++    for i:=sl.Count-2 downto 0 do
++      if (sl[i]=sl[i+1]) then
++        sl.Delete(i+1);
++    for i:=0 to sl.Count-1 do
++      _fields.Add(sl[i]);  
+     args.Add('fields', _fields);
+     req.Add('arguments', args);
+     Result:=SendRequest(req);
+   finally
++    sl.Free;
+     req.Free;
+   end;
+ end;