let print_team_by_group_project_forge (s:out_channel) (gl:student list)
(padd:paddress) (groupnum:int) (teamnum:int) =
let hpr = Printf.fprintf in
let gid = Printf.sprintf "%s-g%dt%d" (get_group_project_id groupnum padd)
groupnum teamnum in
hpr s "./project-create.rb -create ";
hpr s "-name \"%s\" " (Printf.sprintf "%s-Groupe%d-Equipe%d"
(get_group_project_name groupnum padd) groupnum teamnum);
hpr s "-id %s " gid;
hpr s "-parid %s " (get_group_project_id groupnum padd);
hpr s "-modules \"wiki,repository\" ";
hpr s "-repo \"http://vulcain.enseirb.fr:7000/svn-private/%s\" " gid;
let pro = get_progs gl groupnum padd teamnum in
let log = List.map (fun t -> Printf.sprintf "%s (Student)" t.login) pro in
hpr s "-memb \"%s\"\n" (String.concat ", " log)