From a3684346f4d60715512c7ca30ba9fc7bb270c38e Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Sun, 3 Jun 2012 22:20:58 +0200
Subject: Merge everything into a single executable.

---
 lib/Fripost/Commands/user_search.pm | 58 +++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 lib/Fripost/Commands/user_search.pm

(limited to 'lib/Fripost/Commands/user_search.pm')

diff --git a/lib/Fripost/Commands/user_search.pm b/lib/Fripost/Commands/user_search.pm
new file mode 100644
index 0000000..30ffd4d
--- /dev/null
+++ b/lib/Fripost/Commands/user_search.pm
@@ -0,0 +1,58 @@
+package Fripost::Commands::user_search;
+
+use 5.010_000;
+use strict;
+use warnings;
+use utf8;
+
+=head1 NAME
+
+user_search.pm - List matching virtual users
+
+=cut
+
+use FindBin qw($Bin);
+use lib "$Bin/lib";
+
+use Fripost::Schema;
+
+our $VERSION = '0.01';
+
+our @EXPORT = qw/main/;
+our @ISA = qw(Exporter);
+
+sub main {
+    my $ldap = shift;
+    my $conf = shift;
+
+    my %user;
+    $user{username} = $_[0] if defined $_[0];
+    
+    foreach my $user ($ldap->user->search( \%user )->entries) {
+        say '' . ($user->{isActive} ? 'ACTIVE' : 'INACTIVE')
+            . ' user ' . $user->{username};
+    }
+}
+
+=head1 AUTHOR
+
+Guilhem Moulin C<< <guilhem at fripost.org> >>
+
+=head1 COPYRIGHT
+
+Copyright 2012 Guilhem Moulin.
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as perl itself.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+=cut
+
+1; # End of user_search.pm
+
+__END__
-- 
cgit v1.2.3