diff --git a/bacula/scripts/bacula-du b/bacula/scripts/bacula-du
old mode 100644
new mode 100755
index e32b191..0e165ce
--- a/bacula/scripts/bacula-du
+++ b/bacula/scripts/bacula-du
@@ -34,13 +34,9 @@ use Data::Dumper;
 
 my $dbhost = "localhost";
 my $db = "bacula";
-my $dsn = "DBI:Pg:dbname=$db;host=$dbhost";
-my $dbuser = "postgres";
-my $dbpass = "";
-# Suggestion for MySQL:
-# my $dsn = "DBI:mysql:database=mysql;mysql_read_default_group=clientp";
-# my $dbuser = "mysql";
-# my $dbpass = undef;
+my $dsn = "DBI:mysql:database=$db;mysql_read_default_group=clientp";
+my $dbuser = $db;
+my $dbpass = undef;
 
 #######################
 
@@ -126,6 +122,7 @@ unless ($dbh = DBI->connect($dsn, $dbuser, $dbpass, {AutoCommit => 0})) {
     exit 2;
 }
 
+    print STDERR "DB connect \n";
 my $sth = $dbh->prepare("
    SELECT p.Path, fn.Name, LStat
    FROM Path p
@@ -134,11 +131,12 @@ my $sth = $dbh->prepare("
    WHERE f.JobId = $jobid");
 $sth->execute();
 
+    print STDERR "DB prepare \n";
 my %du;
 my $rowcount = 0;
 while (my ($path, $fname, $lstat) = $sth->fetchrow_array) {
     my $size = $extract_size->($lstat);
-    # print STDERR "Got '$path' size $size\n";
+    print STDERR "Got '$path' size $size\n";
     $du{"$path$fname"} += $size if $all;
     $du{$path} += $size;
     next if $separate_dirs;