#!/usr/bin/perl -w
# --
# otrs.getGroupID - return numeric group id
# Copyright (C) 2002 Atif Ghaffar <aghaffar@developer.ch>
# $Id: otrs.getGroupID,v 1.11 2008/05/08 09:36:57 mh Exp $
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (GPL). If you
# did not receive this file, see http://www.gnu.org/licenses/gpl-2.0.txt.
# --

use strict;
use warnings;

use File::Basename;
use FindBin qw($RealBin);
use lib dirname($RealBin);
use lib dirname($RealBin) . "/Kernel/cpan-lib";

unless ( $ARGV[0] ) {
    print "Usage: $FindBin::Script groupname";
    print "\n";
    exit;
}

use Kernel::Config;
use Kernel::System::DB;
use Kernel::System::Group;
use Kernel::System::Log;
use Kernel::System::Main;

# create common objects
my %CommonObject = ();
$CommonObject{ConfigObject} = Kernel::Config->new(%CommonObject);
$CommonObject{LogObject}
    = Kernel::System::Log->new( %CommonObject, LogPrefix => 'otrs.getGroupID' );
$CommonObject{MainObject}  = Kernel::System::Main->new(%CommonObject);
$CommonObject{DBObject}    = Kernel::System::DB->new(%CommonObject);
$CommonObject{GroupObject} = Kernel::System::Group->new(%CommonObject);

my %Param;
undef %Param;

#user id of the person making the query
$Param{UserID} = '1';
$Param{Group}  = $ARGV[0];

if ( my $gid = $CommonObject{GroupObject}->GroupLookup(%Param) ) {
    print $gid , "\n";
}
else {
    print "Failed to get Group ID. Perhaps non-existent group..\n";
}

exit(0);
