#!/usr/bin/perl


use DBI;
use strict;
#use warnings;


my @listadb=DBI->data_sources('Pg');

my $dialog='dialog';
if (defined($ENV{'DISPLAY'} and (-x '/usr/bin/Xdialog'))){
    my $result=system("xhost");
    if (not $result){
	$dialog='Xdialog';
    }
}
#print "El dialogo es $dialog\n";
my $comando1=qq/$dialog --clear --separate-output --backtitle 'Borra DB' --title 'Borra Bases' --checklist 'Seleccione las bases a Borrar?' 20 60 8 /;

foreach my $i (@listadb){
    $i=~s/^dbi:Pg:dbname\=//;
    $comando1.="'$i' 'La base $i' off ";
}

my $comando2=qq/$dialog --backtitle 'Borra DB' --title 'Borra Bases' --yesno 'Esta seguro' 10 40 /;

#print "$comando2\n";
my $result=system("$comando1 2>/tmp/result.txt");
if (not $result){
    $result=system("$comando2");
    if (not $result){
	open(FILE,'/tmp/result.txt');
	while (my $linea=<FILE>){
	    chomp($linea);
	    $result=system("dropdb $linea 2>/dev/null");
	    if ($result){
		print "No se pudo borrar la base $linea\n";
	    }
	};
	close FILE;
    }
}

#print "La lista de bd es :\n@listadb\n";
#print "El resultado es \n $result\n";
#print "El resultado es \n $result\n";