ebl Doesn't display running job more in job hist

[bacula/bacula] / gui / bweb / lib / Bconsole.pm

diff --git a/gui/bweb/lib/Bconsole.pm b/gui/bweb/lib/Bconsole.pm
index 8fbe1de763948140f33fb7abc89041abe19d594e..a264ada3fd29232b8be25de8a1373f9a4e266ec8 100644 (file)
--- a/gui/bweb/lib/Bconsole.pm
+++ b/gui/bweb/lib/Bconsole.pm
@@ -105,8 +105,7 @@ sub expect_it
 {
     my ($self, @what) = @_;
     unless ($self->{bconsole}->expect($self->{timeout}, @what)) {
-       $self->{error} = $!;
-       return 0;
+       return $self->error($self->{bconsole}->error());
     }
     return 1;
 }
@@ -125,9 +124,9 @@ sub log_stdout
 sub error
 {
     my ($self, $error) = @_;
-    $self->{error} = $!;
-    if ($self->{debug}) {
-       print "E: bconsole (", $self->{pref}->{bconsole}, ") $!\n";
+    $self->{error} = $error;
+    if ($error) {
+       print STDERR "E: bconsole (", $self->{pref}->{bconsole}, ") $! $error\n";
     }
     return 0;
 }
@@ -165,7 +164,7 @@ sub connect
        }
 
        unless ($ret) {
-           return $self->error($ret);
+           return $self->error($self->{bconsole}->error());
        }
        
        # TODO : we must verify that expect return the good value