#!/usr/bin/perl

open(SQLPLUS_SELECT, "sqlplus -S \"/ as sysdba\" @/usr/local/bin/dba_2pc_pending_select.sql |") or die "No puedo ejecutar: $!";
while (<SQLPLUS_SELECT>) {
    chomp($_);
    if(length($_)>1) {
        $select = $_;
    }
}
close SQLPLUS_SELECT;

if($select == "no rows selected") {
    print "OK - Resultado : ".$select." | pending=0;\n";
    exit 0;
} else {
open(SQLPLUS_DELETE, "echo \"execute sys.dbms_transaction.purge_lost_db_entry('".$select."');\"|sqlplus -S \"/ as sysdba\" |") or die "No puedo ejecutar: $!";
    while (<SQLPLUS_DELETE>) {
	chomp($_);
	if(length($_)>1) {
    	    $delete = $_;
	}
    }
    close SQLPLUS_DELETE;
    print "WARNING - Resultado : ".$select." : ".$delete." | pending=1;\n";
    exit 1;
}