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

Works on old LWP::UserAgent

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-16 06:43:17 +02:00
parent 0e22becfb6
commit 3678b13055
4 changed files with 59 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
commands/ldap/extract_students.pl
View file

@ -21,7 +21,7 @@ sub get_students
if ($#ARGV == -1) {
log(USAGE, "$0 format");
say "format can be csv"
say "format can be csv or login"
}
elsif ($ARGV[0] eq "csv")
{
@ -35,3 +35,9 @@ elsif ($ARGV[0] eq "csv")
say ",Present";
}
}
elsif ($ARGV[0] eq "login")
{
for my $student (get_students $ARGV[1]) {
say $student->get_value("uid");
}
}