novedades/gen_links

   1 #!/usr/bin/php4 -qC
   2 <?
   3 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
   4 // +--------------------------------------------------------------------+
   5 // |                          HORAS EXTRA                               |
   6 // +--------------------------------------------------------------------+
   7 // |    Sistema de Horas Extra - Ministerio de Economía - Argentina     |
   8 // +--------------------------------------------------------------------+
   9 // | Creado: mar sep 24 13:23:54 ART 2002                               |
  10 // | Autor:  Leandro Lucarella <llucar@mecon.gov.ar>                    |
  11 // +--------------------------------------------------------------------+
  12 //
  13 // $URL$
  14 // $Rev$
  15 // $Date$
  16 // $Author$
  17 //
  18 // Genera links simbólicos en una rama de directorios en base a archivps
  19 // .<link>.lnk cuyo contenido es el origen del link.
  20 // Es decir si el archivo .link.php.lnk contiene "../../original.php, se
  21 // creará el link: ln -s ../../original.php link.php
  22 //
  23
  24 if ( isset( $argv[1] ) )
  25     $base = $argv[1];
  26 else
  27     $base = '.';
  28
  29 procesar( $base );
  30
  31 function procesar( $base ) {
  32
  33     if ( !is_readable( $base ) or !is_executable( $base ) )
  34         die( "No se puede acceder a $base! Chequee los permisos.\n" );
  35
  36     $pwd = getcwd();
  37     chdir( $base );
  38
  39     $d = dir( '.' );
  40     while( ( $f = $d->read() ) !== false ) {
  41
  42         if ( !is_readable( $f ) )
  43             die( "No se puede leer $f!\n" );
  44
  45         if( is_dir( $f ) and $f != '.' and $f != '..' and $f != '.svn' )
  46             procesar( $f );
  47         elseif ( preg_match( '/^\.(.*)\.lnk$/', $f, $m ) and !is_link( $m[1] ) )
  48             if ( !symlink( trim( join( '', file( $f ) ) ), $m[1] ) )
  49                 die( "No se puede crear el link {$m[1]}.\n" );
  50
  51     }
  52
  53     chdir( $pwd );
  54
  55 }
  56
  57 // $Id$
  58 ?>