Se parametriza un poco más.

diff --git a/inst/callgen b/inst/callgen
index 8fb382816624e7c05664b76f77497b6bdfbd769a..d6aac8b2f626d65b68ddade47c8d8ee28b5bc692 100755 (executable)
--- a/inst/callgen
+++ b/inst/callgen
@@ -19,9 +19,13 @@
 #      cat oridesti.txt | ./gencall
 
 # Configuración
-$CANT_ARCHS=10;
-$MIN_LINEAS=1000;
-$MAX_LINEAS=5000;
+$CANT_ARCHS = 10;
+$MIN_LINEAS = 1000;
+$MAX_LINEAS = 5000;
+$MIN_ANIO   = 1999;
+$MAX_ANIO   = 1999;
+$MIN_COD    = "0000";
+$MAX_COD    = "9999";
 
 #{{{ Variables globales
 our @codes; # Códigos de origen/destino
@@ -70,13 +74,13 @@ sub rnd($;$)
 #}}}
 
 #{{{ Tipos de campos
-sub aaaa() { return rnd(1999, 2004); }    # año
-sub mm()   { return rnd("01", 12); }      # mes
-sub dd()   { return rnd("01", 28); }      # día
-sub hh()   { return rnd("00", 23); }      # hora
-sub MM()   { return rnd("00", 59); }      # minutos
-sub DDDD() { return rnd("0000", 9999); }  # código de central telefónica
-sub char() { return chr(rnd(65, 90)); }   # caracter aleatorio
+sub aaaa() { return rnd($MIN_ANIO, $MAX_ANIO); } # año
+sub mm()   { return rnd("01", 12); }             # mes
+sub dd()   { return rnd("01", 28); }             # día
+sub hh()   { return rnd("00", 23); }             # hora
+sub MM()   { return rnd("00", 59); }             # minutos
+sub DDDD() { return rnd($MIN_COD, $MAX_COD); }   # código de central telefónica
+sub char() { return chr(rnd(65, 90)); }          # caracter aleatorio
 #}}}
 
 #{{{ line() - Genera una línea del archivo