All new accounts created on Gitlab now require administrator approval. If you invite any collaborators, please let Flux staff know so they can approve the accounts.

plasticwrap 686 Bytes
Newer Older
1 2 3 4 5 6
#!/usr/bin/perl

# Location of ssh program
$ssh = "/usr/local/bin/ssh";

# Remote host to connect to
7
$host = "paper.cs.utah.edu";
8

9 10
# String to turn off password authentications
$nopass = "-o 'BatchMode yes'";
11

12 13
# Turn off host key checking.... for now.
$nokeycheck = "-o 'StrictHostKeyChecking No'";
14 15 16 17

# Current working directory:
$cwd = $ENV{PWD};
# Now, do the magic
18 19 20 21 22 23 24
$rv = system "$ssh $host $nopass $nokeycheck dir=$cwd $0 @ARGV";
if ($rv > 256) {
	print "SSH failed. You may need to run the following commands:\n";
	print "mkdir $ENV{HOME}/.ssh\n";
	print "ssh-keygen -P '' -f $ENV{HOME}/.ssh/identity\n";
	print "cp $ENV{HOME}/.ssh/identity.pub $ENV{HOME}/.ssh/authorized_keys\n";
}