From f37b2351e253f84d3da5d94acb6f6c5b7c8d9b99 Mon Sep 17 00:00:00 2001
From: Vsevolod <mstu@sevik.ru>
Date: Sun, 25 Sep 2011 22:17:14 +0400
Subject: [PATCH] Ktabstart is a tool to run netkit session within konsole
 tabs. It was tested in KDE 4.4 and 4.6. Sometimes it uses the wrong konsole
 instance but it is quite still useful.

---
 bin/ktabstart | 81 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 81 insertions(+)
 create mode 100755 bin/ktabstart

diff --git a/bin/ktabstart b/bin/ktabstart
new file mode 100755
index 0000000..0437c80
--- /dev/null
+++ b/bin/ktabstart
@@ -0,0 +1,81 @@
+#!/bin/bash
+
+DELAY=1
+
+case $1 in
+    -d)
+        shift;;
+    --help)
+        echo "usage: $0 [<lab-directory>]"
+        exit;;
+    *)
+esac
+
+
+DIR=$1
+
+if [ -z "$DIR" ]
+then
+    DIR=`pwd`
+fi
+
+cd $DIR
+
+if ! [ -e "lab.conf" ]
+then
+  echo "$DIR is not a netkit lab directory!"
+  exit
+fi
+
+CUR=`pwd`
+
+# FIXME: we should import computer names from lab.conf instead of using 'find' tool.
+# See http://dev.iu7.bmstu.ru/trac/netp_09_labs/ticket/65
+COMPS=$(find * -prune -type d )
+SESSIONS=()
+PID=`pidof -s konsole`
+
+declare -A NAMES
+for C in $COMPS
+do
+    CMD="cd $CUR && lstart -d . $C"
+    echo "starting $C ..."
+    SESSION=$(qdbus org.kde.konsole /Konsole newSession 2>/dev/null)
+    if test -z "$SESSION"
+    then
+        SPACE="org.kde.konsole-$PID"
+        SESSION=$(qdbus $SPACE /Konsole newSession 2>/dev/null)
+        if test -z "$SESSION"
+        then
+            echo "Konsole is not installed or D-bus is not working properly."
+            echo "Please run this script within a Konsole tab."
+            exit 1
+        fi
+    else
+        SPACE="org.kde.konsole"
+    fi
+    SESSIONS+=($SESSION)
+    NAMES[$SESSION]=$C
+    r=$(qdbus $SPACE /Sessions/$SESSION sendText "$CMD")
+    r=$(qdbus $SPACE /Sessions/$SESSION sendText $'\n')
+done
+
+# It is impossible to call setUserTitle method via qdbus in KDE 4.4 and
+# setTabTitleFormat is not available in KDE before 4.6.
+# Workaround is to use an infinite loop.
+# See https://bugs.kde.org/show_bug.cgi?id=262089 for details.
+
+echo 'setting tabs names (infinite loop)...'
+
+for (( ; ; ))
+do
+    for SESSION in "${SESSIONS[@]}"
+    do
+        NAME=${NAMES[$SESSION]}
+#         echo session: $SESSION, tab name: $NAME
+        # 0: local, 1: remote
+        r=$(qdbus $SPACE /Sessions/$SESSION setTitle 1 "$NAME")
+        r=$(qdbus $SPACE /Sessions/$SESSION setTitle 0 "$NAME")
+    done
+    sleep $DELAY
+done