forked from tildeverse/uucp
Added call and passwd configuration
This commit is contained in:
parent
3ea474521d
commit
63bf67a6fd
|
@ -2,6 +2,7 @@
|
||||||
#
|
#
|
||||||
use warnings;
|
use warnings;
|
||||||
use strict;
|
use strict;
|
||||||
|
use Digest::MD5 qw(md5_hex);
|
||||||
|
|
||||||
my $myNode = $ARGV[0];
|
my $myNode = $ARGV[0];
|
||||||
|
|
||||||
|
@ -19,8 +20,10 @@ sub getNodes {
|
||||||
my $nodeAddress = $fields[1];
|
my $nodeAddress = $fields[1];
|
||||||
generatePort($nodeName,$nodeAddress);
|
generatePort($nodeName,$nodeAddress);
|
||||||
generateSys($nodeName);
|
generateSys($nodeName);
|
||||||
|
generateCall($nodeName);
|
||||||
|
generatePasswd($nodeName);
|
||||||
getKeys($nodeAddress);
|
getKeys($nodeAddress);
|
||||||
generateConfig();
|
generateConfig($myNode);
|
||||||
print("System ".$nodeName." added successfully\n");
|
print("System ".$nodeName." added successfully\n");
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -93,6 +96,33 @@ sub getKeys {
|
||||||
system($cmd);
|
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()
|
sub preCheck()
|
||||||
{
|
{
|
||||||
print("Updating git repo\n");
|
print("Updating git repo\n");
|
||||||
|
|
Loading…
Reference in New Issue