🚀 go-pugleaf

 El otro d�a, ionidk nos estuvo contando:
> 
> 
> Para sacar el cd puede que te de problemas, con umount /mnt/cdrom 
> desmontas el cdrom y lo dejas libre. Tambien puedes usar el comando eject.
> 

Y, en fin, como este grupo despues de todo es de programaci�n ah� va un 
scriptillo:
-----
#!/usr/bin/perl -w

$que = $ARGV[0];

# Desmonta $1 por h**v*s. Matando todos los procesos que lo utilizan.
# $1 tiene que ser cdrom o cdrom2 o ...

#lsof $1 | grep $1 | cut -d' ' -f1 | xargs killall -9
#eject $1

@procesos = `lsof $que | grep $que`;

foreach (@procesos) {
        @p = split;
        $pid = $p[1];

        defined $ARGV[1] ? `kill -9 $pid\n` : print `kill $pid\n` ;
}

`eject $que`;
-----

Hay que llamarlo:
desmonta /cdrom por_huevos

donde /cdrom es el directorio de montaje asociado a la unidad 
correspondiente. Lee todos los procesos que usan el dispositivo y los mata 
(ojo, que los mata bien muertos con -9, antes hay que procurar hacerlo a 
mano).

Si no se puede desmontar porque estamos en el directorio, mata la shell 
que corresponda.

Saludos.

-- 
�������������������������������������������������������������������������
��  Reinoso G.  EA4BAO                      r einoso.bao@wanadoo.e s   ��
��  http://perso.wanadoo.es/reinoso.bao                                ��
�������������������������������������������������������������������������