Ayer pasó esas cosas que nunca suelen pasar: se me estropeó el disco duro del servidor de la oficina :-(

Afortunadamente, tenía un backup de los datos de hace unos días, por lo que he minimizado la pérdida. El caso es que después de volcar los dos DVD del backup en la nueva partición de datos, he visto que tenía que modificar los permisos de cada archivo y de cada directorio. Entonces me he acordado de un pequeño script en perl que encontré en su día y que me ha facilitado la vida en más de una ocasión.

Este pequeño script se llama modefix.pl. Este pequeño gran script permite cambiar de un plumazo, recursivamente, los permisos de los archivos y directorios, así como el propietario y el grupo de un determinado conjunto de directorios.

Algo así como: $ modefix.pl -d 770 -f 660 -u yomismo -g smbusers /home/datos

Hay otros modos de hacer lo mismo, como comentan en la propia documentación del programa:

  $ find . -type d | xargs chmod 2750
  $ find . -type f | xargs chmod 640
  $ find . | xargs chown john:doe

pero a la vista está que es más engorroso :-) Si os he convencido, podeís echarle un ojo en: http://www.sial.org/code/perl/scripts/modefix.pl.html O en su página de freshmeat. ¡Ah!, y si alguien conoce alguna utilidad similar escrita en c, me gustaría que me lo dijese, ¿ok?