Re: Socket - Cliente Rodar Script no Servidor
Ola Denis Iarossi,
testei seu script e usando delphi, fiz o script ser executado no servidor, a minha duvida eh se este script pode retornar alguma coisa, tipo uma String ou ate mesmo um arquivo texto ?
vc tem alguma ideal a respeito ?
Grato por qualquer dica...
Re: Socket - Cliente Rodar Script no Servidor
Caro vini ,
Tomara que eu tenha entendido a sua pergunta , rs
na parte do script qual:
print $Client "Executando...\n";
ele esta retornando p/ o seu cliente Delphi uma String !
Caso vc queira retorna p/ p Delphi um texto basta :
$resp = system("cat arquivo");
print $Client $resp;
espero ter entendido , qq coisa , soh falar mister !
Re: Socket - Cliente Rodar Script no Servidor
Ola Denis,
depois da mensagem eu ate acabei descobrindo que o print tava dando o retorno, so nao sabia como fazer esse cat q vc fez, veja uq eu fiz.
print $Client "Executando perl...\n";
system("arp >>teste.txt");
$valor = system("cat teste.txt");
print $Client $valor;
ta retonrnando "0"
uq pode ser ?
mais uma vez obrigado,
Vinicius
Re: Socket - Cliente Rodar Script no Servidor
Iai grande vini ,
O que vc fez esta perfeito ...
Aqui esta o teste que fiz com sua alteracao
[root@desenv root]# perl teste.pl
[root@desenv root]# telnet localhost 50
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
roda script
Executando perl...
Address HWtype HWaddress Flags Mask Iface
192.168.254.1 ether 00:08:54:26:A2:35 C eth0
200.102.206.17 ether 00:E0:1E:3E:76:A3 C eth1
nao esqueca que vc deve passa roda script p/ o socket
teste que eu fiz foi , dar um telnet localhost 50
depois digitei roda script
Na parte do Sockets esta tudo Ok ,
Alternativa:
Você pode fazer só isso aqui naquele caso
print $Client `arp`;
Re: Socket - Cliente Rodar Script no Servidor
Fala Denis,
blza, funcionou 100%, a questão toda eh o tipo de aspas, eu tava usando aspas simples, ai ele interpretava como string, e retornava o nome arp, e usando a crase ele funcionou, valeu pela ajuda...
Vinicius