Imported Upstream version 5.45upstream/5.45

1 files changed, 17 insertions, 0 deletions

diff --git a/example/autopasswd b/example/autopasswd
new file mode 100755
index 0000000..1d095e2
--- /dev/null
+++ b/example/autopasswd
@@ -0,0 +1,17 @@
+#!/bin/sh
+# -*- tcl -*-
+# The next line is executed by /bin/sh, but not tcl \
+exec tclsh "$0" ${1+"$@"}
+
+package require Expect
+
+# wrapper to make passwd(1) be non-interactive
+# username is passed as 1st arg, passwd as 2nd
+
+set password [lindex $argv 1]
+spawn passwd [lindex $argv 0]
+expect "assword:"
+send -- "$password\r"
+expect "assword:"
+send -- "$password\r"
+expect eof