1#!/usr/bin/perl -w 2 3# $Id: smbldap-usershow,v 1.7 2004/11/06 17:54:26 jtournier Exp $ 4# 5# This code was developped by IDEALX (http://IDEALX.org/) and 6# contributors (their names can be found in the CONTRIBUTORS file). 7# 8# Copyright (C) 2001-2002 IDEALX 9# 10# This program is free software; you can redistribute it and/or 11# modify it under the terms of the GNU General Public License 12# as published by the Free Software Foundation; either version 2 13# of the License, or (at your option) any later version. 14# 15# This program is distributed in the hope that it will be useful, 16# but WITHOUT ANY WARRANTY; without even the implied warranty of 17# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18# GNU General Public License for more details. 19# 20# You should have received a copy of the GNU General Public License 21# along with this program; if not, write to the Free Software 22# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, 23# USA. 24 25# Purpose of smbldap-userdisplay : user (posix,shadow,samba) display 26 27use strict; 28use FindBin; 29use FindBin qw($RealBin); 30use lib "$RealBin/"; 31use smbldap_tools; 32 33use Getopt::Std; 34my %Options; 35 36my $ok = getopts('?', \%Options); 37 38if ( (!$ok) || (@ARGV < 1) || ($Options{'?'}) ) { 39 print_banner; 40 print "Usage: $0 [-?] username\n"; 41 print " -? show this help message\n"; 42 exit (1); 43} 44 45# Read only first @ARGV 46my $user = $ARGV[0]; 47 48my $ldap_slave=connect_ldap_slave(); 49 50my $lines = read_user($user); 51if (!defined($lines)) { 52 print "$0: user $user doesn't exist\n"; 53 exit (1); 54} 55 56print "$lines\n"; 57 58# take down session 59$ldap_slave->unbind; 60 61exit(0); 62 63############################################################ 64 65=head1 NAME 66 67smbldap-usershow - Show a user account informations 68 69=head1 SYNOPSIS 70 71smbldap-usershow login 72 73=head1 DESCRIPTION 74 75The smbldap-usershow command displays the informations associated with the login. The named user must exist. 76 77=cut 78 79#' 80