1
1
Author: Mike Markley <mike@markley.org>
2
Author: Sergei Golovan <sgolovan@debian.org>
2
3
Description: Fixes shebangs in examples (Closes: #152367).
4
--- expect-5.44.1.15.orig/example/archie
5
+++ expect-5.44.1.15/example/archie
12
--- expect-5.44.1.15.orig/example/autoexpect
13
+++ expect-5.44.1.15/example/autoexpect
17
# Name: autoexpect - generate an Expect script from watching a session
20
--- expect-5.44.1.15.orig/example/autopasswd
21
+++ expect-5.44.1.15/example/autopasswd
25
# wrapper to make passwd(1) be non-interactive
26
# username is passed as 1st arg, passwd as 2nd
28
--- expect-5.44.1.15.orig/example/beer.exp
29
+++ expect-5.44.1.15/example/beer.exp
5
--- expect-5.45.orig/example/beer.exp
6
+++ expect-5.45/example/beer.exp
31
8
-#!/depot/path/expect -f
11
+# The next line is executed by /bin/sh, but not tcl \
12
+exec tclsh "$0" ${1+"$@"}
14
+package require Expect
34
16
# 99 bottles of beer on the wall, Expect-style
35
17
# Author: Don Libes <libes@nist.gov>
36
--- expect-5.44.1.15.orig/example/chess.exp
37
+++ expect-5.44.1.15/example/chess.exp
41
# expect script to connect two UNIX chess programs together.
42
# written by Don Libes - May 9, 1990
44
--- expect-5.44.1.15.orig/example/cryptdir
45
+++ expect-5.44.1.15/example/cryptdir
50
# Author: Don Libes, NIST
52
--- expect-5.44.1.15.orig/example/decryptdir
53
+++ expect-5.44.1.15/example/decryptdir
58
# Author: Don Libes, NIST
60
--- expect-5.44.1.15.orig/example/dislocate
61
+++ expect-5.44.1.15/example/dislocate
65
# dislocate - allow disconnection and reconnection to a background program
66
# Author: Don Libes, NIST
68
--- expect-5.44.1.15.orig/example/dvorak
69
+++ expect-5.44.1.15/example/dvorak
73
# simulate a dvorak keyboard
74
# Actually just the lowercase letters are mapped to show the basic idea.
75
# Really, uppercase and control should probably be mapped too.
76
--- expect-5.44.1.15.orig/example/expectd.proto
77
+++ expect-5.44.1.15/example/expectd.proto
18
--- expect-5.45.orig/example/expectd.proto
19
+++ expect-5.45/example/expectd.proto
79
21
-#!/depot/tcl/src/expect/e --
80
+#!/usr/bin/expectk -f
24
+# The next line is executed by /bin/sh, but not tcl \
25
+exec tclsh "$0" ${1+"$@"}
27
+package require Expect
81
29
# Description: Simple fragment to begin a telnet daemon
82
30
# For more information, see Chapter 17 of "Exploring Expect"
83
31
# Author: Don Libes, NIST
84
--- expect-5.44.1.15.orig/example/ftp-inband
85
+++ expect-5.44.1.15/example/ftp-inband
89
# ftp-inband - copy files over a telnet/rlogin/etc link
90
# Author: Don Libes, NIST
92
--- expect-5.44.1.15.orig/example/ftp-rfc
93
+++ expect-5.44.1.15/example/ftp-rfc
98
# ftp-rfc <rfc-number>
100
--- expect-5.44.1.15.orig/example/gethostbyaddr
101
+++ expect-5.44.1.15/example/gethostbyaddr
104
+#!/usr/bin/expect --
106
# gethostbyaddr a.b.c.d - translate an internet address to a FQDN,
107
# guessing (a lot) if necessary.
108
--- expect-5.44.1.15.orig/example/irsh
109
+++ expect-5.44.1.15/example/irsh
32
--- expect-5.45.orig/example/irsh
33
+++ expect-5.45/example/irsh
111
35
-#!/depot/path/expect --
112
+#!/usr/bin/expect --
38
+# The next line is executed by /bin/sh, but not tcl \
39
+exec tclsh "$0" ${1+"$@"}
41
+package require Expect
114
43
# Do rsh interactively. For example, consider the following command:
115
44
# rsh <remote> ls -l "|" more
116
--- expect-5.44.1.15.orig/example/kibitz
117
+++ expect-5.44.1.15/example/kibitz
120
+#!/usr/bin/expect --
121
# allow another user to share a shell (or other program) with you
122
# See kibitz(1) man page for complete info.
123
# Author: Don Libes, NIST
124
--- expect-5.44.1.15.orig/example/lpunlock
125
+++ expect-5.44.1.15/example/lpunlock
128
+#!/usr/bin/expect -f
130
# This script unhangs a printer which claims it is "waiting for lock".
131
# Written by Don Libes. Based on English instructions from Scott Paisley.
132
--- expect-5.44.1.15.orig/example/mkpasswd
133
+++ expect-5.44.1.15/example/mkpasswd
135
-#!/depot/path/expect --
136
+#!/usr/bin/expect --
137
# mkpasswd - make a password, if username given, set it.
138
# Author: Don Libes, NIST
140
--- expect-5.44.1.15.orig/example/multixterm
141
+++ expect-5.44.1.15/example/multixterm
143
-#!/depot/path/expectk
147
# multixterm - drive multiple xterms separately or together
148
--- expect-5.44.1.15.orig/example/passmass
149
+++ expect-5.44.1.15/example/passmass
152
+#!/usr/bin/expect --
153
# passmass: change password on many machines
154
# Synopsis: passmass host1 host2 host3 ....
155
# Don Libes - March 11, 1991
156
--- expect-5.44.1.15.orig/example/passwd.cgi
157
+++ expect-5.44.1.15/example/passwd.cgi
159
-#!/depot/path/expect --
160
+#!/usr/bin/expect --
45
--- expect-5.45.orig/example/passwd.cgi
46
+++ expect-5.45/example/passwd.cgi
48
-#!/depot/path/expect --
51
+# The next line is executed by /bin/sh, but not tcl \
52
+exec tclsh "$0" ${1+"$@"}
54
+package require Expect
162
56
# This is a CGI script to process requests created by the accompanying
163
57
# passwd.html form. This script is pretty basic, although it is
164
--- expect-5.44.1.15.orig/example/passwdprompt
165
+++ expect-5.44.1.15/example/passwdprompt
58
--- expect-5.45.orig/example/passwdprompt
59
+++ expect-5.45/example/passwdprompt
167
61
-#!/depot/path/expect
64
+# The next line is executed by /bin/sh, but not tcl \
65
+exec tclsh "$0" ${1+"$@"}
67
+package require Expect
170
69
# This script prompts for a passwd from stdin while echoing *'s
172
--- expect-5.44.1.15.orig/example/read1char
173
+++ expect-5.44.1.15/example/read1char
176
+#!/usr/bin/expect --
178
# read a single character
179
# Author: Don Libes, NIST
180
--- expect-5.44.1.15.orig/example/reprompt
181
+++ expect-5.44.1.15/example/reprompt
71
--- expect-5.45.orig/example/reprompt
72
+++ expect-5.45/example/reprompt
183
74
-#!/depot/path/expect --
184
+#!/usr/bin/expect --
77
+# The next line is executed by /bin/sh, but not tcl \
78
+exec tclsh "$0" ${1+"$@"}
80
+package require Expect
187
83
# Description: reprompt every so often until user enters something
188
--- expect-5.44.1.15.orig/example/rftp
189
+++ expect-5.44.1.15/example/rftp
192
+#!/usr/bin/expect -f
193
# rftp - ftp a directory hierarchy (i.e. recursive ftp)
196
--- expect-5.44.1.15.orig/example/rlogin-cwd
197
+++ expect-5.44.1.15/example/rlogin-cwd
200
+#!/usr/bin/expect --
201
# rlogin-cwd - rlogin but with same directory
203
# You can extend this idea to save any arbitrary information across rlogin
204
--- expect-5.44.1.15.orig/example/robohunt
205
+++ expect-5.44.1.15/example/robohunt
208
+#!/usr/bin/expect -f
210
# robohunt player-name [-nodisplay]
212
--- expect-5.44.1.15.orig/example/rogue.exp
213
+++ expect-5.44.1.15/example/rogue.exp
216
+#!/usr/bin/expect -f
217
# Look for a GREAT game of rogue.
218
# Idea is that any game with a Strength of 18 is unusually good.
219
# Written by Don Libes - March, 1990
220
--- expect-5.44.1.15.orig/example/telnet-cwd
221
+++ expect-5.44.1.15/example/telnet-cwd
224
+#!/usr/bin/expect --
225
# telnet-cwd - telnet but with same directory
227
# You can extend this idea to save any arbitrary information across telnet
228
--- expect-5.44.1.15.orig/example/term_expect
229
+++ expect-5.44.1.15/example/term_expect
231
-#!/depot/path/expectk
234
# Name: tkterm - terminal emulator using Expect and Tk text widget, v3.0
235
# Author: Don Libes, July '94
236
--- expect-5.44.1.15.orig/example/timed-read
237
+++ expect-5.44.1.15/example/timed-read
240
+#!/usr/bin/expect -f
241
# read a complete line from stdin
242
# aborting after the number of seconds (given as an argument)
244
--- expect-5.44.1.15.orig/example/timed-run
245
+++ expect-5.44.1.15/example/timed-run
248
+#!/usr/bin/expect -f
249
# run a program for a given amount of time
250
# i.e. time 20 long_running_program
252
--- expect-5.44.1.15.orig/example/tknewsbiff
253
+++ expect-5.44.1.15/example/tknewsbiff
255
-#!/depot/path/expectk
260
--- expect-5.44.1.15.orig/example/tkpasswd
261
+++ expect-5.44.1.15/example/tkpasswd
263
-#!/depot/path/expectk -f
264
+#!/usr/bin/expectk -f
265
# tkpasswd - Change passwords using Expectk
266
# Author: Don Libes, NIST, October 1, 1993
267
# Version: 1.8 - Added support for Tk 4.1
268
--- expect-5.44.1.15.orig/example/tkterm
269
+++ expect-5.44.1.15/example/tkterm
271
-#!/depot/path/expectk
274
# Name: tkterm - terminal emulator using Expect and Tk text widget, v3.0
275
# Author: Don Libes, July '94
276
--- expect-5.44.1.15.orig/example/unbuffer
277
+++ expect-5.44.1.15/example/unbuffer
280
+#!/usr/bin/expect --
281
# Description: unbuffer stdout of a program
282
# Author: Don Libes, NIST
284
--- expect-5.44.1.15.orig/example/virterm
285
+++ expect-5.44.1.15/example/virterm
288
+#!/usr/bin/expect --
290
# Name: virterm - terminal emulator using Expect, v1.0, December, 1994
291
# Author: Adrian Mariano <adrian@cam.cornell.edu>
292
--- expect-5.44.1.15.orig/example/vrfy
293
+++ expect-5.44.1.15/example/vrfy
84
--- expect-5.45.orig/example/term_expect
85
+++ expect-5.45/example/term_expect
87
-#!/depot/path/expectk
90
+# The next line is executed by /bin/sh, but not tcl \
91
+exec wish "$0" ${1+"$@"}
93
+package require Expect
95
# Name: tkterm - terminal emulator using Expect and Tk text widget, v3.0
96
# Author: Don Libes, July '94
97
--- expect-5.45.orig/example/vrfy
98
+++ expect-5.45/example/vrfy
295
100
-#!/depot/path/expect -f
296
+#!/usr/bin/expect -f
103
+# The next line is executed by /bin/sh, but not tcl \
104
+exec tclsh "$0" ${1+"$@"}
106
+package require Expect
299
109
# separate address into user and host
300
--- expect-5.44.1.15.orig/example/weather
301
+++ expect-5.44.1.15/example/weather
304
+#!/usr/bin/expect -f
306
# weather - Expect script to get the weather (courtesy University of Michigan)
308
--- expect-5.44.1.15.orig/example/xkibitz
309
+++ expect-5.44.1.15/example/xkibitz
312
+#!/usr/bin/expect --
314
# share an xterm with other users
315
# See xkibitz(1) man page for complete info.
316
--- expect-5.44.1.15.orig/example/xpstat
317
+++ expect-5.44.1.15/example/xpstat
319
-#!/depot/path/expectk
322
# This script acts as a front-end for xpilot. Run it in the background,
323
# and it will pop up a window for each server it finds running. After
324
--- expect-5.44.1.15.orig/example/xrlogin
325
+++ expect-5.44.1.15/example/xrlogin
110
--- expect-5.45.orig/example/xrlogin
111
+++ expect-5.45/example/xrlogin
327
113
-#!/depot/path/expect --
328
+#!/usr/bin/expect --
116
+# The next line is executed by /bin/sh, but not tcl \
117
+exec tclsh "$0" ${1+"$@"}
119
+package require Expect
329
121
# xrlogin - rlogin but with current DISPLAY
331
123
# You can extend this idea to save any arbitrary information across rlogin