CVS: ispman/bin ispman.userInfo,NONE,1.1

Update of /cvsroot/ispman/ispman/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv10609

Added Files:
	ispman.userInfo 
Log Message:
script to display user data from LDAP

--- NEW FILE ---
#!/usr/bin/perl
BEGIN{
   use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../lib", "$FindBin::Bin/../conf");
   use Getopt::Std;
   getopt('du',  \%opts);
   unless ($opts{'d'} && $opts{'u'}){
      print "Usage: $FindBin::Script -d domain -u username \n";
      exit;
   }
}

use ISPMan;

my $ispman=ISPMan->new();

my $dn=$self->getUserDN($domain, $uid);
my $entry=$self->getEntry($dn);
$self->dumpEntry($entry);




-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf