Quelltext der Seite Diskussion:KNotify

Wer auf (k)notify verzichten möchte, dem könnte als Ausgangspunkt folgendes kleine tcl-Script dienen, das ich benutze mich beim Eintreffen neuer Emails benachrichtigen zu lassen:

 #!/bin/sh
 #\
 exec wish "$0"
 
 set FLAGFILE {/tmp/new_mail.flag~}
 
 if [file exists $FLAGFILE] {
     exit 1
 }
 
 set fh [open $FLAGFILE {CREAT WRONLY}]
 close $fh
 
 button .new_mail\
     -fg white \
     -bg green \
     -width 12 \
     -height 3 \
     -font "Helvetica 16 " \
     -text "There's new mail!" \
     -command {file delete -force -- $FLAGFILE; exit} 
 pack .new_mail

Da mir der schlichte Hinweis "Irgendetwas ist passiert..." reicht, habe ich mich um eine Parameter-Übergabe wie bei der notify-Lösung nicht weiter gekümmert.
Das Anlegen der temporären Datei dient nur dazu, nicht mehr als ein Benachrichtigungsfenster zuzulassen.

::Mach doch eine "richtige" Parameterübergabe und einen eigenen Artikel raus, find das gut :) - [[Benutzer:Bodo|Bodo]] 07:10, 8. Feb 2006 (CET)

nagut, mach ich - ich brauchte lediglich noch die vom browser ausgegebenen infos ausser {title} - zumindest startzeit & sender wären sinnig. und da ich naturfaul bin: hinweise am besten an rff@gegendrucker.de  (rené, 16/02/06)

hier wäre denn die version, die aktuell bei mir läuft:

 #!/bin/sh
 #\
 exec wish "$0" "$@"

 #this is just a little frontend to tv-browser-reminder plugin
 #using tcl/tk 8.4.7-3
 #it displays some information top-level on the active virtual screen
 #it is called with parameters
 #{leadingZero(start_hour, "2")} {leadingZero(start_minute, "2")} {clean(channel_name)} {title}
 #from the plugin|reminder|configuration-section
 #there may be problems with special charcters within the {titel}-parameter
 #i didn't find out yet
 #
 #rené.f.franke - 02/2006 - rff@gegendrucker.de

 set progStartHour [lindex $argv 0]
 set progStartMinute [lindex $argv 1]
 #the next lines assume the channel-parameter to be given WITHOUT whitespaces
 set progChannel [lindex $argv 2]
 set progTitle [lrange $argv 3 end]

 wm title . "TV Browser Reminder"

 button .closeWindow\
    -fg black \
    -bg red \
    -width 22\
    -height 1\
    -font "Helvetica 13"\
    -text "Coming up next:"\
    -command {exit}
 pack .closeWindow -fill x -expand yes

 label .progTime\
     -font "Helvetica 13"\
     -text "$progStartHour : $progStartMinute"     
 pack .progTime

 label .progTitle\
      -font "Helvetica 15"\
      -text "$progTitle"
 pack .progTitle

 label .progChannel\
    -font "Helvetica 13"\
    -text "$progChannel"
 pack .progChannel


in der hoffnung, dass es irgend jemandem hilft,

rené