Add command line parameter: -Ux

Via command line parameter -Ux
5 diferent trackers list order can be selected.
See enduser/readme.txt file for more info.

Author: GerryFerdinandus

enduser/readme.txt

@@ -3,6 +3,7 @@ If you do not want to use it this way, then just remove both the files 'add_trac
 
 These '.txt' files must be place in the same directory as the program.
 
+--------------------
 
 Console mode:
 Start program with a parameter to torrent file or dir
@@ -11,8 +12,9 @@ trackereditor.exe "C:\dir\torrent"
 What tracker will be added/removed depend the content of the add_trackers.txt and remove_trackers.txt files.
 
 --------------------
+
 Additional Files: Trackers file and log file 
-These 3 files can be optionaly present in the same dir as the trackereditor excutable file.
+These 3 files can be optionally present in the same dir as the trackereditor executable file.
 'add_trackers.txt' and 'remove_trackers.txt' are used in 'hidden console' mode and normal 'windows mode'
 
 
@@ -23,21 +25,19 @@ List of all the trackers that must added.
 remove_trackers.txt
 List of all the trackers that must removed
 note: if the file is empty then all trackers from the present torrent will be REMOVED.
-note: if the file is not present then no trackers will be automatickly removed.
-
+note: if the file is not present then no trackers will be automatic removed.
 
 
 log.txt is only created in console mode.
-Show the in console mode the succes/failure of the torrent update.
+Show the in console mode the success/failure of the torrent update.
 First line status: 'OK' or 'ERROR: xxxxxxx' xxxxxxx = error description
 Second line files count: '1'
 Third line tracker count: 23
 Second and third line info are only valid if the first line is 'OK'
 
 --------------------
 
-
-3 posible use case scenario in updating torrent file.
+3 possible use case scenario in updating torrent file.
 Add tracker and/or remove tracker
 
 Add new tracker + keep tracker inside torrent
@@ -61,6 +61,30 @@ no new tracker + remove some or all tracker inside torrent.
 	Empty remove_trackers.txt file to remove all trackers from the present torrent.
 	This will create torrent files with out any tracker. (DHT torrent)
 
+--------------------
+
+Updated torrent file trackers list order with '-Ux' parameter.
+This is optional parameter. The default setting is -U4. The same as previous software version.
+
+trackereditor.exe "C:\dir\torrent" -U0
+
+Console parameter: -U0
+	Insert new trackers list BEFORE, the original trackers list inside the torrent file.
+	And remove possible duplicated trackers from the ORIGINAL trackers list.
+
+Console parameter: -U1
+	Insert new trackers list BEFORE, the original trackers list inside the torrent file.
+	And remove possible duplicated trackers from the NEW trackers list.
+
+Console parameter: -U2
+	Append new trackers list AFTER, the original trackers list inside the torrent file.
+	And remove possible duplicated trackers from the ORIGINAL trackers list.
+
+Console parameter: -U3
+	Append new trackers list AFTER, the original trackers list inside the torrent file.
+	And remove possible duplicated trackers from the NEW trackers list.
 
+Console parameter: -U4
+	Sort the trackers list by name.
 
 

source/main.pas

@@ -43,11 +43,32 @@ interface
 
   //Updated torrent file trackers list order.
   TTrackerListOrder = (
-    tloInsertNewBeforeAndKeepOriginalIntact,
+
+    // Console parameter: -U0
+    // Insert new trackers list BEFORE, the original trackers list inside the torrent file.
+    // And remove possible duplicated trackers from the ORIGINAL trackers list.
     tloInsertNewBeforeAndKeepNewIntact,
-    tloAppendNewAfterAndKeepOriginalIntact,
+
+    // Console parameter: -U1
+    // Insert new trackers list BEFORE, the original trackers list inside the torrent file.
+    // And remove possible duplicated trackers from the NEW trackers list.
+    tloInsertNewBeforeAndKeepOriginalIntact,
+
+    // Console parameter: -U2
+    // Append new trackers list AFTER, the original trackers list inside the torrent file.
+    // And remove possible duplicated trackers from the ORIGINAL trackers list.
     tloAppendNewAfterAndKeepNewIntact,
-    tloSort);
+
+    // Console parameter: -U3
+    // Append new trackers list AFTER, the original trackers list inside the torrent file.
+    // And remove possible duplicated trackers from the NEW trackers list.
+    tloAppendNewAfterAndKeepOriginalIntact,
+
+    // Console parameter: -U4
+    // Sort the trackers list by name.
+    tloSort
+    );
+
 
 
   { TFormTrackerModify }
@@ -179,6 +200,8 @@   TFormTrackerModify = class(TForm)
     procedure MenuItemTorrentFilesTreeSyncWithPopupMenu;
     procedure SaveTrackerFinalListToFile;
     procedure ConsoleMode;
+    function ConsoleModeDecodeParameter(out FileNameOrDirStr: UTF8String): boolean;
+    function DecodeConsoleUpdateParameter(ConsoleUpdateParameter: UTF8String): boolean;
     procedure UpdateViewRemoveTracker;
 
 
@@ -675,8 +698,8 @@ procedure TFormTrackerModify.ConsoleMode;
     AssignFile(FLogFile, ExtractFilePath(Application.ExeName) + LOG_FILE_NAME);
     ReWrite(FLogFile);
 
