Se expanden los keywords y se agrega un makefile para poner todo a punto

cuando se baja el repositorio.

diff --git a/novedades/Makefile b/novedades/Makefile
new file mode 100644 (file)
index 0000000..aa5422a
--- /dev/null
+++ b/novedades/Makefile
@@ -0,0 +1,6 @@
+# $Id$
+# Creado: jue abr  3 15:39:19 ART 2003
+# Autor:  Leandro Lucarella <llucar@mecon.gov.ar>
+
+all: gen_links
+       ./gen_links

diff --git a/novedades/cargas_de_datos/.web003.lnk b/novedades/cargas_de_datos/.web003.lnk
new file mode 100644 (file)
index 0000000..2de063f
--- /dev/null
+++ b/novedades/cargas_de_datos/.web003.lnk
@@ -0,0 +1 @@
+../copia
\ No newline at end of file

diff --git a/novedades/cargas_de_datos/.web004.lnk b/novedades/cargas_de_datos/.web004.lnk
new file mode 100644 (file)
index 0000000..2de063f
--- /dev/null
+++ b/novedades/cargas_de_datos/.web004.lnk
@@ -0,0 +1 @@
+../copia
\ No newline at end of file

diff --git a/novedades/cargas_de_datos/.web005.lnk b/novedades/cargas_de_datos/.web005.lnk
new file mode 100644 (file)
index 0000000..2de063f
--- /dev/null
+++ b/novedades/cargas_de_datos/.web005.lnk
@@ -0,0 +1 @@
+../copia
\ No newline at end of file

diff --git a/novedades/cargas_de_datos/.web018.lnk b/novedades/cargas_de_datos/.web018.lnk
new file mode 100644 (file)
index 0000000..2de063f
--- /dev/null
+++ b/novedades/cargas_de_datos/.web018.lnk
@@ -0,0 +1 @@
+../copia
\ No newline at end of file

diff --git a/novedades/cargas_de_datos/.web020.lnk b/novedades/cargas_de_datos/.web020.lnk
new file mode 100644 (file)
index 0000000..2de063f
--- /dev/null
+++ b/novedades/cargas_de_datos/.web020.lnk
@@ -0,0 +1 @@
+../copia
\ No newline at end of file

diff --git a/novedades/cargas_de_datos/.web031.lnk b/novedades/cargas_de_datos/.web031.lnk
new file mode 100644 (file)
index 0000000..2de063f
--- /dev/null
+++ b/novedades/cargas_de_datos/.web031.lnk
@@ -0,0 +1 @@
+../copia
\ No newline at end of file

diff --git a/novedades/cargas_de_datos/.web032.lnk b/novedades/cargas_de_datos/.web032.lnk
new file mode 100644 (file)
index 0000000..2de063f
--- /dev/null
+++ b/novedades/cargas_de_datos/.web032.lnk
@@ -0,0 +1 @@
+../copia
\ No newline at end of file

diff --git a/novedades/cargas_de_datos/.web033.lnk b/novedades/cargas_de_datos/.web033.lnk
new file mode 100644 (file)
index 0000000..2de063f
--- /dev/null
+++ b/novedades/cargas_de_datos/.web033.lnk
@@ -0,0 +1 @@
+../copia
\ No newline at end of file

diff --git a/novedades/cargas_de_datos/.webfun.firmantes.lnk b/novedades/cargas_de_datos/.webfun.firmantes.lnk
new file mode 100644 (file)
index 0000000..2de063f
--- /dev/null
+++ b/novedades/cargas_de_datos/.webfun.firmantes.lnk
@@ -0,0 +1 @@
+../copia
\ No newline at end of file

diff --git a/novedades/gen_links b/novedades/gen_links
new file mode 100755 (executable)
index 0000000..75ee268
--- /dev/null
+++ b/novedades/gen_links
@@ -0,0 +1,58 @@
+#!/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$
+?>