~ K    A     L    I ~
UNAME : Linux web65.extendcp.co.uk 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
SERVER IP : 10.0.187.65 -________- CLIENT IP : 216.73.216.230
PATH :/usr/bin/
UP FILE :
MINI SHELL D ZAB '
Current File : //usr/bin/cluster_logger.plx
#!/usr/bin/perl

use strict;
use warnings;

use IO::Socket;
use Getopt::Long;

$| = 1;


my ( %options, $socket );
GetOptions(\%options, "type|t=s");

open(CLUSTERID, "< /etc/cluster_id") or die $!; chomp ( my $cluster_id = <CLUSTERID> ); close(CLUSTERID);

sub setup_sockets {
	my $server = '10.0.55.' . $cluster_id;

	unless ( $socket = new IO::Socket::INET(
		PeerAddr	=> $server,
		PeerPort	=> 5514,
		Proto		=> "udp",
	) ) {
		warn $!;
		# we'll try for our lost socket again soon
		alarm 30;
	}
}

&setup_sockets();

while( <STDIN> ) {
	eval {
		print $socket $options{type} . ": " . $_;
	}
}
Coded by KALI :v Greetz to DR HARD ../ kali.zbi@hotmail.com