init III

2024-10-14 00:08:40 +02:00
parent dbfba56f66
commit 1462d52e13
4572 changed files with 2658864 additions and 0 deletions
--- a/Tool/server2.pl
+++ b/Tool/server2.pl
@@ -0,0 +1,190 @@
+#!/usr/bin/perl
+use IO::Socket;
+use Socket;
+use Net::hostent; 
+#use warnings;
+use Tk;
+#use strict;
+use IO::Socket::Multicast;
+use Getopt::Long;
+use threads ();
+use threads::shared ();
+use JSON::XS;
+use POE;
+use POE::Session;
+use POE::Loop::Select;
+use POE::Resource::Aliases;
+use POE::Resource::Events;
+use POE::Resource::Extrefs;
+use POE::Resource::FileHandles;
+use POE::Resource::SIDs;
+use POE::Resource::Sessions;
+use POE::Resource::Signals;
+use POE::Resource::Statistics;
+use POE::Component::Server::TCP;
+
+my $mw	= MainWindow->new();
+my $menubar = $mw->Menu; 
+$mw->minsize( qw(300 300));
+$mw->title("SERVER Status Monitor v1.0");
+$mw->configure(-background=>'grey');
+$mw->fontCreate('font1', -family => 'Verdana',-size => 12);
+$mw->configure(-menu => $menubar);
+my $file = $menubar->Menubutton(-label => 'File',-underline => 0);
+my $opt = $menubar->Menubutton(-label => 'Options',-underline => 0);
+my $about = $menubar->Menubutton(-label => '?',-underline => 0);
+my $box = $mw->Listbox(-height => 15, -width => 100);
+my $scroll = $mw->Scrollbar(-command => ['yview', $box]);
+
+$file->command(-label => "Quit", -command => sub{exit;}); 
+$opt->command(-label => "Reconnect", -command => sub{&startthr;}); 
+$about->command(-label   => "Info",-command => [\&about, "About"],);
+
+$box->configure(-yscrollcommand => ['set', $scroll]);
+#$box->pack(-side => 'left', -fill => 'both', -expand => 1);
+#$scroll->pack(-side => 'right', -fill => 'y');
+$box->grid(-row => 1, -column => 1, -sticky => "ew");
+#$scroll->grid(-row => 1, -column => 1);
+
+#my $table = new Term::Menu;
+my $msg0 : shared = "NO MSG";
+my $msg;
+my %results : shared;
+my $thr0;
+my $ctime:shared;
+my $name:shared;
+my $servicename :shared =0; 
+my $Port :shared =0;
+my $senddata;
+
+
+
+  GetOptions(
+        "s=s" => \$servicename,
+        "p=s" => \$Port,
+	 );
+
+
+
+sub nopara {
+   $msg1 = "server [options]\n\n";
+   $msg1.= " -s		Service Name for Client\n";
+   $msg1.= " -p		Monitoring Server Port\n";
+   #print $msg1;
+   return $msg1;
+   #exit;
+   
+}
+
+
+if ($Port eq "0") {print &nopara; exit;};
+if ($servicename eq "0") {print &nopara; exit;};
+
+sub TCP_SRV {
+my @rip:shared;
+my @rport:shared;
+
+my $coun = 0;
+POE::Component::Server::TCP->new(
+  Alias       => "server",
+  Port        => $Port,
+  ClientInput => sub {
+   $coun++;
+	my $JSONObject = JSON::XS->new->ascii->pretty->allow_nonref();
+    my ($session, $heap, $input) = @_[SESSION, HEAP, ARG0];
+    #print "Session ", $session->ID(), " got input send data:\n\n";
+	
+	$rip0 = $heap->{remote_ip};
+	$rport = $heap->{remote_port};
+	logevent('',$session);
+	$ctime = time - 10;
+	$results{REF} = ($ctime);
+	$senddata=$JSONObject->encode(\%results);
+    $heap->{client}->put($senddata);
+	
+  }
+);
+
+
+
+
+sub logevent {
+
+  my ($state, $session, $arg) = @_;
+  my $id = $session->ID();
+  my $log = scalar localtime(time).": session $id, client: $rip0, clientport: $rport";
+  print $log;
+  print "\n";
+  #print &nrthr;
+  $box->insert('end', $log);
+  $box->see('end');
+  
+  }
+  
+  $poe_kernel->run();
+}
+
+
+
+my $data0 :shared = 0;
+my $thr0_tid;
+my $group;
+my $port;
+my $tid;
+sub MC_RECV0 {
+ my $sock = IO::Socket::Multicast->new(Proto=>'udp',LocalPort=>$port);
+ $sock->mcast_add($group) || die "Couldn't set group: $!\n";
+
+ while (1) {
+   #lock $data0;
+   my $data00 = "NODATA";
+   $sock->recv($data00,1024);
+   #$data0 = $data00;
+   $data0 = time;
+   $results{$group."-".$port} = ($data0);
+   } 
+}
+
+
+
+#threads->new(\&TCP_SRV2,$msg0);
+#
+
+my $counter;
+my $line;
+open CONFFILE, "<config.ini" or die("Could not open config.ini.");
+
+foreach $line (<CONFFILE>) {
+    chomp($line);
+    $counter++;
+	my @data = split(/,/, $line);
+	$results{$data[0]."-".$data[1]} = "00";
+	$thr0 = threads->new(\&MC_RECV0,$group=$data[0], $port=$data[1], $tid=$counter);
+	
+}
+
+sub nrthr {  
+	my $count;
+	my @running;
+	@running = threads->list();
+	$count = @running;
+	$count = $count;
+	print "Threads Running: ".$count."\n";
+}
+
+threads->new(\&TCP_SRV);
+
+  foreach my $val (%results){
+  $msg0 .= $val;
+  print $val."\n";
+  }
+
+
+
+$mw->repeat(1000 => \&run);
+MainLoop;
+sub run {
+    $mw->update;
+	
+}
+