oh-my-git/scripts/net-test

61 lines
1.3 KiB
Text
Raw Normal View History

2020-09-15 09:30:19 +02:00
#!/usr/bin/env perl
use IPC::Open3;
2020-09-15 09:30:19 +02:00
use IO::Socket;
my $bash = "bash";
if ($#ARGV >= 0) {
$bash = $ARGV[0];
}
my $pid = open3(my $in, my $out, my $err, $bash);
2020-09-15 09:30:19 +02:00
$socket = IO::Socket::INET->new(PeerAddr => "127.0.0.1",
PeerPort => 6666,
Proto => "tcp",
Type => SOCK_STREAM);
print $in 'export PATH="/usr/bin:/mingw64/bin:$PATH"' . "\n";
2020-09-15 09:30:19 +02:00
while(true) {
#STDOUT->flush();
2020-09-15 09:30:19 +02:00
my $len;
$socket->recv($len, 4);
my $actual_len = unpack("L", $len);
if ($actual_len == 0) {
2021-02-27 15:07:35 +01:00
#print("not connected");
exit;
}
2021-02-27 15:07:35 +01:00
#print("still connected");
2020-09-15 09:30:19 +02:00
my $s2;
$socket->recv($s2, $actual_len);
2021-02-27 15:07:35 +01:00
#print($s2);
2020-09-15 09:30:19 +02:00
STDOUT->flush();
$s = "";
$command = $s2 . "\necho -e \"\\v\"\n";
print $in $command;
inner_while: while (true) {
$line = <$out>;
if ($line =~ s/\cK//) {
STDOUT->flush();
last inner_while;
}
$s = $s . $line;
}
2021-02-27 15:07:35 +01:00
#print "got complete output";
#print $s;
2021-02-27 15:07:35 +01:00
#print length($s);
STDOUT->flush();
my $send_length = pack("L", length($s));
$socket->send($send_length);
$socket->send($s);
my $exit_code = pack("L", 0);
$socket->send($exit_code);
2020-09-15 09:30:19 +02:00
}