]> git.llucax.com Git - z.facultad/75.08/llamadas.git/blob - inst/aficonf
Paso chequeo de perl a cuando se instala antifraude.pl como dice el enunciado. Pongo...
[z.facultad/75.08/llamadas.git] / inst / aficonf
1 #!/bin/sh
2 #
3 # Configurador
4
5 # Atajo CTRL+C 
6 trap "echo -n ''" INT
7
8 # TODO : esto lo debe modificar el instalador, no?
9 INST_DIR="$PWD/inst"
10
11 . "/$INST_DIR/util.sh"
12
13 #Valida que exista el pais
14 existe_pais () {
15         EXISTE=`cat "$INST_DIR/oridesti.txt" | egrep "^$1;"`;
16         if [ "$EXISTE" != "" ] ; then
17                 return 0
18         fi
19         return 1
20 }
21
22 menu () {
23         echo "AFICONF"
24         echo "======="
25         echo
26         echo "  1) Alta"
27         echo "  2) Baja"
28         echo "  3) Buscar"
29         echo "  4) Salir"
30
31         preguntar "Su opción" "1234" $1
32 }
33
34 existe_umbral () {
35         EXISTE=`cat "$INST_DIR/umbrales.param" | egrep "$1"`;
36         if [ "$EXISTE" == "" ] ; then
37                 #No existe
38                 return 1
39         fi
40         #Ya existe un umbral!
41         return 0
42 }
43         
44 buscar_id_umbral () {
45         ID=`cat "$INST_DIR/umbrales.id"`;
46         eval "$1=$ID"
47         let ID=$ID+1
48         echo "$ID" > "$INST_DIR/umbrales.id"
49 }
50
51 case_altas () {
52         DONE=0
53         while [ $DONE == 0 ] ; do
54                 leer "Número de línea" "" LINEA
55                 #TODO Valido
56                 if ! validar_solo_numeros "$LINEA" ; then
57                         echo "EL NUMERO TE LINEA SOLO DEBE TENER DIGITOS"
58                 else
59                         DONE=1
60                 fi
61                 if [ "$LINEA" == "" ] ; then
62                         DONE=0
63                 fi
64         done
65
66         preguntar "Tipo de llamada" "ES" TIPO
67
68         DONE=0
69         while [ $DONE == 0 ] ; do
70                 leer "Pais (código de 2 letras)" "" PAIS 
71                 if ! existe_pais "$PAIS" ; then
72                         echo "No existe el país de código $PAIS"
73                 else
74                         DONE=1
75                 fi
76                 if [ "$PAIS" == "" ] ; then
77                         DONE=0
78                 fi
79         done
80
81         # Verifico que el umbral no exista
82         FECHA=`date +"%Y%m%d"`
83         HORA=`date +"%H%M%S"`
84         UMBRAL="$LINEA;$PAIS;$TIPO;A;*;*;*"
85
86         if existe_umbral "$UMBRAL" ; then
87                 echo "Ya existe un umbral con los datos ingresados."
88                 echo "Abortando..."
89                 return
90         fi
91         
92         # Genero el umbral
93         buscar_id_umbral ID
94         UMBRAL="$ID;$LINEA;$PAIS;$TIPO;A;$USER;$FECHA;$HORA"
95
96         # Lo guardo
97         echo "$UMBRAL" >> "$INST_DIR/umbrales.param"
98
99         echo ""
100         echo "El Umbral fue grabado con éxito"
101         echo ""
102 }
103
104
105 # No permito correr 2 instancias de AFICONF
106 if is_lock "AFICONF" ; then
107         echo ""
108         echo "Aficonf está corriendo actualmente."
109         echo ""
110         exit 1
111 fi
112
113 lock "AFICONF"
114
115 # Loop Principal
116 OPT="0"
117 while [ "$OPT" != "4" ] ; do 
118         menu OPT
119
120         case $OPT in
121                 "1") case_altas ;;
122                 "2") echo "Dos" ;;
123                 "3") echo "Tres" ;;
124         esac
125 done
126
127 unlock "AFICONF"