rtpengine/t/spandsp_fax_t38_test.pl

#!/usr/bin/perl

use strict;
use warnings;
use IPC::Open2;
use POSIX ":sys_wait_h";

my ($send_src, $send_sink);
my $send_pid = open2($send_src, $send_sink, './spandsp_send_fax_t38 test.tif') or die;

unlink('out.tif');

my ($recv_src, $recv_sink);
my $recv_pid = open2($recv_src, $recv_sink, './spandsp_recv_fax_t38 out.tif') or die;

while ($send_pid && $recv_pid) {

	my ($buf, $rin);

	$rin = '';
	vec($rin, fileno($send_src),  1) = 1;
	while (select(my $rout = $rin, undef, undef, 0.02) == 1) {
		sysread($send_src, $buf = '', 1);
		syswrite($recv_sink, $buf) or last;
	}

	$rin = '';
	vec($rin, fileno($recv_src),  1) = 1;
	while (select(my $rout = $rin, undef, undef, 0.02) == 1) {
		sysread($recv_src, $buf = '', 1);
		syswrite($send_sink, $buf) or last;
	}

	undef($send_pid) if waitpid($send_pid, WNOHANG);
	undef($recv_pid) if waitpid($recv_pid, WNOHANG);
}

sleep(5);