Index: head/net-p2p/transmission-remote-gui/Makefile =================================================================== --- head/net-p2p/transmission-remote-gui/Makefile (revision 559534) +++ head/net-p2p/transmission-remote-gui/Makefile (revision 559535) @@ -1,53 +1,53 @@ # $FreeBSD$ PORTNAME= transmission-remote-gui PORTVERSION= 5.18.0 -PORTREVISION= 3 +PORTREVISION= 4 DISTVERSIONPREFIX= v CATEGORIES= net-p2p PKGNAMESUFFIX= ${LAZARUS_PKGNAMESUFFIX} USE_GITHUB= yes GH_PROJECT= transgui MAINTAINER= acm@FreeBSD.org COMMENT= Remote GUI for transmission daemon LICENSE= GPLv2+ LICENSE_FILE= ${WRKSRC}/COPYING.txt USES= desktop-file-utils fpc iconv lazarus:flavors USE_FPC= cairo chm fcl-base fcl-image fcl-json fcl-net fcl-xml pasjpeg \ rtl-objpas rtl-extra x11 DESKTOP_ENTRIES="Transmission Remote GUI" \ "Remote GUI for transmission daemon" \ "transgui" \ "${PREFIX}/bin/transgui" \ "Application;Network;" \ ${TRUE} PLIST_FILES= bin/transgui \ share/icons/hicolor/48x48/apps/transgui.png PORTDATA= * SUB_FILES= pkg-message LAZARUS_PROJECT_FILES= transgui.lpi LAZBUILD_ARGS= -d PROJECT_NAME= transgui gtk2_CONFLICTS_INSTALL= ${PORTNAME}-qt5 qt5_CONFLICTS_INSTALL= ${PORTNAME}-gtk2 post-patch: ${REINPLACE_CMD} -e 's|%%DATADIR%%|${DATADIR}|g' ${WRKSRC}/restranslator.pas do-install: @cd ${WRKSRC}/units && \ ${INSTALL_PROGRAM} transgui ${STAGEDIR}${PREFIX}/bin @cd ${WRKSRC} && \ ${COPYTREE_SHARE} lang ${STAGEDIR}${DATADIR} @${MKDIR} ${STAGEDIR}${PREFIX}/share/icons/hicolor/48x48/apps ${INSTALL_DATA} ${WRKSRC}/transgui.png ${STAGEDIR}${PREFIX}/share/icons/hicolor/48x48/apps/transgui.png .include Index: head/net-p2p/transmission-remote-gui/files/patch-rpc.pas =================================================================== --- head/net-p2p/transmission-remote-gui/files/patch-rpc.pas (nonexistent) +++ head/net-p2p/transmission-remote-gui/files/patch-rpc.pas (revision 559535) @@ -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; Property changes on: head/net-p2p/transmission-remote-gui/files/patch-rpc.pas ___________________________________________________________________ Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:mime-type ## -0,0 +1 ## +text/plain \ No newline at end of property