Subversion Repositories or1k

# Script to enforce a 10 minute break every half hour from typing -

# Written for someone (Uwe Hollerbach) with Carpal Tunnel Syndrome.

# If you type for more than 20 minutes straight, the script rings

# the bell after every character until you take a 10 minute break.

# Author: Don Libes, NIST

# Date: Feb 26, '95

spawn $env(SHELL)

set start [timestamp]   ;# when we started our current typing period

set stop [timestamp]    ;# when we stopped typing

set typing 1200         ;# twenty minutes, max typing time allowed

set notyping 600        ;# ten minutes, min notyping time required

interact -nobuffer -re . {

        set now [timestamp]

        if {$now-$stop > $notyping} {

                set start [timestamp]

        } elseif {$now-$start > $typing} {

                send_user "\007"

        }

        set stop [timestamp]

}