#!/usr/bin/php4 -qC
<?
// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
// +--------------------------------------------------------------------+
// |                          HORAS EXTRA                               |
// +--------------------------------------------------------------------+
// |    Sistema de Horas Extra - Ministerio de Economía - Argentina     |
// +--------------------------------------------------------------------+
// | Creado: mar sep 24 13:23:54 ART 2002                               |
// | Autor:  Leandro Lucarella <llucar@mecon.gov.ar>                    |
// +--------------------------------------------------------------------+
//
// $URL$
// $Rev$
// $Date$
// $Author$
//
// Genera links simbólicos en una rama de directorios en base a archivps
// .<link>.lnk cuyo contenido es el origen del link.
// Es decir si el archivo .link.php.lnk contiene "../../original.php, se
// creará el link: ln -s ../../original.php link.php
//

if ( isset( $argv[1] ) )
    $base = $argv[1];
else
    $base = '.';

procesar( $base );

function procesar( $base ) {

    if ( !is_readable( $base ) or !is_executable( $base ) )
        die( "No se puede acceder a $base! Chequee los permisos.\n" );

    $pwd = getcwd();
    chdir( $base );

    $d = dir( '.' );
    while( ( $f = $d->read() ) !== false ) {

        if ( !is_readable( $f ) )
            die( "No se puede leer $f!\n" );

        if( is_dir( $f ) and $f != '.' and $f != '..' and $f != '.svn' )
            procesar( $f );
        elseif ( preg_match( '/^\.(.*)\.lnk$/', $f, $m ) and !is_link( $m[1] ) )
            if ( !symlink( trim( join( '', file( $f ) ) ), $m[1] ) )
                die( "No se puede crear el link {$m[1]}.\n" );

    }

    chdir( $pwd );

}

// $Id$
?>