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 ++++++++++++++++++++
 utils/pos/pos-hardware-client-startup-script | 11 +++++++++++
 2 files changed, 31 insertions(+)
 create mode 100755 utils/pos/directnet.pl
 create mode 100755 utils/pos/pos-hardware-client-startup-script

(limited to 'utils/pos')

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;
+
diff --git a/utils/pos/pos-hardware-client-startup-script b/utils/pos/pos-hardware-client-startup-script
new file mode 100755
index 00000000..bcb3240a
--- /dev/null
+++ b/utils/pos/pos-hardware-client-startup-script
@@ -0,0 +1,11 @@
+#!/bin/bash
+netcat=/usr/local/bin/netcat
+while((1))
+do
+  $netcat -lp6601 > /dev/ttyS0
+done&
+
+while((1))
+do
+  $netcat -lp6602 > /dev/lp0
+done&
-- 
cgit v1.2.3