Convert build system to automake per Anders Kaseorg Makefile.am

2012-02-04 23:56:39 -05:00
parent 5800cb7965
commit da2f481eea
70 changed files with 1118 additions and 79 deletions
@@ -0,0 +1 @@
+bin_SCRIPTS = mosh
@@ -0,0 +1,73 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+use Socket;
+use IO::Pty;
+
+$|=1;
+
+if ( scalar @ARGV != 3 ) {
+  die "Usage: $0 [user@]host mosh-client-command mosh-server-command\n";
+}
+
+my ( $userhost, $client, $server ) = @ARGV;
+
+my ( $user, $host );
+
+# Get username
+if ( $userhost =~ m'(.*?@)(.*)' ) {
+  ( $user, $host ) = ( $1, $2 );
+} else {
+  $user = "";
+  $host = $userhost;
+}
+
+# Resolve hostname
+my $packed_ip = gethostbyname $host;
+if ( not defined $packed_ip ) {
+  die "$0: Could not resolve hostname $host\n";
+}
+my $ip = inet_ntoa $packed_ip;
+
+# Run SSH and read password
+my $pty = new IO::Pty;
+my $pty_slave = $pty->slave;
+
+$pty_slave->clone_winsize_from( \*STDIN );
+
+my $pid = fork;
+die "$0: fork: $!\n" unless ( defined $pid );
+if ( $pid == 0 ) { # child
+  close $pty;
+  open STDOUT, ">&", $pty_slave->fileno() or die;
+  open STDERR, ">&", $pty_slave->fileno() or die;
+  close $pty_slave;
+
+  exec {'ssh'} ('ssh', '-t', $user . $ip, $server, $ip);
+  die "Cannot exec ssh: $!\n";
+} else { # server
+  my ( $port, $key );
+  $pty->close_slave();
+  LINE: while ( <$pty> ) {
+    chomp;
+    if ( m{^MOSH CONNECT} ) {
+      if ( ( $port, $key ) = m{^MOSH CONNECT (\d+?) ([A-Za-z0-9/+]{22})\s*$} ) {
+	last LINE;
+      } else {
+	die "Bad MOSH CONNECT string: $_\n";
+      }
+    } else {
+      print "$_\n";
+    }
+  }
+  waitpid $pid, 0;
+
+  if ( not defined $port ) {
+    die "$0: Did not find mosh server startup message.\n";
+  }
+
+  # Now start real mosh client
+  $ENV{ 'MOSH_KEY' } = $key;
+  exec {$client} ($client, $ip, $port);
+}