/usr/bin/conmux-attach is in conmux 0.12.0-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 | #!/usr/bin/perl
#
# conmux-attach -- attach commands to the console
#
# Attach stand alone commands to a console stream. You can specify
# which of the commands file descriptors are connected to which of the
# 'steams' in the multiplexor; the console input/output and the user
# output.
#
# (C) Copyright IBM Corp. 2004, 2005, 2006
# Author: Andy Whitcroft <andyw@uk.ibm.com>
#
# The Console Multiplexor is released under the GNU Public License V2
#
use FindBin;
use IO::Socket;
use Getopt::Long qw(:config no_auto_abbrev);
# Find our internal libraries.
use lib $FindBin::Bin;
use Conmux;
my $P = 'conmux-attach';
my ($in, $out, $err);
# Usage.
GetOptions(
'i|stdout=s' => \$in,
'o|stdin=s' => \$out,
'e|stderr=s' => \$err,
'b|bot=s' => \$bot,
) or exit;
if ($in eq '' && $out eq '' && $err eq '') {
$in = 'client';
$out = 'client';
}
if ($#ARGV < 1) {
print STDERR "$P: <host:port> <program> ...\n";
exit 1;
}
my ($mux, $app) = @ARGV;
shift;
$app =~ s@.*/@@; $app =~ s@\s.*$@@;
$app = $bot if ($bot);
#
# Connect to the client channel.
#
sub conmux_connect {
my ($mux, $type) = @_;
if (!$cache{$mux, $type}) {
my $con = Conmux::connect($mux);
my %r = Conmux::sendCmd($con, 'CONNECT', {
'id' => 'bot:' . $app,
'to' => 'console',
'type' => $type } );
die "$P: $mux: connect failed - $r{'status'}\n"
if ($r{'status'} ne "OK");
$cache{$mux, $type} = $con;
}
$cache{$mux, $type};
}
if ($in) {
my $to = conmux_connect($mux, $in);
open(STDIN, "<&", $to) ||
die "$P: unable to hand off socket to stdin - $!\n";
}
if ($out) {
my $to = conmux_connect($mux, $out);
open(STDOUT, ">&", $to) ||
die "$P: unable to hand off socket to stdout - $!\n";
}
if ($err) {
my $to = conmux_connect($mux, $err);
open(STDERR, ">&", $to) ||
die "$P: unable to hand off socket to stderr - $!\n";
}
exec @ARGV;
|