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

use DBI;
use IO::Socket;
use IO::Select;
require "SOCK_DBI.pl";
#require "getDate.func";

# Create a socket to listen on.
#
my $listener = 
IO::Socket::INET->new( LocalPort => 8888, Listen => 5, Reuse => 1 );
    
die "Can't create socket for listening: $!" unless $listener;
print "Listening for connections on port 8888\n";
    
my $readable = IO::Select->new;     # Create a new IO::Select object
$readable->add($listener);          # Add the listener to it
    
while(1){
    
        # Get a list of sockets that are ready to talk to us.
        #
        my ($ready) = IO::Select->select($readable, undef, undef, undef);
        foreach my $s (@$ready) {
            # Is it a new connection?
            #
            if($s == $listener) {
            
                # Accept the connection and add it to our readable list.
                #
                my $new_sock = $listener->accept;
                $readable->add($new_sock) if $new_sock;
                print $new_sock "HELO\r\n";
                
            } else {  # It's an established connection
            
                	my $buf = <$s>;   # Try to read a line
                	# Was there anyone on the other end?
                	#
                	if( defined $buf ){
                    
                    	# If they said goodbye, close the socket. If not,
                    	# echo what they said to us.
                    	#
                    	if ($buf =~ /goodbye/i) {
                        	print $s "TelAlert Query Exit\n";
                        	$readable->remove($s);
                        	$s->close;
                    	} else {
	                    	chomp($buf);
	                    	&declareGlobalVariables;
	                    	# DBI->trace(1,'/tmp/dbi.log');
						    $dbh = &getOracleLogin("$ORACLE_SID", "$ORACLE_USERID", "$ORACLE_PASSWORD");
				            $dbh->{LongReadLen} = 64000;
			    			push(@groups, $buf); # Place received GroupName ($buf) into groups array to use for recursive database query
						    $scale = scalar(@groups); # Scalarize groups array for while statement below
						
			    			while( $scale > 0 ){
        		    			$grp = shift(@groups); # Extract GroupName and Remove from groups array
        		    			# BREAKDOWN IS HERE the $grp variable is WEIRD when printed and will not feed correctly into next function...
        		    			@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);
							}
	                    
                       		print $s "@dest\n";
                       		&logoffOracle($dbh);
                 		}
                    
                	} else { # The client disconnected.
                    		$readable->remove($s);
                    		$s->close;
                    		print STDERR "Client Connection closed\n";
		            }
            }
        }
}