| Server IP : 79.170.40.229 / Your IP : 18.191.154.231 Web Server : Apache System : Linux web230.extendcp.co.uk 4.18.0-513.24.1.el8_9.x86_64 #1 SMP Mon Apr 8 11:23:13 EDT 2024 x86_64 User : 1stforcarhirealicante.com ( 296923) PHP Version : 5.6.40 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/thread-self/root/bin/ |
Upload File : |
#!/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} . ": " . $_;
}
}