aboutsummaryrefslogtreecommitdiffstats
path: root/tools/node_modules/expresso/deps/jscoverage/tests/netcat.pl
diff options
context:
space:
mode:
authorCliff Brake <cbrake@bec-systems.com>2012-08-17 13:43:14 -0400
committerCliff Brake <cbrake@bec-systems.com>2012-08-17 13:43:14 -0400
commita94e78479793722bc97b8771158d1acee3f55413 (patch)
treebf8f79959febb472513b299df99774de524f5fd1 /tools/node_modules/expresso/deps/jscoverage/tests/netcat.pl
parentc11f922b0bfa023a4cf49f26e55aec6a1413344b (diff)
downloadopenembedded-admin-a94e78479793722bc97b8771158d1acee3f55413.tar.gz
add node modules to git
This is now the best practice for deployed apps
Diffstat (limited to 'tools/node_modules/expresso/deps/jscoverage/tests/netcat.pl')
-rw-r--r--tools/node_modules/expresso/deps/jscoverage/tests/netcat.pl35
1 files changed, 35 insertions, 0 deletions
diff --git a/tools/node_modules/expresso/deps/jscoverage/tests/netcat.pl b/tools/node_modules/expresso/deps/jscoverage/tests/netcat.pl
new file mode 100644
index 0000000..5df75be
--- /dev/null
+++ b/tools/node_modules/expresso/deps/jscoverage/tests/netcat.pl
@@ -0,0 +1,35 @@
+use strict;
+use warnings;
+
+use Socket;
+
+binmode(STDIN);
+$| = 1;
+binmode(STDOUT);
+
+if (@ARGV != 2) {
+ die "Usage: netcat.pl HOST PORT\n";
+}
+
+my $host = shift;
+my $port = shift;
+
+my $address = inet_aton($host) or die;
+my $address_and_port = sockaddr_in($port, $address);
+my $protocol = getprotobyname('tcp');
+socket(SOCKET, PF_INET, SOCK_STREAM, $protocol) or die;
+
+my $old = select(SOCKET);
+$| = 1;
+select($old);
+binmode(SOCKET);
+
+connect(SOCKET, $address_and_port) or die;
+while (<STDIN>) {
+ print SOCKET $_;
+}
+while (<SOCKET>) {
+ print;
+}
+close(SOCKET);
+exit 0; \ No newline at end of file