Re: (linux-br) Sugest�o para diminuir o trafego da lista.

Tue, 09 Jul 2002 08:30:18 -0700 

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: 2228
Mensagens recebidas desde 07/01/1999: 174351
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista: 
            mailto:[EMAIL PROTECTED]

Responder a