Name="Ins Internet komfortabel einwählen"
Stich="Internet internet inet isdnctrl ISDN isdn dial hangup modem Modem
einwählen verbinden wählen"
Zeit="Son Sep 23 13:06:51 MEST 2001"
Kurz="Mit tkinetctrl können Sie sich komfortabel mit dem Internet
verbinden und trennen."
Lang="
tkinetctrl ist, wie der Name schon vermuten lässt, in Tcl/TK programmiert.
Mit diesem Tool können Sie sich , mit viel Klickibunti, ins Internet
einwählen.
`exCodes tkinetctrl in Aktion`
<img src=\"0057.1.png\" width=\"304\" height=\"70\" alt=\"|Verbinden|Trennen|Verbunden|\" />
`exCodee`
Das Skript, <a href=\"down/tkinetctrl\">Download</a>:
`exCodes tkisdnctrl`
#!/bin/sh
#\
exec wish &quot;\$0&quot;

# tkinetctrl - Script to control the dial-in and hangup of the ISDN card or
#            - modem
# Copyright (C) Son Sep 23 13:22:26 MEST 2001 by Ingo Blechschmidt
#
#  This program 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 2 of the License, or
#  (at your option) any later version.
#
#  This program 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 program; if not, write to the Free Software
#  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
# Ingo Blechschmidt
# Arberstraße 5
# 86179 Augsburg
# E-Mail: iblech@web.de, http://www.way.to/uselinux/
# Tel.: +49 / 821 882955
#
# 

wm title            . AugustaKom  # Intenet-Provider hier eintragen
wm deiconify        .
wm overrideredirect . false
wm resizable        . true true
wm geometry         . -15+33

proc status { } {
  global .status
  pack forget .status
  destroy .status 

  set s [ catch { exec /sbin/isdnctrl status ippp0 } ] # Befehl zum Abfragen
                                                       # des Status der Inter-
                                                       # net-Verbindung

  if { \$s == 1 } {
    label .status -text &quot;Nicht verbunden&quot; -relief sunken -bd 4 \\
                  -background firebrick1 \\
  		-font -adobe-helvetica-medium-r-normal-*-17-*-*-*-p-*-iso8859-1
  } else {
    label .status -text &quot;Verbunden&quot; -relief sunken -bd 4 \\
                  -background darkorange \\
                  -font -adobe-helvetica-medium-r-normal-*-17-*-*-*-p-*-iso8859-1
  }

  pack .dial .hangup .status -side left

}
 
# Hinter exec Befehl zum Verbinden eintragen
button .dial -text &quot;Verbinden&quot;\\
               -relief raised\\
               -bd 4\\
               -foreground black\\
               -activebackground darkorange\\
               -activeforeground white\\
               -font
	       -adobe-helvetica-medium-r-normal-*-17-*-*-*-p-*-iso8859-1\\
               -cursor &quot;pirate&quot;\\
               -command { exec /sbin/isdnctrl dial ippp0 &
	                  status }

# Hinter exec Befehl zum Trennen eintragen
button .hangup -text &quot;Trennen&quot;\\
               -relief raised\\
               -bd 4\\
               -foreground black\\
               -activebackground firebrick1\\
               -activeforeground white\\
               -font
	       -adobe-helvetica-medium-r-normal-*-17-*-*-*-p-*-iso8859-1\\
               -cursor &quot;pirate&quot;\\
               -command { exec /sbin/isdnctrl hangup ippp0 &
                          status }

label .status -text &quot;Nicht verbunden&quot; -relief sunken -bd 4 \\
              -background  firebrick1 \\
              -font -adobe-helvetica-medium-r-normal-*-17-*-*-*-p-*-iso8859-1

pack .dial .hangup .status -side left
`exCodee`

Wen es interessiert: Dies ist mein erstes Tcl/TK-Skript... ;-)
"
case $1 in
  Name) echo $Name; exit;;
  Stich) echo $Stich; exit;;
  Zeit) echo $Zeit; exit;;
  Kurz) echo $Kurz; exit;;
  Lang) echo $Lang; exit;;
esac
# if [ "$1" = "Name" ]; then echo $Name; fi
mself_vA="txt/0002.txt txt/0041.txt txt/0046.txt txt/0059.txt txt/0078.txt
txt/0085.txt txt/0097.txt"