moshalias.pl

#!/usr/bin/perl

my $ssh=`which ssh`;
my $mosh=`which mosh`;
chomp($ssh);
chomp($mosh);

my $host;
my $unsupported=0;
for (my $i=0; $i <= $#ARGV; $i++) {
	if ($ARGV[$i] =~ /^-/) { 
		$ssh .= " \"$ARGV[$i]\"";
		if ( grep { /$ARGV[$i]/ } ("-A","-C","-D","-e","-f","-g","-L","-M","-N","-n","-R","-V","-W","-w","-X","-Y") ) {
			print "mosh does not support ssh's \"$ARGV[$i]\" option.\n";
			$unsupported=1;
		}
		if ( grep { /$ARGV[$i]/ } ("-b","-c","-D","-e","-F","-I","-i","-L","-l","-m","-O","-o","-p","-R","-S","-W","-w") ) {
			$ssh .= " \"$ARGV[$i+1]\"";
			$i++;
		}
	} else {
		$host=$ARGV[$i]; 
	}
}

# mosh doesn't for dntx at the moment
if ($host =~ /us-east1.dntx.com/) {
	print "Unsupported host\n";
	$unsupported = 1;
}

if (!$unsupported) {
	# try running mosh
	my $retval = system("$mosh --ssh='$ssh' $host");
	$retval = $retval >> 8;
	if ($retval == 127) { $unsupported = 1; } 
}

if ($unsupported) {
	print "Falling back to ssh...\n";
	exec("$ssh $host");
}

Stimmt, viel eleganter - hab ich direkt mal so übernommen :)