tstub for expectlib - libdevuansdk - common library for devuan's simple distro kits
HTML git clone https://git.parazyd.org/libdevuansdk
DIR Log
DIR Files
DIR Refs
DIR Submodules
DIR README
DIR LICENSE
---
DIR commit 65b908fada6237c8b917fd5a22f3464637ae34cb
DIR parent b79cd589ba01aa570ff4ff8dd8268f0d95c7f89f
HTML Author: KatolaZ <katolaz@freaknet.org>
Date: Wed, 15 Jun 2016 07:12:02 +0100
stub for expectlib
Diffstat:
A zlibs/expectlib | 100 +++++++++++++++++++++++++++++++
1 file changed, 100 insertions(+), 0 deletions(-)
---
DIR diff --git a/zlibs/expectlib b/zlibs/expectlib
t@@ -0,0 +1,100 @@
+#!/usr/bin/env tclsh
+#
+# Copyright (c) 2016 Dyne.org Foundation
+# libdevuansdk is written and maintained by
+# Jaromil <jaromil@dyne.org>
+# KatolaZ <katolaz@freaknet.org>
+# parazyd <parazyd@dyne.org>
+#
+# This file is part of libdevuansdk
+#
+# This source code is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This software is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this source code. If not, see <http://www.gnu.org/licenses/>.
+#
+
+package require Expect
+
+
+proc ssh_run_cmd_ssh {sshuser sshpass sshhost sshport cmdname args} {
+
+ set timeout 30
+
+ spawn ssh -p $sshport $sshuser@$sshhost
+
+ expect "yes/no" {
+ send "yes\r"
+ expect "*?assword" { send "$sshpass\r" }
+ } "*?assword" { send "$sshpass\r" }
+
+ expect "$ " { send "${cmdname} ${args}\r" }
+ expect "$ " { send "exit \r"}
+ interact
+}
+
+
+proc ssh_scpget {sshuser sshpass sshhost sshport srcfile dstfile} {
+
+ set timeout 120
+
+ spawn scp -P $sshport $sshuser@$sshhost:${scporig} $scpdest
+
+ expect "yes/no" {
+ send "yes\r"
+ expect "*?assword" { send "$sshpass\r" }
+ } "*?assword" { send "$sshpass\r" }
+
+ expect "100%"
+ sleep 1
+}
+
+proc ssh_scpput {sshuser sshpass sshhost sshport srcfile dstfile} {
+
+ set timeout 120
+
+ spawn scp -P $sshport $scporig $sshuser@$sshhost:$scpdest
+
+
+ expect "yes/no" {
+ send "yes\r"
+ expect "*?assword" { send "$sshpass\r" }
+ } "*?assword" { send "$sshpass\r" }
+
+ expect "100%"
+ sleep 1
+}
+
+
+proc expectlib_call { name args } {
+
+ puts "name: $name"
+ puts "args: $args"
+
+ switch -- $name {
+ scpput {
+ ssh_scpput {*}$args
+ }
+ scpget {
+ ssh_scpget {*}$args
+ }
+ sshrun {
+ ssh_run_cmd_ssh {*}$args
+ }
+ }
+}
+
+
+set params [split $argv " "]
+
+expectlib_call {*}$params
+
+