1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!/usr/bin/expect -f
#set lst [lindex $argv 0]
#send_user "the list is: "
#send_user $lst\n
#send_user "1st item in the list is: "
#send_user [lindex $lst 0]\n
#catch {open "shareware.harness" r} f
#foreach part [split [read $f] "\n"] {
#foreach part [lrange [split [read $f] "\n"] 0 end-1] {
# set qn [lindex $part 0]
# set ans [lindex $part 1]
#
# send_user "When I get the question \"$qn\" I will respond with \"$ans\"\n"
#}
#close $f
set pants [exec /bin/sh -c "dpkg-deb -f ../../quake2-data_8_all.deb depends | tr -d ','"]
send_user "depends = $pants\n"
set pants [exec /bin/sh -c "/usr/bin/dirname ../../quake2-data_8_all.deb"]
send_user "pants = $pants\n"
send_user "pwd; cd $pants; pwd\n"
set bar [exec /bin/sh -c "cd $pants; pwd"]
send_user "bar = $bar\n"
|
