jeffallen
/
uucp
forked from tildeverse/uucp
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Updated Bootstrapping script

This commit is contained in:
uucp 2019-03-06 18:37:16 +00:00
parent ed33496ea9
commit a9cbc37ecf
1 changed files with 30 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
utils/bootstrap.pl
View File

@ -3,7 +3,7 @@
use warnings;
use strict;
my $nodename = $ARGV[0];
my $myNode = $ARGV[0];
sub getNodes {
my $nodelist = "../nodelist";
@ -19,10 +19,12 @@ sub getNodes {
my $nodeAddress = $fields[1];
generatePort($nodeName,$nodeAddress);
generateSys($nodeName);
getKeys($nodeAddress);
generateConfig();
print("System ".$nodeName." added successfully\n");
}
print("UUCP bootstrapping complete. Please copy sys and port configuration files to /etc/uucp\n");
print("Done\n");
}
sub generatePort {
@ -76,7 +78,32 @@ sub generatePasswd {
}
sub generateConfig {
my $nodeName = shift;
my $confFile = "config";
open(FH, '>',$confFile);
my $nodeConfig = "nodename\t\t".$myNode;
print FH $nodeConfig;
}
getNodes()
sub getKeys {
my $address = shift;
my $cmd = "/usr/bin/ssh-keyscan ".$address;
system($cmd);
}
sub preCheck()
{
print("Updating git repo\n");
chdir("../");
system("git pull");
print("Installing authorized_keys\n");
rename("authorized_keys",".ssh/authorized_keys");
print("Pre-flight checks done\n");
getNodes();
}
preCheck();