X-Git-Url: https://git.llucax.com/z.facultad/75.08/llamadas.git/blobdiff_plain/9c69707e6753f7e8d02b86e70a5ea250f00ea5d1..39c7bf251463cc305e3e85c6a349ab35262bed9d:/inst/callgen

diff --git a/inst/callgen b/inst/callgen
index 8fb3828..dde9fb7 100755
--- 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   = "2004";
+$MIN_COD    = "0000";
+$MAX_COD    = "9999";
 
 #{{{ Variables globales
 our @codes; # Códigos de origen/destino
@@ -33,11 +37,7 @@ our @codes; # C
 # Uso: load_codes()
 sub load_codes()
 {
-	while (<>)
-	{
-		;
-		push(@codes, substr($_, 0, 2));
-	}
+	push(@codes, substr($_, 0, 2)) while (<STDIN>);
 }
 #}}}
 
@@ -70,13 +70,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