Using DBI to bounce the database

[joe bayer]

Hi, group, I would like to bouce the database using DBI.

#!/usr/bin/perl -w
#################################################################################
# Purpose : Refresh user xxx from production
# Created : 20050907
# Author  : 
#################################################################################

use DBI;
use DBD::Oracle qw(:ora_session_modes);
$ENV{ORACLE_SID}=$target_sid[$i];
        my $record_counter = 0;
        my $imp_log = $ORACLE_HOME."dba/refresh/prod_$target_sid[$i].log";
        $dbh = DBI->connect ( "dbi:Oracle:",
                        "$username[$i]",
                        "$passwd[$i]",{ora_session_mode => ORA_SYSDBA,
                        PrintError => 0,
                        RaiseError => 0,
                        AutoCommit => 1 }
                        ) ||  print "$target_sid[$i] connection error\n"; 
        my $sql = "shutdown abort";
        $dbh -> do($sql);
-----------------------------------------------------------------------------------------------------------

I can connect as sysdba, but when I do "shutdown abort", DBI just ignore my 
command.  What I did was wrong?

 

Thanks for your help.

Joe


                
---------------------------------
 Click here to donate to the Hurricane Katrina relief effort.