diff options
Diffstat (limited to 'gitjoe-addsshkey.pl')
| -rwxr-xr-x | gitjoe-addsshkey.pl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/gitjoe-addsshkey.pl b/gitjoe-addsshkey.pl index 9f219b9..7dfd5cc 100755 --- a/gitjoe-addsshkey.pl +++ b/gitjoe-addsshkey.pl @@ -3,3 +3,24 @@ use strict; use warnings; +sub main { + my $argc = $#ARGV + 1; + if ($argc < 2) { + print colored("Failed!\n", 'bold red') + . "Missing argument, 2 needed " + . colored("[user - ssh public key]", 'bold') + . "\n"; + exit 1; + } + my $usr = $ARGV[0]; + my $sshkey = $ARGV[1]; + my $home_dir = '/usr/home/' . $usr . '/'; + open(my $fh, '>:encoding(UTF-8)', $home_dir . '.ssh/authorized_keys'); + print $fh "$sshkey\n"; + close($fh); + exit; +} + +main(); + +__END__ |