-    //Get the first parameter.
-    FileNameOrDirStr := UTF8Trim(ParamStr(1));
+    //Get the console parameters.
+    ConsoleModeDecodeParameter(FileNameOrDirStr);
 
     //If FLogStringList empty then there is no error.
     if FLogStringList.Text = '' then
@@ -694,7 +717,6 @@ procedure TFormTrackerModify.ConsoleMode;
           //Some tracker must be removed. Console and windows mode.
           UpdateViewRemoveTracker;
           //update torrent
-          FTrackerListOrderForUpdatedTorrent := tloSort;
           UpdateTorrent;
         end;
       end
@@ -715,7 +737,6 @@ procedure TFormTrackerModify.ConsoleMode;
             //Some tracker must be removed. Console and windows mode.
             UpdateViewRemoveTracker;
             //update torrent
-            FTrackerListOrderForUpdatedTorrent := tloSort;
             UpdateTorrent;
           finally
             StringList.Free;
@@ -743,6 +764,100 @@ procedure TFormTrackerModify.ConsoleMode;
 end;
 
 
+function TFormTrackerModify.ConsoleModeDecodeParameter(
+  out FileNameOrDirStr: UTF8String): boolean;
+begin
+  {
+   Console mode can be started with 2 parameter
+      Update methode: -U0 , -U1, -U2, -U3, -U4
+      String with a link to folder or to torrent file. 'C:\dir'
+
+  }
+
+  case Paramcount of
+    0:
+    begin
+      FLogStringList.Add('ERROR: There are no parameter detected.');
+      Result := False;
+      exit;
+    end;
+    1:
+    begin
+      //one parameter. Must be a link.
+      FileNameOrDirStr := UTF8Trim(ParamStr(1));
+      //Keep the same behaviour as the previeus software version.
+      FTrackerListOrderForUpdatedTorrent := tloSort;
+      Result := True;
+    end;
+    2:
+    begin
+      //Two parameters. The user can select the update methode.
+      //Check for '-U' contruction as first parameter
+      if (Pos('-U', ParamStr(1)) = 1) then
+      begin
+        //Update parameter is the first parameter
+        Result := DecodeConsoleUpdateParameter(ParamStr(1));
+        FileNameOrDirStr := UTF8Trim(ParamStr(2));
+      end
+      else
+      begin
+        //Update parameter is the second parameter
+        Result := DecodeConsoleUpdateParameter(ParamStr(2));
+        FileNameOrDirStr := UTF8Trim(ParamStr(1));
+      end;
+
+    end;
+    else
+    begin
+      FLogStringList.Add('ERROR: There can only be maximum of 2 parameter. Not: ' +
+        IntToStr(ParamCount));
+      Result := False;
+      exit;
+    end;
+
+  end;
+end;
+
+function TFormTrackerModify.DecodeConsoleUpdateParameter(
+  ConsoleUpdateParameter: UTF8String): boolean;
+var
+  i: integer;
+begin
+  //Decode the '-Ux' x is number [0..4]
+
+  //verify string content.
+  Result := (Pos('-U', ConsoleUpdateParameter) = 1) and
+    (length(ConsoleUpdateParameter) = 3);
+
+  if Result then
+  begin
+    //get the number
+    Result := TryStrToInt(ConsoleUpdateParameter[3], i);
+    if Result then
+    begin
+      //decode number [0..4]
+      case i of
+        0: FTrackerListOrderForUpdatedTorrent := tloInsertNewBeforeAndKeepNewIntact;
+        1: FTrackerListOrderForUpdatedTorrent := tloInsertNewBeforeAndKeepOriginalIntact;
+        2: FTrackerListOrderForUpdatedTorrent := tloAppendNewAfterAndKeepNewIntact;
+        3: FTrackerListOrderForUpdatedTorrent := tloAppendNewAfterAndKeepOriginalIntact;
+        4: FTrackerListOrderForUpdatedTorrent := tloSort;
+        else
+        begin
+          //the number is out of range.
+          Result := False;
+        end;
+      end;
+    end;
+  end;
+
+  if not Result then
+  begin
+    FLogStringList.Add('ERROR: can not decode update parameter -U : ' +
+      ConsoleUpdateParameter);
+  end;
+end;
+
 procedure TFormTrackerModify.UpdateViewRemoveTracker;
 var
   TrackerStr: UTF8String;
@@ -923,7 +1038,7 @@ procedure TFormTrackerModify.CombineFiveTrackerListToOne(
     //Begin with an empty list
     FTrackerFinalList.Clear;
 
-    if FTrackerListOrderForUpdatedTorrent <> tloSort then
+    if TrackerListOrder <> tloSort then
     begin
 
       //Read the trackers inside the torrent file
@@ -1236,7 +1351,6 @@ procedure TFormTrackerModify.MenuUpdateTorrentAddAfterRemoveOriginalClick(
 
 procedure TFormTrackerModify.MenuUpdateTorrentAddBeforeRemoveNewClick(Sender: TObject);
 
-
 begin
   //User have selected to add new tracker.
   FTrackerListOrderForUpdatedTorrent := tloInsertNewBeforeAndKeepOriginalIntact;