Enviado em 05/12/2016 - 09:46h
Bom dia gostaria de ajuda no meu script, o que necessito e que assim que o script recebesse o primeiro comando aguardasse 10 min para receber qualquer outro comando isso seria possível qual caminho devo tomar?use IO::Socket::INET;
# auto-flush on socket
$| = 1;
# creating a listening socket
my $socket = new IO::Socket::INET (
LocalHost => '192.168.56.1',
LocalPort => '6565',
Proto => 'tcp',
Listen => 5,
Reuse => 1
);
die "cannot create socket $!\n" unless $socket;
print "server waiting for client connection on port 6565\n";
while(1)
{
# waiting for a new client connection
my $client_socket = $socket->accept();
# get information about a newly connected client
my $client_address = $client_socket->peerhost();
my $client_port = $client_socket->peerport();
print "connection from $client_address:$client_port\n";
# read up to 1024 characters from the connected client
my $data = "";
$client_socket->recv($data, 1024);
print "received data: $data\n";
$datestring = localtime();
if ($data eq vm) {
print "Restaurando vm\n";
print "$datestring\n";
system('start vm.cmd');
}
if ($data eq vm1) {
print "Restaurando vm-01\n";
print "$datestring\n";
system('start vm1.cmd');
}
# write response data to the connected client
$data = "tudo ok";
$client_socket->send($data);
# notify client that response has been sent
shutdown($client_socket, 1);
}
$socket->close();
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Proteja seu Linux Mint com o Timeshift: Restaure o sistema mesmo que ele não inicie!
Instalando Google Chrome no Debian 13
Alguém pode me recomendar um editor de textos? (0)
meus dois pen drives não são mais reconhecidos pelo meu PC apos tentar... (1)