From: Eric Bollengier <eric@eb.homelinux.org>
Date: Mon, 15 Jan 2007 17:22:52 +0000 (+0000)
Subject: ebl  fix bug when bconsole command is > $COLUMNS
X-Git-Tag: Release-2.0.2~82
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=810f8dc9d31e9377231b6cf174fd0415121b1a8e;p=bacula%2Fbacula

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 9379657ce9..739f6cdb7f 100644
--- 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;
 	}