ebl Try to fix Expect on ubuntu and suppress echo mode

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

diff --git a/gui/bweb/lib/Bconsole.pm b/gui/bweb/lib/Bconsole.pm
index 808b5518f30ea8f6d5a3c8b0b2619c22d74ce9d8..9344e547e59871aab794b4bf214fc3d3fdded3af 100644 (file)
--- a/gui/bweb/lib/Bconsole.pm
+++ b/gui/bweb/lib/Bconsole.pm
@@ -171,6 +171,8 @@ sub connect
            $SIG{__DIE__} = $sav;
        }
 
+        $self->{bconsole}->slave->stty(qw(-echo));
+
        unless ($ret) {
            return $self->error($self->{bconsole}->error());
        }
@@ -202,9 +204,9 @@ sub send_cmd
     unless ($self->connect()) {
        return '';
     }
-    $self->send("$cmd\n");
-    $self->expect_it($cmd);
     $self->{bconsole}->clear_accum();
+    $self->send("$cmd\n");
+#    $self->expect_it($cmd);
     $self->expect_it('-re',qr/^[*]/);
     return $self->before();
 }
@@ -218,9 +220,9 @@ sub send_cmd_yes
     $self->send("$cmd\n");
     $self->expect_it('-re', '[?].+:');
 
-    $self->send("yes\n");
-    $self->expect_it("yes");
     $self->{bconsole}->clear_accum();
+    $self->send("yes\n");
+#    $self->expect_it("yes");
     $self->expect_it('-re',qr/^[*]/);
     return $self->before();
 }
@@ -250,8 +252,8 @@ sub label_barcodes
     $self->expect_it('-re', '[?].+\).*:');
     my $res = $self->before();
     $self->send("yes\n");
-    $self->expect_it("yes");
-    $res .= $self->before();
+#    $self->expect_it("yes");
+#    $res .= $self->before();
     $self->expect_it('-re',qr/^[*]/);
     $res .= $self->before();
     return $res;
@@ -450,6 +452,7 @@ my $c = new Bconsole(pref => {
 print "fileset : ", join(',', $c->list_fileset()), "\n";
 print "job : ",     join(',', $c->list_job()), "\n";
 print "storage : ", join(',', $c->list_storage()), "\n";
+print $c->label_barcodes(pool => 'Scratch', drive => 0, storage => 'LTO3', slots => '45');
 #print "prune : " . $c->prune_volume('000001'), "\n";
 #print "update : " . $c->send_cmd('update slots storage=SDLT-1-2, drive=0'), "\n";
 #print "label : ", join(',', $c->label_barcodes(storage => 'SDLT-1-2',