My home page is http://laurent.gateau.free.fr/0.html

I've started a web server on a home computer; which leads to suggest a small modification of wikit.kit : [Wikit web change + div tag css style] and also a small modification of [TclHttpd] [TclHttpd change + div tag css style]

Here is a small script to filter netstat output so that it only displays ip addresses.

 proc isIPAddress { ip } {
        set pattern {\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3}}
        return [regexp $pattern $ip match];
 }
 set whoisconnected [exec netstat -n | cut -d " " -f2 | cut -d "." -f 1-4 | sort | uniq ]
 foreach host $whoisconnected {
        if [isIPAddress $host] {
                puts $host
        }
 }

Another small script, using info command, which displays the tcl global variables : 

 foreach name [info globals] {
        if {[array exists $name]} {
               puts -nonewline "a "
        } else {
               puts -nonewline ". "
        }
        puts $name
 }

The same script with proc : 

 proc display { varname } {
        set result 0
        if [array exists "::$varname"] {
                puts -nonewline "a "
                puts $varname
                set result 1
        } else {
                puts -nonewline ". "
                puts $varname        
        }        
        return $result
 }

 proc run {} {
        foreach name [info globals] {
                if {[display $name]} {
                        foreach subname [array name "::$name"] {
                                   puts "   ($subname)"
                       }              
                }                 
        }
 }

 run


My contribution : 

   * [Vigenere]
   * [The list of Tk widgets]
   * [ttk::style short simple example]
----
[[
[Category Home Page] |
[Category Person]
]]