#!/opt/app/telalert/perl5.8.8/bin/perl

use DBI;
require "SOCK_DBI.pl";

&declareGlobalVariables;

# DBI->trace(1,'/tmp/dbi.log');

$dbh = &getOracleLogin("$ORACLE_SID", "$ORACLE_USERID", "$ORACLE_PASSWORD");

$dbh->{LongReadLen} = 64000;

@groups = $ARGV[0];

$scale = scalar(@groups);

while( $scale > 0 ){
	$grp = shift(@groups);
	@members = &getGrpMembers($grp);
	foreach $member (@members){
		if( $member =~ /Destination/ ){($device, $trash) = split(/~/, $member); push(@dest, $device);}
		if( $member =~ /User/ ){ ($user, $trash) = split(/~/, $member); push(@dest, $user);}
		if( $member =~ /Group/ ){($mem, $trash) = split(/~/, $member); push(@groups, $mem);}
	}
	$scale = scalar(@groups);
}

$out = join("\n", @dest);
print $out;
		
&logoffOracle($dbh);