From 41bf2da5951abb046f875ff34d7f7bd48dd88930 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 21 Feb 2019 16:00:14 +0100
Subject: [PATCH] begin of SafeQ terminal server replacement

---
 terminal-server.pl | 59 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100755 terminal-server.pl

diff --git a/terminal-server.pl b/terminal-server.pl
new file mode 100755
index 0000000..ca2fd57
--- /dev/null
+++ b/terminal-server.pl
@@ -0,0 +1,59 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use IO::Socket::INET;
+
+$| = 1;
+
+my $socket = IO::Socket::INET->new(
+	LocalPort => 4096,
+	Proto => 'tcp',
+	Listen => 5,
+	Reuse => 1
+) or die "ERROR: $!";
+
+print "SERVER Waiting for client connection on port 4096\n";
+
+while(1) {
+	my $client_socket = $socket->accept();
+
+	sub client_send {
+		my $text = join('', @_);
+		warn ">> $text\n";
+		print $client_socket "$text\r\n";
+	}
+
+	# get the host and port number of newly connected client.
+	my $peer_address = $client_socket->peerhost();
+	my $peer_port = $client_socket->peerport();
+
+	print "Connection from: $peer_address:$peer_port\n";
+
+	while ($client_socket->connected) {
+		my $line = <$client_socket>;
+		chomp $line;
+		warn "<< $line\n";
+
+		if ( $line =~ m/^\.SQ ([\d\.]+) (\S+)/ ) {
+			client_send  ".SQ OK";
+		} elsif ( $line =~ m/^\.CFG/ ) {
+			client_send  ".CFG OK %s";
+		} elsif ( $line =~ m/\.SERVER LIST/ ) {
+			client_send  ".ERROR NO-ENTERPRISE";
+		} elsif ( $line =~ m/\.CARD (\S+)/ ) {
+			client_send  ".CARD OK pero peric (pero\@example.com)";
+		} elsif ( $line =~ m/\.ACTION$/ ) {
+			client_send  ".ACTION CMENUS2";
+		} elsif ( $line =~ m/\.ACTION COPY/ ) {
+			client_send  ".ACTION COPY";
+			client_send  ".COPY Mozete kopirati (pero)";
+		} elsif ( $line =~ m/(\.NOP)/ ) {
+			client_send  "$1";
+		} else {
+			die "unknown: $line";
+		}
+	}
+}
+
+$socket->close();
-- 
2.20.1