From 1f070a47809710089ac5cc138c0d6faed686afd3 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Tom=C3=A1=C5=A1=20Brada?= <tomasbrod@azet.sk>
Date: Wed, 30 Dec 2015 13:05:46 +0100
Subject: [PATCH] Static DHT bootstrap from cmdline opt -boot.

---
 dhtBootStatic.pas | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/dhtBootStatic.pas b/dhtBootStatic.pas
index 59e15fa..750524b 100644
--- a/dhtBootStatic.pas
+++ b/dhtBootStatic.pas
@@ -11,6 +11,24 @@ uses NetAddr,ServerLoop,DHT,SysUtils;
 
 type t=object
  procedure Boot;
+ procedure BootCmdline;
+end;
+
+procedure t.BootCmdline;
+ var addr:tNetAddr;
+ var oi:word;
+ var cnt:word;
+ const opt='-boot';
+ begin
+ oi:=OptIndex(opt);
+ if oi>0 then begin
+  cnt:=OptParamCount(oi);
+  assert(cnt>=1,opt+'(addr+)');
+  for oi:=oi+1 to cnt do begin
+   addr.FromString(paramstr(oi+1));
+   DHT.NodeBootstrap(addr);
+  end;
+ end;
 end;
 
 procedure t.Boot;
@@ -19,6 +37,7 @@ procedure t.Boot;
  var line:string;
  var addr:tNetAddr;
  begin
+ BootCmdLine;
  assign(bs,bsfn);
  try
   reset(bs);
-- 
2.11.4.GIT