r23800: LGPL is now called GNU Lesser General Public License
[ira/wip.git] / testsuite / lib / smbclient.exp
index e137ebd6c850e6d56069ec78975fa3e07afe9af2..dc55d72139cbfdd7bc24077a446577a602458de0 100644 (file)
@@ -15,7 +15,9 @@ proc spawn_smbclient { args } {
 
     # Spawn smbclient
 
-    spawn smbclient [lindex $args 0] [lindex $args 1] [lindex $args 2]
+    spawn smbclient [lindex $args 0] [lindex $args 1] [lindex $args 2] \
+           [lindex $args 3] [lindex $args 4] [lindex $args 5] \
+           [lindex $args 6]
 
     # Wait for prompt
 
@@ -42,11 +44,11 @@ proc do_smbclient { args } {
     send $action
 
     expect {
-       $smb_prompt     { set output $expect_out(0,string) }
+       $smb_prompt     {}
        timeout         { perror "timed out $description"; return -1}
-       eof             { perror "end of file description"; return -1 }
+       eof             { perror "end of file $description"; return -1 }
     }
 
-    verbose $output
-    return $output
+    verbose $expect_out(buffer)
+    return $expect_out(buffer)
 }