cron usuarios inactivos
Publicado por Marry N.R (1 intervención) el 22/11/2005 19:24:08
Buenos Días
Quiero hacer un cron mas efectivo que detecte que esta inactivo los elimine
automáticamente ..
Espero Sugerencias gracias...
#!/usr/local/bin/perl
$auxiliar="/export/home/quien.txt";
system("who -u > $auxiliar");
open(AUXILIO,"$auxiliar");
while($linea=<AUXILIO>){
@desglosa=split(" ",$linea);
if($desglosa[5] gt "0:05" and $desglosa[0] ne "cxc"){
# print "$desglosa[0],$desglosa[1],$desglosa[5],$desglosa[6]\n";
system("kill -9 $desglosa[6]");
}
}
~
~
Otra manera de mejorarlo espero sugerencias ...
Quiero hacer un cron mas efectivo que detecte que esta inactivo los elimine
automáticamente ..
Espero Sugerencias gracias...
#!/usr/local/bin/perl
$auxiliar="/export/home/quien.txt";
system("who -u > $auxiliar");
open(AUXILIO,"$auxiliar");
while($linea=<AUXILIO>){
@desglosa=split(" ",$linea);
if($desglosa[5] gt "0:05" and $desglosa[0] ne "cxc"){
# print "$desglosa[0],$desglosa[1],$desglosa[5],$desglosa[6]\n";
system("kill -9 $desglosa[6]");
}
}
~
~
Otra manera de mejorarlo espero sugerencias ...
Valora esta pregunta


0