epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Extract list of users by year

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-15 12:32:50 +02:00
parent e2f8d2389d
commit aebef9850e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
commands/ldap/extract_students.pl
View File

@ -10,11 +10,11 @@ use lib "../../";
use ACU::Log; use ACU::Log;
use ACU::LDAP; use ACU::LDAP;
sub get_students() sub get_students
{ {
my $ldap = LDAP::ldap_connect(); my $ldap = LDAP::ldap_connect();
my $year = LDAP::get_year($ldap); my $year = shift // LDAP::get_year($ldap);
return LDAP::search_dns($ldap, "ou=$year,ou=users", "objectClass=epitaAccount", "cn", "uid", "uidNumber"); return LDAP::search_dns($ldap, "ou=$year,ou=users", "objectClass=epitaAccount", "cn", "uid", "uidNumber");
} }
@ -25,7 +25,7 @@ if ($#ARGV == -1) {
} }
elsif ($ARGV[0] eq "csv") elsif ($ARGV[0] eq "csv")
{ {
for my $student (get_students) for my $student (get_students $ARGV[1])
{ {
print $student->get_value("cn"); print $student->get_value("cn");
print ","; print ",";