init III

2024-10-14 00:08:40 +02:00
parent dbfba56f66
commit 1462d52e13
4572 changed files with 2658864 additions and 0 deletions
--- a/Receiver/server.pl
+++ b/Receiver/server.pl
@@ -0,0 +1,55 @@
+#!/bin/perl
+
+use POE;
+use POE::Component::Server::TCP;
+use JSON::XS;
+
+use strict;
+
+my %data;
+
+$data{"0"}="hallo0";
+$data{"1"}="hallo1";
+
+TCPServer (\%data);
+POE::Kernel->run();
+
+
+sub TCPServer {
+    my %daten=%{$_[0]};
+    POE::Component::Server::TCP->new(
+                Alias => "SERVER",
+                Port => 11211,
+                ClientInput => sub {
+                    my ($session, $heap, $input) = @_[SESSION, HEAP, ARG0];
+                    #print "Session ", $session->ID(), " got input: $input\n";
+                    #$heap->{client}->put($input);
+                    #my $rip0 = $heap->{remote_ip};
+                    #my $rport = $heap->{remote_port};
+                    #my $id = $session->ID();
+                    #my $log = scalar localtime(time).": Send data to session $id, client: $rip0, clientport: $rport";
+                    #$logbox->insert('end', $log);
+                    #$logbox->see('end');
+                    if ($input eq "GETDATA") {
+                        my $JSONObject = JSON::XS->new->ascii->pretty->allow_nonref();
+                        my $senddata=$JSONObject->encode(\%daten);
+                        $heap->{client}->put($senddata);
+                    }
+                }
+    );
+}
+
+
+# %hash;
+#
+# Tabellenheader
+#       ID: Zeilennummer 0 beschreibt Header
+#          
+# $hash{0}="Status" | "Reserve" | "Reserve" | "Reserve" | "Reserve" | "Spaltenanzahl" | "Zeilenanzahl" | "Beschriftung" | "Spalte1" | "Spalte2"
+#
+# Status 0-7; 0 critical (RED); 4 warning (ORANGE); 7 good (GREEN)
+# 
+
+
+
+