uucp/utils/bootstrap.pl

#!/usr/bin/perl
#
use warnings;
use strict;
use Digest::MD5 qw(md5_hex);
use Getopt::Std;
my $myNode = "";
my $passwdFile =  "passwd";
my $callFile = "call";
my $confFile = "config";
my $sysFile = "sys";
my $portFile = "port";
my %options = ();

sub getNodes {
	my $nodelist = "../nodelist";

	open(my $data, '<', $nodelist) or die ("Cannot open nodelist");

	if ($options{t}) {
		print("Truncating existing files\n");
		truncate($passwdFile,0);
		truncate($callFile,0);
		truncate($confFile,0);
		truncate($sysFile,0);
		truncate($portFile,0);
	}

	print("Generating files\n");
	while (my $line = <$data>) {
		chomp $line;

		my @fields = split(",", $line);
		my $nodeName = $fields[0];
		#$nodeName eq $myNode && continue

		my $nodeAddress = $fields[1];
		generatePort($nodeName,$nodeAddress); 
		generateSys($nodeName);
		generateCall($nodeName);
		generatePasswd($nodeName);
		getKeys($nodeAddress);
		print("System ".$nodeName." added successfully\n");
	}

	generateConfig($myNode);

	print("Done\n\n");
}

sub generatePort {

	my $nodeName = shift;
	my $nodeAddress = shift;

	my $currentNode = ucfirst($nodeName);

	my $template = qq{
		port $currentNode
		type pipe
		command /usr/bin/ssh -a -x -q -i /var/spool/uucp/.ssh/id_rsa -l uucp $nodeAddress
		reliable true
		protocol etyig
	};

	open(FH, '>>', $portFile);
	print FH $template;
}


sub generateSys {
	my $nodeName = shift;

	my $currentNode = ucfirst($nodeName);

	my $template = qq{
		system $nodeName
		call-login *
		call-password *
		called-login U$nodeName
		local-send /
		local-receive /var/spool/uucppublic
		remote-send /
		remote-receive /var/spool/uucppublic
		time any
		forward ANY
		chat \"\" \\d\\d\\r\\c login: \\d\\L word: \\P
		chat-timeout 60
		protocol t
		port $currentNode
	};

	open(FH, '>>', $sysFile);
	print FH $template;
}
	
sub generateConfig {
	my $nodeName = shift;

	open(FH, '>>',$confFile);

	my $nodeConfig = "nodename\t\t".$nodeName."\n";

	print FH $nodeConfig;
}

sub getKeys {
	my $address = shift;

	my $cmd = "/usr/bin/ssh-keyscan -H $address >> /var/spool/uucp/.ssh/known_hosts";
	system($cmd);
}

sub generateCall{
	my $nodeName = shift;


	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 $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");
	chdir("../");
	#system("git pull");
	print("Installing authorized_keys\n");
	#rename("authorized_keys",".ssh/authorized_keys");
	chdir("./utils");
	print("Pre-flight checks done\n");
	getNodes();
}

sub showHelp()
{
	print("Usage: bootstrap.pl [OPTION...] node-id\n");
	print("Generate uucp configuration files.\n\n");
	print("  -t     truncate files before appending config\n");
	print("  -h     display this help and exit\n");
}

getopts("ht", \%options);

if ($ARGV[0]) {
	$myNode=$ARGV[0];
} else {
	showHelp();
	exit;
}

if ($options{h}) {
	showHelp();
	exit;
}

preCheck();
print("\n\n");
print("This setup script has finished. Please move the generated configuration files as ROOT to /etc/uucp\n");