1 b2a430be 2023-09-26 jrmu #!/usr/bin/perl
 2 b2a430be 2023-09-26 jrmu 
 3 b2a430be 2023-09-26 jrmu use strict;
 4 b2a430be 2023-09-26 jrmu use warnings;
 5 b2a430be 2023-09-26 jrmu 
 6 b2a430be 2023-09-26 jrmu # Read from filename and return array of lines without trailing newlines
 7 b2a430be 2023-09-26 jrmu sub readarray {
 8 b2a430be 2023-09-26 jrmu 	my ($filename) = @_;
 9 b2a430be 2023-09-26 jrmu 	open(my $fh, '<', $filename) or die "Could not read file '$filename' $!";
10 b2a430be 2023-09-26 jrmu 	chomp(my @lines = <$fh>);
11 b2a430be 2023-09-26 jrmu 	close $fh;
12 b2a430be 2023-09-26 jrmu 	return @lines;
13 b2a430be 2023-09-26 jrmu }
14 b2a430be 2023-09-26 jrmu 
15 b2a430be 2023-09-26 jrmu # Read from filename and return as string
16 b2a430be 2023-09-26 jrmu sub readstr {
17 b2a430be 2023-09-26 jrmu 	my ($filename) = @_;
18 b2a430be 2023-09-26 jrmu 	open my $fh, '<', $filename or die "Could not read file '$filename' $!";
19 b2a430be 2023-09-26 jrmu 	my $str = do { local $/; <$fh> };
20 b2a430be 2023-09-26 jrmu 	close $fh;
21 b2a430be 2023-09-26 jrmu 	return $str;
22 b2a430be 2023-09-26 jrmu }
23 b2a430be 2023-09-26 jrmu my $username = "jrmu";
24 b2a430be 2023-09-26 jrmu my $password = "TrophyCantaloupeWaterfall";
25 b2a430be 2023-09-26 jrmu my $server = "host.lecturify.net";
26 b2a430be 2023-09-26 jrmu my $ircserver = "irc.lecturify.net";
27 b2a430be 2023-09-26 jrmu my $ircchannel = "#wheel";
28 b2a430be 2023-09-26 jrmu my $ip4 = "38.87.162.96";
29 b2a430be 2023-09-26 jrmu my $ip6 = "2602:fccf:1:1096::";
30 b2a430be 2023-09-26 jrmu my $sshfingerprints =
31 b2a430be 2023-09-26 jrmu "ssh-keygen -E md5 -lf /etc/ssh/ssh_host_dsa_key.pub
32 b2a430be 2023-09-26 jrmu ssh-keygen -E md5 -lf /etc/ssh/ssh_host_ecdsa_key.pub
33 b2a430be 2023-09-26 jrmu ssh-keygen -E md5 -lf /etc/ssh/ssh_host_ed25519_key.pub
34 b2a430be 2023-09-26 jrmu ssh-keygen -E md5 -lf /etc/ssh/ssh_host_rsa_key.pub
35 b2a430be 2023-09-26 jrmu ssh-keygen -lf /etc/ssh/ssh_host_dsa_key.pub
36 b2a430be 2023-09-26 jrmu ssh-keygen -lf /etc/ssh/ssh_host_ecdsa_key.pub
37 b2a430be 2023-09-26 jrmu ssh-keygen -lf /etc/ssh/ssh_host_ed25519_key.pub
38 b2a430be 2023-09-26 jrmu ssh-keygen -lf /etc/ssh/ssh_host_rsa_key.pub";
39 b2a430be 2023-09-26 jrmu 
40 b2a430be 2023-09-26 jrmu foreach my $line (readarray("vpses")) {
41 b2a430be 2023-09-26 jrmu 	if ($line =~ /^(.*) (.*)$/) {
42 b2a430be 2023-09-26 jrmu 		print "\$ ssh $1\@$1.$server , password $2\n";
43 b2a430be 2023-09-26 jrmu 	}
44 b2a430be 2023-09-26 jrmu }
45 b2a430be 2023-09-26 jrmu my $line = readstr("mailtemplate");
46 b2a430be 2023-09-26 jrmu $line =~ s/\$USERNAME/$username/g;
47 b2a430be 2023-09-26 jrmu $line =~ s/\$PASSWORD/$password/g;
48 b2a430be 2023-09-26 jrmu $line =~ s/\$SERVER/$server/g;
49 b2a430be 2023-09-26 jrmu $line =~ s/\$IRCSERVER/$ircserver/g;
50 b2a430be 2023-09-26 jrmu $line =~ s/\$IRCCHANNEL/$ircchannel/g;
51 b2a430be 2023-09-26 jrmu $line =~ s/\$IP4/$ip4/g;
52 b2a430be 2023-09-26 jrmu $line =~ s/\$IP6/$ip6/g;
53 b2a430be 2023-09-26 jrmu $line =~ s/\$SSHFINGERPRINTS/$sshfingerprints/g;
54 b2a430be 2023-09-26 jrmu print $line;