Code:

set zeitdiff [expr {[unixtime]-$signon}]

Code:

bind pub $whois(acc) ".whois" whois:nickproc whois:nick { nickname hostname handle channel arguments } {global whois      set target [lindex [split $arguments] 0]if {$target == ""} {putquick "PRIVMSG $channel :Please choose a target first."return 0}if {[string length $target] >= "14"} {putquick "PRIVMSG $channel :Sorry, That nickname is too long. Please try a user with less than 14 characters."; return}if {[regexp -all -- {[~\[\]\{\}\|\_\\]} $target]} {putquick "PRIVMSG $channel :Sorry, I can't whois a user with special characters in it."; return}putquick "WHOIS $target $target"      set ::whoischannel $channelset ::whoistarget $targetbind RAW - 401 whois:nosuchbind RAW - 311 whois:infobind RAW - 319 whois:channelsbind RAW - 301 whois:awaybind RAW - 313 whois:ircopbind RAW - 330 whois:authbind RAW - 317 whois:idle}proc whois:putmsg { channel arguments } {putquick "PRIVMSG $channel :$arguments"}proc whois:info { from keyword arguments } {set channel $::whoischannelset nickname [lindex [split $arguments] 1]set ident [lindex [split $arguments] 2]set host [lindex [split $arguments] 3]set realname [string range [join [lrange $arguments 5 end]] 1 end]whois:putmsg $channel "$nickname - $ident@$host * $realname"unbind RAW - 311 whois:info}proc whois:ircop { from keyword arguments } {set channel $::whoischannelset target $::whoistargetwhois:putmsg $channel "$target is an IRC Operator"unbind RAW - 313 whois:ircop}proc whois:away { from keyword arguments } {set channel $::whoischannelset target $::whoistargetset awaymessage [string range [join [lrange $arguments 2 end]] 1 end]whois:putmsg $channel "$target ist away: $awaymessage"unbind RAW - 301 whois:away}proc whois:channels { from keyword arguments } {set channel $::whoischannelset channels [string range [join [lrange $arguments 2 end]] 1 end]set target $::whoistargetwhois:putmsg $channel "$target in $channels"unbind RAW - 319 whois:channels}proc whois:auth { from keyword arguments } {set channel $::whoischannelset target $::whoistargetset authname [lindex [split $arguments] 2]whois:putmsg $channel "$target ist geauthed als $authname"unbind RAW - 330 whois:auth}proc whois:nosuch { from keyword arguments } {set channel $::whoischannelset target $::whoistargetwhois:putmsg $channel "Nickname nicht gefunden \"$target\""unbind RAW - 401 whois:nosuch}proc whois:idle { from keyword arguments } {set channel $::whoischannelset target $::whoistargetset idletime [lindex [split $arguments] 2]set signon [lindex [split $arguments] 3]set zeitdiff [unixtime] - $signonwhois:putmsg $channel "$target has been idle for [duration $idletime]. signon time [ctime $signon] $zeitdiff"unbind RAW - 317 whois:idle}