From fcd5ee36c7b5f42d557ca7b0ec8be997c0faaadb Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 3 Oct 2006 03:26:37 +0000
Subject: Merged SL-POS.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@185 4979c152-3d1c-0410-bac9-87ea11338e46
---
 utils/pos/directnet.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 utils/pos/directnet.pl

(limited to 'utils/pos/directnet.pl')

diff --git a/utils/pos/directnet.pl b/utils/pos/directnet.pl
new file mode 100755
index 00000000..3bdd2e51
--- /dev/null
+++ b/utils/pos/directnet.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+($host, $proto, $port) = @ARGV;
+
+socket(SOCK, 2, 1, getprotobynumber($proto));
+
+$dest=pack(
+        's n a4 x8', 2, $port,
+        pack('CCCC', split(/\./, $host))
+);
+
+connect (SOCK, $dest);
+
+open ('STD', '-');
+while ($line = <STD>){
+  print SOCK $line;
+}
+close STD;
+close SOCK;
+
-- 
cgit v1.2.3