diff options
author | Cliff Brake <cbrake@bec-systems.com> | 2012-08-17 13:43:14 -0400 |
---|---|---|
committer | Cliff Brake <cbrake@bec-systems.com> | 2012-08-17 13:43:14 -0400 |
commit | a94e78479793722bc97b8771158d1acee3f55413 (patch) | |
tree | bf8f79959febb472513b299df99774de524f5fd1 /tools/node_modules/expresso/deps/jscoverage/tests/netcat.pl | |
parent | c11f922b0bfa023a4cf49f26e55aec6a1413344b (diff) | |
download | openembedded-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.pl | 35 |
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 |