fa�a o seguinte que vai funcionar!
#/usr/bin/perl
$usu = $ARGV[0];
$fone = $ARGV[1];
open (RADWHO,"/usr/bin/radwho | ");
$conectado = "0";
while (<RADWHO>) {
chop $_;
$linha = $_;
@vetrad = split(' ',linha);
if ($usu eq $vetrad[0]) (
$conectado++;
}
}
close (RADWHO);
# Aqui o script vai testar se tem mais de uma conex�o
if ($conectado >= 1) {
print "Usu�rio j� est� conectado";
exit 1;}
else {
print "O Usu�rio n�o est� conectado";
exit 0;}
#### Fim do script ####
Salve o arquivo como "controla" e d� a permiss�o 755 para ele
Agora vc ter� que abrir o arquivo USERS do radius e por volta da linha
74 se n�o tiver a linha abaixo coloque-a:
Exec-Program-Wait = "/etc/raddb/controla %u %i",
PS: Salve o script dentro da pasta do radius, a que est� assim...
depois � s� restartar o radiusd e v� o resultado.
[]'s
Assinantes em 09/07/2002: 2231
Mensagens recebidas desde 07/01/1999: 174367
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
