1#!/usr/bin/perl -w
2
3# $Id: smbldap-groupshow,v 1.8 2005/10/31 15:05:22 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-groupshow : user (posix,shadow,samba) display
26#
27# History :
28#       . originally by David Le Corfec <david.le-corfec@IDEALX.com>
29
30use strict;
31use FindBin;
32use FindBin qw($RealBin);
33use lib "$RealBin/";
34use Samba::LDAP::Group;
35use Getopt::Std;
36my %Options;
37
38my $ok = getopts('?', \%Options);
39
40if ( (!$ok) || (@ARGV < 1) || ($Options{'?'}) ) {
41  print "(c) Jerome Tournier - IDEALX 2004 (http://www.idealx.com)- Licensed under the GPL\n(c) Gavin Henry - Suretec Systems Ltd 2006 (http://www.suretecsystems.com)\n";
42  print "Usage: $0 [-?] group\n";
43  print "  -?	show this help message\n";
44  exit (1);
45}
46
47# Read only first @ARGV
48my $group = $ARGV[0];
49
50my $smbgroup = Samba::LDAP::Group->new();
51
52my $lines = $smbgroup->show_group( $group );
53if (!defined($lines)) {
54  print "group $group doesn't exist\n";
55  exit (1);
56}
57
58print "$lines\n";
59
60exit(0);
61
62############################################################
63
64=head1 NAME
65
66smbldap-groupshow - Display group informations
67
68=head1 SYNOPSIS
69
70smbldap-groupshow groupname
71
72=head1 DESCRIPTION
73
74The smbldap-groupshow command displays informations associated with the given group.
75
76=cut
77
78#'
79