feature: add extra tabpage for private torrent

This is for:
Ignore /announce for private tracker [Issue GerryFerdinandus#31]
Add private tracker source tag [Issue GerryFerdinandus#35]

Todo: unit test

Author: GerryFerdinandus

source/code/controler_treeview_torrent_data.pas

@@ -355,6 +355,12 @@ procedure Tcontroler_treeview_torrent_data.AddOneTorrentFileDecoded(
   begin
     FTreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Private: no');
   end;
+  // some private torrent have info:source
+  if DecodeTorrent.InfoSource <> '' then
+  begin
+    FTreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Source: ' +
+      DecodeTorrent.InfoSource);
+  end;
 
   //All the files count inside the torrent must be added to FTotalFileInsideTorrent
   Inc(FTotalFileInsideTorrent, DecodeTorrent.InfoFilesCount);

source/code/controlergridtorrentdata.pas

@@ -51,9 +51,10 @@   TControlerGridTorrentData = class
     FCreatedBy,             //4
     FComment,               //5
     FPrivateTorrent,        //6
-    FPieceLength,           //7
-    FTotaSize,              //8
-    FIndexOrder             //9
+    FInfoSource,             //7
+    FPieceLength,           //8
+    FTotaSize,              //9
+    FIndexOrder             //10
     : TGridColumn;
 
     FRowIsMovedNeedUpdate: boolean;
@@ -71,9 +72,10 @@   TControlerGridTorrentData = class
     CreatedBy,             //4
     Comment,               //5
     PrivateTorrent,        //6
-    PieceLength,           //7
-    TotaSize,              //8
-    IndexOrder             //9
+    InfoSource,            //7
+    PieceLength,           //8
+    TotaSize,              //9
+    IndexOrder             //10
     : UTF8String;
 
     procedure ClearAllImageIndex;
@@ -88,7 +90,7 @@ implementation
 
 { TControlerGridTorrentData }
 const
-  COLUMN_COUNT = 10;
+  COLUMN_COUNT = 11;
 
 procedure TControlerGridTorrentData.StringGridTorrentDataColRowMoved(Sender: TObject;
   IsColumn: boolean; sIndex, tIndex: integer);
@@ -156,6 +158,7 @@ procedure TControlerGridTorrentData.AppendRow;
   WriteCell(FCreatedBy, CreatedBy);
   WriteCell(FComment, Comment);
   WriteCell(FPrivateTorrent, PrivateTorrent);
+  WriteCell(FInfoSource, InfoSource);
   WriteCell(FPieceLength, PieceLength);
   WriteCell(FTotaSize, TotaSize);
   WriteCell(FIndexOrder, IndexOrder);
@@ -203,9 +206,10 @@ constructor TControlerGridTorrentData.Create(StringGridTorrentData: TStringGrid)
   AddColumn(FCreatedBy, 4);
   AddColumn(FComment, 5);
   AddColumn(FPrivateTorrent, 6);
-  AddColumn(FPieceLength, 7);
-  AddColumn(FTotaSize, 8);
-  AddColumn(FIndexOrder, 9);
+  AddColumn(FInfoSource, 7);
+  AddColumn(FPieceLength, 8);
+  AddColumn(FTotaSize, 9);
+  AddColumn(FIndexOrder, 10);
 
   //Fillin the tag value
   UpdateColumnTag;

source/code/decodetorrent.pas

@@ -68,6 +68,7 @@   TDecodeTorrent = class
     FCreatedBy: utf8string;
     FCreatedDate: TDateTime;
     FComment: utf8string;
+    FInfoSource: utf8string;
     FName: utf8string;
     FPieceLenght: int64;
     FPrivateTorrent: boolean;
@@ -83,6 +84,7 @@   TDecodeTorrent = class
     function GetName: utf8string;
     function GetPieceLenght: int64;
     function GetPrivateTorrent: boolean;
+    function GetInfoSource: utf8string;
     procedure SetComment(const AValue: utf8string);
   public
     //All the trackers inside this torrent file
@@ -117,6 +119,11 @@   TDecodeTorrent = class
     procedure RemovePrivateTorrentFlag;
     procedure AddPrivateTorrentFlag;
 
+    //info.source
+    property InfoSource: utf8string read FInfoSource;
+    procedure InfoSourceRemove;
+    procedure InfoSourceAdd(const Value: utf8string);
+
     //info.files
     function InfoFilesCount: integer;
     function InfoFilesNameIndex(index: integer): utf8string;
@@ -405,7 +412,7 @@ function TDecodeTorrent.DecodeTorrent: boolean;
     FName := GetName;
     FPieceLenght := GetPieceLenght;
     FPrivateTorrent := GetPrivateTorrent;
-
+    FInfoSource := GetInfoSource;
   except
   end;
 end;
@@ -441,9 +448,22 @@ function TDecodeTorrent.GetPrivateTorrent: boolean;
   end;
 end;
 
+function TDecodeTorrent.GetInfoSource: utf8string;
+var
+  TempBEncoded: TBEncoded;
+begin
+  Result := '';
+  try
+    {find 'source' }
+    TempBEncoded := FBEncoded_Info.ListData.FindElement('source');
+    if assigned(TempBEncoded) then
+      Result := TempBEncoded.StringData;
+  except
+  end;
+end;
+
 procedure TDecodeTorrent.SetComment(const AValue: utf8string);
 var
-  //  Encoded: TBEncoded;
   Data: TBEncodedData;
 begin
   if FComment = AValue then
@@ -477,7 +497,6 @@ procedure TDecodeTorrent.SetComment(const AValue: utf8string);
 
 end;
 
-
 {
 try
     Encoded := TBEncoded.Create;
@@ -499,7 +518,7 @@ procedure TDecodeTorrent.RemovePrivateTorrentFlag;
   except
   end;
   //read databack again
-  GetPrivateTorrent;
+  FPrivateTorrent := GetPrivateTorrent;
 end;
 
 procedure TDecodeTorrent.AddPrivateTorrentFlag;
@@ -519,7 +538,36 @@ procedure TDecodeTorrent.AddPrivateTorrentFlag;
   except
   end;
   //read databack again
-  GetPrivateTorrent;
+  FPrivateTorrent := GetPrivateTorrent;
+end;
+
+procedure TDecodeTorrent.InfoSourceRemove;
+begin
+  try
+    FBEncoded_Info.ListData.RemoveElement('source');
+  except
+  end;
+  //read databack again
+  FInfoSource := GetInfoSource;
+end;
+
+procedure TDecodeTorrent.InfoSourceAdd(const Value: utf8string);
+var
+  Encoded: TBEncoded;
+  Data: TBEncodedData;
+begin//remove the old one and create a new one
+  InfoSourceRemove;
+  try
+    Encoded := TBEncoded.Create;
+    Encoded.Format := befString;
+    Encoded.StringData := Value;
+    Data := TBEncodedData.Create(Encoded);
+    Data.Header := 'source';
+    FBEncoded_Info.ListData.Add(Data);
+    FBEncoded_Info.ListData.Sort(@sort_);//text must be in alfabetical order.
+  except
+  end;
+  FInfoSource := GetInfoSource;
 end;
 
 procedure TDecodeTorrent.RemoveAnnounce;

source/code/main.lfm

@@ -1,7 +1,7 @@
 object FormTrackerModify: TFormTrackerModify
-  Left = 1398
+  Left = 429
   Height = 607
-  Top = 448
+  Top = 183
   Width = 1179
   AllowDropFiles = True
   Caption = 'Bittorrent Tracker Editor'
@@ -144,7 +144,7 @@ object FormTrackerModify: TFormTrackerModify
         Top = 0
         Width = 1171
         Align = alClient
-        ColCount = 10
+        ColCount = 11
         ColumnClickSorts = True
         Columns = <        
           item
@@ -182,6 +182,10 @@ object FormTrackerModify: TFormTrackerModify
             Title.Caption = 'Private'
             Width = 50
           end        
+          item
+            Title.Caption = 'Source'
+            Width = 64
+          end        
           item
             Alignment = taRightJustify
             ReadOnly = True
@@ -215,6 +219,7 @@ object FormTrackerModify: TFormTrackerModify
           145
           160
           50
+          64
           100
           100
           0
@@ -224,6 +229,68 @@ object FormTrackerModify: TFormTrackerModify
     object TabSheetTorrentsContents: TTabSheet
       Caption = 'Files/Trackers/Info'
     end
+    object TabSheetPrivateTrackers: TTabSheet
+      Caption = 'Private Trackers'
+      ClientHeight = 561
+      ClientWidth = 1171
+      object GroupBoxItemsForPrivateTrackers: TGroupBox
+        Left = 0
+        Height = 176
+        Hint = 'Private trackers URL may not end with /announce'
+        Top = 8
+        Width = 288
+        Caption = 'Items for private trackers'
+        ClientHeight = 158
+        ClientWidth = 284
+        TabOrder = 0
+        object CheckBoxSkipAnnounceCheck: TCheckBox
+          Left = 16
+          Height = 19
+          Top = 0
+          Width = 221
+          Caption = 'Skip Announce Check in the URL (-SAC)'
+          OnChange = CheckBoxSkipAnnounceCheckChange
+          ParentShowHint = False
+          ShowHint = True
+          TabOrder = 0
+        end
+        object GroupBoxInfoSource: TGroupBox
+          Left = 16
+          Height = 120
+          Top = 32
+          Width = 264
+          Caption = 'Warning: This will change the torrent info HASH'
+          ClientHeight = 102
+          ClientWidth = 260
+          TabOrder = 1
+          object CheckBoxRemoveAllSourceTag: TCheckBox
+            Left = 8
+            Height = 19
+            Top = 8
+            Width = 132
+            Caption = 'Remove all source tag'
+            OnChange = CheckBoxRemoveAllSourceTagChange
+            TabOrder = 0
+          end
+          object LabeledEditInfoSource: TLabeledEdit
+            Left = 8
+            Height = 21
+            Hint = 'Keep empty if you do not want to add or change anything.'
+            Top = 56
+            Width = 221
+            EditLabel.Height = 13
+            EditLabel.Width = 221
+            EditLabel.Caption = 'Add/Change source tag value: (-SOURCE)'
+            EditLabel.ParentColor = False
+            ParentShowHint = False
+            ShowHint = True
+            TabOrder = 1
+            TabStop = False
+            OnEditingDone = LabeledEditInfoSourceEditingDone
+          end
+        end
+      end
+    end
   end
   object SelectDirectoryDialog1: TSelectDirectoryDialog
     Title = 'Select a directory with torrent files inside.'