X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcall.pl;fp=perl%2Fcall.pl;h=89cdb2f05c37d986c9689b46b364e0aca620c8c8;hb=78ed3f6025103ec1c47c90725e37b417647d83c8;hp=0000000000000000000000000000000000000000;hpb=2663e17b1d546b5b6068825f5964bc684e6131cb;p=spider.git

diff --git a/perl/call.pl b/perl/call.pl
new file mode 100755
index 00000000..89cdb2f0
--- /dev/null
+++ b/perl/call.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+#
+# a little program to see if I can use ax25_call in a perl script
+#
+
+use FileHandle;
+use IPC::Open2;
+
+$pid = Open2( \*IN, \*OUT, "ax25_call ether GB7DJK-1 G1TLH");
+
+IN->input_record_separator("\r");
+OUT->output_record_separator("\r");
+OUT->autoflush(1);
+
+vec($rin, fileno(STDIN), 1) = 1;
+vec($rin, fileno(IN), 1) = 1;
+
+while (($nfound = select($rout=$rin, undef, undef, 0.001)) >= 0) {
+  
+}