Here is the rest of the code from the SOCK_DBI.pl<br/><br/>
# +--------------+
# | SUB ROUTINES |
# +--------------+
# SOCK_DBI.p
#
sub declareGlobalVariables {

  $ORACLE_SID              = "D0TALRT1";
  $ORACLE_USERID           = "dunnyuser";
  $ORACLE_PASSWORD         = "applesauce";


  $ENV{'ORACLE_SID'}       = "$ORACLE_SID";
  $ENV{'ORACLE_HOME'}      = "/opt/app/talertdb/oracle/9.2.0";

}


sub getOracleLogin {
  local ($oracle_sid, $username, $password) = @_;
  local ($temp_dbh);
  local($tempID, $tempPassword, $tempKey);
  local $conn = "dbi:Oracle:HOST=windsordb.wdc.gdc.net;SID=D0TALRT1;port=1521";
#  unless ( $temp_dbh = DBI->connect(  "DBI:Oracle:$oracle_sid"
  unless ( $temp_dbh = DBI->connect(  $conn
                                    , "$username"
                                    , $password
                                    , {AutoCommit => 0}) ) {
    &programError(   "Oracle Login Failed as $username"
                   , ""
                   , "$DBI::errstr"
                   , "dba-mail"
                   , "dba-pager");
    exit;
  }
}


sub programError {
  $logfile = "/opt/app/telalert/tmp/dbi_error";
  open(ELOG, ">>$logfile") || die "Can't open filename: $logfile - $!\n";
  local($message, $sql_statement, $ora_errstr) = @_;
  print ELOG "+--------------------------+\n";
  print ELOG "| SUB: programError        |\n";
  print ELOG "+--------------------------+\n";
  print ELOG "\n";
  unless($message) {$message = "No message provided from calling module.";}
  print ELOG "+-------------------------------------------------------+\n";
  print ELOG "| ******************* PROGRAM ERROR ******************* |\n";
  print ELOG "+-------------------------------------------------------+\n";
  print ELOG "\n";
  print ELOG "\n";
  print ELOG "Message:\n";
  print ELOG "--------------------------------------------------------\n";
  print ELOG "$message\n";
  print ELOG "\n";
  if ($sql_statement) {
    print ELOG "SQL:\n";
    print ELOG "--------------------------------------------------------\n";
    print ELOG "$sql_statement\n";
    print ELOG "\n";
  }
  if ($ora_errstr) {
    print ELOG "Oracle Error:\n";
    print ELOG "--------------------------------------------------------\n";
    print ELOG "$ora_errstr\n";
  }
  close(ELOG);
}

sub logoffOracle {
  ($dbh) = @_;
  unless ($dbh->disconnect) {
    1;
  }
}

sub getGrpMembers {

        my ($groupName) = @_;
        my @members = ();
		$sql_statement = "SELECT b.DISPLAY_NAME, b.MEMBER_TYPE FROM GROUPS a, MEMBERS b WHERE a.NAME=\'$groupName\' AND a.ID=b.GROUP_ID";
        unless ($cursor = $dbh->prepare("$sql_statement")) {
        &programError(   "Could not prepare SELECT_getGrpMembers_DBI cursor"
                   , "$sql_statement"
                   , "$DBI::errstr");
        $dbh->rollback;
        &logoffOracle($dbh);
        exit;
        }

        unless ($cursor->execute) {
                &programError(   "Could not execute SELECT_getGrpMembers_DBI cursor"
                  , "$sql_statement"
                  , "$DBI::errstr");
                $dbh->rollback;
                &logoffOracle($dbh);
                exit;
        }

        while (($display_name, $member_type) = $cursor->fetchrow_array) {
		        		push(@members, "$display_name~$member_type");
        }

        unless ($cursor->finish) {
                &programError(   "Could not finish SELECT_getGrpMembers_DBI cursor"
                  , "$sql_statement"
                  , "$DBI::errstr");
                $dbh->rollback;
                &logoffOracle($dbh);
                exit;
        }

       return (@members);
}

1;