From 63bf67a6fdd0555afd8501d943cf8499ac36c4eb Mon Sep 17 00:00:00 2001
From: praetor <wfisher@dataforge.tk>
Date: Tue, 19 Mar 2019 13:27:58 +0000
Subject: [PATCH] Added call and passwd configuration

---
 utils/bootstrap.pl | 32 +++++++++++++++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

diff --git a/utils/bootstrap.pl b/utils/bootstrap.pl
index bcdaf53..64d2279 100755
--- a/utils/bootstrap.pl
+++ b/utils/bootstrap.pl
@@ -2,6 +2,7 @@
 #
 use warnings;
 use strict;
+use Digest::MD5 qw(md5_hex);
 
 my $myNode = $ARGV[0];
 
@@ -19,8 +20,10 @@ sub getNodes {
 		my $nodeAddress = $fields[1];
 		generatePort($nodeName,$nodeAddress); 
 		generateSys($nodeName);
+		generateCall($nodeName);
+		generatePasswd($nodeName);
 		getKeys($nodeAddress);
-		generateConfig();
+		generateConfig($myNode);
 		print("System ".$nodeName." added successfully\n");
 	}
 
@@ -93,6 +96,33 @@ sub getKeys {
 	system($cmd);
 }
 
+sub generateCall{
+	my $nodeName = shift;
+
+	my $callFile = "call";
+
+	my $password = $nodeName.$myNode;
+	my $callHash = md5_hex($password);
+	my $callPasswd = $nodeName."\t"."U".$myNode."\t".$callHash."\n";
+
+	open(FH, '>>', $callFile);
+	print FH $callPasswd;
+}
+
+sub generatePasswd {
+	my $nodeName = shift;
+
+	my $passwdFile =  "passwd";
+
+	my $password = $myNode.$nodeName;
+	my $passwdHash = md5_hex($password);
+	my $authPasswd = "U".$nodeName."\t".$passwdHash."\n";
+
+	open(FH, '>>', $passwdFile);
+	print FH $authPasswd;
+}
+
+
 sub preCheck()
 {
 	print("Updating git repo\n");