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");