2 // vim: set binary noeol et sw=4 sts=4 :
5 // Lucarella, Schein, Arena
7 // Creado: Leandro Lucarella (sáb abr 30 20:21:30 ART 2005)
11 require_once 'lib/file.creditos.php';
12 require_once 'lib/file.admins.php';
13 require_once 'lib/file.users.php';
16 * XXX detailed description
71 * Chequea si existen 2 admins.
72 * @return string true si existen 2 admins, false de otra forma.
75 function checkAdmins()
77 $admins = @file('data/admins.txt');
78 if (count($admins) < 2) return false;
83 * Asocia a un integrante del grupo.
84 * @return mixed Si hubo error, retorna un string con el error, si no retorna ''.
87 function asociar($id, $pass, $email, $admin = false)
89 // TODO lo mismo para asesores
90 if (($f = fopen('data/int_2005.txt', 'r')) === false)
91 return 'Error al abrir archivo de integrantes!';
94 $int = fgetcsv($f, 4096);
95 if ($int[0] == $id) break;
98 return 'El número de registro no existe, ese usuario no se puede asociar al grupo!';
99 if (@file_users_get($id, true))
100 return 'El usuario ya está registrado!';
101 if (!file_users_add($id, $pass, $email))
102 return 'No se pudo agregar el usuario!';
105 if (Usuario::checkAdmins())
106 return 'Ya hay 2 administradores en el sistema!';
107 if (!file_admins_add($id))
108 return 'No se pudo agregar el usuario a la lista de administradores!';
110 if (!file_creditos_crear($id))
111 return 'No se pudo crear el archivo de créditos!';