--------------------------------Linux Guide----------------------------------
                       by Ingo Blechschmidt (c) 2002
 -----------------------------------------------------------------------------

 
 ------------------------- Ins Internet komfortabel einwählen
 ------------------------- Son Sep 23 13:06:51 MEST 2001
 ------------------------- Internet internet inet isdnctrl ISDN isdn dial hangup modem Modem
einwählen verbinden wählen


 -----------------------------------------------------------------------------
 Mit tkinetctrl können Sie sich komfortabel mit dem Internet
verbinden und trennen.

 -----------------------------------------------------------------------------
 
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.
--------CODE--------: tkinetctrl in Aktion
---------------- Bild --------------
--------/CODE--------
Das Skript, siehe <"down/tkinetctrl">Download:
--------CODE--------: tkisdnctrl
#!/bin/sh
#exec wish "$0"

# 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 "Nicht verbunden" -relief sunken -bd 4 \
                  -background firebrick1 \
  		-font -adobe-helvetica-medium-r-normal-*-17-*-*-*-p-*-iso8859-1
  } else {
    label .status -text "Verbunden" -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 "Verbinden"\
               -relief raised\
               -bd 4\
               -foreground black\
               -activebackground darkorange\
               -activeforeground white\
               -font
	       -adobe-helvetica-medium-r-normal-*-17-*-*-*-p-*-iso8859-1\
               -cursor "pirate"\
               -command { exec /sbin/isdnctrl dial ippp0 &
	                  status }

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

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

pack .dial .hangup .status -side left
--------/CODE--------

Wen es interessiert: Dies ist mein erstes Tcl/TK-Skript... ;-)
 -----------------------------------------------------------------------------



 -----------------------------------------------------------------------------
 This document is distributed under the terms of the GNU Free Documentation
 License.