ebl fix bug when bconsole command is > $COLUMNS

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@4000 91ce42f0-d328-0410-95d8-f526ca767f89

diff --git a/gui/bweb/lib/Bconsole.pm b/gui/bweb/lib/Bconsole.pm
index 9379657ce9969feced4f940eb6cae6641fe13c39..739f6cdb7f24ec570e5d01a75d4ad73f6d4b9403 100644 (file)
--- a/gui/bweb/lib/Bconsole.pm
+++ b/gui/bweb/lib/Bconsole.pm
@@ -147,7 +147,10 @@ sub connect
        { 
            my $sav = $SIG{__DIE__};
            $SIG{__DIE__} = sub {  _exit 1 ;};
+            my $old = $ENV{COLUMNS};
+            $ENV{COLUMNS} = 300;
            $ret = $self->{bconsole}->spawn(@cmd) ;
+            $ENV{COLUMNS} = $old;
            $SIG{__DIE__} = $sav;
        }